Program Sederhana ( Menghitung Gaji + Tunjangan ) di Visual Basic 6.0

Berpartisipasilah dengan Mengklik Tombol Social Media dibawah ini
Share

program sederhana hitung gaji visual basic, Aplikasi Sederhana ( Menghitung Gaji + Tunjangan ) di Visual Basic 6.0



Program Sederhana ( Menghitung Gaji + Tunjangan ) di Visual Basic 6.0

Artikel ini adalah suatu tugas dari guru saya untuk mengungkap masalah MENGHITUNG GAJI + Tunjangan, Saya Sempat bingung saat saya dirumah mencoba membuat program ini, akan tetapi gagal, tetapi setelah saya coba ulang ternyata berhasil.

keterangan Program :

Dalam hal ini , kita akan membuat program hitung gaji + tunjangan dari Pegawai , Staf Direktur, Dan Direktur

Didalam program ini ada Tunjangan hadir = dalam 1 bulan berapa kali hadir x Rp.10.000

Tunjangan Jabatan :
Untuk jabatan Pegawai mendapatkan tunjangan sebesar Rp.500.000 dan Gaji Pokok sebesar Rp.2 jt
Untuk jabatan Staf Direktur mendapatkan tunjangan sebesar Rp.800.000 dan Gaji Pokok sebesar Rp.4 jt                              
Untuk jabatan Pegawai mendapatkan tunjangan sebesar Rp.1000.000 dan Gaji Pokok sebesar Rp.5 jt

Tunjangan Anak = Jumlah Anak x Rp.100.000 , dalam hal ini, anak yang diberi tunjangan maksimal hanya 2 orang anak saja.

Oke langsung saja !

1. letakkan 11 Label , 3 TextBox, 1 ComboBox , dan 1 Command button seperti dibawah ini



Form1





Properties Form1 :
StarUpPosition : 2 - CenterScreen

Properties Label1 :
Caption :  Nama
Properties Combo1 : 
Text : Pilih Jabatan

Properties Label2 :
Caption : Jumlah Anak

Properties Label3 :
Caption : Jumlah Kehadiran

Properties Label4 :
Caption : /Bulan

Properties Label 5 - Label 11 :
Caption : Kosong
BackColor : HighLight Text

Properties label 5 :
Name : lblnama



Properties label 6 :
Name : lbljabatan



Properties label 7 :
Name : lblgajipokok



Properties label 8 :
Name : lbltunjabatan


Properties label 9 :
Name : lbltunanak



Properties label 10 :
Name : lblhadir



Properties label 11 :
Name : lbltotal


Properties Command1 : 
Caption : HITUNG



Sekarang anda masuk Source Code dibawah ini

Dim tunjabatan As Single
Dim gajipokok As Single
Dim tunanak As Single
Dim jumanak As Byte
Dim tunhadir As Single
Dim jumhadir As Byte
Dim total As Double
Const anak = 100000
Const hadir = 10000

Private Sub Command1_Click()

If Text1.Text = "" Then
MsgBox "MASUKKAN NAMA"
Text1.SetFocus
Exit Sub
End If


If Text2.Text = "" Then
MsgBox "MASUKKAN JUMLAH ANAK"
Text2.SetFocus
Exit Sub
End If
If Text3.Text = "" Then
MsgBox "Masukkan Jumlah Kehadiran Dalam 1 Bulan"
Text3.SetFocus
Exit Sub
End If

If Text3.Text > 32 Then
MsgBox "Anda terlalu banyak memasukkan Jumlah Kehadiran"
Exit Sub
End If





nama = Text1.Text

lblnama.Caption = "Nama :" & nama

Select Case Combo1.Text
               Case "Pegawai"
                     tunjabatan = 500000
                     gajipokok = 2000000
                   
               Case "Staf Direktur"
                   
                     tunjabatan = 800000
                     gajipokok = 4000000
                   
               Case "Direktur"
                   
                     tunjabatan = 1000000
                     gajipokok = 5000000
                   
End Select

lbljabatan.Caption = "Jabatan :" & Combo1.Text
lbltunjabatan.Caption = "Tunjangan Jabatan :" & Format(tunjabatan, "Currency")
lblgajipokok.Caption = "Gaji Pokok :" & Format(gajipokok, "Currency")

jumanak = Val(Text2.Text)
If jumanak <= 2 Then tunanak = Val(jumanak) * anak
If jumanak > 2 Then tunanak = 2 * anak


lbltunanak.Caption = "Tunjangan Anak :" & Format(tunanak, "Currency")

jumhadir = Val(Text3.Text)
tunhadir = Val(jumhadir) * Val(hadir)

lblhadir.Caption = "Tunjangan Hadir :" & Format(tunhadir, "Currency")

total = Val(tunjabatan) + Val(gajipokok) + Val(tunanak) + Val(tunhadir)
lbltotal.Caption = "Total Gaji :" & Format(total, "Currency")
                   

End Sub

Private Sub Form_Load()

Combo1.AddItem "Pegawai"
Combo1.AddItem "Staf Direktur"
Combo1.AddItem "Direktur"


End Sub


sekarang anda coba dengan menekan F5



Program Sederhana ( Menghitung Gaji + Tunjangan ) di Visual Basic 6.0 Judul: Program Sederhana ( Menghitung Gaji + Tunjangan ) di Visual Basic 6.0
Deskripsi: program sederhana hitung gaji visual basic, Aplikasi Sederhana ( Menghitung Gaji + Tunjangan ) di Visual Basic 6.0
Keyword:
 
 
Design By Luhur Fatah