ايران ويج

نسخه‌ی کامل: پروژه RFID با ماژول EM-18
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
صفحه‌ها: 1 2 3 4
سلام دوستان
این پروژه RFID با ماژول EM-18 برای یکی از دوستان درست کردم، گفتم بذارم اینجا تا شما هم استفاده کنین
پروژه خیلی آسونه و به زبان بیسیک نوشته شده و میکرو ATmega8 در اون استفاده شده هست
سریال کارت داخل میکرو ذخیره شده هست و قابلیت ذخیره سازی دوباره نیست.

امیدوارم که به کارتون بیاد Happy
Wink Rolleyes Clap
سلام مهندس من یه کم تازه کارم و میخوام این پروژه رو درست کنم میخواستم بدونم کدوم فیوزبیت ها رو باید یک کنم در ضمن نیاز به 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 Num1 Or Num2 Or Num3 Or Num4 Or Num5 Or 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

""

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
'
----------------------------------------- 

موفق باشی ....
صفحه‌ها: 1 2 3 4