• 0
H@mid.RS

کتابخانه RF24 برای Basic4Arduino آردینو

سوال

درودی دیگر


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


دوستان در این باره اگه سوالی داشتید حتما مطرح کنید تا به سوالاتتون پاسخ بدیم چون کلی توضیح دادم


post-1-0-81284000-1463577964_thumb.jpgpost-1-0-80216500-1463577969_thumb.jpg


 


سورس کد استفاده در برد UNO



Sub Process_Globals
Public Serial1 As Serial
Private rf24 As RF24
Private raf As RandomAccessFile
Private timer1 As Timer
Private led As Pin
Private const MEGA = 1, UNO = 2 As Byte
Private buffer(4) As Byte
End Sub

Private Sub AppStart
Serial1.Initialize(115200)
Log("AppStart")
rf24.Initialize(7, 8, "rf24_NewData")
rf24.OpenReadingPipe(UNO)
rf24.OpenWritingPipe(MEGA)
timer1.Initialize("timer1_Tick", 1000)
timer1.Enabled = True
led.Initialize(2, led.MODE_OUTPUT) 'connect led to pin #2
raf.Initialize(buffer, True)
End Sub

Sub rf24_NewData (Data() As Byte)
led.DigitalWrite(Data(0) = 1)
End Sub

Sub Timer1_Tick
raf.WriteULong32(Millis, 0)
rf24.Write(buffer)
End Sub

سورس کد برای استفاده در برد MEGA



Sub Process_Globals
Public Serial1 As Serial
Private rf24 As RF24
Private btn As Pin
Private const MEGA = 1, UNO = 2 As Byte
Private raf As RandomAccessFile
End Sub

Private Sub AppStart
Serial1.Initialize(115200)
Log("AppStart")
rf24.Initialize(7, 8, "rf24_NewData")
rf24.OpenReadingPipe(MEGA)
rf24.OpenWritingPipe(UNO)
btn.Initialize(2, btn.MODE_INPUT_PULLUP) 'button connected to pin #2.
btn.AddListener("btn_StateChanged")
End Sub

Sub btn_StateChanged (State As Boolean)
Dim b As Byte
If Not(State) Then b = 1 Else b = 0
Log("Write result: ", rf24.Write(Array As Byte(b)))
End Sub

Sub rf24_NewData (Data() As Byte)
raf.Initialize(Data, True)
Log("UNO Millis: ", raf.ReadULong32(raf.CurrentPosition))
End Sub

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


در پناه حق


rRF24.zip

مهمان پسند دیده است

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


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

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

  • 0

چگونه باید کتابخانه رو معرفی کنیم؟

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


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

درود


کافیه اول برنامه B4R رو نصب کنید می تونید از لینک زیر دانلود کنید:


http://basic4x.ir/files/file/10-basic4arduino/


بعد از نصب در مسیر زیر کتابخانه رو از زیپ خارج کرده و قرار دهید :


 


C:\Program Files\Anywhere Software\B4R\Libraries


 


در نهایت بعد از باز کردن برنامه بیسیک فور آردینو از قسمت کتابخانه ها کتابخانه مورد نظر رو تیک بزنید


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


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

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

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

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

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


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

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

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


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

  • مطالب مشابه

    • توسط H@mid.RS
      کتابخانه LiquidCrystal_I2C برای بیسیک فور آردینو

      کد مثال :


      #Region Project Attributes
      #AutoFlushLogs: True
      #CheckArrayBounds: True
      #StackBufferSize: 300
      #End Region

      Sub Process_Globals
      'These global variables will be declared once when the application starts.
      'Public variables can be accessed from all modules.
      Public Serial1 As Serial
      Private lcd As LiquidCrystal_I2C
      End Sub

      Private Sub AppStart
      Serial1.Initialize(115200)
      Log("AppStart")
      lcd.Initialize(0x3F, 16, 2) 'based on the example from the project.
      lcd.Backlight = True
      lcd.Write("test")
      End Sub

      در پناه حق

      rLiquidCrystal_I2C.zip
    • توسط H@mid.RS
      با کتابخانه ای که براتون پیوست کردم می تونید فشار و دما رو دریافت کنید

      کد مربوط :


      Sub Process_Globals
      Public Serial1 As Serial
      Private bmp180 As SFE_BMP180
      Private Temperature, Pressure, PressureSeaLevel, Altitude As Double
      Private ALTITUDEHAMBURG As Double = 27.0 'in meters
      Private Timer1 As Timer
      End Sub

      Private Sub AppStart
      Serial1.Initialize(115200)
      Log("AppStart")
      bmp180.Initialize
      Timer1.Initialize("Timer1_Tick", 2000)
      Timer1.Enabled = True
      End Sub

      Private Sub Timer1_Tick
      If Not(bmp180.GetTemperature) Then
      Log("Error retrieving the temperature.")
      Return
      End If
      Temperature = bmp180.LastResult
      bmp180.GetPressure(0, Temperature)
      Pressure = bmp180.LastResult
      Log("Pressure [mBar]:", Pressure)
      PressureSeaLevel = bmp180.Sealevel(Pressure, ALTITUDEHAMBURG)
      Log("PressureSeaLevel [mBar]:",PressureSeaLevel)
      Altitude = bmp180.Altitude(Pressure, PressureSeaLevel)
      Log("Altitude [m]:", Altitude)
      Log("---")
      End Sub

      rSFE_BMP180.zip
    • توسط H@mid.RS
      درود

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

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



       

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


      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