ez kiadta a jó címet:
Kód: Egész kijelölése
Print "Scan start"
For I = 1 To 254 Step 2
I2cstart
I2cwbyte I
If Err = 0 Then
Print "Slave at : " ; I
End If
I2cstop
Next
Print "End Scan"
Kód: Egész kijelölése
Print "Scan start"
For I = 1 To 254 Step 2
I2cstart
I2cwbyte I
If Err = 0 Then
Print "Slave at : " ; I
End If
I2cstop
Next
Print "End Scan"