Cara membuat Program Menghitung Gaji Karyawan di VB 6.0

 
Assalamu'alaikum, wr.wb

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

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.

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

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