باینری و سنسور اثز انگشت

[پشه 007]

پاسخ : باینری و سنسور اثز انگشت

سلام
با پروتل dxp .

[AFSHARAN]

پاسخ : باینری و سنسور اثز انگشت

سلام
به پروتل 99se نمیشه تبدیل کرد من dxp ندارم

[پشه 007]

پاسخ : باینری و سنسور اثز انگشت

سلام
اینم لینک تبدیل شده

http://rapidshare.com/files/18277356...fair2.rar.html

[behnam_kh2002]

پاسخ : باینری و سنسور اثز انگشت

سلام
اینم لینک تبدیل شده

http://rapidshare.com/files/18277356...fair2.rar.html

سلام دوست عزیز
فایلها رو نمیشه دانلود کرد!!!!! میشه یه جا دیگه پلودشون کنی؟؟؟
قیمت این سنسور چنده؟؟؟؟ 95 هزار تومنه؟؟؟؟

[pani_rezaii]

پاسخ : باینری و سنسور اثز انگشت

سلام خسته نباشید . میشه مدل ومشخصات این سنسوری راجع بهش صحبت می کنید بهم بگین .همینطور دیتا شیتشو.ممنون

[khast khodaiebehnam]

پاسخ : باینری و سنسور اثز انگشت

سلام پشه محترم
میشه لطف کنی همه مشخصات سنسوری رو که باهاش کار کردی بهم بدین لطفاً.

تو صفحه قبل شماتیک رو گزاشتن با مدل :mrgreen:

[r.babazadeh]

پاسخ : باینری و سنسور اثز انگشت

لینکها خرابند :sad:

[ua741]

پاسخ : باینری و سنسور اثز انگشت

لینکها مورد دارند

[tarasheh]

پاسخ : باینری و سنسور اثز انگشت

میشه در مورد اشتباه دیتا شیت بیشتر توضیح بدی؟
چرا تو تابع سرچ 0x0c 0xc0 0x0c 0xc0 فرستادی؟؟؟ :question:

[reza2012]

پاسخ : باینری و سنسور اثز انگشت

سلام
دوست عزیز
واقعا زحمت کشیدی من تازه کارم و به حمایتهای دوستانی همچون شما و به امید خدا و زحمتهای خودم امید وارم به زودی بتونم تاجایی AVR رو یاد بگیرم که مزاحم دوستان نشم .لازم می دونم که از مدیر سایت و از تمامی دوستانی که در زمینه علم به همدیگه کمک به عمل میارن تشکر کنم آرزوی توفیق از خداوند منان برای همه دوستان می کنم. :job: :applause: :applause: :applause: :applause: :applause: :applause:

[n340]

پاسخ : باینری و سنسور اثز انگشت

سلام بر همه میشه یکم منم راهنمایی کنید منم بسازم
من ورود خروج را با یوزر پس ساختم
الانم داره کار می کنه
ولی اگه اینطوری شه عالی میشه

ممنون
اگه یکم شماتیک
نحوه برقرار
از این جور چیزا بزارین
منم دارم تکمیل ترش می کنم تا بزارم تو سایت

[alirzn]

پاسخ : باینری و سنسور اثز انگشت

سلام دوست عزیز
با این سنسور تصویر اثر انگشتو می تونیم به PC انتقال بدیم ؟
لطفا دیتاشیت این سنسور را دراین تاپیک قرار دهید باتشکر

Salam man ba PC nemitoona mbehesh vasl besham, mitooni ye sample bedi? ya ye code.

[alirzn]

پاسخ : باینری و سنسور اثز انگشت

سلام
اولین نکته رو بگم اینکه توی راهنمای دستگاه یک اشتباه بزرگی وجود داره
و اون اینه که واسه جستجو تعداد بایتی رو که باید بفرستی کمتر از اونی هست که توی راهنما اومده

نکته دوم اینه که باید با مود باینری با دستگاه ارتباط برقرار کنید

اما سورس برنامه :




$regfile = "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"


این برنامه کاملا کار میکنه و id انگشت طرف رو بهتون میده
با زدن کلید که کدش معادل 1 هست میره به حالت اضافه کردن انگشت به حافظه و با کلید 2 میره به حالت جستجو
و کلید 3 هم واسه حذف اطلاعات از حافظه هست
سوالی بود در خدمتم

آقا میشه شماتیک رو بگذاری؟ اونی که گذاشتی باز نمی شه ؟

[khazaie01]

پاسخ : باینری و سنسور اثز انگشت

سلام دوستان
چه کدی باید به سنسور ارسال کنم که به حالت اسلیپ بره ؟
ممنوووووووووون

[mori64]

پاسخ : باینری و سنسور اثز انگشت

من یه کاری کردم بجای اینکه دو بار کامند فینگر دتکت و بافرa بافر b بدم همون بافر a کپی کردم تو b بعد مرج کردم :-)