Belajar vb 6. Perintah Do Until Loop

untuk membuat program seperi gambar disamping berikut ini adalah langkah-langkahnya:

1. klik dua kali "LABEL" dan aturlah posisinya seperti gambar disamping dan hapus namanya "LABEL1" kosongkan saja untuk menhapusnya yaitu pada kotak properties yang terdapat disebelah kanan cari menu "CAPTION" dan hapus saja "LABEL1", setelah itu tuliskan program dibaah ini untuk menuliskannya klik dua kalikotak form jangan sampai terkena "LABEL, COMMANDBUTTON" dsb dan rubahlah "LOAD" menjadi "ACTIVATE"

Label3.Caption = "HITUNG ANGKA 1 S/D 10 ?"
Label3.FontBold = True
Label3.ForeColor = vbGreen


2. Klik dua kali "LABEL" dan rubah namanaya menjadi "TULISKAN JAWABAN ANDA DISINI"
dan aturlah posisinya seperti gambar disamping untuk merubah namanya pada kotak properties yang terdapat disebelah kanan cari menu "CAPTION" dan rubah namanaya menjadi "TULISKAN JAWABAN ANDA DISINI""LABEL1",

3. Klik dau kali "TEXT" atur posisinya seperti gambar atau sesuai keinginan sobat, dan hapus tulisan "TEXT1", setelah itu tuliskan program seperti dibawah ini

Private Sub Text1_Change()
If Val(Text1) = 12345678910# Then
Text2 = "BENAR"
Else
Text2 = "SALAH"
End If
End Sub


4. Klik dua kali lagi "LABEL" dan rubah namanaya menjadi "KETERANGAN" dan klik dua kali lagi text dan hapus tulisan "TEXT1"atur posisinya tepat disebelah kanan "KETERANGAN" atau seterah sobat.

5. Klik dua kali "COMMANDBUTTON" dan aturlah posisinya seperti gambar disamping dan rubah namanya menjadi "HAPUS", setelah itu tuliskan program sederhana seperti dibawah ini untuk menuliskannya yaitu dengan mengklik dua kali "COMMANDBUTTON" yang telah diruabah namanya tadi:

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
End Sub

6. Klik dua kali "COMMANDBUTTON" dan aturlah posisinya seperti gambar disamping dan rubah namanya menjadi "HITUNG", setelah itu tuliskan program sederhana seperti dibawah ini untuk menuliskannya yaitu dengan mengklik dua kali "COMMANDBUTTON" yang telah diruabah namanya tadi:

Private Sub Command1_Click()
Dim i As Integer
Do Until i = 10
i = i + 1
Loop
MsgBox (Text2) & ", " & (Text1), vbOKOnly, "JAWABAN ANDA"
End Sub

Apabila program ini berhasil maka akan terlihat seperti gambar disamping atas dan apabila ada kesalahan dalam penulisan atau sobat tidak begitu jelas dengan tulisan diartikel ini, mohon komentar dan koreksinya.selamat mencooba semoga bermanfaat.

Catatan : Jangan Lupa Baca dan Klik Dibawah ini ya

Artikel Keren Lainnya