Sunday, July 13, 2008

Penghitung salary sederhana

Sekarang dah mulai semangat lagi ne untuk nulis, dah banyak motivasi yang masuk.
Hari ini pengen nulis artikel kecil, Membuat Penghitung salary sederhana.
Apa kabar semuanya, Tentu baik2 aja kan?
Di program ini kita akan menghitung gaji total yang akan di terima setiap jabatan.
Mulai dari direktur sampai staf.
Ketentuan yang saya pake adalah seperti di bawah
Direktur
Gaji pokok:2.000.000
Tunjangan:10% dari gaji
Sekretaris
Gaji pokok:1.500.000
Tunjangan:10% dari gaji
Bendahara
Gaji pokok:1.000.000
Tunjangan:10% dari gaji
staf
Gaji pokok: 900.000
Tunjangan:10% dari gaji



Kita mulai saja ya. Seperti biasa, buka aplikasi vbnya. Buat standar exe aja.
Habis tu buat form kayak di bawah ini.
















Bisa kan?

Text1 sampai text5 kita kosongkan tulisannya. Trus untuk text1 sampai text5 atur properties lockednya dengan true. Combo1nya juga kosongkan aja tulisannya.
Buat 2 tombol menggunakan CommandButton, ubah captionnya dengan new & close atau dengan nama yang sesuai dengan selera kalian.

Nah kalau udah jadi kita masuk ke kode:

Klik 2 kali pada form1, trus ketik program di bawah ini
Private Sub Form_Load()
Combo1.AddItem " Direktur"
Combo1.AddItem "sekretaris"
Combo1.AddItem "Bendahara"
Combo1.AddItem "staf"
End Sub

Kode diatas berfungsi agar pada combo1 terlihat jabatan2 yang kita inginkan.

Langkah selanjutnya kita masuk ke kode untuk menghitung nilai salary atau gaji.
Klik 2 kali pada combo1 dan copy aja atau ketik kode di bawah.

Private Sub Combo1_Click()
If Combo1.ListIndex = -1 Then
Gaji = 0
Tunjangan = 0
Total = 0
ElseIf Combo1.ListIndex = 0 Then
Gaji = 2000000
Tunjangan = 0.1 * Gaji
Total = Gaji + Tunjangan
ElseIf Combo1.ListIndex = 1 Then
Gaji = 1500000
Tunjangan = 0.1 * Gaji
Total = Gaji + Tunjangan
ElseIf Combo1.ListIndex = 2 Then
Gaji = 1000000
Tunjangan = 0.1 * Gaji
Total = Gaji + Tunjangan
Else
Gaji = 900000
Tunjangan = 0.1 * Gaji
Total = Gaji + Tunjangan

End If

Text3.Text = Gaji
Text4.Text = Tunjangan
Text5.Text = Total


End Sub

Klik 2 kali pada commandbutton1, trus ketik kode di bawah ini

Private Sub Command1_Click()
Text1.Text = Clear
Text2.Text = Clear
Combo1.ListIndex = -1
Text3.Text = Clear
Text4.Text = Clear
Text5.Text = Clear
Text1.SetFocus
End Sub

Kode di atas berguna agar pas kita ngeklik tombol new, semua textbox menjadi bersih atau kosong lagi.

Kode terahir untuk tombol close,

Private Sub Command2_Click()
Unload Me
End Sub

Berguna untuk seperti nama tombolnya, yaitu untuk menutup aplikasi. Atau langsung aja klik tombol x.

Jangan lupa baca yang ini juga



1 comment:

  1. lah trs text NIP, Nama dll gmn ?
    trs cara kerjanya ???????

    ReplyDelete

silahkan komentar, jangan spam ya.

New Comment