Membuat Program Sederhana Do While-Loop pada Visual Basic 6

Pada postingan kali ini, Saya akan membahas tentang pembuatan program sederhana denga menggunakan kondisi Kontrol Perulangan Do While-Loop. pada VB dengan output bilangan asli namun angka 5 tidak akan dicetak pada output, Disini saya menggunakaan program Visual Basic 6.0.

Langkah Pembuatan Program :

1. Buka aplikasi Visual Basic 6.0, Klik Standard EXE.

2. Mendesain Form menggunakan  3 Label, 1 TextBox, 3 CommandButton, 1 ListBox. dengan format seperti dibawah ini.

3. Untuk Pembuatan kode program , berikut kode yang terdapat pada program tersebut.

Private Sub Command1_Click()

Dim awal As Integer
Dim akhir As Integer
awal = 1
akhir = Val(Text1.Text)
Do
If (awal <> 5) Then
   List1.AddItem (awal)
End If
awal = awal + 1
Loop While awal <= akhir
End Sub

Private Sub Command2_Click()
Text1.Text = ""
List1.Clear
End Sub

Private Sub Command3_Click()
If MsgBox("Anda Yakin?", vbYesNo, "EXIT") = vbYes Then
End
End If
End Sub

4. Untuk tampilan lain seperti font, back color dan lainnya dapat disesuaikan lewat menu yang ada di properties. sesuaikan posisi  ListBox dan juga command button.

5.  Setelah itu untuk menjalankan program klik f5 pada keyboard.

FLOWCHART PROGRAM PENGULANGAN DO  WHILE-LOOP