Program Sederhana ( Menghitung Gaji + Tunjangan ) di Visual Basic 6.0
Artikel ini adalah suatu tugas dari dosen 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
thanks.. :)
BalasHapus