1. membuat menu Login
codinagn
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("Klik OK", MsgBoxStyle.Information, "APPLICATION")
Form2.Show()
Me.Hide()
Penjelasan
klik button "ok" maka akan muncul tampilan Coding pada VB anda kemudian msukan printah - printah sesuai pada text yang diatas..lalu di run...kemudian hasilnya seperti gambar dibawah ini :
maka akan musncul MSG seperti pada tampilan diatas..
kemudian saya akan menambahkan form berikutnya yaitu kolom pengisian password...
perhatikan codingannya..
Public Class Form2
Private Sub commandButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles commandButton1.Click
If Textbox1.Text = "wow keren" Then
MsgBox("GOOD JOB")
Form3.Show()
Me.Hide()
Else
MsgBox("BODOH PASSWORD SALAH")
End If
Textbox1.Text = ""
End Sub
End Class
Kolom form seperti gambar dibawah ini...
penjelasan
Klik 2x pada button "OK" maka akan muncul perintah - printah codingan, tidak usah pusing..anda tinggal memasukan printah - printah yang telah saya kasih kan terdapat pada tekx yang diatas..
Maka hasilnya sebagai berikut..
pastikan password "wow keren", disebab kan karna subjek codingan berisi "wow keren"..
maka akan muncul Msgbox yang bertuliskan "GOOD jOB"...makan anda bisa masuk ke form berikutnya..
TETEPI JIKA ANDA MEMASUKAN PASSWORD SALAH MAKA TAMPILANNYA SEPERTI..
penjelasan
MsgBox akan mucul peringatan "bodoh salah passwod"...maka anda kembali untuk mengisi passwor yang benar
Ketika anda mengisi password benar maka anda siap untuk masuk ke menu APLIKASI KALKULATOR..
perhatiak codinagn dan gambar
Public Class Form3
Dim kotak1 As Single
Dim kotak2 As Single
Dim hasil As Single
Private Sub RadioButtonadd_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonadd.CheckedChanged
LabelSigin.Text = "+"
End Sub
Private Sub RadioButtonSubtract_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonSubtract.CheckedChanged
LabelSigin.Text = "-"
End Sub
Private Sub RadioButtonMultiply_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonMultiply.CheckedChanged
LabelSigin.Text = "x"
End Sub
Private Sub RadioButtonDivide_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonDivide.CheckedChanged
LabelSigin.Text = "/"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
kotak1 = Val(TextBox1.Text)
kotak2 = Val(TextBox2.Text)
If RadioButtonadd.Checked Then
hasil = kotak1 + kotak2
End If
If RadioButtonDivide.Checked Then
hasil = kotak1 / kotak2
End If
If RadioButtonMultiply.Checked Then
hasil = kotak1 * kotak2
End If
If RadioButtonSubtract.Checked Then
hasil = kotak1 - kotak2
End If
Label3.Text = hasil
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub
End Class
PASTIKAN FORM SEPERTI INI
Ok sekian dari sya aplikas sederhana buatan sya...
SELAMAT MENCOBA.............by dian_roses