اطلاعیه

Collapse
No announcement yet.

پروژه کارت خوان RFID + حافظه EEPROM

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

    پروژه کارت خوان RFID + حافظه EEPROM

    با سلام خدمت اساتید و دوستان گرامی. در این تاپیک پروژه ای تکراری اما تغییر یافته کارت خوان RFID + حافظه را قرار داده ام. امیدوارم مورد استفاده دوستان قرار گیرد.

    دانلود کنید :
    دانلود کنید.
    (شامل فایل WORD + PDF مقاله)
    دانلود کنید :
    دانلود کنید.
    (کد برنامه بسکام فایل HEX + BAS)

    در آپارات ببینید :
    STM32 واقعا یه چیز دیگه است...

    #2
    پاسخ : پروژه کارت خوان RFID + حافظه EEPROM

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

    www.intelart.ir


    ساخت کنترلر دما PID فازي با AVR [آموزشی]

    دیدگاه


      #3
      پاسخ : پروژه کارت خوان RFID + حافظه EEPROM

      نوشته اصلی توسط Mahdi.Faani نمایش پست ها
      سلام
      ممنون از لطف شما
      تغییراتش چیه؟
      خواهش میشه. استفاده از eeprom به عنوان حافظه و اعتبار سنجی کارت ها

      Sent from my SM-J500H using Tapatalk
      STM32 واقعا یه چیز دیگه است...

      دیدگاه


        #4
        پاسخ : پروژه کارت خوان RFID + حافظه EEPROM

        سلام اقا جواد من یکی برای em19درست کردم یک جاهای به مشکل بر خورد کردم می تونید مشکلاتشو برام برطرف کنید

        $regfile = "m8def.dat"
        $crystal = 8000000
        $baud = 9600
        '-------------------------------------------------------------------------------
        Config Lcdpin = Pin , Rs = Portc.5 , E = Portc.4 , Db4 = Portb.4 , Db5 = Portb.3 , Db6 = Portb.2 , Db7 = Portb.1
        Config Lcd = 16 * 2
        '-------------------------------------------------------------------------------

        Dim E As Byte , P As Byte
        Dim C(12)as String * 1
        Dim Code As String * 10

        Dim A As String * 10
        Dim K As String * 10
        Dim B As String * 10
        'Dim C As String * 11
        Dim D As String * 10
        Dim N As Word
        Dim H As Byte
        '****************************** '
        Cls
        Cursor Off
        '******************************
        Door_open Alias Pind.2 'Portd.2
        'Config Portd.2 = Output
        Config Pinc.2 = Input
        Config Pinc.3 = Input

        '******************************
        Declare Sub F
        Declare Sub S

        Do

        Cls : Lcd "<<insert Card>>" : Wait 1


        Step1:
        Incr E
        C(e) = Waitkey()
        If E < 12 Then Goto Step1



        For E = 3 To 12
        Incr P
        Mid(code , P , 1) = C(e)
        Next


        E = 0 : P = 0
        'Cls : Lcd Code : Wait 4
        'Goto F
        Gosub F
        Return
        Loop
        '******************************************

        'F:
        Sub F
        'Code = " "

        'Do
        For N = 0 To 512 Step 65
        Cls
        '******************************
        Readeeprom B , N

        '******************************
        If Pinc.2 = 1 Then Goto S 'Gosub S
        '******************************

        If B = Code Then

        Door_open = 1
        Locate 1 , 4
        Lcd "Welcome"
        Locate 2 , 5
        Lcd "Opened"
        Wait 2
        Door_open = 0
        Code = "mk"
        End If
        Next N
        '******************************
        Locate 2 , 4
        Lcd Code
        Waitms 600

        'Loop
        'End
        End Sub
        '*****************************

        S:



        For N = 0 To 512 Step 65
        K = "0000000000"
        Writeeeprom K , N
        Waitms 10
        Next N
        N = 0
        H = 1
        Do



        Cls
        Locate 1 , 4
        Lcd "Save user"
        Locate 2 , 1
        Lcd "(" ; H ; "):" ; Code
        Waitms 600
        If Pinc.2 = 1 Then
        Writeeeprom Code , N
        Code = "Successful"
        Locate 2 , 1
        Lcd "(" ; H ; "):" ; Code
        Waitms 2000

        N = N + 65
        Incr H

        'Code = "next tag"
        Lcd "next tag"
        If H = 4 Then
        Locate 2 , 1
        Lcd "(" ; H ; "):" ; "Memory Full"
        Waitms 3000
        N = 0
        H = 1

        '******************************
        End If
        End If

        '******************************
        If Pinc.3 = 1 Then Goto Step1 '


        Loop

        دیدگاه


          #5
          پاسخ : پروژه کارت خوان RFID + حافظه EEPROM

          نوشته اصلی توسط 2alborz نمایش پست ها
          سلام اقا جواد من یکی برای em19درست کردم یک جاهای به مشکل بر خورد کردم می تونید مشکلاتشو برام برطرف کنید

          $regfile = "m8def.dat"
          $crystal = 8000000
          $baud = 9600
          '-------------------------------------------------------------------------------
          Config Lcdpin = Pin , Rs = Portc.5 , E = Portc.4 , Db4 = Portb.4 , Db5 = Portb.3 , Db6 = Portb.2 , Db7 = Portb.1
          Config Lcd = 16 * 2
          '-------------------------------------------------------------------------------

          Dim E As Byte , P As Byte
          Dim C(12)as String * 1
          Dim Code As String * 10

          Dim A As String * 10
          Dim K As String * 10
          Dim B As String * 10
          'Dim C As String * 11
          Dim D As String * 10
          Dim N As Word
          Dim H As Byte
          '****************************** '
          Cls
          Cursor Off
          '******************************
          Door_open Alias Pind.2 'Portd.2
          'Config Portd.2 = Output
          Config Pinc.2 = Input
          Config Pinc.3 = Input

          '******************************
          Declare Sub F
          Declare Sub S

          Do

          Cls : Lcd "<<insert Card>>" : Wait 1


          Step1:
          Incr E
          C(e) = Waitkey()
          If E < 12 Then Goto Step1



          For E = 3 To 12
          Incr P
          Mid(code , P , 1) = C(e)
          Next


          E = 0 : P = 0
          'Cls : Lcd Code : Wait 4
          'Goto F
          Gosub F
          Return
          Loop
          '******************************************

          'F:
          Sub F
          'Code = " "

          'Do
          For N = 0 To 512 Step 65
          Cls
          '******************************
          Readeeprom B , N

          '******************************
          If Pinc.2 = 1 Then Goto S 'Gosub S
          '******************************

          If B = Code Then

          Door_open = 1
          Locate 1 , 4
          Lcd "Welcome"
          Locate 2 , 5
          Lcd "Opened"
          Wait 2
          Door_open = 0
          Code = "mk"
          End If
          Next N
          '******************************
          Locate 2 , 4
          Lcd Code
          Waitms 600

          'Loop
          'End
          End Sub
          '*****************************

          S:



          For N = 0 To 512 Step 65
          K = "0000000000"
          Writeeeprom K , N
          Waitms 10
          Next N
          N = 0
          H = 1
          Do



          Cls
          Locate 1 , 4
          Lcd "Save user"
          Locate 2 , 1
          Lcd "(" ; H ; "):" ; Code
          Waitms 600
          If Pinc.2 = 1 Then
          Writeeeprom Code , N
          Code = "Successful"
          Locate 2 , 1
          Lcd "(" ; H ; "):" ; Code
          Waitms 2000

          N = N + 65
          Incr H

          'Code = "next tag"
          Lcd "next tag"
          If H = 4 Then
          Locate 2 , 1
          Lcd "(" ; H ; "):" ; "Memory Full"
          Waitms 3000
          N = 0
          H = 1

          '******************************
          End If
          End If

          '******************************
          If Pinc.3 = 1 Then Goto Step1 '


          Loop



          مهندس کدتون چون کامنت نداره کمی قرائت و وشکال یابی اش سخته!
          مشکل کجاست؟
          نکتا ای که میشه گفت برای کد شما.
          1. آرایه رو با تعداد 12 از نوع string * 1 بهتره تعریف نکنید.
          2. برای نگارش در eeprom از دستور eepromwrite استفاده نکنید

          Sent from my SM-J500H using Tapatalk
          STM32 واقعا یه چیز دیگه است...

          دیدگاه


            #6
            پاسخ : پروژه کارت خوان RFID + حافظه EEPROM

            راستش کد راه اندازی ماژول em18 رو از وب پیدا و استفاده کردم از دستور eepromwrite چون برنامه نویسی رو خیلی خوب بلد نیستم ودیدم راحته استفاده کردم

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

            دیدگاه


              #7
              پاسخ : پروژه کارت خوان RFID + حافظه EEPROM

              ماژول EM-18 به لحاظ پروتکل ارتباطی تفاوت خاصی با ID-3 نداره. هردو از طریق سریال اطلاعات کارت رو ارسال می کنند.
              دستور تعریف متغیر های eram راحتتر از دستور writeeeprom هستش!

              کد آموزش رو بخونید. به عنوان مثال من امکان ذخیره یک تگ رو تعریف کردم. برای تعریف تگ بیشتر باید تعداد متغیر رو بیشتر کنید. منظور متغیرهای eram هستش. کمی سرم شلوغه. اگه زمان اجازه بده حتما کد برای ذخیره 20 عدد تگ رو براتون قرار خواهم داد.
              موفق باشید.
              STM32 واقعا یه چیز دیگه است...

              دیدگاه


                #8
                پاسخ : پروژه کارت خوان RFID + حافظه EEPROM

                سلام مهدس این کد ده رقمی روی کارت ها رو بخام به کد هگز اصلی کارت تبدیل کنم فرمولش چیه؟؟؟ ماژول EM19 دارم

                دیدگاه


                  #9
                  پاسخ : پروژه کارت خوان RFID + حافظه EEPROM

                  سلام. من در این کد به صورت رقم به رقم کد رو باینری خوندم شما باید با دستور input اون رو به طور کامل بخونید یا ارقام تکی رو به صورت یک عدد integer دربیارید سپس با دستور hex اون رو به کد هگز تبدیل کنید.

                  Sent from my SM-J500H using Tapatalk
                  STM32 واقعا یه چیز دیگه است...

                  دیدگاه


                    #10
                    پاسخ : پروژه کارت خوان RFID + حافظه EEPROM

                    برای ریموتم همینجوریه؟

                    دیدگاه

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