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