jagdfalke
18.06.2005, 16:53
Warum gibt dieser 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
'################################################# ##
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
'################################################# ##
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
'################################################# ##
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