B4R Question Detect error of an I2C slave

#Region Project Attributes
#AutoFlushLogs: True
#CheckArrayBounds: True
#StackBufferSize: 600
#End Region
'Ctrl+Click to open the C code folder: ide://run?File=%WINDIR%\System32\explorer.exe&Args=%PROJECT%\Objects\Src

Sub Process_Globals
Dim T_Ciclo As Timer
Dim Bus As WireMaster
Dim Serial1 As Serial
Dim Dire As Byte = 32

End Sub

Private Sub AppStart


Dim D(2) As Byte

Serial1.Initialize(9600)
Log("Arranque...")


T_Ciclo.Initialize("T_Ciclo_Tick",100)
T_Ciclo.Enabled = True


' Inicializa el Bus
Bus.Initialize
' Velocidad del Bus I"C 400khz
RunNative("SetWireClock", 400000)

D(0) = 3
D(1) = 255
'
Bus.WriteTo(Dire,D)


End Sub


Private Sub T_Ciclo_Tick

Dim Regi(1) As Byte

Regi(0) = 0

'
Bus.WriteTo(Dire,Regi)

Dim V0() As Byte = Bus.RequestFrom(Dire, 1)

'
Log("Long = ",V0.Length," ... ",V0(0))



End Sub




' Ajusta la Velocidad del Bus I2C
#if C
void SetWireClock(B4R::Object* o) {
Wire.setClock (o->toULong());
}
#end if

Click to expand...

Dim Dire As Byte = 33

Click to expand...