Form Perkenalan (VB I)

1. Design form dibawah ini dengan nama form perkenalan, gunakan label, textbox, dan button pada toolbox

2. logika program

• jalankan form maka textbox dalam keadaan kosong semua
• klik button bersih, maka semua textbox keadaan kosong
• klik tampil maka akan muncul nim, nama, kelas, alamat, dan telepon
• klik keluar maka akan keluar dari program, dan muncul pesan. ok (keluar dri program) cancel (maka batal keluar)

Listing Code :

Private Sub bersih_Click()
txtnim.Text = ""
txtnama.Text = ""
txtkelas.Text = ""
txtalamat.Text = ""
txttel.Text = ""
End Sub

Private Sub Keluar_Click()
p = MsgBox("Anda yakin akan keluar", vbQuestion + vbOKCancel, "Informasi")
If p = vbOK Then
End
End If
End Sub

Private Sub tampil_Click()
txtnim.Text = "11132336"
txtnama.Text = "Fathur Rahman"
txtkelas.Text = "11.4A.05"
txtalamat.Text = "Bekasi"
txttel.Text = "089609565373"
End Sub