Cara Membuat Program Struktur If.... Then dengan Visual Basic 6.0

Kali ini saya akan membagikan Cara Membuat Program Struktur If.... Then dengan Visual Basic 6.0

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...!!!