Cara mengatasi Error Database Program Absensi
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]
29 Oktober 2012
roohmadi
Weblog Rohmadi 
27 responses to “Source: Program Absensi Karyawan Dengan Visual Basic 6.0 dan Barcode”
Julio Arta Kusuma
Februari 17th, 2016 pukul 17:40
untuk yang berbasis wajah gmn pak
SukaSuka
zaid
November 19th, 2015 pukul 22:54
mas saya mau buat database parkir dengan rfid dan vb, bisa bntu mas?
ahmadzaidlubis@gmail.com
SukaSuka
roohmadi
November 20th, 2015 pukul 04:56
bisa diskusi lagi lewat email ya.
SukaSuka
M. Fadhly
September 12th, 2015 pukul 09:33
Thanks sobb
SukaSuka
zulkurnain
April 27th, 2015 pukul 10:10
bisa k bpk kirimin scritnya di email: zulkurnainputrabungsu@gmail.com
SukaSuka
roohmadi
April 27th, 2015 pukul 11:03
silakan download
http://pintar-elektronika.web.id/Download/Barcode%20Absensi%204%20blog.rar
SukaSuka
rosmaiti
Januari 9th, 2014 pukul 13:25
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..
SukaSuka
roohmadi
Januari 15th, 2014 pukul 05:49
Untuk aplikasi tanpa barcode ada, tapi belum sempat saya upload.
SukaSuka
rosmaiti
Februari 17th, 2014 pukul 20:16
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
SukaSuka
Dariel
Oktober 26th, 2013 pukul 05:09
ass bang bisa minta source codenya gg ke email saya cuapgo@gmail.com
saya sedang belajar visual basic 6. hehehe mohon bantuannya ,. 🙂
SukaSuka
roohmadi
Januari 15th, 2014 pukul 05:46
silakan merujuk link yang sudah saya berikan. terima kasih.
SukaSuka
Knoppix Gnu
Juni 30th, 2013 pukul 14:17
bos…source yg absen file nya ada yg kurang saat buka absensi karyawan jd ga bisa buka error MSFLXGRD.OCX
SukaSuka
roohmadi
Januari 15th, 2014 pukul 05:47
Silakan ditambahkan library tersebut yang dapat dicopykan dari komputer lain yang ada.
Pakai windows apa ya?
SukaSuka
Yisreel Umbu
April 23rd, 2013 pukul 11:20
apa saya bisa dikirimi source codenya pak rohmadi,,???
Ke email saya : maramba_mila@yahoo.co.id
makasih..!!
SukaSuka
roohmadi
April 26th, 2013 pukul 08:23
Silakan kunjungi di sini
http://produk-inovatif.com/download/
SukaSuka
rara
Februari 21st, 2013 pukul 15:56
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 🙂
SukaSuka
roohmadi
Januari 15th, 2014 pukul 05:48
Coba pelajari source code absensi diatas, saya fikir mirip dengan tersebut.
SukaSuka
ibnubudir
Februari 21st, 2013 pukul 15:21
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…
SukaSuka
roohmadi
Februari 21st, 2013 pukul 16:04
Terima kasih. Salam kenal, semoga bermanfaat.
SukaSuka
Andreas Sanjaya
Desember 4th, 2012 pukul 23:27
misi mas, pernah koneksikan VB.Net 2008 dengan RFID reader ?
SukaSuka
roohmadi
Desember 5th, 2012 pukul 09:44
Maaf, saya belum pernah melakukannya. gimana?
SukaSuka
Dendy
Desember 1st, 2012 pukul 13:42
sudah saya kirim sourcodenya ke emailnya mas rohmadi yg roohmadi@yahoo.com
mohon bantuanya mas
thanks
SukaSuka
roohmadi
Desember 3rd, 2012 pukul 09:18
coba cek pemberian Name disini:
pada coding Anda menuliskan “lvScan”
sementara di properties ditulis dengan IvScan.
coba cek…
SukaSuka
Dendy
Desember 4th, 2012 pukul 06:12
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…?
SukaSuka
Dendy
Desember 1st, 2012 pukul 13:40
source codenya sudah saya kirim ke email mas rohmadi yg roohmadi@gmail.com
kirim balik ke email saya mas, trimakasih
SukaSuka
Dendy
November 30th, 2012 pukul 13:21
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
SukaSuka
roohmadi
Desember 1st, 2012 pukul 09:21
Kalau boleh, saya minta dikirim source codenya, agar saya lebih memahami dan mencoba membantu permasalahan yang dimaksud. terima kasih.
SukaSuka
2 Trackbacks / Pingbacks
Program Absensi Karyawan Dengan Visual Basic 6.0 dan Barcode | Produk Inovatif Maret 3rd, 2013 pukul 17:02
[…] adalah Source code untuk program yang menggunakan barcode […]
SukaSuka
Program Absensi Karyawan Dengan Visual Basic 6.0 dan Barcode « Weblog Rohmadi Oktober 29th, 2012 pukul 10:20
[…] Source […]
SukaSuka