Rizq Technology – Exploring Your iDea.

Visual Basic#5

This scenario like previoust post – i guessed you’ve something about it.

Source Code 1 :

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form2.Show
Form1.Enabled = False
Form3.Visible = False

End Sub

Source Code 2 :

Private Sub Command1_Click()
If Text1.Text = "rizky" And Text2.Text = "passwordgue" Then
        Text1.Enabled = False
        Text2.Enabled = False
        Form3.Show
        Form1.Enabled = False
        Form2.Enabled = False
        Command1.Enabled = False

    ElseIf Text1.Text = "rizky" And Text2.Text <> "passwordgue" Then

        Text1.Enabled = False
        Text2.Text = ""
        Command1.Enabled = True
        MsgBox "Username Anda Benar, Password Anda SALAH"
    ElseIf Text1.Text <> "rizky" And Text2.Text = "passwordgue" Then

        Text1.Text = ""
        Text2.Enabled = True
        Command1.Enabled = True
        MsgBox "Username Anda SALAH Tetapi, Password Anda Benar"

    Else
        MsgBox "Username dan Passwordnya anda SALAH !"
        Text1.Text = ""
        Text2.Text = ""

    End If
End Sub

Private Sub Command2_Click()
Form1.Show
Form1.Enabled = True

End Sub

Source Code 3 :

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

Private Sub Finished_Click()
End
End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Option1_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 + var2
Label3.Caption = hasil
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)
var1 = 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)
var1 = IIf(Text2.Text = "True", -1, 0)
hasil = (var1 And var2)
Label3.Caption = Format(hasil, "True/False")
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

SCREENSHOOT BELOW :

Source Code Download Here and Again, i hope u Enjoy !