• 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 پاسخ به این سوال تا کنون داده شده است

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

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

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

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

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


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

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

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


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

  • مطالب مشابه

    • توسط H@mid.RS
      IRHashGirl
      مشاهده فایل
      درود به دوستان


      کتابخانه وارپ شده از این پروژه گیت هاب


      شات :




       

      و همون طور که در تصویر می بینید کارش زیر خط دار و خط زدن و هر رنگی که دوست دارید اون کلمه رو تغییر بدید

       

      IRHashGirl

      Author: Mojtaba Hossin Zadeh (Www.Basic4X.IR)
      Version: 1
      IRHashGirl
      Events:
      onClickHash

      Methods:
      Capture Initialize (eventName AsString, text AsString) IsInitialized AsBoolean alpha (alpha AsInt)AsHashGirl bgcolor (color AsInt)AsHashGirl color (color AsInt)AsHashGirl grab (pattern AsString)AsHashGirl grab2 (pattern AsString, postfixToRemove AsString)AsHashGirl grab3 (pattern AsString, postfixToRemove AsString, prefixToRemove AsString)AsHashGirl into (textView AsTextView) strike (strike AsBoolean)AsHashGirl underline (underline AsBoolean)AsHashGirl


       

      سورس کد همراه با کتابخانه قرار گرفت


      موفق باشید

      ارسال کننده H@mid.RS ارسال ۱۶/۰۸/۱۹ دسته کتابخانه  
    • توسط H@mid.RS
      درود به دوستان


      کتابخانه وارپ شده از این پروژه گیت هاب


      شات :




       

      و همون طور که در تصویر می بینید کارش زیر خط دار و خط زدن و هر رنگی که دوست دارید اون کلمه رو تغییر بدید

       

      IRHashGirl

      Author: Mojtaba Hossin Zadeh (Www.Basic4X.IR)
      Version: 1
      IRHashGirl
      Events:
      onClickHash

      Methods:
      Capture Initialize (eventName AsString, text AsString) IsInitialized AsBoolean alpha (alpha AsInt)AsHashGirl bgcolor (color AsInt)AsHashGirl color (color AsInt)AsHashGirl grab (pattern AsString)AsHashGirl grab2 (pattern AsString, postfixToRemove AsString)AsHashGirl grab3 (pattern AsString, postfixToRemove AsString, prefixToRemove AsString)AsHashGirl into (textView AsTextView) strike (strike AsBoolean)AsHashGirl underline (underline AsBoolean)AsHashGirl


       

      سورس کد همراه با کتابخانه قرار گرفت


      موفق باشید

    • توسط 360momax
      یک سوال چطوری میشه عکس های که در ایمیج ویو لود میکنی به این صورت در بیاد