سلام دوستان
این پروژه RFID با ماژول EM-18 برای یکی از دوستان درست کردم، گفتم بذارم اینجا تا شما هم استفاده کنین
پروژه خیلی آسونه و به زبان بیسیک نوشته شده و میکرو ATmega8 در اون استفاده شده هست
سریال کارت داخل میکرو ذخیره شده هست و قابلیت ذخیره سازی دوباره نیست.
امیدوارم که به کارتون بیاد
سلام مهندس من یه کم تازه کارم و میخوام این پروژه رو درست کنم میخواستم بدونم کدوم فیوزبیت ها رو باید یک کنم در ضمن نیاز به ic max232 نیست؟ مسقیما به میکرو وصل میکنیم؟
نیازی به max نیست دقیقا مثل شکل داده شده عمل کنید
ایسی max وقتی استفاده میشه که نیاز به تبدیل استاندارد TTL به RS232 هست که اینجا هردو TTL هستن
---
درمورد فیوزبیت ها کافی هست میکرو رو روی مد 8 مگاهرتز داخلی تنظیم کنید و بقیه فیوزبیت هارو کاری نداشته باشید
ممنون از پاسختون راه اندازی شد فقط نمی دونم دیتای تگم رو چجوری باید پیدا کنم یه برنامه دیگه تو همین سایت بود که lcd داشت و دیتا رو نشون میداد ولی میبندم همه چی درست نمایش داده میشه غیر از کد تگ یه چیز چرت و پرت مینویسه یکی راهنمایی کنه لطفا عجله دارم
شماره تگ رو احتمالا روی کارتتون ننوشته؟
اینجا باید واردش کنید توی برنامه تا کار کنه
یه کد 10 رقمی بعد 3 رقم جدا از اون و بعد ممیزه و چند تا عدد که هیچ شباهتی به کد اسکی ندارن
(013.25359 0000877327) کد رو کارت اینجوریه
خسته نباشید دوستان
تنظیم فیوزبیت ها همانطور که 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
'-----------------------------------------
موفق و پیروز باشید .....
سلام
جلال جون من مدار اینو بستم ولی به کدهای جدیدی که در برنامه جایگزین کردم اصلا واکنش نشون نمیده و نمیشناسه!!
(۱۲-مرداد-۱۳۹۳, ۱۴:۰۴:۰۴)رسول نوشته است: [ -> ]سلام
جلال جون من مدار اینو بستم ولی به کدهای جدیدی که در برنامه جایگزین کردم اصلا واکنش نشون نمیده و نمیشناسه!!
سلام رسول جان
میتونی کدهایی که نوشتی بزاری ؟
کد php:
0005867865
0006134368
0005536735
0005976769
0002809097
0006924110
0007232995
رسول جان حتما مدار چک کن
اگه شماره تگ ها رو درست گفته باشی مشکلی من نمیبینم
فرکانس کاری ریدر 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
'-----------------------------------------
موفق باشی ....