Program Visual Jakarta Travel Agent

Sintaknya :

Sub bersih()
txtnama.Text = " "
txtalamat.Text = " "
cmbkode.Text = "--Pilih Paket--"
txttema.Text = " "
List1.Text = 0
Option1.Value = False
Option2.Value = False
Option3.Value = False
txtharga.Text = " "
txtjumlah.Text = " "
txttotal.Text = " "
txtcash.Text = " "
txtstatus.Text = " "
End Sub

Sub nonaktif()
txtnama.Enabled = False
txtalamat.Enabled = False
cmbkode.Enabled = False
txttema.Enabled = False
List1.Enabled = False
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
txtharga.Enabled = False
txtjumlah.Enabled = False
txttotal.Enabled = False
txtcash.Enabled = False
txtstatus.Enabled = False
End Sub

Sub aktif()
txtnama.Enabled = True
txtalamat.Enabled = True
cmbkode.Enabled = True
txttema.Enabled = True
List1.Enabled = True
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
txtharga.Enabled = True
txtjumlah.Enabled = True
txttotal.Enabled = True
txtcash.Enabled = True
txtstatus.Enabled = True
txtnama.SetFocus
End Sub

Private Sub Timer1_Timer()
tanggal.Caption = Format(date, "dddd,d mmmm yyyy")
waktu.Caption = Format(time, "hh:mm:ss")
End Sub

Private Sub cmdproses_Click()
aktif
bersih
End Sub

Private Sub Form_Activate()
nonaktif
cmbkode.Text = "--Pilih Paket--"
cmbkode.AddItem "Paket 1"
cmbkode.AddItem "Paket 2"
cmbkode.AddItem "Paket 3"
List1.AddItem "Bandung"
List1.AddItem "Semarang"
List1.AddItem "Surabaya"
End Sub

Private Sub cmbkode_Click()
If cmbkode.Text = "Paket 1" Then
txttema.Text = "Family Holiday"
ElseIf cmbkode.Text = "Paket 2" Then
txttema.Text = "Etnic Holiday"
Else
txttema.Text = "Mount Holiday"
End If
End Sub

Private Sub Option1_Click()
If cmbkode.Text = "Paket 1" Then
If List1.Text = "Bandung" Then
txtharga.Text = 750000
ElseIf List1.Text = "Semarang" Then
txtharga.Text = 750000
ElseIf List1.Text = "Surabaya" Then
txtharga.Text = 850000
End If
ElseIf cmbkode.Text = "Paket 2" Then
If List1.Text = "Bandung" Then
txtharga.Text = 900000
ElseIf List1.Text = "Semarang" Then
txtharga.Text = 350000
ElseIf List1.Text = "Surabaya" Then
txtharga.Text = 500000
End If
ElseIf cmbkode.Text = "Paket 3" Then
If List1.Text = "Bandung" Then
txtharga.Text = 1000000
ElseIf List1.Text = "Semarang" Then
txtharga.Text = 850000
ElseIf List1.Text = "Surabaya" Then
txtharga.Text = 550000
End If
End If
End Sub

Private Sub Option2_Click()
If cmbkode.Text = "Paket 1" Then
If List1.Text = "Bandung" Then
txtharga.Text = 550000
ElseIf List1.Text = "Semarang" Then
txtharga.Text = 650000
ElseIf List1.Text = "Surabaya" Then
txtharga.Text = 750000
End If
ElseIf cmbkode.Text = "Paket 2" Then
If List1.Text = "Bandung" Then
txtharga.Text = 800000
ElseIf List1.Text = "Semarang" Then
txtharga.Text = 250000
ElseIf List1.Text = "Surabaya" Then
txtharga.Text = 400000
End If
ElseIf cmbkode.Text = "Paket 3" Then
If List1.Text = "Bandung" Then
txtharga.Text = 900000
ElseIf List1.Text = "Semarang" Then
txtharga.Text = 750000
ElseIf List1.Text = "Surabaya" Then
txtharga.Text = 450000
End If
End If
End Sub

Private Sub Option3_Click()
If cmbkode.Text = "Paket 1" Then
If List1.Text = "Bandung" Then
txtharga.Text = 600000
ElseIf List1.Text = "Semarang" Then
txtharga.Text = 600000
ElseIf List1.Text = "Surabaya" Then
txtharga.Text = 700000
End If
ElseIf cmbkode.Text = "Paket 2" Then
If List1.Text = "Bandung" Then
txtharga.Text = 650000
ElseIf List1.Text = "Semarang" Then
txtharga.Text = 200000
ElseIf List1.Text = "Surabaya" Then
txtharga.Text = 350000
End If
ElseIf cmbkode.Text = "Paket 3" Then
If List1.Text = "Bandung" Then
txtharga.Text = 850000
ElseIf List1.Text = "Semarang" Then
txtharga.Text = 700000
ElseIf List1.Text = "Surabaya" Then
txtharga.Text = 400000
End If
End If
End Sub

Private Sub txtjumlah_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text)
txtcash.SetFocus
End If
txttotal.Enabled = False
End Sub

Private Sub txtcash_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If txtcash = Val(txttotal.Text) Then
txtstatus.Text = "LUNAS"
ElseIf txtcash > Val(txttotal.Text) Then
txtstatus.Text = "Kembali " & "Rp. " & Val(txtcash.Text) - Val(txttotal.Text)
ElseIf txtcash <= Val(txttotal.Text) Then
txtstatus.Text = "Kurang " & "Rp. " & Val(txttotal.Text) - Val(txtcash.Text)
End If
cmdproses.SetFocus
nonaktif
End If
End Sub

Private Sub cmdexit_Click()
X = MsgBox("Are Your Sure To Exit?", vbQuestion + vbYesNoCancel, "INFORMASI")
If X = vbYes Then
End
End If
End Sub

Read More

Program Visual Basic Cinema 21

Sintaknya :

Dim harga, total As Currency
Dim jumlah As Integer

Sub bersih()
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
End Sub

Private Sub Form_Activate()
bersih
cmbjam = "--Pilih--"
Option1.SetFocus
End Sub

Private Sub Option1_Click()
Option1.Value = True
txtjudul.Text = "Iron Man 2"
cmbjam.List(0) = "14:05"
cmbjam.List(1) = "15:55"
cmbjam.List(2) = "17:45"
cmbjam.List(3) = "19:35"
List1.List(0) = "Senin"
List1.List(1) = "Selasa"
List1.List(2) = "Rabu"
List1.List(3) = "Kamis"
List1.List(4) = "Jum'at"
List1.List(5) = "Sabtu"
List1.List(6) = "Minggu"
List2.List(0) = "A"
List2.List(1) = "B"
List2.List(2) = "C"
List2.List(3) = "D"
List2.List(4) = "E"
List2.List(5) = "F"
List2.List(6) = "G"
List2.List(7) = "H"
List2.List(8) = "I"
List2.List(9) = "J"
For s = 1 To 10
List3.AddItem s
Next
End Sub

Private Sub Option2_Click()
Option2.Value = True
txtjudul.Text = "The Book Of Eli"
cmbjam.List(0) = "14:45"
cmbjam.List(1) = "17:00"
cmbjam.List(2) = "19:15"
cmbjam.List(3) = "21:30"
List1.List(0) = "Senin"
List1.List(1) = "Selasa"
List1.List(2) = "Rabu"
List1.List(3) = "Kamis"
List1.List(4) = "Jum'at"
List1.List(5) = "Sabtu"
List1.List(6) = "Minggu"
List2.List(0) = "A"
List2.List(1) = "B"
List2.List(2) = "C"
List2.List(3) = "D"
List2.List(4) = "E"
List2.List(5) = "F"
List2.List(6) = "G"
List2.List(7) = "H"
List2.List(8) = "I"
List2.List(9) = "J"
For s = 1 To 10
List3.AddItem s
Next
End Sub

Private Sub Option3_Click()
Option3.Value = True
txtjudul.Text = "Green Zone"
cmbjam.List(0) = "14:55"
cmbjam.List(1) = "17:05"
cmbjam.List(2) = "19:15"
cmbjam.List(3) = "21:25"
List1.List(0) = "Senin"
List1.List(1) = "Selasa"
List1.List(2) = "Rabu"
List1.List(3) = "Kamis"
List1.List(4) = "Jum'at"
List1.List(5) = "Sabtu"
List1.List(6) = "Minggu"
List2.List(0) = "A"
List2.List(1) = "B"
List2.List(2) = "C"
List2.List(3) = "D"
List2.List(4) = "E"
List2.List(5) = "F"
List2.List(6) = "G"
List2.List(7) = "H"
List2.List(8) = "I"
List2.List(9) = "J"
For s = 1 To 10
List3.AddItem s
Next
End Sub

Private Sub Option4_Click()
Option4.Value = True
txtjudul.Text = "Hurt Locker"
cmbjam.List(0) = "14:25"
cmbjam.List(1) = "16:50"
cmbjam.List(2) = "19:15"
cmbjam.List(3) = "21:40"
List1.List(0) = "Senin"
List1.List(1) = "Selasa"
List1.List(2) = "Rabu"
List1.List(3) = "Kamis"
List1.List(4) = "Jum'at"
List1.List(5) = "Sabtu"
List1.List(6) = "Minggu"
List2.List(0) = "A"
List2.List(1) = "B"
List2.List(2) = "C"
List2.List(3) = "D"
List2.List(4) = "E"
List2.List(5) = "F"
List2.List(6) = "G"
List2.List(7) = "H"
List2.List(8) = "I"
List2.List(9) = "J"
For s = 1 To 10
List3.AddItem s
Next
End Sub

Private Sub cmdbeli_Click()
time.Caption = cmbjam
date.Caption = List1
judulfilm.Caption = txtjudul

jumlah = List3
Select Case List1.ListIndex
Case 0, 1, 2, 3
harga = 20000
total = jumlah * harga
txttotal.Text = total
price.Caption = total
Case 4
harga = 30000
total = jumlah * harga
txttotal.Text = total
price.Caption = total
Case 5, 6
harga = 45000
total = jumlah * harga
txttotal.Text = total
price.Caption = total
End Select
txtcash.SetFocus
End Sub

Private Sub txtcash_KeyPress(keyascii As Integer)
If keyascii = 13 Then
txtkembali = Val(txtcash) - Val(txttotal)
End If
End Sub

Private Sub cmdclear_Click()
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
txtjudul.Text = " "
cmbjam.Clear
List1.Clear
List2.Clear
List3.Clear
judulfilm.Caption = " "
time.Caption = " "
date.Caption = " "
txttotal.Text = " "
txtcash.Text = " "
txtkembali.Text = " "
End Sub

Private Sub cmdexit_Click()
X = MsgBox("Are Your Sure To Exit?", vbQuestion + vbYesNoCancel, "Confrimasi")
If X = vbYes Then
End
End If
End Sub

Read More

Program Visual Basic Pemesanan Tiket Pesawat

Sintaknya :

Dim i, jumlah As Variant

Private Sub Timer1_Timer()
tanggal = Format(Date, "dddd,d mmmm yyyy")
waktu = Format(Time, "hh:mm:ss")
End Sub

Private Sub Form_Activate()
cmbdari.Text = "--Pilih--"
cmbke.Text = "--Pilih--"
cmbhari.Text = "--Tanggal--"
cmbbulan.Text = "--Bulan--"
cmbtahun.Text = "--Tahun--"
cmbhari1.Text = "--Tanggal--"
cmbbulan1.Text = "--Bulan--"
cmbtahun1.Text = "--Tahun--"
For i = 1 To 31
Me.cmbhari.AddItem (Str(i))
Next i
For i = 1 To 12
Me.cmbbulan.AddItem (MonthName(i))
Next i
For i = 2010 To 2020
Me.cmbtahun.AddItem (Str(i))
Next i
For i = 1 To 31
Me.cmbhari1.AddItem (Str(i))
Next i
For i = 1 To 12
Me.cmbbulan1.AddItem (MonthName(i))
Next i
For i = 2010 To 2020
Me.cmbtahun1.AddItem (Str(i))
Next i
cmbdari.AddItem "Jakarta (CGK)"
cmbdari.AddItem "Denpasar (DPS)"
cmbdari.AddItem "Surabaya (SBY)"
cmbke.AddItem "Jakarta (CGK)"
cmbke.AddItem "Denpasar (DPS)"
cmbke.AddItem "Surabaya (SBY)"
txtnama.SetFocus
End Sub

Private Sub cmbtahunk_Click()
If cmbhari1.Text < cmbhari.Text Or cmbtahun1.Text < cmbtahun.Text Then
MsgBox "Tanggal Kembali Tidak Boleh Melebihi Tanggal Berangkat", vbInformation, "WARNING!"
End If
End Sub

Private Sub Option1_Click()
If cmbdari.ListIndex = 0 And cmbke.ListIndex = 1 Then
txtharga.Text = 1855000
ElseIf cmbdari.ListIndex = 0 And cmbke.ListIndex = 2 Then
txtharga.Text = 1200000
ElseIf cmbdari.ListIndex = 1 And cmbke.ListIndex = 0 Then
txtharga.Text = 1700000
ElseIf cmbdari.ListIndex = 2 And cmbke.ListIndex = 0 Then
txtharga.Text = 1055000
Else
MsgBox "Kota Asal Dan Kota Tujuan Tidak Boleh Sama", vbInformation, "WARNING!"
End If
End Sub

Private Sub Option2_Click()
If cmbdari.ListIndex = 0 And cmbke.ListIndex = 1 Then
txtharga.Text = 1050000
ElseIf cmbdari.ListIndex = 0 And cmbke.ListIndex = 2 Then
txtharga.Text = 750000
ElseIf cmbdari.ListIndex = 1 And cmbke.ListIndex = 0 Then
txtharga.Text = 900000
ElseIf cmbdari.ListIndex = 2 And cmbke.ListIndex = 0 Then
txtharga.Text = 600000
Else
MsgBox "Kota Asal Dan Kota Tujuan Tidak Boleh Sama", vbInformation, "WARNING!"
End If
End Sub

Dim harga, dewasa, bayi, hargabayi, subtotal, total As Currency

Private Sub Check1_Click()
dewasa = txtdewasa.Text
bayi = txtbayi.Text
harga = txtharga.Text
hargabayi = 0.15 * harga
bagasi = 30000
subtotal = (dewasa * harga) + (hargabayi * bayi)
total = subtotal + bagasi
txttotal.Text = subtotal
txttobay.Text = total
txtcash.SetFocus
End Sub

Private Sub Check2_Click()
dewasa = txtdewasa.Text
bayi = txtbayi.Text
harga = txtharga.Text
hargabayi = 0.15 * harga
bagasi = 60000
subtotal = (dewasa * harga) + (hargabayi * bayi)
total = subtotal + bagasi
txttotal.Text = subtotal
txttobay.Text = total
txtcash.SetFocus
End Sub

Private Sub Check3_Click()
dewasa = txtdewasa.Text
bayi = txtbayi.Text
harga = txtharga.Text
hargabayi = 0.15 * harga
bagasi = 90000
subtotal = (dewasa * harga) + (hargabayi * bayi)
total = subtotal + bagasi
txttotal.Text = subtotal
txttobay.Text = total
txtcash.SetFocus
End Sub

Private Sub txtcash_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtkembali.Text = Val(txtcash.Text) - Val(txttobay.Text)
End If
End Sub

Private Sub cmdclear_Click()
cmbdari.Text = "--Pilih--"
cmbke.Text = "--Pilih--"
cmbhari.Text = "--Tanggal--"
cmbbulan.Text = "--Bulan--"
cmbtahun.Text = "--Tahun--"
cmbhari1.Text = "--Tanggal--"
cmbbulan1.Text = "--Bulan--"
cmbtahun1.Text = "--Tahun--"
txtnama.Text = " "
txttelepon.Text = " "
Option1.Value = False
Option2.Value = False
Check1.Value = 0
Check2.Value = 0
Check3.Value = 0
txtharga.Text = " "
txtdewasa.Text = " "
txtbayi.Text = " "
txttotal.Text = " "
txttobay.Text = " "
txtcash.Text = " "
txtkembali.Text = " "
txtnama.SetFocus
End Sub

Private Sub cmdexit_Click()
X = MsgBox("Are Your Sure To Exit?", vbQuestion + vbYesNoCancel, "Konfirmasi")
If X = vbYes Then
End
End If
End Sub

Read More

Program Visual Basic Gaji Karyawan

Sintaknya :

Private Sub Timer1_Timer()
tanggal = Format(Date, "dddd,d mmmm yyyy")
waktu = Format(Time, "hh:mm:ss")
Label1.Left = Label1.Left - 30
If Label1.Left < -5000 Then
Label1.Left = 11000
End If
End Sub

Private Sub Form_Activate()
cmbnip = "--NIP--"
cmbnip.AddItem "110011"
cmbnip.AddItem "120012"
cmbnip.AddItem "130013"
cmbnip.AddItem "140014"
txttoga.Enabled = False
txtnama.Enabled = False
txtgaji.Enabled = False
txtistri.Enabled = False
txtanak.Enabled = False
cmbnip.SetFocus
End Sub

Private Sub cmbnip_Click()
If cmbnip.Text = "110011" Then
txtnama.Text = "Rahima"
ElseIf cmbnip.Text = "120012" Then
txtnama.Text = "Zakia"
ElseIf cmbnip.Text = "130013" Then
txtnama.Text = "Intan"
Else
txtnama.Text = "Henry"
End If
End Sub

Private Sub Option1_Click()
txtgaji.Text = 5000000
End Sub

Private Sub Option2_Click()
txtgaji.Text = 3000000
End Sub

Private Sub Option3_Click()
txtgaji.Text = 2000000
End Sub

Private Sub Option4_Click()
txtgaji.Text = 1000000
End Sub

Private Sub Check1_Click()
If Option1.Value = True Then
ElseIf Check1.Value = 1 Then
txtistri.Text = 0.15 * Val(txtgaji.Text)
Else
txtistri.Text = 0
End If
If Option2.Value = True Then
ElseIf Check1.Value = 1 Then
txtistri.Text = 0.15 * Val(txtgaji.Text)
Else
txtistri.Text = 0
End If
If Option3.Value = True Then
ElseIf Check1.Value = 1 Then
txtistri.Text = 0.15 * Val(txtgaji.Text)
Else
txtistri.Text = 0
End If
If Option4.Value = True Then
ElseIf Check1.Value = 1 Then
txtistri.Text = 0.15 * Val(txtgaji.Text)
Else
txtistri.Text = 0
End If
End Sub

Private Sub Check2_Click()
If Option1.Value = True Then
ElseIf Check2.Value = 1 Then
txtanak.Text = 0.1 * Val(txtgaji.Text)
Else
txtanak.Text = 0
End If
If Option2.Value = True Then
ElseIf Check2.Value = 1 Then
txtanak.Text = 0.1 * Val(txtgaji.Text)
Else
txtanak.Text = 0
End If
If Option3.Value = True Then
ElseIf Check2.Value = 1 Then
txtanak.Text = 0.1 * Val(txtgaji.Text)
Else
txtanak.Text = 0
End If
If Option4.Value = True Then
ElseIf Check2.Value = 1 Then
txtanak.Text = 0.1 * Val(txtgaji.Text)
Else
txtanak.Text = 0
End If
End Sub

Private Sub cmdhitung_Click()
txttoga.Text = Val(txtgaji.Text) + Val(txtistri.Text) + Val(txtanak.Text)
cmdlagi.SetFocus
End Sub

Private Sub cmdlagi_Click()
cmbnip = "--NIP--"
txtnama.Text = " "
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Check1.Value = False
Check2.Value = False
txtgaji.Text = " "
txtistri.Text = " "
txtanak.Text = " "
txttoga.Text = " "
cmbnip.SetFocus
End Sub

Private Sub cmdexit_Click()
x = MsgBox("Are Your Sure To Exit?", vbQuestion + vbYesNoCancel, "Konfirmasi")
If x = vbYes Then
End
End If
End Sub

Read More

Program Visual Basic Buana Travel

Sintaknya :

Sub nonaktif()
txtnopes.Enabled = False
cmbkopet.Enabled = False
txtnapet.Enabled = False
List1.Enabled = False
txttujuan.Enabled = False
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
txtharga.Enabled = False
txtppn.Enabled = False
txtjumbay.Enabled = False
txtubay.Enabled = False
txtukem.Enabled = False
End Sub

Sub aktif()
txtnopes.Enabled = True
cmbkopet.Enabled = True
txtnapet.Enabled = True
List1.Enabled = True
txttujuan.Enabled = True
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
txtharga.Enabled = True
txtppn.Enabled = True
txtjumbay.Enabled = True
txtubay.Enabled = True
txtukem.Enabled = True
End Sub

Private Sub Form_Activate()
nonaktif
cmbkopet.Text = "--Kode Petugas--"
txttanggal.Text = Now
cmbkopet.AddItem "PTG001"
cmbkopet.AddItem "PTG002"
cmbkopet.AddItem "PTG003"
List1.AddItem "JW001"
List1.AddItem "BL002"
List1.AddItem "BN001"
cmdbersih.SetFocus
End Sub

Private Sub txtnopes_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
aktif
End If
txtnopes.SetFocus
End Sub

Private Sub Timer1_Timer()
tanggal.Caption = Format(Date, "dddd,d mmmm yyyy")
waktu.Caption = Format(Time, "hh:mm:ss")
End Sub

Private Sub cmbkopet_Click()
If cmbkopet.Text = "PTG001" Then
txtnapet.Text = "ANDIKA"
ElseIf cmbkopet.Text = "PTG002" Then
txtnapet.Text = "BIMA"
Else
txtnapet.Text = "DENI"
End If
End Sub

Private Sub List1_Click()
If List1.Text = "JW001" Then
txttujuan = "Jakarta - Yogjakarta"
ElseIf List1.Text = "BL002" Then
txttujuan = "Jakarta - Bali"
Else
txttujuan = "Jakarta - Bunaken"
End If
End Sub

Private Sub Option1_Click()
If txttujuan.Text = "Jakarta - Yogjakarta" Then
txtharga.Text = 5000000
ElseIf txttujuan.Text = "Jakarta - Bali" Then
txtharga.Text = 4500000
Else
txtharga.Text = 7500000
End If
cmdhitung.SetFocus
End Sub

Private Sub Option2_Click()
If txttujuan.Text = "Jakarta - Yogjakarta" Then
txtharga.Text = 2500000
ElseIf txttujuan.Text = "Jakarta - Bali" Then
txtharga.Text = 3000000
Else
txtharga.Text = 5000000
End If
cmdhitung.SetFocus
End Sub

Private Sub Option3_Click()
If txttujuan.Text = "Jakarta - Yogjakarta" Then
txtharga.Text = 7000000
ElseIf txttujuan.Text = "Jakarta - Bali" Then
txtharga.Text = 8000000
Else
txtharga.Text = 10000000
End If
cmdhitung.SetFocus
End Sub

Private Sub cmdhitung_Click()
txtppn.Text = 0.1 * Val(txtharga.Text)
txtjumbay.Text = Val(txtharga.Text) - Val(txtppn.Text)
txtubay.SetFocus
End Sub

Private Sub txtubay_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtukem.Text = Val(txtubay.Text) - Val(txtjumbay.Text)
nonaktif
End If
End Sub

Private Sub cmdbersih_Click()
aktif
cmbkopet.Text = "--Kode Petugas--"
txttanggal.Text = Now()
txtnopes.Text = " "
txtnapet.Text = " "
List1.ListIndex = -1
txttujuan.Text = " "
Option1.Value = False
Option2.Value = False
Option3.Value = False
txtharga.Text = " "
txtppn.Text = " "
txtjumbay.Text = " "
txtubay.Text = " "
txtukem.Text = " "
txtnopes.SetFocus
End Sub

Private Sub cmdkeluar_Click()
X = MsgBox("Are Your Sure To Exit?", vbQuestion + vbYesNoCancel, "Konfrimasi")
If X = vbYes Then
End
End If
End Sub

Read More