Visual Basic 6 – Pemrograman dengan Option Button – Latihan2

Visual Basic 6 – Pemrograman dengan Option Button – Latihan2
Pada Latihan saat ini akan diperlihatkan cara menggunakan Option Button pada pemrograman Visula Basic. Option button dipakai untuk memilih kategori tertentu yang nantinya akan digunakan untuk menentukan proses perhitungan upah.

Buatlah sebuah Project Baru, Name: FrmUpah, Caption: PT Sanjaya Utama. Contoh tampilan lihat gambar berikut:

Buatlah 4 buah label untuk Nama Karyawan, Tanggal, Jumlah Jam Kerja  dan Upah Dibayar. Atur font untuk untuk semua label dengan Arial, Bold, 12. Disebelah kanan masing-masing label, dibuat Textbox. Hapus semua Text dari masing-masing Textbox tadi. Alignment untuk Jam Kerja dan Upah Dibayar diset Right Justify. Tombol Hitung, Hapus dan Keluar dibuat seperti pada Latihan1 dengan nama CmdHitung, CmdHapus dan CmdKeluar.

Untuk Bagian/Departemen dibuat sebuah Frame (icon kotak bertuliskan XY) seperti pada gambar. Lalu buat 4 buat Option Button untuk Produksi, Pemasaran, Keuangan dan Gudang.  Name dan Caption untuk setiap option button disamakan yaitu Produkasi, Pemasaran, Keuangan dan Gudang.
Sekarang kita buat programnya:
1. Double Click pada menu Hitung, lalu isikan perintah-perintah berikut:
Private Sub CmdHitung_Click()
If Produksi.Value = True Then                     ‘Jika button produksi di click
TxtTarif = 6500
ElseIf Gudang.Value = True Then              ‘Jika button gudang di click
TxtTarif = 5000
ElseIf Keuangan.Value = True Then          ‘Jika button keuangan di click
TxtTarif = 7500
ElseIf Pemasaran.Value = True Then        ‘Jika button pemasaran di click
TxtTarif = 6000
Else
TxtTarif = 0
End If

TxtDibayar = TxtJam * TxtTarif
‘Merubah tampilan angka dengan menambahkan Rp dan ribuan
TxtDibayar = Format(TxtDibayar, “Rp #,##0”)
End Sub
2. Double click pada tombol Hapus, isikan perintah-perintah berikut:
Private Sub TxtHapus_Click()
TxtNama = “”
TxtTanggal = “”
TxtJam = “”
TxtDibayar = “”
Produksi.Value = False       ‘Menghilangkan tanda lingkaran pada button (tdk dipilih)
Gudang.Value = False
Keuangan.Value = False
Pemasaran.Value = False
End Sub

3. Double click pada tombol Keluar, isikan perintah-perintah berikut:
Private Sub TxtKeluar_Click()
Unload Me
End Sub
Save! Run!

Good Luck

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: