Source: Program Absensi Karyawan Dengan Visual Basic 6.0 dan Barcode
Oct29
Jika link tersebut di atas tidak berjalan dengan baik, silakan merujuk pada artikel yang sama pada site http://rohmadi-rohmad.blogspot.com
NB:
untuk menggunakan software di atas, pada PC/Laptop harus ada port serial dengan konfigurasi Port Number 6, 9600,n,8,1. Untuk mempelajari melakukan setting port serial pada VB silakan cek posting disini.
Jika ada barcode reader serial, lebih diutamakan.
Insya Alloh pada posting berikutnya akan diberikan coding untuk absensi karyawan tanpa barcode.
Tutorial Video Penggunaan Program
– Mencari dan menghapus data karyawan. [15-12-2013]
Discussion (10,824) ¬
Mas rohmadi saya mau tanya tentang VB 6.0…
saya sudah buat antivirus dari VB 6.0 dg referensi dari suatu blog tapi saat di scan terjadi error di command button scanya,ini adalah coding nya:
Private Sub cmdAction_Click(Index As Integer)
Dim DftrFile As String
DftrFile = GetSelected(lvScan)
If DftrFile = “” Then
MsgBox “No Detected File(s) Selected”, vbCritical, “”
Exit Sub
End If
Select Case Index
Case 0
clean = Action(DftrFile, lvScan, “D”)
MsgBox clean & ” File(s) has been deleted”
Case 1
clean = Action(DftrFile, lvScan, “Q”)
MsgBox clean & ” File(s) has been quarantine”
End Select
End Sub
Private Sub cmdScan_Click()
If cmdScan.Caption = “Scan” Then
Pathnya = txtPath.Text
If Mid(Pathnya, 2, 1) “:” Or Pathnya = “” Then
MsgBox “Direktori Tidak Ditemukan”, vbCritical, “Error”
Exit Sub
Else
lvScan.Enabled = False
cmdEnable False, False, False
clear_log
cmdScan.Caption = “Stop”
StopScan = False
FindFilesEx txtPath.Text, CBool(chkSubDir.Value)
MsgBox “Scan finished !” & vbNewLine & vbNewLine & “Total Dir Scanned = ” & lblDirScan.Caption & _
vbNewLine & “Total File Scanned = ” & lblFileScan.Caption & vbNewLine & “Total File Detected = ” & lblFileDet.Caption, vbInformation, “Finish”
If lblFileDet.Caption “0” Then
cmdEnable True, True, True
Else
cmdEnable False, False, True
End If
lvScan.Enabled = True
cmdScan.Caption = “Scan”
End If
Else
cmdScan.Caption = “Scan”
StopScan = True
End If
End Sub
Private Sub cmdViewQ_Click()
Me.Hide
frmQuarantine.Show
End Sub
Private Sub Command1_Click()
Dim Pathnya As String
Pathnya = “”
Pathnya = BrowseFolder(“Pilih folder yang akan di Scan:”, Me)
If Pathnya “” Then
txtPath.Text = Pathnya
End If
End Sub
Private Sub Command2_Click()
End Sub
Private Sub lvScan_ItemCheck(ByVal Item As MSComctlLib.ListItem)
UnSelect lvScan, “Di Karantina”
UnSelect lvScan, “Di Hapus”
End Sub
Private Function cmdEnable(hapus As Boolean, Quarantine As Boolean, openQuarantine As Boolean)
cmdAction(0).Enabled = hapus
cmdAction(1).Enabled = Quarantine
cmdViewQ.Enabled = openQuarantine
End Function
Private Function clear_log()
lblDirScan.Caption = 0
lblFileScan.Caption = 0
lblFileDet.Caption = 0
lvScan.ListItems.Clear
jumlahDir = 0
jumlahFile = 0
jumlahVirus = 0
End Function
Private Sub Form_Load()
On Error Resume Next
MkDir “Quarantine”
BuildDatabase
End Sub
dan kesalahan nya terletak pada cmdscan di baris ” lvScan.Enabled = False “.
sudah saya coba menghilangkan .Enable nya menjadi IvScan = False tapi terjadi error lagi dan kali ini pada Function clear_log di baris lvScan.ListItems.Clear
mohon bantuanya Mas Rohmadi
terima kasih sebelumnya
Kalau boleh, saya minta dikirim source codenya, agar saya lebih memahami dan mencoba membantu permasalahan yang dimaksud. terima kasih.
source codenya sudah saya kirim ke email mas rohmadi yg roohmadi@gmail.com
kirim balik ke email saya mas, trimakasih
sudah saya kirim sourcodenya ke emailnya mas rohmadi yg roohmadi@yahoo.com
mohon bantuanya mas
thanks
coba cek pemberian Name disini:
pada coding Anda menuliskan “lvScan”
sementara di properties ditulis dengan IvScan.
coba cek…
Bener mas ternyata saya salah ketik,
setelah saya benerin yg IvScan ada pesan error lagi di FindFilesEx txtPath.Text, CBool(chkSubDir.Value)…itu gimana mas…?
misi mas, pernah koneksikan VB.Net 2008 dengan RFID reader ?
Maaf, saya belum pernah melakukannya. gimana?
Mantapp… pak, saya tertarik mencobanya… saya pernah membuat absensi karyawan namun berbasis web, ( PHP + SQL ) dengn export ke EXCEL , beserta laporan bulana termasuk, absensinya menggunakan BArcode dengan kartu Guru ,…sudah saya terapkan di bebrerapa SMK di kota kami, ijin donlod pak saya akan coba, bila berkenan akan saya share,setelah saya tambahkan, mungkn bisa saya kompilasi dengn Absensi yg saya pernah buat berbasis web….
sya suka yg open source pak, mampir juga ke web kami yg sederhana pecinta open project… salam kenal pak…
Terima kasih. Salam kenal, semoga bermanfaat.
mas . saya mau nanya . saya lgi buat bahan ta perpus .
gimana ya cara cetak bulanan buat pengunjung bulanannya, sya mmakai db access dan datagrid .
tolong yaaa . makasih 🙂
Coba pelajari source code absensi diatas, saya fikir mirip dengan tersebut.
apa saya bisa dikirimi source codenya pak rohmadi,,???
Ke email saya : maramba_mila@yahoo.co.id
makasih..!!
Silakan kunjungi di sini
http://produk-inovatif.com/download/
bos…source yg absen file nya ada yg kurang saat buka absensi karyawan jd ga bisa buka error MSFLXGRD.OCX
Silakan ditambahkan library tersebut yang dapat dicopykan dari komputer lain yang ada.
Pakai windows apa ya?
ass bang bisa minta source codenya gg ke email saya cuapgo@gmail.com
saya sedang belajar visual basic 6. hehehe mohon bantuannya ,. 🙂
silakan merujuk link yang sudah saya berikan. terima kasih.
Postingannya keren dan bermanfaat mas..ad aplikasi absensi tanpa barcode n tgl masukin NIK az gak mas?sy bth bantuannya utk pencerahan mas.maklum br bljr..
Untuk aplikasi tanpa barcode ada, tapi belum sempat saya upload.
kapan dong mas diuploadnya?lagi butuh pencerahan banget ni mas.sy butuh bantuan mas ni.maf klo kedengaran sprt memaksa.makasih y mas. sy tunggu uploadannya