Latihan 5 Visual Basic - Struktur IF

Latihan 5 Visual Basic -Struktur IF

Dim kesempatan As Integer

Private Sub Command1_Click()
    kesempatan = kesempatan + 1
    If (LCase(Text1.Text) = "nusantara") 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

Posted in: Latihan,Pemrograman