Download Program Struktur If.... Then Visual Basic 6.0
1. Buka Program Visual Basic 6.0
2. Desain Form seperti ini
3. Ubah Property
Form1-Caption-Struktur IF... THEN
Label1-Caption-Password
Text1-Text-<Kosong>
-PasswordChar-*
Command1-Caption-OK
4. Copy code berikut lalu klik View Code dan pastekan
Dim kesempatan As Integer
Private Sub Command1_Click()
kesempatan = kesempatan + 1
If (LCase(Text1.Text) = "stkom") And (kesempatan <= 3) Then
Image1.Visible = True
Text1.Enabled = False
Command1.Enabled = False
Else
MsgBox "Passwordnya Salah !"
If kesempatan < 3 Then
Text1.Text = ""
Text1.SetFocus
Else
End
End If
End If
End Sub
Private Sub Command2_Click()
Image1.Visible = False
Command1.Enabled = True
Text1.Enabled = True
Text1.Text = ""
End Sub
5. Jalankan Program dengan menekan F5, maka tampilannya akan seperti ini
Download Program Struktur If.... Then Visual Basic 6.0
Selamat Mencoba...!!!
No comments:
Post a Comment