erst einmal herzlichen Dank für die Hilfen
da waren zwei Probleme. Das eine war die Verwirrung aus dem TDA8444 Datenblatt mit dem Acknowledge. Aber das Hauptproblem war meine Hardwareverdrahtung. Am Ausgang hatte ich einen Kurzschluss und konnte somit natürlich keine softwaremässig eingestellte Änderung messen. Zum SDA und SCL Verkehr kann mann und muss es auch einen Wechsel messen können. Richtig nur mit dem Oszi zu erkennen. Anbei mein Bascom Code.
verschneite Grüsse
Andreas


'Declarationteil für den AusgangsTransistor mit dem TDA8444
Declare Sub Ausgangstransistor(daten As Byte)
Dim Daten As Byte
Const Adresse = &H40
Const Steuer = &B00000000

Call Ausgangstransistor(daten)

Sub Ausgangstransistor(daten As Byte)
I2cstart
I2cwbyte Adresse
I2cwbyte Steuer
I2cwbyte Daten
I2cstop
End Sub Ausgangstransistor(daten As Byte)