• اطلاعیه ها

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
    • H@mid.RS

      راه اندازی وبلاگ برای انجمن   دوشنبه, 18 اردیبهشت 1396

      درود به همه دوستان عزیز از این پس کاربران ویژه  - همکاران - و مدیران میتوانند در انجمن برای خود وبلاگ بسازند
  • 0
H@mid.RS

کتابخانه MFRC522 برای بیسیک فور آردینو

سوال

درود


این کتابخانه برای خواندن و نوشتن بر روی  کارت های RFID می باشد


که شما در عکس زیر نمونه ای از کارت RFID رو مشاهده می کنید


post-1-0-12639900-1464867389_thumb.jpg


 


برای خواندن شناسه کارت از کد زیر :



Sub Process_Globals
Public Serial1 As Serial
Private rfid As MFRC522
Private bc As ByteConverter
End Sub

Private Sub AppStart
Serial1.Initialize(115200)
Log("AppStart")
rfid.Initialize(10, 9, "rfid_CardPresent")
rfid.LogVersion
End Sub

Sub rfid_CardPresent (UID() As Byte, CardType As Byte)
Log("UID: ", bc.HexFromBytes(UID))
End Sub

و برای خواندن و نوشتن بلوک شماره 1 از کد زیر استفاده می شود:



Sub rfid_CardPresent (UID() As Byte, CardType As Byte)
Log("UID: ", bc.HexFromBytes(UID))
Log("Type: ", CardType, ", Is it Mifare: ", rfid.IsMifare)
If rfid.IsMifare Then
If rfid.MifareAuthenticate(1) = False Then
Log("Failed to authenticate")
Return
End If
Dim buffer(18) As Byte
For i = 0 To buffer.Length - 1
buffer(i) = i
Next
'write 16 bytes to block number 1
Log("Write: ", rfid.MifareWrite(1, buffer))
If rfid.MifareRead(1, buffer) > 0 Then 'buffer size must be 18 bytes or more
Log(bc.HexFromBytes(buffer))
Else
Log("Failed to read")
End If
End If
End Sub

کتابخانه پیوست شد.


 


rMFRC522.zip

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

0 پاسخ به این سوال تا کنون داده شده است

هنوز برای این سوال پاسخی ارسال نشده است

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

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


ورود به حساب کاربری

  • مطالب مشابه

    • توسط milad4047
      سلام به همه دوستان
      ممنون میشم اگر کسی از دوستان با تجربه یه نمونه کد یا راهنمایی برای دانلود همزمان چندین فایل با استفاده از چند نخی محبت کنه
      با تشکر
    • توسط amir386
      سلام دوستان . خواستم بدونم ادمین کردن یه برنامه چه فوایدی داره و چه دسترسی هایی به برنامه اضافه میکنه... 
      و هر کس راجع به کد ها و سورس های بعد از ادمین شدن برنامه چیزی داره تو این تاپیک قرار بده . با تشکر
    • توسط amir386
      سلام دوستان من با تابع POP3 که در کتابخونه NEt هست تونستم پیام های جیمیل رو بخونم ولی مشکلیل که دارم چطور پیام مورد نظر رو پاک کنم مثلا بعد از این که خوندم بتونم با یه کیلد باتن اون رو پاک کنم(از داخل جیمیلم). سوال دومم اینه با این تابع فقط میشه متن رو خوند یا میشه فایل های پیوست شده در اون پیام جیمیل هم دانلود کرد!؟اگه هست چطوریه؟
      سوال سومم رویداد :
       
      Sub EventName_StatusCompleted (Success As Boolean, NumberOfMessages As Int, TotalSize As Int)
          
      End Sub
      داخل این تابع دقیقا چی میکنه؟؟
      با تشکر از شما دوستان