Source: Program Absensi Karyawan Dengan Visual Basic 6.0 dan Barcode

Cara mengatasi Error Database Program Absensi

Demo Program
Source Code
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]

You may also like...

29 Responses

  1. Dendy says:

    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

  2. Dendy says:

    source codenya sudah saya kirim ke email mas rohmadi yg roohmadi@gmail.com
    kirim balik ke email saya mas, trimakasih

  3. Dendy says:

    sudah saya kirim sourcodenya ke emailnya mas rohmadi yg roohmadi@yahoo.com
    mohon bantuanya mas
    thanks

    • roohmadi says:

      coba cek pemberian Name disini:
      pada coding Anda menuliskan “lvScan”
      sementara di properties ditulis dengan IvScan.
      coba cek…

      • Dendy says:

        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…?

  4. Andreas Sanjaya says:

    misi mas, pernah koneksikan VB.Net 2008 dengan RFID reader ?

  5. ibnubudir says:

    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…

  6. rara says:

    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 🙂

  7. Yisreel Umbu says:

    apa saya bisa dikirimi source codenya pak rohmadi,,???
    Ke email saya : maramba_mila@yahoo.co.id
    makasih..!!

  8. Knoppix Gnu says:

    bos…source yg absen file nya ada yg kurang saat buka absensi karyawan jd ga bisa buka error MSFLXGRD.OCX

  9. Dariel says:

    ass bang bisa minta source codenya gg ke email saya cuapgo@gmail.com
    saya sedang belajar visual basic 6. hehehe mohon bantuannya ,. 🙂

  10. rosmaiti says:

    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..

  11. zulkurnain says:

    bisa k bpk kirimin scritnya di email: zulkurnainputrabungsu@gmail.com

  12. zaid says:

    mas saya mau buat database parkir dengan rfid dan vb, bisa bntu mas?
    ahmadzaidlubis@gmail.com

  13. untuk yang berbasis wajah gmn pak

  1. October 29, 2012

    […] Source […]

  2. March 3, 2013

    […] adalah Source code untuk program yang menggunakan barcode […]

Leave a Reply

Your email address will not be published. Required fields are marked *