Hallo,
ich bin neu hier aber habe hier schon viel gelesen, ich habe das Programm etwas umgeshrieben und auch einen Erfolg erzielt dass ich die Adresse des 8583 anzeigen kann. Wenn ich nun aber einen 8574 anschließe reagieren zwar die LED's aber es kommt keine Adresse zurück.

Ich hab schon alles Probiert und nicht die Möglichkeit gefunden dass es geht.

Vielleicht hat von euch jemand eine Idee

Code:
$regfile "8515def.dat"
$crystal = 4000000

'$include "ac_lcd.inc"

Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2
Config Lcd = 20 * 4
Cls

Config I2cdelay = 10
Config Porta = Output

Config Scl = Porta.6
Config Sda = Porta.7
Porta.6 = 0
Porta.7 = 0

Dim I As Byte

Do
   For I = 1 To 255
   I2csend I , &H40
   Locate 1 , 1 : Lcd "Adr: " ; I ; " dez " ; Hex(i) ; " hex"
   Locate 2 , 1 : Lcd "Adr: " ; Bin(i)
   Locate 4 , 1 : Lcd "Error: " ; Err
   If Err = 0 Then Goto Ende
   'End If
   'Waitms 100
   Next I
  Loop


  Ende:
  Locate 4 , 1 : Lcd "Adresse: " ; Hex(i) ; " gefunden"
  End
Gruß PiCus