UweMD
25.12.2004, 12:18
Hallo,
Frohes Fest euch allen....!!!
ich habe da ein Problem mit den A-Ports.
Wenn ich auf A-Port 1 Pin 4 und 5 und A-Port 2 Pin 4 und 5 ein Signal lege bekomme ich dort eine Spannung von 3 Volt.
Wenn ich auf A-Port 3 Pin 4 und 5 und A-Port 4 Pin 4 und 5 ein Signal lege bekomme ich dort eine Spannung von 372 mVolt.
Wenn ich nur A-Port 3 und A-Port 4 schalte dann sind die 4 LEDs auch alle aus.
Ach so ich habe das „rnbfra 1.2“ mit MEGA 16.
Lieg es Vielleicht an meinem Programm?
Const Writepowerport_adr = &H72
Const Readpowerport_adr = &H72
Dim I2cdaten As Byte
Dim I As Byte
$crystal = 8000000
'Config Scl = Portc.0
'Config Sda = Portc.1
I2cinit
Do
I2cdaten = &B11111111
I2cstart
I2cwbyte Writepowerport_adr
I2cwbyte I2cdaten
I2cstop
Waitms 5000
I2cdaten = &B00000000
I2cstart
I2cwbyte Writepowerport_adr
I2cwbyte I2cdaten
I2cstop
Waitms 5000
Loop
End
Danke Vorab
mfg Uwe
Frohes Fest euch allen....!!!
ich habe da ein Problem mit den A-Ports.
Wenn ich auf A-Port 1 Pin 4 und 5 und A-Port 2 Pin 4 und 5 ein Signal lege bekomme ich dort eine Spannung von 3 Volt.
Wenn ich auf A-Port 3 Pin 4 und 5 und A-Port 4 Pin 4 und 5 ein Signal lege bekomme ich dort eine Spannung von 372 mVolt.
Wenn ich nur A-Port 3 und A-Port 4 schalte dann sind die 4 LEDs auch alle aus.
Ach so ich habe das „rnbfra 1.2“ mit MEGA 16.
Lieg es Vielleicht an meinem Programm?
Const Writepowerport_adr = &H72
Const Readpowerport_adr = &H72
Dim I2cdaten As Byte
Dim I As Byte
$crystal = 8000000
'Config Scl = Portc.0
'Config Sda = Portc.1
I2cinit
Do
I2cdaten = &B11111111
I2cstart
I2cwbyte Writepowerport_adr
I2cwbyte I2cdaten
I2cstop
Waitms 5000
I2cdaten = &B00000000
I2cstart
I2cwbyte Writepowerport_adr
I2cwbyte I2cdaten
I2cstop
Waitms 5000
Loop
End
Danke Vorab
mfg Uwe