After sorting out Serial Peripheral Interface(SPI) connectivity the next step porting the techfooninja nRF24L01P library to GHI Electronics TinyCLR was rewriting the initialisation code. Overall changes were minimal as the TinyCLR V2 SPI library has similar methods to the Windows 10 IoT Core ones.
I need to refactor the initialise method so that failure exceptions are not caught and add the interrupt trigger edge so I can remove test from the handler.
public void Initialize(string spiPortName, byte chipEnablePin, byte chipSelectPin, byte interruptPin, int clockFrequency = 2000000)
{
var gpio = GpioController.GetDefault();
if (gpio == null)
{
Debug.WriteLine("GPIO Initialization failed.");
}
else
{
_cePin = gpio.OpenPin(chipEnablePin);
_cePin.SetDriveMode(GpioPinDriveMode.Output);
_cePin.Write(GpioPinValue.Low);
_irqPin = gpio.OpenPin((byte)interruptPin);
_irqPin.SetDriveMode(GpioPinDriveMode.InputPullUp);
_irqPin.Write(GpioPinValue.High);
_irqPin.ValueChanged += _irqPin_ValueChanged;
}
try
{
var settings = new SpiConnectionSettings()
{
ChipSelectType = SpiChipSelectType.Gpio,
ChipSelectLine = gpio.OpenPin(chipSelectPin),
Mode = SpiMode.Mode0,
ClockFrequency = clockFrequency,
ChipSelectActiveState = false,
};
SpiController controller = SpiController.FromName(spiPortName);
_spiPort = controller.GetDevice(settings);
}
catch (Exception ex)
{
Debug.WriteLine("SPI Initialization failed. Exception: " + ex.Message);
return;
}
// Module reset time
Thread.Sleep(100);
IsInitialized = true;
// Set reasonable default values
Address = Encoding.UTF8.GetBytes("NRF1");
DataRate = DataRate.DR2Mbps;
IsDynamicPayload = true;
IsAutoAcknowledge = true;
FlushReceiveBuffer();
FlushTransferBuffer();
ClearIrqMasks();
SetRetries(5, 60);
// Setup, CRC enabled, Power Up, PRX
SetReceiveMode();
}
The Initialise method gained parameters for the SPI port name and SPI clock frequency.
static void Main()
{
RF24 Radio = new RF24();
try
{
Radio.OnDataReceived += Radio_OnDataReceived;
Radio.OnTransmitFailed += Radio_OnTransmitFailed;
Radio.OnTransmitSuccess += Radio_OnTransmitSuccess;
// SC20100.GpioPin.PD3
Radio.Initialize(SC20100.SpiBus.Spi3, SC20100.GpioPin.PD4, SC20100.GpioPin.PD3, SC20100.GpioPin.PC5);
Radio.Address = Encoding.UTF8.GetBytes(DeviceAddress);
Radio.Channel = 15;
//Radio.PowerLevel = PowerLevel.Max;
//Radio.PowerLevel = PowerLevel.High;
//Radio.PowerLevel = PowerLevel.Low;
//Radio.PowerLevel = PowerLevel.Minimum
Radio.DataRate = DataRate.DR250Kbps;
//Radio.DataRate = DataRate.DR1Mbps;
Radio.IsEnabled = true;
Radio.IsAutoAcknowledge = true;
Radio.IsDyanmicAcknowledge = false;
Radio.IsDynamicPayload = true;
Debug.WriteLine($"Address: {Encoding.UTF8.GetString(Radio.Address)}");
Debug.WriteLine($"PowerLevel: {Radio.PowerLevel}");
Debug.WriteLine($"IsAutoAcknowledge: {Radio.IsAutoAcknowledge}");
Debug.WriteLine($"Channel: {Radio.Channel}");
Debug.WriteLine($"DataRate: {Radio.DataRate}");
Debug.WriteLine($"IsDynamicAcknowledge: {Radio.IsDyanmicAcknowledge}");
Debug.WriteLine($"IsDynamicPayload: {Radio.IsDynamicPayload}");
Debug.WriteLine($"IsEnabled: {Radio.IsEnabled}");
Debug.WriteLine($"Frequency: {Radio.Frequency}");
Debug.WriteLine($"IsInitialized: {Radio.IsInitialized}");
Debug.WriteLine($"IsPowered: {Radio.IsPowered}");
while (true)
{
string payload = "hello " + DateTime.Now.Second;
Debug.WriteLine($"{DateTime.UtcNow:HH:mm:ss}-TX {payload.Length} byte message {payload}");
Radio.SendTo(Encoding.UTF8.GetBytes(BaseStationAddress), Encoding.UTF8.GetBytes(payload));
Thread.Sleep(30000);
}
}
catch (Exception ex)
{
Debug.WriteLine(ex.Message);
return;
}
}
I can send and receive messages but the PowerLevel doesn’t look right so I need to apply fix from the Meadow version.
The thread '<No Name>' (0x2) has exited with code 0 (0x0).
Address: Dev01
PowerLevel: 15
IsAutoAcknowledge: True
Channel: 15
DataRate: 2
IsDynamicAcknowledge: False
IsDynamicPayload: True
IsEnabled: False
Frequency: 2415
IsInitialized: True
IsPowered: True
00:00:01-TX 7 byte message hello 1
Data Sent!
00:00:01-TX Succeeded!
00:00:31-TX 8 byte message hello 31
Data Sent!
00:00:31-TX Succeeded!
