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