Program Tiket Penumpang

Ini adalah program tiket penumpang dan tugas pertama matakuliah pemograman visual I yang diajarakan oleh pak michael oktovianus,

Listing Program

Private Sub Check1_Click()

Text8.Text = "Payung"

End Sub

Private Sub Check2_Click()

Text8.Text = "Jas Hujan"

End Sub

Private Sub Combo1_Click()

If Combo1.Text = 1011 Then

 Text1.Text = "VIP"

 Text2.Text = 700000

 Else

 If Combo1.Text = 1012 Then

 Text1.Text = "Bisnis"

 Text2.Text = 400000

 Else

 If Combo1.Text = 1013 Then

 Text1.Text = "Ekonomi"

 Text2.Text = 200000

 End If

 End If

 End If

End Sub

Private Sub Command1_Click()

Text7.Text = Val(Text5) + Val(Text6)

End Sub

Private Sub Command2_Click()

Text1.Text = " "

Text2.Text = " "

Text3.Text = " "

Text4.Text = " "

Text5.Text = " "

Text6.Text = " "

Text7.Text = " "

Text8.Text = " "

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_Load()

Combo1.AddItem 1011

Combo1.AddItem 1012

Combo1.AddItem 1013

Text1.Text = " "

Text2.Text = " "

Text3.Text = " "

Text4.Text = " "

Text5.Text = " "

Text6.Text = " "

Text7.Text = " "

Text8.Text = " "

End Sub

Private Sub Option1_Click()

Text6.Text = 0.1 * Val(Text5)

End Sub

Private Sub Option2_Click()

Text6.Text = 0.2 * Val(Text5)

End Sub

Private Sub Option3_Click()

Text6.Text = 0.3 * Val(Text5)

End Sub

Private Sub Text4_Change()

Text5.Text = Val(Text2) * Val(Text4)

End Sub