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...

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)...

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...

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...

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...

Read More

Program Visual Basic Penjualan Tiket Pesawat Terbang

Sintaknya : Sub nonaktif() txtnama.Enabled = False txttelp.Enabled = False cmbkode.Enabled = False List1.Enabled = False txtmaskapai.Enabled = False txttujuan.Enabled = False txtjam.Enabled = False txtbonus.Enabled = False txtharga.Enabled = False txtjumbel.Enabled = False txttotal.Enabled = False txtcash.Enabled = False txtkembali.Enabled = False End Sub Sub aktif() txtnama.Enabled...

Read More

Program Visual Basic VCD/CD Cartoon

Sintaknya : Private Sub Timer1_Timer() txtwaktu = Time txttanggal = Format(Date, "dddd,d mmmm yyyy") End Sub Private Sub Form_Activate() cmbkode.Text = "--Kode--" cmbkode.SetFocus End Sub Private Sub Form_Load() cmbkode.AddItem ("001") cmbkode.AddItem ("002") cmbkode.AddItem ("003") cmbkode.AddItem ("004") cmbkode.AddItem ("005") End Sub Private Sub cmbkode_Click() If...

Read More

Program Visual Basic Penjualan Tiket

Sintaknya : Private Sub Timer1_Timer() txtjam = Time txttanggal = Format(Date, "dddd,d mmmm yyyy") If Label1.Enabled = True Then Label1.Enabled = False Else Label1.Enabled = True End If End Sub Private Sub Form_Activate() cmbkode.SetFocus End Sub Private Sub Form_Load() cmbkode = "--Kode Tiket--" cmbkode.AddItem "SEN02A" cmbkode.AddItem "MUT01C" cmbkode.AddItem "BIM03B" List1.AddItem...

Read More

Program Visual Basic Hotel

Sintaknya : Private Sub Timer1_Timer() waktu.Caption = Format(Time, "hh : mm : ss") tanggal.Caption = Format(Date, "dddd / mmmm / yyyy") If Label1.Enabled = True Then Label1.Enabled = False Else Label1.Enabled = True End If End Sub Private Sub cmdkeluar_Click() x = MsgBox("Are You Sure To Quit?", vbQuestion + vbOKCancel, "Konfirmasi") If x = vbOK Then End End If End Sub Sub...

Read More

Program Visual Basic Cafe Of Yunfa

Sintaknya : Private Sub Form_Load() cmbmenu.AddItem ("Sarapan Pagi") cmbmenu.AddItem ("Makan Siang") cmbmenu.AddItem ("Makan Malam") cmbpaket.AddItem ("Paket 1") cmbpaket.AddItem ("Paket 2") End Sub Private Sub txtjumbel_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttobay = Val(txtjumbel) * Val(Val(txthargamenu.Text) + Val(txthargafasilitas.Text) + Val(txthargaminuman)) txtubay.SetFocus End...

Read More

Program Visual Basic Perhitungan Nilai Mahasiswa

Sintaknya : Private Sub Form_Activate() habsen.Enabled = False htugas.Enabled = False huts.Enabled = False huas.Enabled = False txtabsen.SetFocus End Sub Private Sub txtabsen_Change() habsen = 0.1 * Val(txtabsen.Text) End Sub Private Sub txttugas_Change() htugas = 0.2 * Val(txttugas.Text) End Sub Private Sub txtuts_Change() huts = 0.3 * Val(txtuts.Text) End Sub Private...

Read More

Program Visual Basic String

Sintaknya : Private Sub Timer1_Timer() waktu = Time tanggal = Format(Date, "dddd,d mmmm yyyy") End Sub Private Sub cmdkeluar_Click() x = MsgBox("Anda Akan Keluar Dari Form Ini?", vbQuestion + vbOKCancel, "Informasi") If x = vbOK Then End End If End Sub Private Sub cmdbersih_Click() txtkata.Text = " " txtleft.Text = " " txtright.Text = " " txtmid.Text = " " txtlen.Text...

Read More

Program Visual Basic Operator

Sintaknya : Private Sub cmdbersih_Click() txtnil1.Text = " " txtnil2.Text = " " txthasil.Text = " " txtnil1.SetFocus End Sub Private Sub cmdkeluar_Click() x = MsgBox("Anda Ingin Keluar Dari Form Ini?", vbQuestion + vbOKCancel, "Informasi") If x = vbOK Then End End If End Sub Private Sub cmdtambah_Click() txthasil = Val(txtnil1.Text) + Val(txtnil2.Text) End Sub Private...

Read More

Program Visual Basic Toko Kue & Roti

Sintaknya : Private Sub cmdclear_Click() txtkode.Text = " " txtjenis.Text = " " txtharga.Text = " " txtjumlah.Text = " " txtpembayaran.Text = " " txtpotongan.Text = " " txtppn.Text = " " txttobay.Text = " " txtubay.Text = " " txtukem.Text = " " txtkode.SetFocus End Sub Private Sub Timer1_Timer() txtwaktu.Text = Time txttanggal.Text = Format(Date, "dddd,d mmmm yyyy") End...

Read More

Program Visual Basic PT Raya Travel

Sintaknya : Private Sub Timer1_Timer() txtwaktu = time txttanggal = Format(date, "dddd,d mmmm yyyy") End Sub Private Sub cmdclear_Click() txtkode.Text = " " txtjumlah.Text = " " txtjenis.Text = " " txtharga.Text = " " txtpembayaran.Text = " " txtpotongan.Text = " " txtppn.Text = " " txtbayar.Text = " " txtkembali.Text = " " txttobay.Text = " " cmdexit.SetFocus End Sub Private...

Read More

Program Visual Basic Perulangan

Sintaknya : Dim i, jumlah As Variant Private Sub Form_Load() For i = 1 To 31 Me.cmbtanggal.AddItem (Str(i)) Next i For i = 1 To 12 Me.cmbbulan.AddItem (MonthName(i)) Next i For i = 1970 To Year(Now) Me.cmbtahun.AddItem (Str(i)) Next i End Sub Private Sub cmddountil_Click() List1.Clear i = 3 Do Until i > 8 List1.AddItem (i) i = i + 2 Loop End Sub Private Sub cmddowhile_Click() List1.Clear i...

Read More