Warum gibt dieser Code
Code:
'###################################################
Const Writepowerport_adr = &H72                             'I2C Adr PCF 2
Const Readpowerport_adr = &H73                              'I2C Adr PCF 2

Dim I2cdaten As Byte                                        'Datenbyte aus PCF8574


Dim I As Byte

$crystal = 8000000                                          'Quarzfrequenz
Config Scl = Portc.0                                        'Ports fuer IIC-Bus
Config Sda = Portc.1

I2cinit

I = 0
I2cdaten = 1
Do
   I2cdaten = I2cdaten * 2
   If I2cdaten > 16 Then I2cdaten = 1

   I2cstart
   I2cwbyte Writepowerport_adr                              'Schreibbefehl an PCF schicken
   I2cwbyte I2cdaten                                        'Datenbyte an PCF
   I2cstop
   Incr I
   Wait 2
   Print "hallo"
Loop




End
im Termian immer nur den Buchstaben "C" mit nem komischen Schwänzchen dran aus, dieser aber

Code:
'###################################################
Dim I As Byte

$crystal = 8000000                                          'Quarzfrequenz
Weiter:
$baud = 9600


I = 0
Do
   Incr I
   Wait 2
   Print "Hallo " ; I
Loop

End
das gewünsche Ergebnis, nämlich
Hallo 1
Hallo 2
Hallo 3
usw. ?

Hat jemand ne Erklärung parat?

mfg
jagdfalke