Pertemuan ke-6 visual basic

Pertemuan ke 6 ini membahas tentang Login Prompt dan Kondisi/percabangan pada visual basic.

Buatlah Form1 dan Form2 seperti di bawah ini.

#Form 1 

Private Sub Form_Load()

Label1.Caption = "LOGIN PROMPT"

Label2.Caption = "Username"

Label3.Caption = "Password"

Text1.Text = ""

Text2.Text = ""

Command1.Caption = "OK"

Command2.Caption = "Exit"

Label1.FontBold = True

Label1.Font = "Castellar"

Label2.Font = "Curlz MT"

Label3.Font = "Curlz MT"

Command1.Font = "Segoe Print"

Command2.Font = "Segoe Print"

Label1.FontSize = "14"

Label2.FontSize = "12"

Label3.FontSize = "12"

End Sub

#Command1 - Form1

Private Sub Command1_Click()

If (Text1.Text = "Admin") And (Text2.Text = "1ia26") Then

i = MsgBox("Login Anda berhasil", vbOKOnly + vbInformation, "Admin")

Form2.Show

Unload Me

Else:

i = MsgBox("Maap Login anda blum berhasil", vbOKOnly + vbCritical, "Admin")

End If

End Sub

#Command2 - Form1

Private Sub Command2_Click()

End

End Sub

############################################

#Form2

Private Sub Command1_Click()

Dim a As String

Dim b As String

Dim c As String

Dim d As Integer

Dim e As Integer

Dim f As String

a = Text2.Text

b = Text3.Text

If Text2.Text = "1" Then

a = "Ayam Bakar"

d = 10000

ElseIf Text2.Text = "2" Then

a = "Steak"

d = 20000

Else

MsgBox "Wrong Input", 3

End If

If Text3.Text = "1" Then

b = "Lemon Tea"

e = 3000

ElseIf Text3.Text = "2" Then

b = "Orange Juice"

e = 5000

Else

MsgBox "Wrong Input", 3

End If

f = Val(d) + Val(e)

c = a + " dan " + b + "Total = Rp. " + f

Text1.Text = c

End Sub

#Command 2 - Form2

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

#Command 3 - Form2 

Private Sub Command3_Click()

End

End Sub

#Command4 -Form2 

(Tidak usah dibuat)

#Form 2

Private Sub Form_Load()

Label1.Caption = "1IA26's Menu"

Label2.Caption = "Food"

Label3.Caption = "Drink"

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Frame1.Caption = "Foods"

Label4.Caption = "1. Fried Chicken"

Label5.Caption = "2. Steak"

Frame2.Caption = "Your Choice"

Text1.Text = ""

Frame3.Caption = "Drinks"

Label6.Caption = "1. Orange Juice"

Label7.Caption = "2. Lemon Tea"

Command1.Caption = "Choice"

Command2.Caption = "Clean"

Command3.Caption = "Exit"

Command4.Caption = "Next Form"

End Sub