Program menghitung gaji karyawan
dengan VB.6.0 ini dengan ketetapan-ketetapan jumlah gaji karyawan sesuai
dengan jabatan masing-masing. Untuk karyawan yang telah menikah ada
tunjangan sebesar 0,1 x gaji. Pajak dikenakan pada masing-masing
karyawan dengan hitungan 0,15 x gaji. Nama karyawan, gaji dan tunjangan
sudah dibuat otomatis berdasarkan pemilihan combobox.
Oke sob Pertama berdo'a dulu panjatkan puji syukur pada ilahi karena yang menciptakan bahasa pemograman itu hakikatnya Allah SWT dan ini merupakan point penting yang jarang kita pahami loh sob. Siapkan cemilan murah aja seperti kacang sukro, kalau ada roti pandan lebih baik. Untuk minuman saya sarankan teh gelas aja supaya kesannya tampak lebih ekonomis, kalau ada uang berlebih boleh lah sesekali minum proman, hehe.
Desain tampilan sesuai gambar, untuk masalah style silahkan sesuaikan dengan selera masing-masing ya Sob.
Private Sub Form_Load()
Combo1.AddItem "001"
Combo1.AddItem "002"
Combo1.AddItem "003"
Combo2.AddItem "Hacker"
Combo2.AddItem "Blogger"
Combo2.AddItem "Pheaker"
Combo3.AddItem "Menikah"
Combo3.AddItem "Tidak Menikah"
End Sub
Private Sub combo2_Click()
Select Case Combo2.Text
Case "Hacker": Text2.Text = 1750000
Case "Blogger": Text2.Text = 2500000
Case "Pheaker": Text2.Text = 1250000
End Select
Text4.Text = 0.15 * Text2.Text
End Sub
Private Sub combo1_Click()
Select Case Combo1.Text
Case "001": Text1.Text = "Mastah"
Case "002": Text1.Text = "Sistah"
Case "003": Text1.Text = "Nubi"
End Select
End Sub
Private Sub combo3_Click()
Select Case Combo3.Text
Case "Menikah": Text3.Text = 0.1 * Text2.Text
Case "Tidak Menikah": Text3.Text = 0
End Select
End Sub
Private Sub Command2_Click()
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Combo1.SetFocus
End Sub
Private Sub Command1_Click()
Text5.Text = Val(Text2.Text) + Val(Text3.Text) - Val(Text4.Text)
End Sub
Private Sub Command3_Click()
End
End Sub
Dan ini penampakan program yang menghitung gaji karyawan setelah dijalankan programnya..
Sekian Tutorial membuat aplikasi gaji karyawan menggunakan bahasa pemograman VB 6.0 kali ini moga bermanfaat bagi kita semua.
Oke sob Pertama berdo'a dulu panjatkan puji syukur pada ilahi karena yang menciptakan bahasa pemograman itu hakikatnya Allah SWT dan ini merupakan point penting yang jarang kita pahami loh sob. Siapkan cemilan murah aja seperti kacang sukro, kalau ada roti pandan lebih baik. Untuk minuman saya sarankan teh gelas aja supaya kesannya tampak lebih ekonomis, kalau ada uang berlebih boleh lah sesekali minum proman, hehe.
Desain tampilan sesuai gambar, untuk masalah style silahkan sesuaikan dengan selera masing-masing ya Sob.
Private Sub Form_Load()
Combo1.AddItem "001"
Combo1.AddItem "002"
Combo1.AddItem "003"
Combo2.AddItem "Hacker"
Combo2.AddItem "Blogger"
Combo2.AddItem "Pheaker"
Combo3.AddItem "Menikah"
Combo3.AddItem "Tidak Menikah"
End Sub
Private Sub combo2_Click()
Select Case Combo2.Text
Case "Hacker": Text2.Text = 1750000
Case "Blogger": Text2.Text = 2500000
Case "Pheaker": Text2.Text = 1250000
End Select
Text4.Text = 0.15 * Text2.Text
End Sub
Private Sub combo1_Click()
Select Case Combo1.Text
Case "001": Text1.Text = "Mastah"
Case "002": Text1.Text = "Sistah"
Case "003": Text1.Text = "Nubi"
End Select
End Sub
Private Sub combo3_Click()
Select Case Combo3.Text
Case "Menikah": Text3.Text = 0.1 * Text2.Text
Case "Tidak Menikah": Text3.Text = 0
End Select
End Sub
Private Sub Command2_Click()
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Combo1.SetFocus
End Sub
Private Sub Command1_Click()
Text5.Text = Val(Text2.Text) + Val(Text3.Text) - Val(Text4.Text)
End Sub
Private Sub Command3_Click()
End
End Sub
Dan ini penampakan program yang menghitung gaji karyawan setelah dijalankan programnya..
Sekian Tutorial membuat aplikasi gaji karyawan menggunakan bahasa pemograman VB 6.0 kali ini moga bermanfaat bagi kita semua.
jangan lupa ikutin ya blog saya..