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

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

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

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