Subscribe:
Feed RSS
-
Berlangganan
Langganan
Sudah punya akun WordPress.com? Login sekarang.
Kasusnya dalam dillihat disin Listing Program : 1. Menu Login Sub ClearForm() User.Text = “” Pass.Text = “” User.Focus() End Sub Sub CekLogin() If User.Text = “” And Pass.Text = “” Then MsgBox(“Maaf, tidak boleh kosong”) Else If User.Text = “Jun” And Pass.Text = “Gulo” Then MenuUtama.Show() Me.Hide() ClearForm() Else MsgBox(“Kombinasi Username dan Password anda […]
Januari 28, 2012
Soal dapat dilihat disini Listing Program : Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load RancangTabel() AddKodeBrg() RubahTombol(False, False, False, False, True) No.Focus() End Sub Sub ClearForm() No.Text = “” Kode.Text = “” Nama.Text = “” Merk.Text = “” Harga.Text = “” Jumlah.Text = “” Total.Text = “” No.Focus() RubahTombol(False, False, […]
Juniaman Gulo 
Januari 28, 2012
0