Program Visual Basic Login

Tampilan : Tabel User/Database: Untuk Menampilakan DBGrid : Klik Kanan Pada Toolbox Kemudian Pilih Components Kemudian Pilih Microsoft Data Bound Grid Contorl 5.0(SP3) Listing/Coding : Option Explicit Private Sub cmdlogin_Click() On Error GoTo a Data1.Recordset.Index = "xuser" Data1.Recordset.Seek "=", txtuser If Data1.Recordset!Password <> txtpass Then MsgBox...

Read More

Program Lanjutan Visual Basic 2

Untuk Menampilakan DBGrid : Klik Kanan Pada Toolbox Kemudian Pilih Components Kemudian Pilih Microsoft Data Bound Grid Contorl 5.0(SP3) Untuk Menampilkan DBCombo : Klik Kanan Pada Toolbox Kemudian Pilih Components Kemudian Pilih Microsoft Data Bound List Controls 6.0(OLEDB) Untuk Listing Bisa Download Disini, Semoga...

Read More

Program Lanjutan Visual Basic

Untuk Menambahkan Objek DBGrid : Klik Kanan Pada Toolbox kemudian pilih Components kemudian pilih Microsoft Data Bound Grid Control 5.0(SP3) Untung Listingnya bisa Download Disini, Selamat Mencoba...!!...

Read More

Program Visual Basic Restoran

Sintaknya : Sub nonaktif() Option1.Enabled = False Option2.Enabled = False Option3.Enabled = False Option4.Enabled = False Option5.Enabled = False Option6.Enabled = False txtmakan1.Enabled = False txtmakan2.Enabled = False txtminum.Enabled = False txtharga.Enabled = False txtjumbel.Enabled = False txttotal.Enabled = False txtdiskon.Enabled = False txttobay.Enabled = False txtbayar.Enabled...

Read More

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