Pada artikel kali admin akan membuat sebuah program menghitung gaji lembur berdasarkan durasi detik.
Program ini akan menghitung secara otomatis gaji lembur saja berdasarkan lamanya durasi detik, dimana dalam contoh program ini lembur yang akan dibayar Rp.100 per detik.
Berikut dibawah ini adalah gambar dari output program ini :
 |
| Output |
Berikut dibawah ini adalah langkah-langkah dalam membuat Membuat Program Hitung Gaji Lembur dengan Durasi Detik Di VB6 :
1. Buka Fprm VB6 Standar EXE
2. Pada Form1 tanamkan 11 Label, 11 Textbox, 2 Timer dan 2 Commandbutton
3. Desainlah Form seperti gambar dibawah ini :
 |
| Form Desain |
4. Dan langkah terakhir ketiklah kode dibawah ini :
Dim totaldetik As Long
Dim hh, mm, ss As Integer
Dim tampungdetik As Long
Private Sub Command1_Click()
Timer1.Enabled = True
Text2.Text = Time
Text9.Text = Format(CDate("23:59:59") - CDate(Text2.Text) + CDate("00:00:01"), "hh:mm:ss")
Text1.Text = Format(Date, "dd/mm/yyyy")
Text8.Text = Format(Date + 1, "dd/mm/yyyy")
Text10.Text = ""
Text11.Text = ""
Command1.Enabled = False
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Command2.Enabled = False
Command1.Enabled = True
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Timer1.Interval = 500
Timer2.Interval = 500
Timer1.Enabled = False
Timer2.Enabled = False
Command2.Enabled = False
End Sub
Private Sub Timer1_Timer()
Text7.Text = Format(Date, "dd/mm/yyyy")
Text3.Text = Time
If Text3.Text = "00:00:00" Then
Text4.Text = Format(CDate("23:59:59") - CDate(Text2.Text) + CDate("00:00:01"), "hh:mm:ss")
Else
Text4.Text = Format((CDate(Text3.Text) - CDate(Text2.Text)), "hh:mm:ss")
End If
If CDate(Text2.Text) = CDate(Text3.Text) Then
Text11.Text = 0
End If
If CDate(Text7.Text) = CDate(Text8.Text) Then
Text8.Text = Date + 1
Text5.Text = Format(totaldetik + 1, "0,0")
Text11.Text = totaldetik + 1
Timer1.Enabled = False
Timer2.Enabled = True
End If
hh = Hour(Text4.Text)
mm = Minute(Text4.Text)
ss = Second(Text4.Text)
totaldetik = hh * 3600 + mm * 60 + ss
Text5.Text = Format(totaldetik, "0,0")
Text6.Text = Format(Text5.Text * 100, "0,0")
Text10.Text = Format(Val(Text5.Text) - Val(Text11.Text), "0,0")
End Sub
Private Sub Timer2_Timer()
Text7.Text = Format(Date, "dd/mm/yyyy")
Text3.Text = Time
If Text3.Text = "00:00:00" Then
Text4.Text = Format(CDate("23:59:59") - CDate(Text2.Text) + CDate("00:00:01"), "hh:mm:ss")
Else
Text4.Text = Format(CDate(Text3.Text) + CDate(Text9.Text) - CDate("00:00:00"), "hh:mm:ss")
End If
If CDate(Text2.Text) = CDate(Text3.Text) Then
Text11.Text = 0
End If
If CDate(Text7.Text) = CDate(Text8.Text) Then
Text8.Text = Date + 1
Text5.Text = Format(totaldetik, "0,0")
Text11.Text = totaldetik + 1
Timer2.Enabled = False
Timer1.Enabled = True
End If
hh = Hour(Text4.Text)
mm = Minute(Text4.Text)
ss = Second(Text4.Text)
totaldetik = hh * 3600 + mm * 60 + ss
Text5.Text = Format(totaldetik, "0,0")
Text6.Text = Format(Text5.Text * 100, "0,0")
Text10.Text = Format(Val(Text5.Text) - Val(Text11.Text), "0,0")
End Sub
Setelah itu coba Anda jalankan Project Anda, jika tidak ada error, maka hasilnya akan tampak pada gambar diatas arikel ini.
Catatan :
Teks yang berwarna merah pada kode adalah harga lembur per detiknya,silahkan ubah sesuai keinginan Anda
Demikian arikel singkat tentang Cara Membuat Program Hitung Gaji Lembur dengan Durasi Detik Di VB6, semoga artikel ini bermanfaat buat kita semua,Amin.
Selamat mencoba semoga berhasil....
No comments:
Post a Comment