PROJECT PEMESANAN TIKET PESAWAT

NAMA : MUHAMMAD ALFINZAH
KELAS: 1KA03
UNIVERSITAS GUNADARMA

FORM LOGIN
                 




Private Sub Command1_Click()
Dim user As String
Dim pass As String
user = "admin"
pass = "12345"
If (user = txtUserName.Text And pass = txtPassword.Text) Then
MsgBox "SELAMAT DATANG", vbInformation, "LOGIN BERHASIL"
Form1.Show

Unload Me
Else
MsgBox "Username atau Password salah", vbExclamation, "LOGIN GAGAL"
End If
End Sub

FORM HALAMAN UTAMA

Dim sHari As String
Dim aHari


Private Sub Form_Load()
  aHari = Array("Minggu", "Senin", "Selasa", "Rabu", "Kamis", "Jumat", "Sabtu")
  Timer1.Interval = 500
  Timer1.Enabled = True
End Sub

Private Sub Image2_Click()
Form2.Show
Unload Me
End Sub

Private Sub Image3_Click()
Form3.Show
Unload Me
End Sub

Private Sub Image4_Click()
Form4.Show
Unload Me
End Sub

Private Sub Image5_Click()
Form5.Show
Unload Me
End Sub

Private Sub Timer1_Timer()
  sHari = aHari(Abs(Weekday(Date) - 1))
  lbltanggal.Caption = Format(Date, "dd mmmm yyyy")
lbljam.Caption = Format(Time, "hh:mm:ss")
End Sub


FORM LION AIR

Private Sub Check1_Click()
dewasa = TxtDewasa.Text
bayi = TxtBayi.Text
harga = TxtHarga.Caption
hargabayi = 0.15 * harga
bagasi = 30000
subtotal = (dewasa * harga) + (hargabayi * bayi)
total = subtotal + bagasi
txtTotal.Caption = total
End Sub

Private Sub Check2_Click()
dewasa = TxtDewasa.Text
bayi = TxtBayi.Text
harga = TxtHarga.Caption
hargabayi = 0.15 * harga
bagasi = 60000
subtotal = (dewasa * harga) + (hargabayi * bayi)
total = subtotal + bagasi
txtTotal.Caption = total
End Sub

Private Sub Check3_Click()
dewasa = TxtDewasa.Text
bayi = TxtBayi.Text
harga = TxtHarga.Caption
hargabayi = 0.15 * harga
bagasi = 90000
subtotal = (dewasa * harga) + (hargabayi * bayi)
total = subtotal + bagasi
txtTotal.Caption = total
End Sub

Private Sub Command1_Click()
If CboAsal.ListIndex = 0 And CboTujuan.ListIndex = 1 Then
TxtHarga.Caption = 630000
ElseIf CboAsal.ListIndex = 0 And CboTujuan.ListIndex = 2 Then
TxtHarga.Caption = 535000
ElseIf CboAsal.ListIndex = 1 And CboTujuan.ListIndex = 0 Then
TxtHarga.Caption = 750000
ElseIf CboAsal.ListIndex = 1 And CboTujuan.ListIndex = 2 Then
TxtHarga.Caption = 450000
ElseIf CboAsal.ListIndex = 2 And CboTujuan.ListIndex = 0 Then
TxtHarga.Caption = 575000
ElseIf CboAsal.ListIndex = 2 And CboTujuan.ListIndex = 1 Then
TxtHarga.Caption = 500000
Else
MsgBox "Kota Asal dan Kota Tujuan Tidak Boleh Sama", vbInformation, "peringatan!"
End If
End Sub

Private Sub Command2_Click()
Form1.Show
Unload Me
End Sub

Private Sub Command3_Click()
MsgBox "Pemesanan Berhasil, Harap Cek Email Anda", vbInformation, "Peringatan!"
End Sub

Private Sub Form_Load()
  aHari = Array("Minggu", "Senin", "Selasa", "Rabu", "Kamis", "Jumat", "Sabtu")
  Timer1.Interval = 500
  Timer1.Enabled = True
 
  For t = 2014 To 2050
TAHUN.AddItem t
Next
For k = 1 To 31
TGL.AddItem k
Next
BULAN.List(0) = "Januari"
BULAN.List(1) = "Februari"
BULAN.List(2) = "Maret"
BULAN.List(3) = "April"
BULAN.List(4) = "Mei"
BULAN.List(5) = "Juni"
BULAN.List(6) = "Juli"
BULAN.List(7) = "Agustus"
BULAN.List(8) = "September"
BULAN.List(9) = "Oktober"
BULAN.List(10) = "November"
BULAN.List(11) = "Desember"

CboTujuan.List(0) = "Jakarta (Cgk)"
CboTujuan.List(1) = "Bali (DPS)"
CboTujuan.List(2) = "Surabaya (Sby)"

CboAsal.List(0) = "Jakarta (Cgk)"
CboAsal.List(1) = "Bali (DPS)"
CboAsal.List(2) = "Surabaya (Sby)"
End Sub


Private Sub Timer1_Timer()
  sHari = aHari(Abs(Weekday(Date) - 1))
  lbltanggal.Caption = Format(Date, "dd mmmm yyyy")
lbljam.Caption = Format(Time, "hh:mm:ss")
End Sub

FORM GARUDA


Dim harga, dewasa, bayi, hargabayi, subtotal, total As Variant
Dim sHari As String
Dim aHari

Private Sub Check1_Click()
dewasa = TxtDewasa.Text
bayi = TxtBayi.Text
harga = TxtHarga.Caption
hargabayi = 0.175 * harga
bagasi = 0
subtotal = (dewasa * harga) + (hargabayi * bayi)
total = subtotal + bagasi
txtTotal.Caption = total
End Sub

Private Sub Check2_Click()
dewasa = TxtDewasa.Text
bayi = TxtBayi.Text
harga = TxtHarga.Caption
hargabayi = 0.175 * harga
bagasi = 50000
subtotal = (dewasa * harga) + (hargabayi * bayi)
total = subtotal + bagasi
txtTotal.Caption = total
End Sub

Private Sub Check3_Click()
dewasa = TxtDewasa.Text
bayi = TxtBayi.Text
harga = TxtHarga.Caption
hargabayi = 0.175 * harga
bagasi = 75000
subtotal = (dewasa * harga) + (hargabayi * bayi)
total = subtotal + bagasi
txtTotal.Caption = total
End Sub

Private Sub Command1_Click()
If CboAsal.ListIndex = 0 And CboTujuan.ListIndex = 1 Then
TxtHarga.Caption = 865000
ElseIf CboAsal.ListIndex = 0 And CboTujuan.ListIndex = 2 Then
TxtHarga.Caption = 700000
ElseIf CboAsal.ListIndex = 1 And CboTujuan.ListIndex = 0 Then
TxtHarga.Caption = 758000
ElseIf CboAsal.ListIndex = 1 And CboTujuan.ListIndex = 2 Then
TxtHarga.Caption = 500000
ElseIf CboAsal.ListIndex = 2 And CboTujuan.ListIndex = 0 Then
TxtHarga.Caption = 685000
ElseIf CboAsal.ListIndex = 2 And CboTujuan.ListIndex = 1 Then
TxtHarga.Caption = 475000
Else
MsgBox "Kota Asal dan Kota Tujuan Tidak Boleh Sama", vbInformation, "peringatan!"
End If
End Sub

Private Sub Command2_Click()
Form1.Show
Unload Me
End Sub

Private Sub Command3_Click()
MsgBox "Pemesanan Berhasil, Harap Cek Email Anda", vbInformation, "Peringatan!"
End Sub

Private Sub Form_Load()
  aHari = Array("Minggu", "Senin", "Selasa", "Rabu", "Kamis", "Jumat", "Sabtu")
  Timer1.Interval = 500
  Timer1.Enabled = True
 
  For t = 2014 To 2050
TAHUN.AddItem t
Next
For k = 1 To 31
TGL.AddItem k
Next
BULAN.List(0) = "Januari"
BULAN.List(1) = "Februari"
BULAN.List(2) = "Maret"
BULAN.List(3) = "April"
BULAN.List(4) = "Mei"
BULAN.List(5) = "Juni"
BULAN.List(6) = "Juli"
BULAN.List(7) = "Agustus"
BULAN.List(8) = "September"
BULAN.List(9) = "Oktober"
BULAN.List(10) = "November"
BULAN.List(11) = "Desember"

CboTujuan.List(0) = "Jakarta (Cgk)"
CboTujuan.List(1) = "Bali (DPS)"
CboTujuan.List(2) = "Surabaya (Sby)"

CboAsal.List(0) = "Jakarta (Cgk)"
CboAsal.List(1) = "Bali (DPS)"
CboAsal.List(2) = "Surabaya (Sby)"
End Sub


FORM  AIR ASIA


Private Sub Timer1_Timer()
  sHari = aHari(Abs(Weekday(Date) - 1))
  lbltanggal.Caption = Format(Date, "dd mmmm yyyy")
lbljam.Caption = Format(Time, "hh:mm:ss")
End Sub
Dim harga, dewasa, bayi, hargabayi, subtotal, total As Variant
Dim sHari As String
Dim aHari

Private Sub Check1_Click()
dewasa = TxtDewasa.Text
bayi = TxtBayi.Text
harga = TxtHarga.Caption
hargabayi = 0.16 * harga
bagasi = 25000
subtotal = (dewasa * harga) + (hargabayi * bayi)
total = subtotal + bagasi
txtTotal.Caption = total
End Sub

Private Sub Check2_Click()
dewasa = TxtDewasa.Text
bayi = TxtBayi.Text
harga = TxtHarga.Caption
hargabayi = 0.16 * harga
bagasi = 55000
subtotal = (dewasa * harga) + (hargabayi * bayi)
total = subtotal + bagasi
txtTotal.Caption = total
End Sub

Private Sub Check3_Click()
dewasa = TxtDewasa.Text
bayi = TxtBayi.Text
harga = TxtHarga.Caption
hargabayi = 0.16 * harga
bagasi = 85000
subtotal = (dewasa * harga) + (hargabayi * bayi)
total = subtotal + bagasi
txtTotal.Caption = total
End Sub

Private Sub Command1_Click()
If CboAsal.ListIndex = 0 And CboTujuan.ListIndex = 1 Then
TxtHarga.Caption = 835000
ElseIf CboAsal.ListIndex = 0 And CboTujuan.ListIndex = 2 Then
TxtHarga.Caption = 485000
ElseIf CboAsal.ListIndex = 1 And CboTujuan.ListIndex = 0 Then
TxtHarga.Caption = 895000
ElseIf CboAsal.ListIndex = 1 And CboTujuan.ListIndex = 2 Then
TxtHarga.Caption = 325000
ElseIf CboAsal.ListIndex = 2 And CboTujuan.ListIndex = 0 Then
TxtHarga.Caption = 450000
ElseIf CboAsal.ListIndex = 2 And CboTujuan.ListIndex = 1 Then
TxtHarga.Caption = 350000
Else
MsgBox "Kota Asal dan Kota Tujuan Tidak Boleh Sama", vbInformation, "peringatan!"
End If
End Sub

Private Sub Command2_Click()
Form1.Show
Unload Me
End Sub

Private Sub Command3_Click()
MsgBox "Pemesanan Berhasil, Harap Cek Email Anda", vbInformation, "Peringatan!"
End Sub

Private Sub Form_Load()
  aHari = Array("Minggu", "Senin", "Selasa", "Rabu", "Kamis", "Jumat", "Sabtu")
  Timer1.Interval = 500
  Timer1.Enabled = True
 
  For t = 2014 To 2050
TAHUN.AddItem t
Next
For k = 1 To 31
TGL.AddItem k
Next
BULAN.List(0) = "Januari"
BULAN.List(1) = "Februari"
BULAN.List(2) = "Maret"
BULAN.List(3) = "April"
BULAN.List(4) = "Mei"
BULAN.List(5) = "Juni"
BULAN.List(6) = "Juli"
BULAN.List(7) = "Agustus"
BULAN.List(8) = "September"
BULAN.List(9) = "Oktober"
BULAN.List(10) = "November"
BULAN.List(11) = "Desember"

CboTujuan.List(0) = "Jakarta (Cgk)"
CboTujuan.List(1) = "Bali (DPS)"
CboTujuan.List(2) = "Surabaya (Sby)"

CboAsal.List(0) = "Jakarta (Cgk)"
CboAsal.List(1) = "Bali (DPS)"
CboAsal.List(2) = "Surabaya (Sby)"
End Sub


Private Sub Timer1_Timer()
  sHari = aHari(Abs(Weekday(Date) - 1))
  lbltanggal.Caption = Format(Date, "dd mmmm yyyy")
lbljam.Caption = Format(Time, "hh:mm:ss")
End Sub

FORM CITILINK

Dim harga, dewasa, bayi, hargabayi, subtotal, total As Variant
Dim sHari As String
Dim aHari

Private Sub Check1_Click()
dewasa = TxtDewasa.Text
bayi = TxtBayi.Text
harga = TxtHarga.Caption
hargabayi = 0.13 * harga
bagasi = 40000
subtotal = (dewasa * harga) + (hargabayi * bayi)
total = subtotal + bagasi
txtTotal.Caption = total
End Sub

Private Sub Check2_Click()
dewasa = TxtDewasa.Text
bayi = TxtBayi.Text
harga = TxtHarga.Caption
hargabayi = 0.13 * harga
bagasi = 65000
subtotal = (dewasa * harga) + (hargabayi * bayi)
total = subtotal + bagasi
txtTotal.Caption = total
End Sub

Private Sub Check3_Click()
dewasa = TxtDewasa.Text
bayi = TxtBayi.Text
harga = TxtHarga.Caption
hargabayi = 0.13 * harga
bagasi = 95000
subtotal = (dewasa * harga) + (hargabayi * bayi)
total = subtotal + bagasi
txtTotal.Caption = total
End Sub

Private Sub Command1_Click()
If CboAsal.ListIndex = 0 And CboTujuan.ListIndex = 1 Then
TxtHarga.Caption = 757000
ElseIf CboAsal.ListIndex = 0 And CboTujuan.ListIndex = 2 Then
TxtHarga.Caption = 552000
ElseIf CboAsal.ListIndex = 1 And CboTujuan.ListIndex = 0 Then
TxtHarga.Caption = 820000
ElseIf CboAsal.ListIndex = 1 And CboTujuan.ListIndex = 2 Then
TxtHarga.Caption = 437000
ElseIf CboAsal.ListIndex = 2 And CboTujuan.ListIndex = 0 Then
TxtHarga.Caption = 574000
ElseIf CboAsal.ListIndex = 2 And CboTujuan.ListIndex = 1 Then
TxtHarga.Caption = 464000
Else
MsgBox "Kota Asal dan Kota Tujuan Tidak Boleh Sama", vbInformation, "peringatan!"
End If
End Sub

Private Sub Command2_Click()
Form1.Show
Unload Me
End Sub

Private Sub Command3_Click()
MsgBox "Pemesanan Berhasil, Harap Cek Email Anda", vbInformation, "Peringatan!"
End Sub

Private Sub Form_Load()
  aHari = Array("Minggu", "Senin", "Selasa", "Rabu", "Kamis", "Jumat", "Sabtu")
  Timer1.Interval = 500
  Timer1.Enabled = True
 
  For t = 2014 To 2050
TAHUN.AddItem t
Next
For k = 1 To 31
TGL.AddItem k
Next
BULAN.List(0) = "Januari"
BULAN.List(1) = "Februari"
BULAN.List(2) = "Maret"
BULAN.List(3) = "April"
BULAN.List(4) = "Mei"
BULAN.List(5) = "Juni"
BULAN.List(6) = "Juli"
BULAN.List(7) = "Agustus"
BULAN.List(8) = "September"
BULAN.List(9) = "Oktober"
BULAN.List(10) = "November"
BULAN.List(11) = "Desember"

CboTujuan.List(0) = "Jakarta (Cgk)"
CboTujuan.List(1) = "Bali (DPS)"
CboTujuan.List(2) = "Surabaya (Sby)"

CboAsal.List(0) = "Jakarta (Cgk)"
CboAsal.List(1) = "Bali (DPS)"
CboAsal.List(2) = "Surabaya (Sby)"
End Sub


Private Sub Label16_Click()

End Sub

Private Sub Timer1_Timer()
  sHari = aHari(Abs(Weekday(Date) - 1))
  lbltanggal.Caption = Format(Date, "dd mmmm yyyy")
lbljam.Caption = Format(Time, "hh:mm:ss")
End Sub



Just A Simple Guys, And I LOVE TRAVELLING.

Related Articles

0 komentar:

Posting Komentar

Langganan: Posting Komentar ( Atom )

Popular Posts

Diberdayakan oleh Blogger.