امتیاز موضوع:
  • 0 رأی - میانگین امتیازات: 0
  • 1
  • 2
  • 3
  • 4
  • 5
ماژول اثر انگشت R308
#1
Sad 
سلام دوستان

بنده خیر سرم برای پروژه دانشگاه ی ماژول اثر انگشت سفارش دادم برام آوردن...

طبق دیتاشیت پین های یک و دو رو به 5 ولت و پین 5 رو به زمین کردم ی لامپ خیلیییی کم نور روشن شد اون زیر ولی ماژوله کار نمیکنه، هرچی هم بهش با uart دستور میدم اجرا نمیکنه.

لطفا کمکم کنین، یعنی ماژولش خرابه؟ ممکن هست؟ یا اینکه من اشتباه میکنم؟
فایل سورسو دیتاشیتشو هم قرار میدم


دیتاشیت اصلیش

.pdf   3-85_R308-fingerprint-module-user-manual.pdf (اندازه: 287.03 KB / تعداد دفعات دریافت: 4)

دیتاشیت کل سری 30

.pdf   R30X-Series-User-Manual.pdf (اندازه: 461.59 KB / تعداد دفعات دریافت: 4)

کد بسکام
کد:
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 57600

'=======================================================

'Config Serialout = Buffered , Size = 100
'Config Serialin = Buffered , Size = 100

Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Porta.5 , Db7 = Porta.6 , Rs = Porta.3 , E = Porta.4
Config Lcd = 16 * 2

'=======================================================

Const Pid = &H07
Led Alias Portc.4

'=======================================================

Ddrc.4 = 1
Ddrd.0 = 0
Ddrd.1 = 1

'=======================================================

Declare Sub Getimage
Declare Sub Respond
Declare Sub Strt
Declare Sub Addr
Declare Sub Lensum(byval Tlen As Word)
Declare Sub Send(byval Tlen As Word)
Declare Sub Pass
Declare Sub Ggg
Declare Sub Gg

'=======================================================

Dim Buf(40) As Byte , Inbuf(256) As Byte

Do

Set Led
Wait 3
Reset Led
Call Getimage
Call Respond
Set Led
Wait 3
Reset Led
Call Ggg
Call Respond
Set Led
Wait 3
Reset Led
Call Gg
Call Respond


Loop

'=======================================================
Sub Getimage

  Buf(pid) = &H01
  Call Strt
  Call Addr
  Buf(10) = &H01
  Call Lensum(12)
'   Print Hex(buf(1)) ; Hex(buf(2)) ; Hex(buf(3)) ; Hex(buf(4)) ; Hex(buf(5)) ; Hex(buf(6)) ; Hex(buf(7)) ; Hex(buf(8)) ; Hex(buf(9)) ; Hex(buf(10)) ; Hex(buf(11)) ; Hex(buf(12)) ; Hex(buf(13)) ; Hex(buf(14)) ; Hex(buf(15)) ; Hex(buf(16))
  Call Send(12)

End Sub

Sub Ggg

  Buf(pid) = &H01
  Call Strt
  Call Addr
  Buf(10) = &H01
  Call Lensum(12)
  Print Hex(buf(1)) ; Hex(buf(2)) ; Hex(buf(3)) ; Hex(buf(4)) ; Hex(buf(5)) ; Hex(buf(6)) ; Hex(buf(7)) ; Hex(buf(8)) ; Hex(buf(9)) ; Hex(buf(10)) ; Hex(buf(11)) ; Hex(buf(12))

End Sub

Sub Gg

  Buf(pid) = &H01
  Call Strt
  Call Addr
  Buf(10) = &H01
  Call Lensum(12)
  Print Buf(1) ; Buf(2) ; Buf(3) ; Buf(4) ; Buf(5) ; Buf(6) ; Buf(7) ; Buf(8) ; Buf(9) ; Buf(10) ; Buf(11) ; Buf(12)

End Sub

Sub Respond

  Local N As Word , I As Byte
  I = Ischarwaiting()
  If I = 1 Then
  For N = 1 To 12
     Inbuf(n) = Inkey()
  Next
  For N = 1 To 12 Step 4
     Wait 2
     Cls
     Lcd Inbuf(n) ; " , " ; Inbuf(n + 1)
     Lowerline
     Lcd Inbuf(n + 2) ; " , " ; Inbuf(n + 3)
     Wait 2
  Next
  Else
  Cls
  Lcd "not send"
  Wait 1
  End If

End Sub

Sub Strt

  Buf(1) = &HEF : Buf(2) = &H01

End Sub

Sub Addr

  Buf(3) = &HFF : Buf(4) = &HFF
  Buf(5) = &HFF : Buf(6) = &HFF

End Sub

Sub Lensum(byval Tlen As Word)

  Local Ttl1 As Word , N As Word

  Ttl1 = Tlen - 9
  Buf(8) = High(ttl1)
  Buf(9) = Low(ttl1)

'---------------------------

  Ttl1 = 0
  For N = 7 To Tlen

     Ttl1 = Ttl1 + Buf(n)

  Next
  Buf(tlen - 1) = High(ttl1)
  Buf(tlen) = Low(ttl1)

'---------------------------

End Sub

Sub Send(byval Tlen As Word)

  Local N As Word
  For N = 1 To Tlen

     Print Buf(n)

  Next

End Sub

Sub Pass

  Buf(11) = &HFF : Buf(12) = &HFF
  Buf(13) = &HFF : Buf(14) = &HFF

End Sub

یبار خواستم ی کاری مث هند شیکینگ کنم اونم نشد....

اصلن چجوریاست؟ وقتی تغذیه رو وصل میکنیم مگه نباید روشن بشه اون نور قرمز ؟ ی نور قرمز خیلییی کمرنگ فقط هست همین




لطفا کمک کنین Huh دارم دیوونه میشم


فایل‌(های) پیوست شده
.rar   finger print.rar (اندازه: 12.49 KB / تعداد دفعات دریافت: 2)
پاسخ
#2
سلام 
تا اونجا که میدونم ttl این ماژول با 3.3 ولت هست dont
نقشه اتصالاتت رو بگذار نگاهی بندازیم
اگر همان کاری را انجام دهید که همیشه انجام می دادید، همان نتیجه ای را می گیرید که همیشه می گرفتید .
افراد موفق کارهای متفاوت انجام نمی دهند، بلکه کارها را بگونه ای متفاوت انجام می دهند.
پاسخ


موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  دیتاشیت آی سی مورد استفاده در ماژول pir بی سیم mohsen274 1 1,208 30-4-1392، 06:15 صبح
آخرین ارسال: mr.micro

پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع: 1 مهمان