Membuat Program Sederhana dengan Kontrol Perulangan While-Wend pada Visual Basic 6

Assalammu'alaikum😊 Kali ini saya akan sharing ke teman-teman semua bagaimana cara membuat program sederhana dengan Kontrol Perulangan While-Wend pada Visual Basic 6 berupa tabel perkalian. Dimana kontrol ini akan terus melakukan pengulangan sampai kondisi bernilai benar dan akan berhenti sampai kondisi bernilai salah.

--------------------------------------------------------------------

Langkah Pembuatan Program Sederhana dengan Kontrol Perulangan While-Wend

1. Buka aplikasi Visual Basic 6

2. Lalu pada New Project buat dengan Standar EXE, setelah itu klik Open.

3. Desain form dengan menambahakan 2 Label, 1 Textbox, 1Listbox, dan 2 Commandbutton.

4. Atur property label, textbox, listbox, dan commandbutton seperti di bawah ini:

Object	Property	Value
Label1	Caption	TABEL PERKALIAN
Label2	Caption	Enter Here
Text1	Text	-
List1	-	-
Command1	Caption	Process
Command2	Caption	Refresh

5. Stelah itu double klik command button, lalu isi dengan kode program seperti dibawah ini:

Option Explicit

Dim q As Integer

Private Sub Command1_Click()

q = 1

While q <= 10

List1.AddItem (q & "x" & Text1.Text & "=" & q * Text1.Text)

q = q + 1

Wend

  

End Sub

Private Sub Command2_Click()

Text1.Text = ""

List1.Clear

End Sub

6. Stelah itu jalankan program dengan klik F5 pada keyboard.

Flowchart Logika Program While...Wend