pertemuan 8

Pertemuan 8

Private Sub Combo1_Click()

If Combo1.Text = "OFFICE 2007" Then

Combo2.Clear

TXTBIAYA.Text = "325000"

Combo2.AddItem "10.00-12.00"

Combo2.AddItem "14.30-16.30"

ElseIf Combo1.Text = "OFFICE HEMAT" Then

Combo2.Clear

TXTBIAYA.Text = "200000"

Combo2.AddItem "07.00-09.00"

Combo2.AddItem "11.30-13.30"

ElseIf Combo1.Text = "AUTOCAD 2008" Then

Combo2.Clear

TXTBIAYA.Text = "375000"

Combo2.AddItem "07.00-09.00"

Combo2.AddItem "13.00-15.00"

End If

End Sub

Private Sub Combo2_Click()

If Combo2.Text = "10.00-12.00" Then

txttgl.Text = "21 oct"

ElseIf Combo2.Text = "14.30-16.30" Then

txttgl.Text = "07 oct"

ElseIf Combo2.Text = "07.00-09.00" Then

txttgl.Text = "28 oct"

ElseIf Combo2.Text = "11.30-13.30" Then

txttgl.Text = "26 oct"

ElseIf Combo2.Text = "07.00-09.00" Then

txttgl.Text = "28 oct"

ElseIf Combo2.Text = "13.00-15.00" Then

txttgl.Text = "05 oct"

End If

pemrogaman berbawsis obyek

Pertemuan 7

Private Sub Command1_Click()

If Text1.Text = "" Or Text2.Text = "" Or Combo1.Text = "" Then

X = MsgBox("HARUS MENGISI PILIHAN", vbOKOnly, "WARNING!!")

Else

If OPTION1.Value = True And Combo1.Text = "A" Then

Text3.Text = "1200000"

ElseIf OPTION1.Value = True And Combo1.Text = "B" Then

Text3.Text = "1300000"

ElseIf OPTION1.Value = True And Combo1.Text = "C" Then

Text3.Text = "1400000"

ElseIf OPTION1.Value = True And Combo1.Text = "D" Then

Text3.Text = "1500000"

ElseIf OPTION2.Value = True And Combo1.Text = "A" Then

Text3.Text = "1600000"

ElseIf OPTION2.Value = True And Combo1.Text = "B" Then

Text3.Text = "1700000"

ElseIf OPTION2.Value = True And Combo1.Text = "C" Then

Text3.Text = "1800000"

ElseIf OPTION2.Value = True And Combo1.Text = "D" Then

Text3.Text = "1900000"

ElseIf OPTION3.Value = True And Combo1.Text = "A" Then

Text3.Text = "2000000"

ElseIf OPTION3.Value = True And Combo1.Text = "B" Then

Text3.Text = "2100000"

ElseIf OPTION3.Value = True And Combo1.Text = "C" Then

Text3.Text = "2200000"

ElseIf OPTION3.Value = True And Combo1.Text = "D" Then

Text3.Text = "2300000"

ElseIf OPTION4.Value = True And Combo1.Text = "A" Then

Text3.Text = "2400000"

ElseIf OPTION4.Value = True And Combo1.Text = "B" Then

Text3.Text = "2500000"

ElseIf OPTION4.Value = True And Combo1.Text = "C" Then

Text3.Text = "2600000"

ElseIf OPTION4.Value = True And Combo1.Text = "D" Then

Text3.Text = "2700000"

End If

End If

End Sub