پروژه RFID با ماژول EM-18

[robojalal]

سلام دوستان
این پروژه RFID با ماژول EM-18 برای یکی از دوستان درست کردم، گفتم بذارم اینجا تا شما هم استفاده کنین
پروژه خیلی آسونه و به زبان بیسیک نوشته شده و میکرو ATmega8 در اون استفاده شده هست
سریال کارت داخل میکرو ذخیره شده هست و قابلیت ذخیره سازی دوباره نیست.

امیدوارم که به کارتون بیاد

[antipak]

سلام مهندس من یه کم تازه کارم و میخوام این پروژه رو درست کنم میخواستم بدونم کدوم فیوزبیت ها رو باید یک کنم در ضمن نیاز به ic max232 نیست؟ مسقیما به میکرو وصل میکنیم؟

[behzady]

نیازی به max نیست دقیقا مثل شکل داده شده عمل کنید
ایسی max وقتی استفاده میشه که نیاز به تبدیل استاندارد TTL به RS232 هست که اینجا هردو TTL هستن
---
درمورد فیوزبیت ها کافی هست میکرو رو روی مد 8 مگاهرتز داخلی تنظیم کنید و بقیه فیوزبیت هارو کاری نداشته باشید

[antipak]

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

[behzady]

شماره تگ رو احتمالا روی کارتتون ننوشته؟
اینجا باید واردش کنید توی برنامه تا کار کنه

[antipak]

یه کد 10 رقمی بعد 3 رقم جدا از اون و بعد ممیزه و چند تا عدد که هیچ شباهتی به کد اسکی ندارن
(013.25359 0000877327) کد رو کارت اینجوریه

[robojalal]

خسته نباشید دوستان
تنظیم فیوزبیت ها همانطور که behzady جان گفتن درسته
منم یه عکس از فیوز بیت ها میذارم

در مورد سریال تگ و کارکرد دستگاه شما باید سریال تگ های مورد نظر را در NUM1 و NUM2 قرار بدین تا کار کنه

کد php:

Dim Num2 As String * 10
Dim Count As Byte
Dim J As String * 20
'--------------------------
Declare Sub Em18
'--------------------------
Num1 = "0083F2BCCE"
Num2 = "0082F1A5D5"
'--------------------------
Led_red = 0
Led_green = 1
Buzer = 1 


و نحوه خوندن تگ، نیاز به LCD دارین
که سریال خونده شده در LCD نشون بده و در قسمت NUM1 و NUM2 وارد کنید.
در زیر هم نحوه قرار گیری دستور LCD رو گذاشتم

کد php:

'-------------------------------------
Sub Em18
Main:
Incr A

C(a) = Waitkey()
If A < 12 Then Goto Main

For A = 3 To 12
Incr B
Mid(d , B , 1) = C(a)
Next

A = 0
B = 0

Cls
Home
Lcd D

Buzer = 1
Waitms 300
Buzer = 0
Waitms 300

End Sub
'----------------------------------------- 


موفق و پیروز باشید .....

[رسول]

سلام

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

[robojalal]

سلام

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

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

[رسول]

کد php:

0005867865

0006134368

0005536735

0005976769

0002809097

0006924110

0007232995 


[robojalal]

رسول جان حتما مدار چک کن
اگه شماره تگ ها رو درست گفته باشی مشکلی من نمیبینم
فرکانس کاری ریدر 125khz هست ، توجه کن که تگ هات هم توی همین فرکانس باشن

نمونه کد برات گذاشتم، معلوم هست که چند خط برنامه اضافه کردم.

کد php:

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Enable Interrupts
'--------------------------
Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.3 = Output
'-------------------------
Relay Alias Portb.0
Buzer Alias Portb.1
Led_green Alias Portb.2
Led_red Alias Portb.3
'---------------------------
Dim A As Byte
Dim B As Byte
Dim C(12) As String * 1
Dim D As String * 10
Dim Num1 As String * 10
Dim Num2 As String * 10
Dim Num3 As String * 10
Dim Num4 As String * 10
Dim Num5 As String * 10
Dim Num6 As String * 10
Dim Count As Byte
Dim J As String * 20
'--------------------------
Declare Sub Em18
'--------------------------
Num1 = "0005867865"
Num2 = "0006134368"
Num3 = "0005536735"
Num4 = "0005976769"
Num5 = "0002809097"
Num6 = "0006924110"
'--------------------------
Led_red = 0
Led_green = 1
Buzer = 1
Waitms 200
Led_red = 1
Led_green = 1
Buzer = 0


Do
Call Em18

If D = Num1 Or D = Num2 Or D = Num3 Or D = Num4 Or D = Num5 Or D = Num6 Then
Led_red = 1
Led_green = 0
Relay = 1
Waitms 500
Led_red = 1
Led_green = 1
Relay = 0
Else
For Count = 1 To 6
Toggle Led_red
Toggle Buzer
Waitms 300
Next
Led_red = 1
Buzer = 0
End If

D = ""

Loop

End
'-------------------------------------
Sub Em18
Main:
Incr A

C(a) = Waitkey()
If A < 12 Then Goto Main

For A = 3 To 12
Incr B
Mid(d , B , 1) = C(a)
Next

A = 0
B = 0

Buzer = 1
Waitms 300
Buzer = 0
Waitms 300

End Sub
'----------------------------------------- 


موفق باشی ....