Contoh Program While and Wend

Di Tutorial sebelumnya saya telah membahas mengenai Fungsi While dan Wend, kali ini kita akan mengenal lebih jauh tentang While dan Wind dengan cara membuat program dasar, di mana program tersebut akan menampilkan baris bilangan dari 0 sampai 100 dengan kelipatan 10, Perkalian 10, dan Baris Bilangan dari 10 sampai 1, tapi tak hanya itu kali kita akan cara belajar menambakan Form dan menggunakan event Activate, baiklah ayo kita buat programnya :

Program 1
Untuk program pertama yang akan kita buat adalah Membua baris bilangan dari 1 sampai 10 dengan kelipatan 10, yang berarti hanya ada 10 angka saja,
1. untuk membuatnya Buat project dengan Standar EXE, lalu klik Form Object 2 kali, Sehingga muncul Kotak Script,
2. Lalu ganti event Load, menjadi Aktivate, seperti ini :

3. lalu tambahkan script berikut, sehingga keseluruhan script seperti ini :

Private Sub Form_Activate()
baris = 0 'Angka Pertama yang di tulis untuk variabel baris adalah 0
While (baris <= 50) 'Nilai dari variabel baris adalah kurang dari 50
Print baris, 'Untuk menuliskan Nilai Baris di Form
baris = baris + 10 'Nilai selanjutnya adalah penjumlahan 10 dengan jumlah sebelumnya
Wend
End Sub
Jika anda menggunakan script di atas maka akan seperti ini :

Dan ini adalah Variasi lainya :

untuk Scriptnya, hanya menambah kan baris * 5 , setelah Print baris, sehingga seperti ini :
Print baris, baris * 5

Program 2
Untuk Prrogram ke dua, tambahkan Form Baru dengan cara
Klik menu Project dan Pilih Add Form, setelah itu klik Open


Sama seperti pembuatan program sebelumnya, ubah Event menjadi Aktivate, lalu tuliskan script berikut :

Private Sub Form_Activate()
Dim a As Byte
a = 1
While (a <= 10)
Print "1"; "*"; a; "="; a * 1 
a = a + 1
Wend
End Sub
Sehingga ketika program di jalankan akan seperti ini :

Program 3
Untuk membuat progarm ke 3, sama seperti langkah sebelumnya,
- Tambahkan Form Baru
- Ubah Event menjadi Activate

Lalu tuliskan script berikut :

Private Sub Form_Activate()
Dim baris As Byte
baris = 20
While (baris >= 1)
Print baris
baris = baris - 1
Wend
End Sub
dan hasilnya :

Itulah contoh program dasar mengenai While dan Wend, untuk tutorial selanjutnya saya akan membahas mengenai fungsi dari Do Loop Until
Sekian untuk tutorial kali ini, semoga bermanfaat




Bantu kembangkan Blues Pedia yuk, caranya share artikel ini :

G+

0 Response to "Contoh Program While and Wend"

Post a Comment