Materi : Mengenal Proses A. Contoh 1

Jobsheet Dasar Pemrograman Visual (Ms-Visual Basic)

Sekolah Tinggi Elektronika & Komputer (STEKOM) Semarang Pusat : Jl. Majapahit 605 Telp. 6710144 Semarang

Materi : Mengenal Proses A. Contoh 1 1. 2.

Simpan Form dengan nama FRMJUAL.frm dan Project dengan nama PROJUAL.vbp Buat Desain Form di bawah ini :

Keterangan : Object

Label

TextBox

CommandButton Shape

Properties Caption : INPUT DATA PENJUALAN Caption : KODE BARANG Caption : NAMA BARANG Caption : HARGA SATUAN Caption : JUMLAH JUAL Caption : TOTAL BAYAR Name : TXTKODE Name : TXTNAMA Name : TXTHARGA Name : TXTJUMLAH Name : TXTTOTAL Name : CMDBLANKFORM Caption : BLANKFORM Name : CMDCLOSE Caption : CLOSE Shape : 4 – Rounded Rectangle

Data yang diinput : KODE, NAMA, HARGA, JUMLAH Data TOTAL BAYAR tampil otomatis Jika CommandButton BLANKFORM diklik, formulir akan dikosongkan Jika CommandButton CLOSE diklik, program akan ditutup •

Klik menu View → Code, ketik kode program di bawah ini :

Private Sub CMDBLANKFORM_Click() TXTKODE.Text = "" TXTNAMA.Text = "" TXTHARGA.Text = 0 TXTJUMLAH.Text = 0 TXTTOTAL.Text = 0 TXTKODE.SetFocus End Sub Private Sub CMDCLOSE_Click() End End Sub Private Sub Form_Activate() TXTKODE.Text = "" TXTNAMA.Text = "" TXTHARGA.Text = 0 TXTJUMLAH.Text = 0 TXTTOTAL.Text = 0 TXTKODE.SetFocus End Sub Private Sub TXTHARGA_LostFocus() TXTTOTAL.Text = TXTHARGA.Text * TXTJUMLAH.Text End Sub Private Sub TXTJUMLAH_LostFocus() TXTTOTAL.Text = TXTHARGA.Text * TXTJUMLAH.Text End Sub •

Klik menu Run → Start untuk menjalankan program



B. Contoh 2 1. 2.

Simpan Form dengan nama PROREKLISTRIK.vbp Buat Desain Form di bawah ini

Keterangan : Object

Label

TextBox

CommandButton Shape

FRMREKLISTRIK.frm

dan

Project

dengan

nama

Properties Caption : INPUT DATA PEMBAYARAN LISTRIK Caption : NOMOR PELANGGAN Caption : NAMA PELANGGAN Caption : METER BULAN LALU Caption : METER BULAN INI Caption : JUMLAH METER Caption : HARGA PERMETER Caption : JUMLAH BAYAR Name : TXTNOMOR Name : TXTNAMA Name : TXTMBL Name : TXTMBI Name : TXTJUMLAH Name : TXTHARGA Name : TXTBAYAR Name : CMDBLANKFORM Caption : BLANKFORM Name : CMDCLOSE Caption : CLOSE Shape : 4 – Rounded Rectangle

Data yang diinput : NOMOR, NAMA, METER BULAN LALU, METER BULAN INI, HARGA PERMETER JUMLAH METER tampil / berubah otomatis jika METER BULAN LALU atau METER BULAN INI diisi / dirubah JUMLAH BAYAR tampil / berubah otomatis jika METER BULAN LALU, METER BULAN INI atau HARGA PERMETER diisi / dirubah •


Private Sub ……….. End Sub Private Sub End End Sub Private Sub ……….. End Sub Private Sub ………. End Sub Private Sub ………. End Sub Private Sub ………. End Sub •

CMDBLANKFORM_Click()

CMDCLOSE_Click()

Form_Activate()

TXTMBL_LostFocus()

TXTMBI_LostFocus()

TXTHARGA_LostFocus()


1



C. Contoh 3 1. 2.

Simpan Form dengan nama FRMRENMOBILfrm dan Project dengan nama PRORENMOBIL.vbp Buat Desain Form di bawah ini

Keterangan : Object

TextBox

ComboBox CommandButton Shape

Properties Name : TXTNOMOR Name : TXTNAMA Name : TXTSEWA Name : TXTPINJAM Name : TXTKEMBALI Name : TXTLAMA Name : TXTBAYAR Name : TXTJENIS List : BUS, SEDAN, KIJANG, CARRY Name : CMDBLANKFORM Caption : BLANKFORM Name : CMDCLOSE Caption : CLOSE Shape : 4 – Rounded Rectangle

Data yang diinput : NOMOR SEWA, NAMA PENYEWA, JENIS MOBIL, TANGGAL PINJAM, TANGGAL KEMBALI ComboBox JENIS MOBIL berisi data : BUS, SEDAN, KIJANG, CARRY SEWA PERHARI tampil otomatis dengan ketentuan : Jika Jenis Mobil = BUS Maka Sewa Perhari = 800000 Jika Jenis Mobil = SEDAN Maka Sewa Perhari = 400000 Jika Jenis Mobil = KIJANG Maka Sewa Perhari = 200000 Jika Jenis Mobil = CARRY Maka Sewa Perhari = 100000 LAMA SEWA dan JUMLAH BAYAR terisi otomatis •


Dim XPINJAM As Date Dim XKEMBALI As Date Private Sub BLANKFORM() TXTNOMOR.Text = "" TXTNAMA.Text = "" TXTJENIS.Text = "" TXTSEWA.Text = 0 TXTPINJAM.Text = Format(Date, "DD-MM-YYYY") TXTKEMBALI.Text = Format(Date, "DD-MM-YYYY") TXTLAMA.Text = 0 TXTBAYAR.Text = 0 TXTNOMOR.SetFocus End Sub Private Sub CMDCLOSE_Click() End End Sub Private Sub Form_Activate() BLANKFORM End Sub Private Sub TXTJENIS_Click() Select Case TXTJENIS.Text Case "BUS" TXTSEWA.Text = Format(800000, "#,###") Case "SEDAN" 2



TXTSEWA.Text = Format(400000, "#,###") Case "KIJANG" TXTSEWA.Text = Format(200000, "#,###") Case "CARRY" TXTSEWA.Text = Format(100000, "#,###") End Select TXTBAYAR.Text = Format(TXTSEWA.Text * TXTLAMA.Text, "#,###") TXTPINJAM.SetFocus End Sub Private Sub TXTPINJAM_LostFocus() XPINJAM = TXTPINJAM.Text XKEMBALI = TXTKEMBALI.Text TXTLAMA.Text = XKEMBALI - XPINJAM TXTBAYAR.Text = Format(TXTSEWA.Text * TXTLAMA.Text, "#,###") End Sub Private Sub TXTKEMBALI_LostFocus() XPINJAM = TXTPINJAM.Text XKEMBALI = TXTKEMBALI.Text TXTLAMA.Text = XKEMBALI - XPINJAM TXTBAYAR.Text = Format(TXTSEWA.Text * TXTLAMA.Text, "#,###") End Sub •


3



D. Contoh 4 1. 2.

Simpan Form dengan nama FRMINGAJI1.frm dan Project dengan nama PROINGAJI1.vbp Buat Desain Form di bawah ini

Keterangan : Object

TextBox

ComboBox CommandButton Shape

Properties Name : TXTNOMOR Name : TXTNAMA Name : TXTLEMBUR Name : TXTMULAI Name : TXTSELESAI Name : TXTLAMA Name : TXTUPAH Name : TXTBAGIAN List : PRODUKSI, QUALITY CONTROL GUDANG, PERPACKING Name : CMDBLANKFORM Caption : BLANKFORM Name : CMDCLOSE Caption : CLOSE Shape : 4 – Rounded Rectangle

Data yang diinput : NOMOR INDUK, NAMA KARYAWAN, BAGIAN, JAM MULAI, JAM SELESAI ComboBox BAGIAN berisi data : PRODUKSI, QUALITY CONTROL, GUDANG, PERPACKING LEMBUR PERJAM tampil otomatis dengan ketentuan : Jika BAGIAN = PRODUKSI Maka LEMBUR PERJAM = 1500 Jika BAGIAN = QUALITY CONTROL Maka LEMBUR PERJAM = 1750 Jika BAGIAN = GUDANG Maka LEMBUR PERJAM = 1250 Jika BAGIAN = PERPACKING Maka LEMBUR PERJAM = 1000 LAMA LEMBUR dan UPAH LEMBUR tampil otomatis •


Dim XMULAI As Date Dim XSELESAI As Date Private Sub CMDBLANKFORM_Click() TXTNOMOR.Text = "" TXTNAMA.Text = "" TXTBAGIAN.Text = "" TXTLEMBUR.Text = 0 TXTMULAI.Text = Format(Now, "HH:SS") TXTSELESAI.Text = Format(Now, "HH:SS") TXTLAMA.Text = 0 TXTUPAH.Text = 0 TXTNOMOR.SetFocus End Sub Private Sub CMDCLOSE_Click() End End Sub Private Sub Form_Activate() TXTNOMOR.Text = "" TXTNAMA.Text = "" TXTBAGIAN.Text = "" TXTLEMBUR.Text = 0 TXTMULAI.Text = Format(Now, "HH:SS") TXTSELESAI.Text = Format(Now, "HH:SS") TXTLAMA.Text = 0 4



TXTUPAH.Text = 0 TXTNOMOR.SetFocus End Sub Private Sub TXTBAGIAN_Click() …….. End Sub Private Sub TXTMULAI_LostFocus() ……. End Sub Private Sub TXTSELESAI_LostFocus() ……. End Sub •


5



E. Contoh 5 1. 2.

Simpan Form dengan nama FRMINGAJI2.FRM serta project dengan nama PROINGAJI2.vbp Buat Desain Form di bawah ini

Keterangan : Data yang diinput : NIP, NAMA, JABATAN, TUNJANGAN, HARI KERJA, POTONGAN ComboBox JABATAN berisi : DIREKTUR, KABAG, STAF, KEAMANAN GAJI POKOK terisi otomatis dengan ketentuan : Jika JABATAN = DIREKTUR Maka GAJIPOKOK = 1000000 Jika JABATAN = KABAG Maka GAJIPOKOK = 800000 Jika JABATAN = STAF Maka GAJIPOKOK = 600000 Jika JABATAN = KEAMANAN Maka GAJIPOKOK = 400000 ComboBox HARI KERJA berisi : 1 s/d 31 UANG TRANSPORT terisi otomatis dengan HARI KERJA dikalikan 6000 GAJI KOTOR terisi otomatis dengan GAJI POKOK + TUNJANGAN + UANG TRANSPORT JAMSOSTEK terisi otomatis dengan GAJI POKOk dikalikan 2% JUMLAH POTONGAN terisi otomatis dengan POTONGAN ditambah JAMSOSTEK GAJI BERSIH terisi otomatis dengan GAJI KOTOR dikurangi JUMLAH POTONGAN •


Dim XGAPOK As Single Dim XTUNJANGAN As Single Dim XHARI As Single Dim XTRANSPORT As Single Dim XKOTOR As Single Dim XPOTONGAN As Single Dim XJAMSOSTEK As Single Dim XJUMLAHPOT As Single Dim XBERSIH As Single Private Sub BLANKFORM() TXTNIP.Text = "" TXTNAMA.Text = "" CMBJABATAN.Text = "" TXTGAPOK.Text = 0 TXTTUNJANGAN.Text = 0 CMBHARI.Text = 0 TXTTRANSPORT.Text = 0 TXTKOTOR.Text = 0 TXTPOTONGAN.Text = 0 TXTJAMSOSTEK.Text = 0 TXTJUMLAHPOT.Text = 0 TXTBERSIH.Text = 0 End Sub Private Sub Form_Load() BLANKFORM End Sub Private Sub CMBJABATAN_Click() Select Case CMBJABATAN.Text 6



Case "DIREKTUR" TXTGAPOK.Text = Format(1000000, "#,###") Case "KABAG" TXTGAPOK.Text = Format(800000, "#,###") Case "STAF" TXTGAPOK.Text = Format(600000, "#,###") Case "KEAMANAN" TXTGAPOK.Text = Format(400000, "#,###") End Select XGAPOK = TXTGAPOK.Text XTUNJANGAN = TXTTUNJANGAN.Text XTRANSPORT = TXTTRANSPORT.Text XKOTOR = XGAPOK + XTUNJANGAN + XTRANSPORT XPOTONGAN = TXTPOTONGAN.Text XJAMSOSTEK = XGAPOK * 0.02 XJUMLAHPOT = XPOTONGAN + XJAMSOSTEK XBERSIH = XKOTOR - XJUMLAHPOT TXTKOTOR.Text = Format(XKOTOR, "###,###") TXTJAMSOSTEK.Text = Format(XJAMSOSTEK, "###,###") TXTJUMLAHPOT.Text = Format(XJUMLAHPOT, "#,###") TXTBERSIH.Text = Format(XBERSIH, "###,###") End Sub Private Sub TXTTUNJANGAN_LostFocus() XGAPOK = TXTGAPOK.Text XTUNJANGAN = TXTTUNJANGAN.Text XTRANSPORT = TXTTRANSPORT.Text XKOTOR = XGAPOK + XTUNJANGAN + XTRANSPORT TXTTUNJANGAN.Text = Format(XTUNJANGAN, "#,###") TXTKOTOR.Text = Format(XKOTOR, "#,###") XJUMLAHPOT = TXTJUMLAHPOT.Text XBERSIH = XKOTOR - XJUMLAHPOT TXTBERSIH.Text = Format(XBERSIH, "#,###") End Sub Private Sub CMBHARI_Click() XHARI = CMBHARI.Text XTRANSPORT = XHARI * 6000 TXTTRANSPORT.Text = Format(XTRANSPORT, "#,###") XGAPOK = TXTGAPOK.Text XTUNJANGAN = TXTTUNJANGAN.Text XTRANSPORT = TXTTRANSPORT.Text XKOTOR = XGAPOK + XTUNJANGAN + XTRANSPORT TXTKOTOR.Text = Format(XKOTOR, "#,###") XJUMLAHPOT = TXTJUMLAHPOT.Text XBERSIH = XKOTOR - XJUMLAHPOT TXTBERSIH.Text = Format(XBERSIH, "#,###") End Sub Private Sub TXTPOTONGAN_LostFocus() ……….. End Sub Private Sub CMDINPUT_Click() BLANKFORM End Sub Private Sub CMDCLOSE_Click() End End Sub •


7

Materi : Mengenal Proses A. Contoh 1

Recommend Documents