Oct29
Source: Program Absensi Karyawan Dengan Visual Basic 6.0 dan Barcode
on October 29, 2012 at 10:18 AMPosted In: VB 6.0
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 (59) ¬
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
https://buytadalafil.men/# best tadalafil tablets in india
tamoxifen side effects forum is nolvadex legal
furosemida lasix pills
stromectol cost canada ivermectin tablets for humans
losartan tablet – buy generic nexium 20mg buy promethazine 25mg sale
carprofen without vet prescription buy prescription drugs without doctor
https://gabapentin.icu/# order neurontin online
diflucan rx price buy diflucan canada
cipro online no prescription in the usa ciprofloxacin over the counter
purchase cipro buy ciprofloxacin over the counter
buy cipro online buy cipro online
https://cipro.best/# ciprofloxacin generic
buy canadian drugs legal to buy prescription drugs without prescription
https://cipro.best/# ciprofloxacin 500 mg tablet price
п»їcipro generic where can i buy cipro online
instanslot
online slots
real slots online
I’m really impressed with your writing skills as well as with the layout on your blog. Is this a paid theme or did you modify it yourself? Anyway keep up the excellent quality writing, it is rare to see a nice blog like this one nowadays..
https://erectionpills.best/# ed pills online
furosemide generic name order lasix with no prescription lasix for horses for sale if i take furosemide 40 mg, how much potassium do i need?
neurontin india neurontin 300 mg capsule
https://withoutprescription.store/# dog antibiotics without vet prescription
diflucan rx online diflucan over the counter pill
the best ed pill treatment of ed
https://withoutprescription.store/# buy prescription drugs online legally
whoah this blog is wonderful i really like reading your articles. Keep up the great paintings! You realize, a lot of people are hunting round for this info, you could help them greatly.
buy cipro online antibiotics cipro
ivermectin tablets ivermectin
diflucan tablet india diflucan online
https://withoutprescription.store/# dog antibiotics without vet prescription
how to get prescription drugs without doctor buy prescription drugs
brand levofloxacin 250mg – brand cialis 5mg tadalafil 5mg price
diflucan 1140 diflucan 150 mg tablet price in india
https://cipro.best/# cipro
how can i order prescription drugs without a doctor canadian online drugs
prescription price for neurontin neurontin cost generic
https://withoutprescription.store/# canadian drug
herbal ed treatment men’s ed pills
Thank you for sharing excellent informations. Your website is very cool. I am impressed by the details that you?¦ve on this blog. It reveals how nicely you perceive this subject. Bookmarked this web page, will come back for extra articles. You, my friend, ROCK! I found simply the info I already searched everywhere and just couldn’t come across. What a perfect web-site.
prescription drugs online without doctor canadian online pharmacy
female cialis cvs – buy flomax 0.4mg online cheap flomax oral
viagra livraison rapide viagra pas cher livraison rapide prix du viagra gГ©nГ©rique en pharmacie viagra ou cialis lequel choisir
neurontin price australia neurontin 500 mg tablet
https://gabapentin.icu/# neurontin 3
prescription drugs non prescription erection pills
diflucan 150 mg prescription diflucan otc australia
https://diflucan.icu/# diflucan pill for sale
natural ed remedies best ed treatment pills
black viagra pills cenforce 200 cena sildenafil cenforce 150 buy cenforce 200 with credit card
neurontin buy gabapentin