Cara
Pembuatan Program VB
Form
perhitungan gaji
Standard awal:
Klik Tab project
-Add windows form
-Common
Items-> Windows Form
- Klik
Add
Tahap pembuatan Form:
A.Pembuatan label/penyebutan
judul data
-Add Label.1
-Masuk ke tab properties pada label.1
-Ubah
pada properties “text” menjadi “Nama Program anda (cth: Program
gaji karyawan”)
-Add
Label.2
-Masuk ke tab properties pada label.2
-Ubah pada properties “text”
menjadi “Nama Perusahaan anda (cth: PT Cinta Sejahtera”)
-Add
Label.3
-Masuk ke tab properties pada label.3
-Ubah pada properties “text”
menjadi “Nama Karyawan”
-Add
Label.4
-Masuk ke tab properties pada label.4
-Ubah pada properties “text”
menjadi “Golongan”
-Add
Label.5
-Masuk ke tab properties pada label.5
-Ubah pada properties “text”
menjadi “Pendidikan (SMU/D3/S1)”
-Add
Label.6
-Masuk ke tab properties pada label.6
-Ubah pada properties “text”
menjadi “Jumlah kerja MAX (30 hari)”
-Add
Label.7
-Masuk ke tab properties pada label.7
-Ubah pada properties “text”
menjadi “total”
***HASIL PEMBUATAN LABEL HARUS AKAN TAMPIL SEPERTI DIATAS
B.Pembuatan box/ list untuk
penginputan data
-Add
Textbox1(box ini berfungsi untuk penginputan nama karyawan/user)
*penempatan
sejajar dengan Label
Nama karyawan ya J
-Add Listbox1(box ini berfungsi untuk memilih golongan
karyawan tsb yang nantinya akan menentukan perhitungan gaji
*penempatan sejajar dengan Label Nama Golongan
karyawan
-Pada
tampilan listbox1 di form klik kanan
-Klik
Edit
Items
-Pada tab string
collection editor yang muncul:
- ketik Gol I enter
-ketik Gol II enter
-ketik Gol III enter
-Add Combox1(ini Berfungsi untukmemilihjenjangpendidikankaryawan
yang akandigunakanuntuk variable kalkulasidalammenentukangajikaryawan)
*penempatan sejajar dengan Label pendidikan
-Pada
tampilan combobox1 di form klik kanan
-Klik Edit Items
-Pada tab string
collection editor yang muncul:
-ketik SMU enter
-ketik D3enter
-ketik S1 enter
-klik OK
-Add Textbox2(box ini berfungsi untuk penginputan jumlahkerjakaryawan yang
jugaberfungsisebagai variable gajikaryawan)
*penempatan
sejajar dengan Label JumlahKerja
-Add Textbox3( box ini
berfungsi untuk menampilkan total
gajikaryawantsb yang telahdihitungmelalui variable yang ada)
*penempatan
sejajar dengan Label Total
-
Add Button1 ubahtampilannamapada properties
menjadi HITUNG
(Box atautombolini yang nantinyaakandimasukkan coding/
syntax untukmelakukanpenghitungan/ kalkulasidari variable yang telahdiinput)
C.Memasukkan
syntax
-Pada
form design klik 2 kali pada BUTTON ‘Hitung”
- Akan
muncul tampilan seperti berikut di form source code
- Masukkan/ubahlah
syntax seperti yang ada di bawah
Dari
awal hingga selesai
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim a AsInteger, b AsInteger
If ListBox1.SelectedIndex = 0 Then
a = 40000
EndIf
If ListBox1.SelectedIndex = 1 Then
a = 30000
EndIf
If ListBox1.SelectedIndex = 2 Then
a = 20000
EndIf
If ComboBox1.SelectedIndex = 0 Then
b = 7000
EndIf
If ComboBox1.SelectedIndex = 1 Then
b = 8000
EndIf
If ComboBox1.SelectedIndex = 2 Then
b = 1000000
EndIf
TextBox3.Text = TextBox2.Text * 5000 + a + b
EndSub
D.Testing/
Trial
Lakukanlah pengetesan/ trial pada program yang telah
anda buat dengan memasukkan semua data
pada variable yang ada lalu klik HITUNG,
*Jika
benar maka tampilan pada program anda akan muncul sebagai berikut
