@Richard die Datein gibts im Netz zum download:http://www.shop.robotikhardware.de/s...products_id=12
hätte dann noch eine Frage: Ich habe oben beschrieben wie ich meinen roboter programmieren will. Dazu habe ich jetzt ein Programm geschrieben nur, weiß ich nicht ob dass funktioniert wie ich mir das Vorstelle. Als ich es ausprobieren wollte, kam mal wieder eine Fehlermeldung. Deswegen würde ich jemanden der mit Bascom erfahrung hat bitten, dies zu kontrollieren und zu sagen was falsch ist . Das ist eins der ersten Programme die ich selber geschrieben habe, deswegen bitte ich euch nicht auf die "äußere Form " zu achten.
Wäre nett wenn ihr mir weiter helfen könntet, mal wieder
MfG
Danke im Vorraus DarkSoldier






$regfile "m32def.dat"
Declare Sub Ledein
Declare Sub Ledaus
Const Writepowerport_adr = &H72
Const Readpowerport_adr = &H73
Dim I2cdaten As Byte
Dim I As Word
$crystal = 8000000
Config Scl = Portc.0
Config Sda = Portc.1
I2cinit
I2cstart
I2cwbyte &H74
I2cwbyte &B00000010
I2cstop
Config Pind.6 = Output
Portd.6 = 1

Config Pinc.5 = Output
Portc.5 = 0
Config Pind.6 = Output
Portd.6 = 1
Elseif
I2cstart
I2cwbyte Writepowerport_adr
I2cwbyte 15
I2cstop
Then
Config Pind.6 = Output
Portd.6 = 0
Config Pinc.4 = Output
Portc.4 = 0
Config Pinc.5 = Output
Portc.5 = 1
Config Pinc.3 = Output
Do
Portc.2 = 0
Waitms 5
Portc.2 = 1
Waitms 5
Loop Until I < 1
Config Pind.6 = Output
Portd.6 = 1