کسی با سنسور های اثر انگشت کار کرده؟

[FAM]

سلام
خوبید خوشید سلامتید؟
من توی چندتا تاپیک دیدم حرف سنسور اثر انگشت شد چند نفرم جواب گرفتن حالا
میخواستم ببینم اگه کسی با این سنسوای 95 تومنی جهان کیت کار کرده و جواب گرفته
چندتا موضوع رو به من بگه:
1- این سنسور اندازش چقدره؟
2- درایوش چجوریه؟ (با بیسکام)
3- کسی میتونه یه عکس ازش بزاره
4- سلامتیه همگی

[khast khodaiebehnam]

پاسخ : کسی با سنسور های اثر انگشت کار کرده؟

سلام امیر حسام جان
اقای پشه 007 با این سنسورها کار کرده بود و جواب گرفته بود سورس بسکام هم رو گزاشته بود
1.با بردش حدود 7*10
2.سرچ کنی تو سایت هست ندیدی بگو تا بزارم

egfile = "m128def.dat"                  ' specify the used micro
$crystal = 8000000                     ' used crystal frequency
$baud = 9600
$hwstack = 40                        ' default use 32 for the hardware stack
$swstack = 20                        ' default use 10 for the SW stack
$framesize = 40
$lib "glcdKS108.lib"
'$eeprom
Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portc , Ce = 1 , Ce2 = 0 , Cd = 3 , Rd = 4 , Reset = 2 , Enable = 5
 Portd.1 = 1
 Config Kbd = Portf
 Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
 'Config Printbin = Extended
 'Config Porte.3 = Output
 Cls
Setfont Font8x8
Lcdat 1 , 5 , "Welcome "
Lcdat 3 , 5 , "Finger Print"
Print "Finger Print"
Wait 2

Open "come.4:9600,8,n,1" For Input As #3
Open "come.5:9600,8,n,1" For Output As #4
Declare Sub Led2()
Declare Sub Led()
Declare Sub Getimage()
Declare Sub Buffera()
Declare Sub Bufferb()
Declare Sub Merg()
Declare Sub Stor()
Declare Sub Search()
Declare Sub Error()
Declare Sub Finger()
Declare Sub Find()
Declare Sub Eras()
Declare Sub Detect()
Declare Sub Rfid()
Dim Tt As String * 16
Dim C(18) As Byte
Dim B As Integer
Dim S As Integer
B = 0
Dim T1(50) As Byte
Dim K As Integer
Dim Kb As Byte
Dim Phasemag(4) As Byte
Dim I As Integer , J As Integer
Dim Ss As String * 20
Dim St(10)as Byte
Cls
Dim X As Byte
X = &H00
Dim F As Byte
F = &H1
Dim Ttt As String * 10
Dim N As Byte
N = &H0
Do
Main:

 Kb = Getkbd()
 Lcdat 3 , 1 , Kb
 'Print Kb

 Cls
 'If Kb = 8 Then Eras
 'Lcdat 3 , 1 , "prees Key"
 If Kb = 1 Then

 Cls
 Lcdat 1 , 1 , "Finger mode"

Finger
 End If
 If Kb = 2 Then

 Cls
 Lcdat 1 , 1 , "Search mode"

Find
 End If
 If Kb = 3 Then

 Cls
 Lcdat 1 , 1 , "Delet mode"

Eras
 End If
' If Kb = 0 Then Call Find
Led
Led2
Loop

Sub Find()
 S = 1
 Detect
 Getimage
 Buffera
 Led2
 Search

End Sub

Sub Finger()
 Detect
 Getimage
 Buffera
 Led
 Detect
 Getimage
 Bufferb
 Led2
 Merg
 Stor
End Sub
Sub Detect()
'Showpic 0 , 0 , Sensor
Lcdat 1 , 1 , "Please Touch"
C(1) = &HC0
C(2) = &H01
C(3) = &H00
C(4) = &H00
C(5) = &H00
C(6) = &H00
C(7) = &H00
C(8) = &H01
C(9) = &H01
C(10) = &H00
C(11) = &H03
C(12) = &HC0
Open "comg.0:57600,8,n,1" For Input As #1
Open "comg.1:57600,8,n,1" For Output As #2
Printbin #2 , C(1) , 12

Inputbin #1 , T1(1) , 12
Close #1
Close #2
       Lcdat 4 , 1 , T1(1)
       Lcdat 8 , 1 , T1(12)
    Wait 1
    If T1(9) = 0 Then
    Cls
    Lcdat 3 , 1 , "Finger Detected"
   Lcdat 5 , 1 , "Dont Remove Finger"
    Wait 1
    Return
    Else
    Detect
    End If
Wait 1

End Sub

Sub Led()

C(1) = &HC0
C(2) = &H01
C(3) = &H00
C(4) = &H00
C(5) = &H00
C(6) = &H00
C(7) = &H00
C(8) = &H03
C(9) = &H16
C(10) = &H11
C(11) = &H01
C(12) = &H00
C(13) = &H2C
C(14) = &HC0
Open "comg.0:57600,8,n,1" For Input As #1
Open "comg.1:57600,8,n,1" For Output As #2
Printbin #2 , C(1) , 14

'Printbin C(5) , C(6) , C(7) , C(8)
'Printbin C(9) , C(10) , C(11) , C(12)
'Printbin C(13) , C(14)
'Inputbin #1 , T1(1) , 12
Close #1
Close #2
End Sub

Sub Led2()
C(1) = &HC0
C(2) = &H01
C(3) = &H00
C(4) = &H00
C(5) = &H00
C(6) = &H00
C(7) = &H00
C(8) = &H03
C(9) = &H16
C(10) = &H12
C(11) = &H01
C(12) = &H00
C(13) = &H2D
C(14) = &HC0
Open "comg.0:57600,8,n,1" For Input As #1
Open "comg.1:57600,8,n,1" For Output As #2
Printbin #2 , C(1) ; 14
Close #1
Close #2
'Printbin C(5) , C(6) , C(7) , C(8)
'Printbin C(9) , C(10) , C(11) , C(12)
'Printbin C(13) , C(14)

End Sub


Sub Buffera()
C(1) = &HC0
C(2) = &H01
C(3) = &H00
C(4) = &H00
C(5) = &H00
C(6) = &H00
C(7) = &H00
C(8) = &H02
C(9) = &H03
C(10) = &H00
C(11) = &H00
C(12) = &H06
C(13) = &HC0
Open "comg.0:57600,8,n,1" For Input As #1
Open "comg.1:57600,8,n,1" For Output As #2
Printbin #2 , C(1) ; 13

'Printbin C(1) ; 13
'Printbin #2 , C(1) ; 13
'Printbin C(9) , C(10) , C(11) , C(12)
'Printbin C(13)
Inputbin #1 , T1(1) , 12
'Printbin T1(1) , 12
Close #1
Close #2
Cls
    ' Lcdat 1 , 1 , "Buffering ..."
     ' Lcdat 4 , 1 , T1(1)
     '  Lcdat 8 , 1 , T1(12)
      '  Lcdat 5 , 1 , T1(9)

     If T1(9) = 0 Then
     'Lcdat 3 , 1 , "Buffering OK"
     B = 1

     Cls
     Return
     Else
     'Lcdat 2 , 1 , "Buffering Fail"
     End If

End Sub

Sub Bufferb()

C(1) = &HC0
C(2) = &H01
C(3) = &H00
C(4) = &H00
C(5) = &H00
C(6) = &H00
C(7) = &H00
C(8) = &H02
C(9) = &H03
C(10) = &H01
C(11) = &H00
C(12) = &H07
C(13) = &HC0
 Open "comg.0:57600,8,n,1" For Input As #1
Open "comg.1:57600,8,n,1" For Output As #2

'Printbin #2 , C(1) ; 13
'Printbin C(1) ; 13
Printbin #2 , C(1) ; 13

Inputbin #1 , T1(1) , 12
'Printbin T1(1) , 12
Close #1
Close #2                          ', 12
     Cls
     'Lcdat 4 , 1 , T1(1)
      '  Lcdat 8 , 1 , T1(12)
      ' Lcdat 5 , 1 , T1(9)

     'Lcdat 1 , 1 , "Buffering ..."
     If T1(9) = 0 Then
     'Lcdat 3 , 1 , "Buffering B OK"
     B = 0

     Else
     'Lcdat 2 , 1 , "fail"
     End If

End Sub


Sub Merg()
C(1) = &HC0
C(2) = &H01
C(3) = &H00
C(4) = &H00
C(5) = &H00
C(6) = &H00
C(7) = &H00
C(8) = &H01
C(9) = &H06
C(10) = &H00
C(11) = &H08
C(12) = &HC0
Open "comg.0:57600,8,n,1" For Input As #1
Open "comg.1:57600,8,n,1" For Output As #2
Printbin #2 , C(1) ; 12

'Printbin C(1) ; 12
'Printbin #2 , C(1) ; 12
Inputbin #1 , T1(1) , 12
'Printbin T1(1) , 12
Close #1
Close #2
Cls
'Lcdat 4 , 1 , T1(1)

 '       Lcdat 8 , 1 , T1(12)
 '      Lcdat 5 , 1 , T1(9)
  '          Lcdat 1 , 1 , "Merging ..."
  '   Lcdat 7 , 1 , T1(9)
     If T1(9) = 0 Then
   '  Lcdat 2 , 1 , "Merge is OK"
     B = 1

          Else
   '   Lcdat 2 , 1 , "Merge fail"

     B = 0
     Call Error
     End If

End Sub





Sub Getimage()

 Cls
Lcdat 1 , 1 , "SCANING Finger..."

C(1) = &HC0
C(2) = &H01
C(3) = &H00
C(4) = &H00
C(5) = &H00
C(6) = &H00
C(7) = &H00
C(8) = &H01
C(9) = &H02
C(10) = &H00
C(11) = &H04
C(12) = &HC0
Open "comg.0:57600,8,n,1" For Input As #1
Open "comg.1:57600,8,n,1" For Output As #2
Printbin #2 , C(1) ; 12

Inputbin #1 , T1(1) , 17
Close #1
Close #2
'Lcdat 4 , 1 , T1(1)
 '       Lcdat 8 , 1 , T1(17)
 '      Lcdat 5 , 1 , T1(9)

  If T1(9) = 0 Then
 ' Lcdat 2 , 1 , "SCAN Success"

  Return
  End If
  If T1(9) = 1 Then Lcdat 2 , 1 , "Packet ERROR"
  If T1(9) = 3 Then Lcdat 2 , 1 , "SCANING Fail"

Cls

End Sub


Sub Stor()


N = N + 1
Dim N2 As Byte
'Lcdat 3 , 1 , "Enter Number"

'Kb = Getkbd()
'If Kb = 16 Then Goto Stor


'Ll:
'Kb = Getkbd()
'If Kb = 16 Then Goto Ll
'If Kb = 10 Then N = &H1
'If Kb = 14 Then N = &H2
'If Kb = 1 Then N = &H3
'If Kb = 5 Then N = &H4
'If Kb = 3 Then N = &H5
'If Kb = 7 Then N = &H6
'If Kb = 11 Then N = &H7
'If Kb = 15 Then N = &H8
'If Kb = 2 Then N = &H9
'If Kb = 6 Then N = &HA
Lcdat 6 , 1 , N
' Dim N1 As Byte

 'N1 = Hex(n)




 Wait 1
C(1) = &HC0
C(2) = &H01
C(3) = &H00
C(4) = &H00
C(5) = &H00
C(6) = &H00
C(7) = &H00
C(8) = &H04
C(9) = &H07
C(10) = &H00
C(11) = &H00
C(12) = N
C(13) = &H00

C(14) = C(2) + C(3)
C(14) = C(14) + C(4)
C(14) = C(14) + C(5)
C(14) = C(14) + C(6)
C(14) = C(14) + C(7)
C(14) = C(14) + C(8)
C(14) = C(14) + C(9)
C(14) = C(14) + C(10)
C(14) = C(14) + C(11)
C(14) = C(14) + C(12)
C(14) = C(14) + C(13)
C(15) = &HC0
Cls
'Lcdat 1 , 1 , C(14)
Wait 1
Open "comg.0:57600,8,n,1" For Input As #1
Open "comg.1:57600,8,n,1" For Output As #2
Printbin #2 , C(1) ; 15
'Printbin C(1) ; 15

Inputbin #1 , T1(1) , 12
'Printbin T1(1) ; 12
Close #1
Close #2
Cls
'Lcdat 4 , 1 , T1(1)
 '       Lcdat 8 , 1 , T1(12)
 '      Lcdat 5 , 1 , T1(9)
Wait 1
If T1(9) = 0 Then
Cls
'Lcdat 3 , 1 , "Stor Success"

Wait 2
Cls
B = 0
Goto Main
End If
If T1(9) = 1 Then
Cls
'Lcdat 2 , 1 , "Stor ERROR"
Wait 1
End If

End Sub


Sub Search()

 S = 1
Lcdat 1 , 1 , "searching"
Wait 1
B = 0
C(1) = &HC0
C(2) = &H01
C(3) = &H00
C(4) = &H00
C(5) = &H00
C(6) = &H00
C(7) = &H00
C(8) = &H06
C(9) = &H05
C(10) = &H00
C(11) = &H00
C(12) = &H00
C(13) = &H00
C(14) = &H0C
C(15) = &HC0
C(16) = &H0C
C(17) = &HC0
'Printbin C(1) , C(2) , C(3) , C(4)
'Printbin C(5) , C(6) , C(7) , C(8)
'Printbin C(9) , C(10) , C(11)
'Printbin C(12) , C(13) , C(14)
'Printbin C(15) , C(16) , C(17)
Open "comg.0:57600,8,n,1" For Input As #1
Open "comg.1:57600,8,n,1" For Output As #2
Printbin #2 , C(1) ; 15
 'Printbin C(1) ; 17

Inputbin #1 , T1(1) , 18
'Printbin T1(1) ; 45
Close #1
Close #2
 'If T1(9) = 0 Then inputbin #1, , T1(10) , 35
' Lcdat 3 , 1 , T1(1)
 'Lcdat 4 , 1 , T1(9)
 'Lcdat 5 , 1 , T1(11)
 'Lcdat 6 , 1 , T1(12)
 'Lcdat 8 , 1 , T1(17)




If T1(9) = 0 Then

Cls
'Lcdat 5 , 1 , T1(11)
Lcdat 6 , 1 , T1(12)
Lcdat 7 , 1 , T1(13)
Lcdat 3 , 1 , "finger found"
'Lcdat 4 , 1 , T1(1)
Wait 3
Cls
B = 0
Goto Main
Else
'Lcdat 3 , 1 , "Finger Not Found"
Wait 3
Cls
Goto Main
End If

End Sub
 Sub Error()
 Cls
' Lcdat 2 , 1 , "Error In Device"

' Lcdat 4 , 1 , "Please Retry"
 Wait 3

 Cls
 Goto Main

 End Sub

 Sub Eras()

 Cls
Lcdat 1 , 1 , "Erasing Database."
Wait 1
C(1) = &HC0
C(2) = &H01
C(3) = &H00
C(4) = &H00
C(5) = &H00
C(6) = &H00
C(7) = &H00
C(8) = &H01
C(9) = &H0E
C(10) = &H00
C(11) = &H10
C(12) = &HC0
Open "comg.0:57600,8,n,1" For Input As #1
Open "comg.1:57600,8,n,1" For Output As #2
Printbin #2 , C(1) ; 12
                  ' , C(2) , C(3) , C(4)
'Printbin C(5) , C(6) , C(7) , C(8)
'Printbin C(9) , C(10) , C(11) , C(12)

Inputbin #1 , T1(1) , 12
Close #1
Close #2
  If T1(9) = 0 Then
  Lcdat 2 , 1 , "erase Success"
  Wait 1
  Cls
  Return
  End If
  If T1(9) = 1 Then Lcdat 2 , 1 , "Packet ERROR"
  If T1(9) = 3 Then Lcdat 2 , 1 , "SCANING Fail"
Wait 2
Cls

End Sub
Sub Rfid()
Dim Rf As String * 10
Porte.3 = 1
'Input #3 , Rf
'Cls
'Lcdat 2 , 1 , Rf
'C(1) = &H02
'C(2) = &H00
'C(3) = &H01
'C(4) = &H05
'C(5) = &H00
'C(6) = &H04
'C(7) = &H03
'Printbin #4 , C(1) , C(2) , C(3) , C(4)
' Printbin #4 , C(5) , C(6) , C(7)

'Inputbin #3 , T1(1)
'Lcdat 1 , 1 , T1(1)
'Print #4 , "re05"
'Input #3 , Rf
'Lcdat 3 , 1 , Rf
'Wait 2
End Sub
$include "font8x8.font"

'Sensor:
'$bgf "1.bgf"