Code

Private Sub Combo1_Click()
If Combo1.Text = "PZZ" Then
Text1.Text = "Pizza"
Text2.Text = 50000
Else
If Combo1.Text = "SPG" Then
Text1.Text = "Spageti"
Text2.Text = 20000
Else
If Combo1.Text = "BRG" Then
Text1.Text = "Burger"
Text2.Text = 20000

End If
End If
End If
End Sub





Private Sub Combo2_Click()
If Combo2.Text = "OJ" Then
Text5.Text = "Orange Juice"
Text6.Text = 5000
Else
If Combo2.Text = "KL" Then
Text5.Text = "ES Kelapa"
Text6.Text = 3000
Else
If Combo2.Text = "AL" Then
Text5.Text = "ES Alpukat"
Text6.Text = 5000

End If
End If
End If
End Sub


Private Sub Command1_Click()
Text9.Text = Val(Text4.Text) + Val(Text8.Text)
Text10.Text = 10 / 100 * (Text9.Text)
Text11.Text = Val(Text9.Text) + Val(Text10.Text)
End Sub

Private Sub Command2_Click()
Combo1.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Combo2.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
End Sub

Private Sub Command3_Click()
w = MsgBox("Yakin Mwu Kluar???", vbYesNo, "WaRning")
If w = vbYes Then
End
End If
End Sub

Private Sub Form_Load()

Combo1.AddItem ("PZZ")
Combo1.AddItem ("SPG")
Combo1.AddItem ("BRG")
Combo2.AddItem ("OJ")
Combo2.AddItem ("KL")
Combo2.AddItem ("AL")


End Sub



Private Sub Text3_Change()
Text4.Text = Val(Text2.Text) * Val(Text3.Text)
End Sub

Private Sub Text7_Change()
Text8.Text = Val(Text6.Text) * Val(Text7.Text)
End Sub

Private Sub Timer1_Timer()
Label15.Caption = Time
End Sub