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