Sabtu, 11 Oktober 2014

Tugas VB Pemesanan Tiket Pesawat



Lissting : ( Belum Sempurna )

Private Sub Combo2_Change()

End Sub

Private Sub Label15_Click()
12132671 Yuan Pangestu 12.3H.03
End Sub

Private Sub Option1_Click()
If Combo1.Text = "Semarang" Then
Text2.Text = 520000
ElseIf Combo1.Text = "Surabaya" Then
Text2.Text = 800000
ElseIf Combo1.Text = "Yogyakarta" Then
Text2.Text = 570000
ElseIf Combo1.Text = "Solo" Then
Text2.Text = 560000
ElseIf Combo1.Text = "Balikpapan" Then
Text2.Text = 985000
ElseIf Combo1.Text = "Banjarmasin" Then
Text2.Text = 1030000
ElseIf Combo1.Text = "Palangkaraya" Then
Text2.Text = 680000
ElseIf Combo1.Text = "Pontianak" Then
Text2.Text = 630000
End If

End Sub

Private Sub Option2_Click()
If Combo1.Text = "Semarang" Then
Text2.Text = 260000
ElseIf Combo1.Text = "Surabaya" Then
Text2.Text = 400000
ElseIf Combo1.Text = "Yogyakarta" Then
Text2.Text = 280000
ElseIf Combo1.Text = "Solo" Then
Text2.Text = 280000
ElseIf Combo1.Text = "Balikpapan" Then
Text2.Text = 480000
ElseIf Combo1.Text = "Banjarmasin" Then
Text2.Text = 520000
ElseIf Combo1.Text = "Palangkaraya" Then
Text2.Text = 340000
ElseIf Combo1.Text = "Pontianak" Then
Text2.Text = 330000
End If
End Sub

Private Sub Command2_Click()
X = MsgBox("Anda yakin ingin membatalkan pemesanan?", vbOKCancel, "WARNING")
If X = vbOK Then Unload Me
End Sub

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text1.SetFocus
Text2.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
End Sub

Private Sub Check3_Click()
Dewasa = Text3.Text
Bayi = Text4.Text
harga = Text2.Text
hargabayi = 0.15 * harga
Bagasi = 90000
SubTotal = (Dewasa * harga) + (hargabayi * Bayi)
TotalBayar = SubTotal + Bagasi
Text5.Text = SubTotal
Text6.Text = TotalBayar
End Sub

Private Sub Check2_Click()
Dewasa = Text3.Text
Bayi = Text4.Text
harga = Text2.Text
hargabayi = 0.15 * harga
Bagasi = 60000
SubTotal = (Dewasa * harga) + (hargabayi * Bayi)
TotalBayar = SubTotal + Bagasi
Text5.Text = SubTotal
Text6.Text = TotalBayar
End Sub

Private Sub Check1_Click()
Dewasa = Text3.Text
Bayi = Text4.Text
harga = Text2.Text
hargabayi = 0.15 * harga
Bagasi = 30000
SubTotal = (Dewasa * harga) + (hargabayi * Bayi)
TotalBayar = SubTotal + Bagasi
Text5.Text = SubTotal
Text6.Text = TotalBayar
End Sub


Tidak ada komentar:

Posting Komentar