امتیاز موضوع:
  • 0 رأی - میانگین امتیازات: 0
  • 1
  • 2
  • 3
  • 4
  • 5
کمک قفل rfid
نویسنده پیام
2Alborz آفلاین
تازه وارد

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

تشکرها : 0
( 5 تشکر در 2 ارسال )
ارسال: #1
کمک قفل rfid
لطفا کمک کنید بتونم تعدادتک بیشتری بهش بشناسونم وتک هارو حذف کنم
کد:
$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 B As String * 10
Dim N As Byte
Dim I_eerom As Eram Byte
'****************************** '
Cls
Cursor Off
'******************************
Door_open Alias 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
'******************************************

Sub F
'Code = " "

'Do

Cls
Readeeprom B , 1

If Pinc.2 = 1 Then Gosub S

Locate 2 , 4
Lcd Code
'Wait 4
Waitms 500


Cls
If B = Code Then
Door_open = 1
Locate 1 , 1
Lcd "Welcome:"
Locate 2 , 4
Lcd "Opened"
Wait 2
Door_open = 0
Cls
End If


'Code = ""

'Loop
'End
End Sub
'*****************************
Sub S
N = 1
'Do
Cls
Locate 1 , 4
Lcd "Save user"
Locate 2 , 1
Lcd "(" ; N ; "):" ; Code
Waitms 600
If Pinc.2 = 1 Then
Writeeeprom Code , N

Cls
Code = "Successful"
End If
'******************************
'If Pinc.3 = 1 Then Goto F
'
Return
'******************************
'Loop
End Sub
۰۹-خرداد-۱۳۹۵, ۲۰:۳۰:۰۲
ارسال‌ها
پاسخ
2Alborz آفلاین
تازه وارد

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

تشکرها : 0
( 5 تشکر در 2 ارسال )
ارسال: #2
RE: کمک قفل rfid
کسی نیست کمک کنه
۱۰-خرداد-۱۳۹۵, ۲۰:۱۶:۴۲
ارسال‌ها
پاسخ


موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
Rolleyes RFID t3r!p3000 30 54,374 ۱۷-شهریور-۱۳۹۴, ۱۱:۲۲:۰۱
آخرین ارسال: electron113
  ارتباط میکرو با ماژول RLM100 UHF RFID ebramloder 0 2,598 ۰۱-تير-۱۳۹۴, ۰۱:۰۳:۳۰
آخرین ارسال: ebramloder
  Uhf long rang rfid reader hrmware 1 1,921 ۲۶-بهمن-۱۳۹۳, ۲۳:۵۸:۳۳
آخرین ارسال: hosseinarmand
  [آموزشی] راه اندازی CR038 ماژول RFID: hamid reza_64 0 2,279 ۰۱-دى-۱۳۹۲, ۱۳:۵۳:۱۱
آخرین ارسال: hamid reza_64
Smile کار با ماژول های RFID و خواندن و نوشتن روی کارت k1_elo0 5 12,260 ۲۶-دى-۱۳۹۱, ۱۳:۰۳:۴۵
آخرین ارسال: omid_phoenix
  [سوال] کارت هوشمند با RFID , Wireless abasfar 5 5,238 ۲۶-اردیبهشت-۱۳۹۱, ۲۲:۳۷:۵۹
آخرین ارسال: abasfar
  افزایش برد RFID amir2868 0 3,625 ۰۷-آبان-۱۳۹۰, ۲۰:۲۵:۴۶
آخرین ارسال: amir2868
Question سیستم خوش آمد گویی بر پایه ی RFID saeed -esr 2 3,389 ۰۳-مهر-۱۳۹۰, ۱۰:۰۶:۱۰
آخرین ارسال: v.nassiri

پرش به انجمن:


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

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