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

Read more »

Posted in: Latihan,Pemrograman

Latihan 4 Visual Basic - Operator Test

Latihan 4 Visual Basic - Operator Test

Dim var1 As Single, var2 As Single
Dim hasil As Single

Private Sub Form_Load()
    Text1.Text = ""
    Text2.Text = ""
    Label3.Caption = ""
End Sub

Private Sub Option1_Click()
    var1 = Text1.Text
    var2 = Text2.Text
    hasil = var1 + var2
    Label3.Caption = hasil
End Sub

Private Sub Option2_Click()
    var1 = Text1.Text
    var2 = Text2.Text
    hasil = var1 - var2
    Label3.Caption = hasil
End Sub

Private Sub Option3_Click()
    var1 = Text1.Text
    var2 = Text2.Text
    hasil = var1 * var2
    Label3.Caption = hasil
End Sub

Private Sub Option4_Click()
    var1 = Text1.Text
    var2 = Text2.Text
    hasil = var1 / var2
    Label3.Caption = hasil
End Sub

Private Sub Option5_Click()
    var1 = Text1.Text
    var2 = Text2.Text
    hasil = var1 & var2
    Label3.Caption = hasil
End Sub

Private Sub Option6_Click()
    var1 = Text1.Text
    var2 = Text2.Text
    hasil = (var1 > var2)
    Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option7_Click()
    var1 = Text1.Text
    var2 = Text2.Text
    hasil = (var1 < var2)
    Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option8_Click()
    var1 = Text1.Text
    var2 = Text2.Text
    hasil = (var1 = var2)
    Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option9_Click()
    var1 = Text1.Text
    var2 = Text2.Text
    hasil = (var1 <> var2)
    Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option10_Click()
    var1 = Text1.Text
    var2 = Text2.Text
    hasil = (var1 >= var2)
    Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option11_Click()
    var1 = Text1.Text
    var2 = Text2.Text
    hasil = (var1 <= var2)
    Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option12_Click()
    var1 = IIf(Text1.Text = "True", -1, 0)
    hasil = Not (var1)
    Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option13_Click()
    var1 = IIf(Text1.Text = "True", -1, 0)
    var2 = IIf(Text2.Text = "True", -1, 0)
    hasil = (var1 Or var2)
    Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option14_Click()
    var1 = IIf(Text1.Text = "True", -1, 0)
    var2 = IIf(Text2.Text = "True", -1, 0)
    hasil = (var1 And var2)
    Label3.Caption = Format(hasil, "True/False")
End Sub

Read more »

Posted in: Latihan,Pemrograman

Latihan 3 Visual Basic - Variabel Test

Latihan 3 Visual Basic - Variabel Test

Option Explicit

Dim test2 As Integer

Private Sub Command1_Click()
    Dim test1 As String
 
    test1 = "nusantara"
 
    Label1.Caption = test1
    Label2.Caption = test2
    Label3.Caption = test3
End Sub

Private Sub Command2_Click()
    test2 = 10
 
    Label1.Caption = test1
    Label2.Caption = test2
    Label3.Caption = test3
End Sub

Private Sub Command3_Click()
    Const test3 As Single = 90.55
 
    
    Label1.Caption = test1
    Label2.Caption = test2
    Label3.Caption = test3
End Sub

Read more »

Posted in: Latihan,Pemrograman

Latihan 2 Visual Basic - Method Test

Latihan 2 Visual Basic - Method Test

Private Sub Form_Load()
    Combo1.AddItem "Umar"
    Combo1.AddItem "Salman"
    Combo1.AddItem "Halimah"
    Combo1.AddItem "Shafira"
    Combo1.ListIndex = 0
End Sub

Private Sub Command1_Click()
    List1.AddItem Combo1.Text
    Combo1.SetFocus
End Sub

Private Sub Command2_Click()
    List1.RemoveItem List1.ListIndex
End Sub

Private Sub Command3_Click()
    List1.Clear
    Combo1.SetFocus
End Sub

Read more »

Posted in: Latihan,Pemrograman

Latihan 1 Visual Basic - Property

Latihan 1 Visual Basic - Property

Private Sub Command1_Click()
    Label2.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
    End
End Sub

Private Sub Option1_Click()
    Label2.ForeColor = vbBlue
End Sub

Private Sub Option2_Click()
    Label2.ForeColor = vbRed
End Sub

Private Sub Check1_Click()
    Label2.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
    Label2.FontItalic = Check2.Value
End Sub

Read more »

Posted in: Latihan,Pemrograman