اطلاعیه

Collapse
No announcement yet.

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

Collapse
X
 
  • فیلتر
  • زمان
  • Show
Clear All
new posts

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

    سلام .
    من دارم یک سنسور اثر انگشت با avr درایو میکنم . منتها الان میتونم اطلاعات رو بصورت باینری با دستور printbin به سنور بفرستم . ولی هیچ اطلاعاتی رو نمیتونم از سنسور بخونم . اطلاعات خروجی سنسور بصورت باینری هست . همین سنسور رو با pc درایو کردم . ولی تو بسکم نه . زبان برنامه نویسی من هم بسکم هست .
    این دستورات هم امتحان کردم .
    inputbin
    input
    inputhex

    سرعت پورت هم 57600 و کلاک سیستم 11059200 هرتز هست .
    لطفا راهنمایی کنید .
    نوفن پردازش هوشمند

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

    $regfile = "m64def.dat" ' specify the used micro
    $crystal = 11059200 ' used crystal frequency
    $baud = 57600
    $hwstack = 40 ' default use 32 for the hardware stack
    $swstack = 20 ' default use 10 for the SW stack
    $framesize = 40
    $lib "glcdKS108.lib"
    Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portc , Ce = 1 , Ce2 = 0 , Cd = 3 , Rd = 4 , Reset = 2 , Enable = 5
    Portd.1 = 1
    Cls
    Setfont Font8x8
    Lcdat 1 , 1 , "hello"
    Open "comg.0:57600,8,n,1" For Input As #1
    Open "comg.1:57600,8,n,1" For Output As #2
    'Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0



    Dim C(13) As Byte
    Dim S(10) As Byte
    Dim K As Integer

    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) = &H03
    C(11) = &H01
    C(12) = &H1C
    C(13) = &HC0
    Dim Phasemag(4) As Byte

    Dim I As Integer , J As Integer
    Dim Ss As String * 20
    Dim St(10)as Byte
    Do


    Printbin #2 , C(1) ; C(2) ; C(3) ; C(4);
    Printbin #2 , C(5) ; C(6) ; C(7) ; C(8);
    Printbin #2 , C(9) ; C(10) ; C(11) ; C(12)
    Printbin #2 , C(13);
    ' Waitms 10

    Dim T1 As Byte
    Dim T2 As Byte
    Dim T3 As Byte
    Dim T4 As Byte
    Dim T5 As Byte
    Dim T6 As Byte
    Dim T7 As Byte


    Inputbin #1 , T1 , T2 , T3 , T4 , T5 , T6 , T7


    'Lcdat 1 , 1 , Ss
    Lcdat 1 , 1 , T1
    Lcdat 2 , 1 , T2
    Lcdat 3 , 1 , T3
    Lcdat 4 , 1 , T4
    Lcdat 5 , 1 , T5
    Lcdat 6 , 1 , T6
    Lcdat 7 , 1 , T7
    ' Waitms 10




    Wait 2
    Cls
    Loop


    $include "font8x8.font"

    اینم کد نمونه .
    نوفن پردازش هوشمند

    دیدگاه


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

      نوشته اصلی توسط پشه 007
      $regfile = "m64def.dat" ' specify the used micro
      $crystal = 11059200 ' used crystal frequency
      $baud = 57600
      $hwstack = 40 ' default use 32 for the hardware stack
      $swstack = 20 ' default use 10 for the SW stack
      $framesize = 40
      $lib "glcdKS108.lib"
      Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portc , Ce = 1 , Ce2 = 0 , Cd = 3 , Rd = 4 , Reset = 2 , Enable = 5
      Portd.1 = 1
      Cls
      Setfont Font8x8
      Lcdat 1 , 1 , "hello"
      Open "comg.0:57600,8,n,1" For Input As #1
      Open "comg.1:57600,8,n,1" For Output As #2
      'Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0



      Dim C(13) As Byte
      Dim S(10) As Byte
      Dim K As Integer

      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) = &H03
      C(11) = &H01
      C(12) = &H1C
      C(13) = &HC0
      Dim Phasemag(4) As Byte

      Dim I As Integer , J As Integer
      Dim Ss As String * 20
      Dim St(10)as Byte
      Do


      Printbin #2 , C(1) ; C(2) ; C(3) ; C(4);
      Printbin #2 , C(5) ; C(6) ; C(7) ; C(8);
      Printbin #2 , C(9) ; C(10) ; C(11) ; C(12)
      Printbin #2 , C(13);
      ' Waitms 10

      Dim T1 As Byte
      Dim T2 As Byte
      Dim T3 As Byte
      Dim T4 As Byte
      Dim T5 As Byte
      Dim T6 As Byte
      Dim T7 As Byte


      Inputbin #1 , T1 , T2 , T3 , T4 , T5 , T6 , T7


      'Lcdat 1 , 1 , Ss
      Lcdat 1 , 1 , T1
      Lcdat 2 , 1 , T2
      Lcdat 3 , 1 , T3
      Lcdat 4 , 1 , T4
      Lcdat 5 , 1 , T5
      Lcdat 6 , 1 , T6
      Lcdat 7 , 1 , T7
      ' Waitms 10




      Wait 2
      Cls
      Loop


      $include "font8x8.font"

      اینم کد نمونه .
      فکر کنم اگر برنامتونو روی میکرو بریزید و با پرت سریال آن کار کنید جواب بگیرید . چون پرت سریال کامپیوتر با سرعتهای بالا خوب کار نمی کنه ( برای نرم افزار Bascom. :applause:

      دیدگاه


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

        سلام
        من ماژول رو خریدم .............. به اسم sm-621
        1700 نفر حافظه داره و برنامه نویسیش خیلی راحته. ولی با میکرو نتونستم ولی با pc راحت بود
        نوفن پردازش هوشمند

        دیدگاه


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

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

          دیدگاه


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

            پشه جان :mrgreen: میگم یه بار میگی وقتی با کامپیوتر ارتباط برقرار می کنی دقیقا چه پارامترهایی رو تنظیم می کنی؟
            یه چیز دیگه هم که بگی بد نیست اینه که چه موقع اطلاعات به PC ارسال میشه؟
            نکته بعدی اینکه از وقفه های سریال استفاده کن

            دیدگاه


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

              سلام
              با ین سنسور میتونید تصویر اثر انگشت رو به کامپیوتر منتقل کنید.
              ولی تمام مراحل پردازش اثر انگشت برروی خود ماژول انجام میشه .

              برای دریافت و ارسال اطلاعات فقط سرعت باید 57600 باشه و بصورت باینری ازسال بشه

              باید شما به ماژول درخواست بدید و ماژوا بر اساس درخواست شما اطلاعات رو میفرسته

              دیتا شیت رو هم پلود میکنم
              نوفن پردازش هوشمند

              دیدگاه


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

                لینک دیتا شیت
                http://rapidshare.com/files/13323095...sm621.rar.html
                نوفن پردازش هوشمند

                دیدگاه


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

                  سلام
                  این ماا¾ژول هم درایو شد . هم با پی سی و هم با avr

                  حالا دارم ماژول rfid مایفر رو درایو میکنم

                  :applause:
                  نوفن پردازش هوشمند

                  دیدگاه


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

                    مرسی پشه عزیز. یه توضیح و نمونه برنامه هم بذاری بد نیست.
                    یا اینکه حداقل نکتشو بگو.
                    مرسی

                    دیدگاه


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

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

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

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




                      $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 هم واسه حذف اطلاعات از حافظه هست
                      سوالی بود در خدمتم

                      نوفن پردازش هوشمند

                      دیدگاه


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

                        پشه جان خیلی ممنون. تو که زحمت کل برنامه رو کشیدی یه شماتیک هم بذار کنارش و اونو Compress کن تا تو قسمت پروژه های تکمیل شده AVR قرار بدیم.
                        ( با یکی از همکاران یا دستیاران علمی هماهنگ کن )
                        مرسی

                        دیدگاه


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

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

                          مرسی
                          http://services.nexodyne.com/email/i...3D/0/image.png

                          دیدگاه


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

                            سلام
                            الان شماتیک کل دستگاه رو براتون میذارم

                            امکانات دستگاه :

                            1- کارت خوان مایفر 13.5 مگا هرتز ----< ماژول
                            2- صفحه نمایش 128 * 64
                            3- نگهدارنده زمان
                            3- کارت mmc
                            4- کنترلر سنسور اثر انگشت
                            5- خروجی سریال
                            6- 8 کانال خروجی


                            http://rapidshare.com/files/181969299/mifair.rar

                            اینم لینک دانلود بدون محدودیت زمانی

                            نوفن پردازش هوشمند

                            دیدگاه


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

                              سلام
                              برنامه رو دانلود کردم اما با چی باز میشه؟

                              دیدگاه

                              لطفا صبر کنید...
                              X