2. logika program
- jalankan form maka textbox, dan radio button dalam keadaan kosong semua
- klik tombol input, maka textbox dan radio button dalam keadaan kosong
- klik keluar maka akan keluar dari program, dan muncul pesan. ok (keluar dri program) cancel (maka batal keluar)
Listing Code
Private Sub bexit_Click() p = MsgBox("Anda yakin akan keluar?", vbQuestion + vbOKCancel, "informasi") If p = vbOK Then End End If End Sub Private Sub binput_Click() txtnim.SetFocus 'menempatkan / mengatur kursor pda textbox nim txtnim.Text = "" txtnama.Text = "" txtkelas.Text = "" txtalamat.Text = "" txttelpon.Text = "" opria.Value = False owanita.Value = False End Sub
0 komentar:
Posting Komentar