""TERIMAKASI TELAH BERKUNJUNG KEBLOG SAYA""

Jumat, 25 Maret 2016

PROGRAM MENGHITUNG GAJI KARYAWAN

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.


program hitung gaji karyawan dengan VB 6.0OK SOB LANGSUNG AZA COPY PASTE KODINGNYA 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 programnya..
membuat aplikasi gaji dengan VB.60



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..