Rabu, 15 Juli 2015

1. Design form dibawah ini dengan nama form biodata, gunakan label, textbox, frame, radio button, dan button pada toolbox
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