CARA MEMBUAT PROGRAM MENGHITUNG GAJI KARYAWAN DI VB 6.0 41017

Assalamu'alaikum, wr.wb

Program Menghitung Gaji Karyawan dgn VB 6.0 - Tutorial visual basic 6.0 kali ni tentang cara membuat program gaji karyawan dgn visual basic. Sebelum kita melangkah pd pembuatan program gaji karawan ini, mari kita pahami terlebih dahulu alur logika pemogramannya karena ni merupakan point penting sebelum menterjemahkan sebuah program dlm bahasa pemograman. Oh ya.. program hitung gaji karyawan ni belum dilengkapi dgn database, silahkan sobat lengkapi sendiri karena kalau dibahas dlm satu postingan ni tentu akan panjang sekali.
untk yg belum mempunyai programnya silakan download disini : visual basic 6.0

Program menghitung gaji karyawan dgn VB.6.0 ni dgn ketetapan-ketetapan jumlah gaji karyawan sesuai dgn jabatan masing-masing. Untuk karyawan yg telah menikah ada tunjangan sebesar 0,1 x gaji. Pajak dikenakan pd masing-masing karyawan dgn 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 pd ilahi karena yg menciptakan bahasa pemograman itu hakikatnya Allah SWT dan ni merupakan point penting yg 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, untk masalah style silahkan sesuaikan dgn selera masing-masing ya Sob.

Silahkan copy paste mantra-mantra dibawah ini.

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 ni penampakan program yg menghitung gaji karyawan setelah dijalankan.



Sekian Tutorial membuat aplikasi gaji karyawan menggunakan bahasa pemograman VB 6.0 kali ni moga bermanfaat bagi kita semua. Kritik dan saran yg bersifat membangun sangat kami harapkan dari sahabat sekalian. Selamat belajar Brother!

Posted by Unknown