Contoh Aktivitas While And Wend

Di Tutorial sebelumnya aku telah membahas mengenai Fungsi While dan Wend, kali ini kita akan mengenal lebih jauh wacana While dan Wind dengan cara menciptakan aktivitas dasar, di mana aktivitas tersebut akan menampilkan baris bilangan dari 0 hingga 100 dengan kelipatan 10, Perkalian 10, dan Baris Bilangan dari 10 hingga 1, tapi tak hanya itu kali kita akan cara berguru menambakan Form dan memakai event Activate, sepakat ayo kita buat programnya :

Program 1

Untuk aktivitas pertama yang akan kita buat yaitu Membua baris bilangan dari 1 hingga 10 dengan kelipatan 10, yang berarti hanya ada 10 angka saja,

1. untuk membuatnya Buat project dengan Standar EXE, kemudian klik Form Object 2 kali, Sehingga muncul Kotak Script,

2. Lalu ganti event Load, menjadi Aktivate, menyerupai ini :

3. kemudian tambahkan script berikut, sehingga keseluruhan script menyerupai ini :

Private Sub Form_Activate()

baris = 0 'Angka Pertama yang di tulis untuk variabel baris yaitu 0

While (baris <= 50) 'Nilai dari variabel baris yaitu kurang dari 50

Print baris, 'Untuk menuliskan Nilai Baris di Form

baris = baris + 10 'Nilai selanjutnya yaitu penjumlahan 10 dengan jumlah sebelumnya

Wend

End Sub

Private Sub Form_Activate() baris = 0 'Angka Pertama yang di tulis untuk variabel baris yaitu 0 While (baris <= 50) 'Nilai dari variabel baris yaitu kurang dari 50 Print baris, 'Untuk menuliskan Nilai Baris di Form baris = baris + 10 'Nilai selanjutnya yaitu penjumlahan 10 dengan jumlah sebelumnya Wend End Sub

Jika anda memakai script di atas maka akan menyerupai ini :

Dan ini yaitu Variasi lainya :

untuk Scriptnya, hanya menambah kan baris * 5 , sesudah Print baris, sehingga menyerupai ini :

Print baris, baris * 5

Program 2

Untuk Prrogram ke dua, tambahkan Form Baru dengan cara

Klik sajian Project dan Pilih Add Form, sesudah itu klik Open

Sama menyerupai pembuatan aktivitas sebelumnya, ubah Event menjadi Aktivate, kemudian 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 dikala aktivitas di jalankan akan menyerupai ini :

Program 3

Untuk menciptakan progarm ke 3, sama menyerupai 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 akibatnya :

Itulah pola aktivitas dasar mengenai While dan Wend, untuk tutorial selanjutnya aku akan membahas mengenai fungsi dari Do Loop Until

Sekian untuk tutorial kali ini, supaya bermanfaat