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

[Javad Moosavi]

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

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

در آپارات ببینید :

[Mahdi.Faani]

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

سلام
ممنون از لطف شما
تغییراتش چیه؟

[Javad Moosavi]

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

سلام
ممنون از لطف شما
تغییراتش چیه؟

خواهش میشه. استفاده از eeprom به عنوان حافظه و اعتبار سنجی کارت ها

Sent from my SM-J500H using Tapatalk

[2alborz]

پاسخ : پروژه کارت خوان 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

[Javad Moosavi]

پاسخ : پروژه کارت خوان 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

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

Sent from my SM-J500H using Tapatalk

[2alborz]

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

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

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

[Javad Moosavi]

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

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

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

[mahdigh7048]

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

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

[Javad Moosavi]

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

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

Sent from my SM-J500H using Tapatalk

[mobin1928]

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

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