CARA MEMBUAT APLIKASI PENJUALAN BARANG

LANGKAH PERTAMA seperti biasabuka terlebih dulu VB 6.0

SELANJUTNYA desain sesuai dengan kebutuhan, contohnya seperti gambar ini

LANJUT kodenya seperti ini

KODE PROGRAM COMBO BOX NAMA BARANG
Private Sub cbonamabarang_Click()
If cbonamabarang.Text = "CINCIN" Then
txtharga.Text = "150000"

ElseIf cbonamabarang.Text = "KALUNG" Then
txtharga.Text = "250000"
End If
txtjumlah.SetFocus
End Sub
KODE PROGRAM TOMBOL BELANJA LAGI
Private Sub cmdbelanjalagi_Click()
txtno.Text = ""
txtnamapembeli.Text = ""
txtharga.Text = ""
txtjumlah.Text = ""
txtdiskon.Text = ""
txttotal.Text = ""
cbonamabarang.Text = ""
txtno.SetFocus
End Sub
KODE PROGRAM TOMBOL HITUNG
Private Sub cmdhitung_Click()
txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text) - Val(txtdiskon.Text)
End Sub
KODE PROGRAM TOMBOL KELUAR
Private Sub cmdkeluar_Click()
Unload Me
End Sub
KODE PROGRAMSUB FORM LOAD
Private Sub Form_Load()
cbonamabarang.AddItem "CINCIN"
cbonamabarang.AddItem "KALUNG"
End Sub
KODE PROGRAM TOMBOL TOTAL
Private Sub txttotal_Change()
txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text) - Val(txtdiskon.Text)
End Sub 

 TERAKHIR... coba jalankan programnya seperti ini

CARA MEMBUAT APLIKASI GAJI KARYAWAN

LANGKAH PERTAMA seperti biasabuka terlebih dulu VB 6.0

SELANJUTNYA desain sesuai dengan kebutuhan, contohnya seperti gambar ini

LANJUT kodenya seperti ini

KODE PROGRAM COMBO BOX JABATAN
Private Sub cbojabatan_Click()
If cbojabatan.Text = "M. Produksi" Then
txtpokok.Text = "3000000"
txttunjangan.Text = "1000000"
ElseIf cbojabatan.Text = "M. Personalia" Then
txtpokok.Text = "2500000"
txttunjangan.Text = "1000000"
ElseIf cbojabatan.Text = "M. Pemasaran" Then
txtpokok.Text = "2000000"
txttunjangan.Text = "500000"
ElseIf cbojabatan.Text = "M. Keuangan" Then
txtpokok.Text = "4000000"
txttunjangan.Text = "1500000"
End If
End Sub

KODE PROGRAM TOMBOL KELUAR
Private Sub cmdkeluar_Click()
Unload Me
End Sub

KODE PROGRAM TOMBOL MULAI LAGI
Private Sub cmdlagi_Click()
txtnama.Text = ""
txtnip.Text = ""
cbojabatan.Text = ""
txttunjangan.Text = ""
txtpajak.Text = ""
txtbersih.Text = ""
txtpokok.Text = ""
txtnama.SetFocus
End Sub

KODE PROGRAM TOMBOL TOTAL
Private Sub cmdtotal_Click()
txtpajak.Text = Val(txtpokok.Text) * 5 / 100
txtbersih.Text = Val((txtpokok.Text) + Val(txttunjangan.Text)) - Val(txtpajak.Text)
End Sub

KODE PROGRAM SUB FORM LOAD
Private Sub Form_Load()
cbojabatan.AddItem "M. Produksi"
cbojabatan.AddItem "M. Personalia"
cbojabatan.AddItem "M. Pemasaran"
cbojabatan.AddItem "M. Keuangan"
End Sub

TERAKHIR... coba jalankan seperti ini

 

CARA MEMBUAT APLIKASI PERKALIAN SEDERHANA

LANGKAH PERTAMA seperti biasabuka terlebih dulu VB 6.0

SELANJUTNYA desain sesuai dengan kebutuhan, contohnya seperti gambar ini

LANJUT kodenya seperti ini

KODE TOMBOL BERSIH
Private Sub cmdbersih_Click()
txtbil1.Text = ""
txtbil2.Text = ""
txthasil.Text = ""
End Sub
KODE TOMBOL HITUNG
Private Sub cmdhitung_Click()
a = txtbil1.Text
b = txtbil2.Text
hasil = a * b
txthasil.Text = hasil
End Sub

KODE TOMBOL KELUAR
Private Sub cmdkeluar_Click()
Unload Me
End Sub
 
TERAKHIR... coba jalankan programnya seperti ini 

CARA MEMBUAT PROGRAM APLIKASI PENJUALAN KOMPUTER menggunakan VB 6.0

LANGKAH PERTAMA seperti biasabuka terlebih dulu VB 6.0

SELANJUTNYA desain sesuai dengan kebutuhan, contohnya seperti gambar ini

LANJUT kodenya seperti ini

KODE TOMBOL PROGRAM COMBO BOX  MERK PRODUK
Private Sub cbonama_Click()
If cbonama.Text = "ASUS" Then
txtharga.Text = "4400000"

ElseIf cbonama.Text = "ACER" Then
txtharga.Text = "4500000"

ElseIf cbonama.Text = "DELL" Then
txtharga.Text = "4350000"

ElseIf cbonama.Text = "TOSHIBA" Then
txtharga.Text = "4700000"

ElseIf cbonama.Text = "ZIREX" Then
txtharga.Text = "3900000"
End If
txtjumlah.SetFocus
End Sub

KODE TOMBOL PROGRAM  BELI
Private Sub cmdbeli_Click() 
txtnama.Text = ""
txtalamat.Text = ""
txtno.Text = ""
txtharga.Text = ""
txtjumlah.Text = ""
txtuang.Text = ""
txttotal.Text = ""
cbonama.Text = ""
txtnama.SetFocus
End Sub

KODE TOMBOL PROGRAM HITUNG
Private Sub cmdhitung_Click()
txttotal.Text = Val(txtuang.Text) - Val(txtharga.Text) * Val(txtjumlah)
End Sub

KODE TOMBOL PROGRAM SELESAI
Private Sub cmdselesai_Click()
Unload Me
End Sub

KODE TOMBOL PROGRAM SUB FORM LOAD
Private Sub Form_Load()
cbonama.AddItem "ASUS"
cbonama.AddItem "ACER"
cbonama.AddItem "DELL"
cbonama.AddItem "TOSHIBA"
cbonama.AddItem "ZIREX"
End Sub
 
TERAKHIR... coba jalankan programnya seperti ini 

 

CARA MEMBUAT SEBUAH APLIKASI PEMBAYARAN BIAYA KOS PER/BULAN

LANGKAH PERTAMA seperti biasa buka terlebih dulu VB 6.0

SELANJUTNYA desain sesuai dengan kebutuhan, contohnya seperti gambar ini

 LANJUT kodenya seperti ini

KODE TOMBOL PROGRAM COMBO BOX NO. KAMAR
Private Sub cbonokamar_Click()
If cbonokamar.Text = "220" Then
txtmakan.Text = "250"
txtair.Text = "150"
txtlistrik.Text = "100"
ElseIf cbonokamar.Text = "221" Then
txtmakan.Text = "285"
txtair.Text = "120"
txtlistrik.Text = "150"
ElseIf cbonokamar.Text = "222" Then
txtmakan.Text = "200"
txtair.Text = "200"
txtlistrik.Text = "100"
ElseIf cbonokamar.Text = "223" Then
txtmakan.Text = "300"
txtair.Text = "150"
txtlistrik.Text = "150"
End If
txttotal.SetFocus
End Sub

KODE TOMBOL PROGRAM HITUNG
Private Sub cmdhitung_Click()
txttotal.Text = Val(txtmakan.Text) + Val(txtair.Text) + Val(txtlistrik.Text)
End Sub
Private Sub cmdlagi_Click()
txtnama.Text = ""
cbonokamar.Text = ""
txtmakan.Text = ""
txtair.Text = ""
txtlistrik.Text = ""
txttotal.Text = ""
txtnama.SetFocus
End Sub

KODE TOMBOL PROGRAM SELESAI
Private Sub cmdselesai_Click()
Unload Me
End Sub

KODE TOMBOL PROGRAM SUB FORM LOAD
Private Sub Form_Load()
cbonokamar.AddItem "220"
cbonokamar.AddItem "221"
cbonokamar.AddItem "222"
cbonokamar.AddItem "223"
End Sub 

TERAKHIR... coba jalankan programnya seperti ini

Sekian dan semoga berkah.. Amin

Jangan lupa like & share 

CARA MEMBUAT PROGRAM APLIKASI NILAI MAHASISWA

LANGKAH PERTAMA seperti biasa buka terlebih dulu VB 6.0

 

SELANJUTNYA desain sesuai dengan kebutuhan, contohnya seperti gambar ini

 

LANJUT kodenya seperti ini 

KODE TOMBOL PROGRAM KELUAR

Private Sub cmdkeluar_Click()

Unload Me
End Sub

KODE TOMBOL PROGRAM LAGI

Private Sub cmdlagi_Click()

txtnpm.Text = ""

txtnama.Text = ""

txtabsen.Text = ""

txtkuis.Text = ""

txttugas.Text = ""

txtuts.Text = ""

txtuas.Text = ""

txtnilaiakhir.Text = ""

label2.Caption = ""

txtnpm.SetFocus

End Sub

KODE TOMBOL PROGRAM PROSES
Private Sub cmdproses_Click()

txtnilaiakhir.Text = (Val(txtabsen.Text) + Val(txtkuis.Text) + Val(txttugas.Text) + Val(txtuts.Text) + Val(txtuas.Text)) / Val(5)

If txtnilaiakhir.Text >= 80 Then

label2.Caption = " A"

ElseIf txtnilaiakhir.Text >= 73 Then

label2.Caption = "B"

ElseIf txtnilaiakhir.Text >= 65 Then

label2.Caption = "C"

Else

label2.Caption = "BL"

End If
End Sub

KODE PROGRAM TXT ABSEN

Private Sub txtabsen_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

txtkuis.SetFocus

End If
End Sub

KODE PROGRAM TXT KUIS

Private Sub txtkuis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

txttugas.SetFocus

End If
End Sub

KODE PROGRAM TXT NAMA

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

txtabsen.SetFocus

End If
End Sub

KODE PROGRAMTXT NPM

Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

txtnama.SetFocus

End If
End Sub

KODE PROGRAM TUGAS

Private Sub txttugas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

txtuts.SetFocus

End If
End Sub

KODE PROGRAM UTS
Private Sub txtuts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

ttxtuas.SetFocus

End If
End Sub

TERAKHIR... coba jalankan programnya seperti ini

 

CARA MEMBUAT PROGRAM APLIKASI PEMINJAMAN BUKU DI PERPUSTAKAAN

LANGKAH PERTAMA seperti biasa buka terlebih dulu VB 6.0

 

SELANJUTNYA desain sesuai dengan kebutuhan, contohnya seperti gambar ini

LANJUT kodenya seperti ini

KODE TOMBOL PROGRAM COMBO BOX KODE BUKU

Private Sub cbokode_Click()
If cbokode.Text = "10" Then
    txtjudul.Text = "SISTEM INFORMASI"
    txtpenerbit.Text = "ERLANGGA"
    txtrak.Text = "A1"
ElseIf cbokode.Text = "11" Then
    txtjudul.Text = "MANAJEMEN"
    txtpenerbit.Text = "ERLANGGA"
    txtrak.Text = "A2"
ElseIf cbokode.Text = "12" Then
    txtjudul.Text = "VISUAL BASIC"
    txtpenerbit.Text = "ERLANGGA"
    txtrak.Text = "A3"
ElseIf cbokode.Text = "13" Then
    txtjudul.Text = "STATISTIK"
    txtpenerbit.Text = "ERLANGGA"
    txtrak.Text = "R3"
End If

txtterlambat.SetFocus

End Sub

KODE TOMBOL PROGRAM KELUAR

Private Sub cmdkeluar_Click()
Unload Me
End Sub

KODE TOMBOL PROGRAM LAGI

Private Sub cmdlagi_Click()

txtjudul.Text = ""

txtpenerbit.Text = ""

txtrak.Text = ""

cbokode.Text = ""

txtnama.Text = ""

txtterlambat.Text = ""

txtdenda.Text = ""

txtnama.SetFocus

End Sub

KODE TOMBOL PROGRAM SUB FORM LOAD

Private Sub Form_Load()

cbokode.AddItem "10"

cbokode.AddItem "11"

cbokode.AddItem "12"

cbokode.AddItem "13"

End Sub

KODE PROGRAM TXT TERLAMBAT

Private Sub txtterlambat_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

txtdenda.Text = Val(txtterlambat.Text) * 2000

End If
End Sub

KENAPA DISINI SAYA PAKAI KeyPress, KODE INI MEMUDAHKAN KITA UNTUK MENCARI HASIL. TINGGAL TEKAN ENTER SAJA MAKA AKAN KELUAR HASILNYA.

TERAKHIR... coba jalankan programnya seperti ini

 

CARA MEMBUAT PROGRAM APLIKASI DALAM SEBUAH TOKO

LANGKAH PERTAMA seperti biasa buka terlebih dulu VB 6.0

SELANJUTNYA desain sesuai dengan kebutuhan, contohnya seperti gambar ini
 

LANJUT kodenya seperti ini

KODE TOMBOL PROGRAM HITUNG
Private Sub cmdhitung_Click()
txttotal.Text = Val(txtjumlahbarang.Text) * Val(txtharga.Text) - Val(txtdiskon.Text)
End Sub

KODE TOMBOL PROGRAM KELUAR
Private Sub cmdkeluar_Click()
Unload Me
End Sub

KODE TOMBOL PROGRAM BELANJA LAGI
Private Sub cmdlagi_Click()
txtnomor.Text = ""
txtpembeli.Text = ""
txtbarang.Text = ""
txtharga.Text = ""
txtjumlahbarang = ""
txtdiskon = ""
txttotal.Text = ""
txtnomor.SetFocus
End Sub

TERAKHIR... coba jalankan programnya seperti ini

SELALU DIINGAT NAMA KODE TIDAK ADA PATOKAN. PENTING KITA BISA MENGINGATNYA DENGAN MUDAH.. SEMOGA BERMANFAAT

CARA MEMBUAT APLIKASI PENERIMAAN SISWA BARU

LANGKAH PERTAMA seperti biasa buka terlebih dulu VB 6.0

SELANJUTNYA desain sesuai dengan kebutuhan, contohnya seperti gambar ini

LANJUT kodenya seperti ini

KODE TOMBOL PROGRAM COMBO BOX JURUSAN YANG DIPILIH

Private Sub cbojurusan_Click()

If cboJurusan.Text = "S1 Sistem Informasi" Then

txtPropti.Text = "350000"

txtBiayaPendft.Text = "300000"

Else

txtPropti.Text = "300000"

txtBiayaPendft.Text = " 300000"

End If

txtHarus.Text = Val(txtBiaya.Text) + Val(txtPropti.Text) + Val(txtBiayaPendft.Text)

End Sub

KODE TOMBOL PROGRAM YANG DIPILIH

Private Sub cboProgram_Click()

If cboProgram.Text = "Reguler" Then

txtBiaya.Text = "3500000"

Else

txtBiaya.Text = "4000000"

End If

End Sub

KODE TOMBOL PROGRAM DAFTAR BARU

Private Sub cmdDaftar_Click()

txtNama.Text = ""

txtJenis.Text = ""

txtAlamat.Text = ""

txtAsal.Text = ""

txtBiaya.Text = ""

txtOrangtua.Text = ""

txtPropti.Text = ""

txtBiayaPendft.Text = ""

txtHarus.Text = ""

cboProgram.Text = ""

cboJurusan.Text = ""

cboTahun.Text = ""

txtNama.SetFocus

End Sub

KODE TOMBOL PROGRAM SELESAI

Private Sub cmdSelesai_Click()

Unload Me

End Sub

KODE TOMBOL PROGRAM SUB FORM LOAD

Private Sub Form_Load()

cboProgram.AddItem "Reguler"

cboProgram.AddItem "eksekutif"

cboJurusan.AddItem "S1 Sistem Informasi"

cboJurusan.AddItem "D3 Manajemen Informatika"

cboTahun.AddItem "2013"

cboTahun.AddItem "2014"

cboTahun.AddItem "2015"

cboTahun.AddItem "2016"

End Sub

KODE PROGRAM OPTION JENIS KELAMIN

Private Sub OptLaki_Click()

txtJenis.Text = "Laki-laki"

End Sub

KODE PROGRAM POTION JENIS KELAMIN

Private Sub OptPerempuan_Click()

txtJenis.Text = "Perempuan"

End Sub

KODE PROGRAM TXT YANG HARUS DIBAYAR

Private Sub txtHarus_Change()

txtHarus.Text = Val(txtBiaya.Text) + Val(txtPropti.Text) + Val(txtBiayaPendft.Text)

End Sub

TERAKHIR... coba jalankan programnya seperti ini

SEMOGA BERMANFAAT...