????? ???


امتیاز موضوع:
  • 2 رأی - میانگین امتیازات: 3.5
  • 1
  • 2
  • 3
  • 4
  • 5
پروژه RFID با ماژول EM-18
نویسنده پیام
2Alborz آفلاین
تازه وارد

ارسال‌ها: 10
موضوع‌ها: 1
تاریخ عضویت: اردیبهشت ۱۳۸۷

تشکرها : 0
( 5 تشکر در 2 ارسال )
ارسال: #34
RE: پروژه RFID با ماژول EM-18
کسی نیست کمک کنه
۲۷-اردیبهشت-۱۳۹۵, ۱۸:۴۰:۴۳
ارسال‌ها
پاسخ
2Alborz آفلاین
تازه وارد

ارسال‌ها: 10
موضوع‌ها: 1
تاریخ عضویت: اردیبهشت ۱۳۸۷

تشکرها : 0
( 5 تشکر در 2 ارسال )
ارسال: #35
RE: پروژه RFID با ماژول EM-18
لطفا یک نگاه به این بندازید ببینید مشکل کجاست
$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 Portd.2
'Config Portd.2 = Output
Config Pinc.2 = Input
Config Pinc.3 = Input

'******************************

Do
   Cls : Lcd "<>" : 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
Return
Loop
'******************************************


F:
'Code = " "

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

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

If B = Code Then
Door_open = 1
Code = "Opened"
Locate 1 , 11
Lcd "w"
Locate 2 , 4
Lcd Code
Wait 2
Door_open = 0
Code = "tak Cards"
End If
Next N
   '******************************
Locate 2 , 4
Lcd Code
Waitms 600

Loop
End

'*****************************

 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"

If H = 5 Then
Locate 2 , 1
Lcd "(" ; H ; "):" ; "Memory Full"
Waitms 3000
N = 0
H = 1

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

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


Loop
۳۰-اردیبهشت-۱۳۹۵, ۲۰:۱۴:۴۶
ارسال‌ها
پاسخ


موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  [پروژه] [پروژه] IMU شش درجه آزادی با MPU6050 salehjg 1 2,678 ۰۵-مرداد-۱۳۹۵, ۱۹:۱۵:۱۳
آخرین ارسال: salehjg
Question تشخیص پلاک خودرو با پردازش تصویر (پروژه کامل) طار 60 58,773 ۲۱-فروردین-۱۳۹۵, ۱۵:۵۳:۰۶
آخرین ارسال: marvi
  پروژه های عملی h0x00i 9 18,007 ۲۸-بهمن-۱۳۹۴, ۱۲:۲۴:۵۳
آخرین ارسال: sroushimanian
  پروژه ارتباط سریال AVR با hyper terminal و matlab و Labview 2nafar 13 27,999 ۰۵-دى-۱۳۹۳, ۲۰:۱۵:۱۹
آخرین ارسال: biner
  آموزش راه اندازی و استفاده از ماژول em_18 mostafa_naderi 13 11,864 ۳۰-تير-۱۳۹۳, ۰۲:۱۲:۳۰
آخرین ارسال: amkamkamk
  راه اندازی ماژول فرستنده گیرنده بیسیم ha_60 9 20,714 ۲۸-تير-۱۳۹۳, ۱۳:۱۸:۵۸
آخرین ارسال: ziafat
  پروژه شارژر همراه با پورت usb r0b0 4 7,845 ۲۴-فروردین-۱۳۹۲, ۲۲:۱۵:۴۱
آخرین ارسال: r0b0

پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع: 1 مهمان

صفحه‌ی تماس | IranVig | بازگشت به بالا | | بایگانی | پیوند سایتی RSS