Hallo,

wie kann ich nach I2C geräten suchen?
Ich habe bereits eine funktion geschrieben die jedoch nicht funktioniert.
Code:
Function I2c_search(byval Max_anzahl As Integer)as Integer
Dim I As Integer
I = 0

I2cstart
   Dim Schreib_adresse As Byte
   Dim Antwort As Byte
   Dim Anzahl As Integer
   Anzahl = 0

   While I <= Max_anzahl
     Antwort = ""
     Schreib_adresse = Hex(i)
     I2cwbyte Schreib_adresse
     I2creceive Schreib_adresse , Antwort
       If Antwort <> "" Then
            Anzahl = Anzahl + 1
       End If
   Wend

   I2c_search = Anzahl
   Return
End Function
Vielleicht weiß jemand was ich falsch gemacht habe.