November 8, 2013 at 4:19 am #2710
Hellow everyone, can you teach me, even a simple idea how to communicate them, I have a bit knowledge in Uart communication, but i just want to know the command to be used in interfacing pic16f877a and the finger print scanner…November 8, 2013 at 4:54 am #10583AJISH ALFREDParticipant
I guess there is no standard set of commands which can be used with all finger print modules. You have to go through the datasheet of the finger print module which you have to find out the commands through which it can be accessed.November 8, 2013 at 5:14 am #10585
there is a sample visual basic 6 code and its working, but i want to make it stand alone by using MCU pic16f877a..i tried to analyze the program and i coded into mikro c but not working….
here is the code in vb6.
Option ExplicitDim SData(24) As ByteDim SReply(48) As ByteDim Replied As BooleanDim Rx As StringDim CKS As Integer‘
Private Sub cmdReg_Click()Dim i As IntegerDim dummy As StringDim V1, V2 As IntegerDim Good As BooleanGood = TrueV1 = Int(Val(txtUserNo.Text) / 256)V2 = Val(txtUserNo.Text) – V1 * 256For i = 1 To 22SData(i) = 0Next iSData(0) = &H55SData(1) = &HAASData(2) = &H3SData(3) = &H1SData(4) = &H2SData(5) = &H0SData(6) = V2SData(7) = V1Call Checksumdummy = MSComm1.InputFor i = 0 To 23MSComm1.Output = Chr(SData(i))Next iback:Replied = FalseWhile Replied = FalseDoEventsWendIf SReply(6) = 0 ThenIf Asc(Mid$(Right$(Rx, 24), 9, 1)) = &HF1 And Asc(Mid$(Right$(Rx, 24), 10, 1)) = &HFF ThentxtResults.Text = “Press a finger to register first time.”End IfIf Asc(Mid$(Right$(Rx, 24), 9, 1)) = &HF2 And Asc(Mid$(Right$(Rx, 24), 10, 1)) = &HFF ThentxtResults.Text = “Press the same finger the second time…”End IfIf Asc(Mid$(Right$(Rx, 24), 9, 1)) = &HF3 And Asc(Mid$(Right$(Rx, 24), 10, 1)) = &HFF ThentxtResults.Text = “Press the same finger the last time…”End IfIf Asc(Mid$(Right$(Rx, 24), 9, 1)) = &HF4 And Asc(Mid$(Right$(Rx, 24), 10, 1)) = &HFF ThentxtResults.Text = “Lift finger…”End IfIf Asc(Mid$(Right$(Rx, 24), 5, 1)) = &H6 ThentxtResults.Text = “Ok”Exit SubEnd IfGoTo backElsePrint_ErrorIf SReply( = &H21 Then GoTo backEnd IfEnd Sub‘
Public Sub Checksum()Dim i As IntegerCKS = 0For i = 0 To 21CKS = CKS + SData(i)‘ MsgBox (CKS)Next iSData(22) = CKS And &HFFSData(23) = (CKS – (CKS And &HFF)) / 256MsgBox (SData(23))End SubMarch 19, 2014 at 9:31 am #11329wer alabatonParticipant
Sir,how did you make the visual basic codes work?
Because we have tried but we were not able to make it work
Thank you.March 24, 2014 at 8:56 am #11361
What is the model of your fingerprint??
by the way I have also a code for vb.net and PIC Microcontroller for that..November 7, 2014 at 10:11 pm #12345polParticipant
sir erwin do you have a sample code using vb.net? thank youAugust 25, 2015 at 7:33 am #13215Karl louieParticipant
ser.. sna mabasa pmo pa to.. pde p makita ung vb.net codes nio slamatAugust 25, 2015 at 7:34 am #13216Karl louieParticipant
can i have a copy of vb.net equivalent of this code? tnxAugust 27, 2015 at 1:18 pm #13224
what fringerprint model do you use?January 26, 2016 at 3:22 am #13658PeejayParticipant
Sir ask ko lang po kung pano po paganahin yan sa arduino.;”> ADST11SD300&310 eto po gamit ko. ano pong gamit niyong codes sa vb6? at pati nadin po sa arduino. thanks po sa reply!
- You must be logged in to reply to this topic.