Senin, 13 Maret 2017
TASK...PROGRAM
by:Dela.J
Materi Microsoft Visual Basic 6.0
PART 1
"Membuat Aplikasi Program Dalam Toko Menggunakan Microsoft Visual Basic
6.0"
Untuk membuat aplikasi dalam toko
yang dibutuhkan adalah:
8 Label
7 TextBox
3 CommandButton
Kemudian susun kontrol-kontrol di
atas dan edit(Name dan caption) seperti gambar di bawah ini:
Selanjutnya adalah meletakkan kode di
dalam kontrol yang harus di letakkan kode agar menjadi program yang sebenarnya.
Dengan ketentuan:
- Jika di klik commandbutton ‘Hitung’, maka akan menghitung Harga Barang, Jumlah Barang serta Diskon Barang. Dan hasilnya akan muncul di ‘Total yang harus dibayar’.
Ketikkan kode seperti gambar dibawah ini:
Kode untuk Tombol CommandButton HITUNG
Private Sub
CmdHitung_Click()
TxtTotal.Text
= Val(TxtJumlahbarang.Text) * Val(TxtHarga.Text) - Val(TxtDiskon.Text)
End Sub
Kode untuk Tombol CommandButton Keluar
Private Sub
CmdKeluar_Click()
Unload Me
End Sub
Kode untuk Tombol CommandButton Lagi
Private Sub
CmdLagi_Click()
TxtNomor.Text
= ""
TxtPembeli.Text
= ""
TxtBarang.Text
= ""
TxtHarga.Text
= ""
TxtJumlahbarang
= ""
TxtDiskon =
""
TxtTotal.Text
= ""
TxtNomor.SetFocus
End Sub
Setelah selesai memasukkan semua
kode. Langkah selanjutnya pilih Run/
tekan F5,
Masukkan secara manual/ketik di semua kolom kecuali di ‘ TOTAL YANG HARUS DIBAYAR’
dan hasilnya seperti gambar di bawah ini :
Part 2
“Membuat Aplikasi Pembelian”
Selanjutnya membuat aplikasi
pembelian, sebagai contoh nama aplikasinya adalah ‘Aplikasi Penjualan Peralatan
Komputer’. Masukkan kontrol-kontrol yang dibutuhkan :
3 Frame
10 Label
8 TextBoox
1 ComboBox
3 CommandButton
Kemudian susun dan edit kontrol-kontrol di atas
seperti gambar di bawah ini:
Masukkan Code, dengan ketentuan:
- Jika Memilih salah satu item di combobox maka akan muncul juga harga item tersebut di kolom ‘Harga Produk’.
- Jika di klik commandbutton ‘HITUNG’ maka akan menghitung total dari keseluruhan dan sisa uang kembalian akan muncul di kolom ‘TOTAL KEMBALIAN’.
- Jika di klik ‘BELI LAGI’ maka akan mengulang dari awal/ mengosongkan semua kolom yang sudah terisi sebelumnya dan kembali ke kondisi semula.
Ketikkan kode dibawah:
Kode untuk Tombol ComboBox Pilih item atau Nama Produk
Private Sub
CboPilih_Click()
If
CboPilih.Text = "Mouse" Then
TxtHarga.Text
= "15000"
ElseIf
CboPilih.Text = "Keyboard" Then
TxtHarga.Text
= "30000"
ElseIf
CboPilih.Text = "CPU" Then
TxtHarga.Text
= "10000"
End If
TxtJumlah.SetFocus
End Sub
Kode untuk Tombol CommandButton HITUNG
Private Sub
CmdHitung_Click()
TxtTotal.Text
= Val(TxtUang.Text) - Val(TxtHarga.Text) * Val(TxtJumlah.Text)
End Sub
Kode untuk Tombol CommandButton Lagi
Private Sub
CmdLagi_Click()
TxtID.Text =
""
TxtNama.Text
= ""
TxtAlamat.Text
= ""
TxtNo.Text =
""
CboPilih =
""
TxtHarga.Text
= ""
TxtJumlah.Text
= ""
TxtUang.Text
= ""
TxtTotal.Text
= ""
TxtID.SetFocus
End Sub
Kode untuk Tombol CommandButton Selesai
Private Sub
CmdSelesai_Click()
Unload Me
End Sub
Kode untuk Sub Form
Private Sub
Form_Load()
CboPilih.AddItem
"Mouse"
CboPilih.AddItem
"Keyboard"
CboPilih.AddItem
"CPU"
End Sub
Untuk mengeceknya Pilih Run->
start atau F5.
Kecuali Nama Produk, Harga Produk,
dan Total Kembalian, isi dengan cara manual/Ketik.
Dan hasilnya seperti gambar di bawah:
PART 3
“Membuat Aplikasi Penerimaan
Mahasiswa Baru”
Masukkan kontrol-kontrol yang
dibutuhkan :
15 Label
9 TextBox
2 OptionButton
3 ComboBox
2 CommandButton
Selanjutnya susun dan edit kontrol-kontrol di atas
seperti gambar di bawah:
Setelah selesai masukkan Code-nya
dengan ketentuan :
- Pada Jenis Kelamin terdapat dua OptionButton yaitu ( L dan P ), Jika dipilih salah satu L/P maka akan muncul keterangan di kolom sampingnya. Misal memilih L maka di kolom akan ada keterangan ‘Laki-Laki’.
- Pada ComboBox di ‘Program Yang Dipilih’, jika dipilih salah satu item maka akan muncul keterangan biaya di kolom ‘Biaya Pendidikan Per-Semester’.
- Pada Tahun Lulus tidak perlu diberikan kode karena hanya memilih tahun.
- Pada ComboBox di ‘Jurusan Yang Dipilih’, jika memilih salah satu item di combobox ini maka akan muncul keterangan biaya di kolom ‘Propti dan Almamater, Biaya Pendidikan, dan Yang Harus dibayar’.
- Jadi dicombobox ini akan diletakkan rumus untuk menjumlahkan semua.
Ketikkan kode berikut:
Kode untuk ComboBox Jurusan atau Jurusan Yang Dipilih
Private Sub
CboJurusan_Click()
If
CboJurusan.Text = "S1 Sistem Informasi" Then
TxtPropti.Text
= "350000"
TxtBiayaPen.Text
= "300000"
Else
TxtPropti.Text
= "300000"
TxtBiayaPen.Text
= " 300000"
End If
TxtHarus.Text
= Val(TxtBiaya.Text) + Val(TxtPropti.Text) + Val(TxtBiayaPen.Text)
End Sub
Kode untuk ComboBox Program atau Program Yang Dipilih
Private Sub
CboProgram_Click()
If
CboProgram.Text = "Reguler" Then
TxtBiaya.Text
= "3500000"
Else
TxtBiaya.Text
= "4000000"
End If
End Sub
Kode untuk Tombol CommandButton Daftar Baru
Private Sub
CmdDaftar_Click()
TxtNama.Text
= ""
TxtJenis.Text
= ""
TxtAlamat.Text
= ""
TxtAsal.Text
= ""
TxtBiaya.Text
= ""
TxtOrangtua.Text
= ""
TxtPropti.Text
= ""
TxtBiayaPen.Text
= ""
TxtHarus.Text
= ""
CboProgram.Text
= ""
CboJurusan.Text
= ""
CboTahun.Text
= ""
TxtNama.SetFocus
End Sub
Kode untuk Tombol CommandButton Selesai
Private Sub
CmdSelesai_Click()
Unload Me
End Sub
Kode untuk Sub Form
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 untuk OptionButton L
Private Sub
OptLaki_Click()
TxtJenis.Text
= "Laki-laki"
End Sub
Kode untuk OptionButton L
Private Sub
OptPerempuan_Click()
TxtJenis.Text
= "Perempuan"
End Sub
Jangan lupa cek. Karena teliti itu
diperlukan ketika masuk di jendela Code, untuk menghindari debug. Kemudian
Run-> start/ F5.
Isikan manual ( Nama Pendaftar, Alamat
Pendaftar, Asal Sekolah, Nama orang tua wali)
Dan hasilnya seperti gambar dibawah
ini:
......."semoga bermanfaat"......
by: Jeje_Art
