hi,
Danke Für Den Tipp![]()
Ich habe jetzt Testprogramm 1 für das 1.2 bord genommen statt T1 für 1.1 und jetzt kommt zu dem lauflicht noch dazu das die drei anderen leds leuchtenich hoffe das ist ok
?
aber das testprogramm3 für den motortest geht immernoch nicht![]()
PS: wenn ich auf simulate programm gehe dann bleibt er auch bei der ersten Wait 5 stehen ? wenn das was zu bedeuten hatCode:'################################################### 'Testprogramm 3 'für 'RoboterNetz Standard-Roboter Board RBNFRA 1.2 ' 'Aufgabe: 'Testen der Getriebemotorensteuerung '1. Linker Motor wird 5 Sekunden gedreht '2. 5 Sekunden Pause '3. Linker Motor wird 5 Sekunden in andere Richtung gedreht '4. 5 Sekunden Pause '5. Rechter Motor wird 5 Sekunden gedreht '6. 5 Sekunden Pause '7. Rechter Motor wird 5 Sekunden in andere Richtung gedreht '8. 5 Sekunden Pause '9. Das ganze wieder ab linken Motor wiederholen ' 'Autor: Frank 'Weitere Beispiele und Beschreibung der Hardware 'unter http://www.Roboternetz.de '################################################### 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 '******** Diese 4 Befehle sind nur ab RNBFRA Version 1.2 (nicht in V 1.1) ' notwendig und bzw. möglich (erweiterte Energiesparfunktion und LED´s) ' Bei Board 1.1 bitte auskommentieren oder löschen I2cstart I2cwbyte &H74 'Schreibbefehl an PCF3 schicken ' Led´s ein ,Motorendstufen ein, Port-Peripherie ein, RBN-Bus Sleep Modus aus (also Peripherie aktiv) I2cwbyte &B00000010 'Datenbyte an PCF3 I2cstop '********* Nochmal: 'Ports für linken Motor Config Pinc.6 = Output 'Linker Motor Kanal 1 Config Pinc.7 = Output 'Linker Motor Kanal 2 Config Pind.4 = Output 'Linker Motor PWM 'Linker Motor ein Portc.6 = 1 'bestimmt Richtung Portc.7 = 0 'bestimmt Richtung Portd.4 = 1 'Linker Motor EIN Wait 5 'Warte 5 Sekunden Portd.4 = 0 'Linker Motor AUS Wait 5 'Warte 5 Sekunden 'Linker Motor andere Richtung Portc.6 = 0 'bestimmt Richtung linker Motor Portc.7 = 1 'bestimmt Richtung linker Motor Portd.4 = 1 'linker Motor EIN Wait 5 'Warte 5 Sekunden Portd.4 = 0 'Motor AUS Wait 5 'Warte 5 Sekunden 'Ports für rechten Motor Config Pinb.0 = Output 'Rechter Motor Kanal 1 Config Pinb.1 = Output 'Rechter Motor Kanal 2 Config Pind.5 = Output 'Rechter Motor PWM 'Rechter Motor ein Portb.0 = 1 'bestimmt Richtung rechter Motor Portb.1 = 0 'bestimmt Richtung rechter Motor Portd.5 = 1 'rechter Motor EIN Wait 5 'Warte 5 Sekunden Portd.5 = 0 'Rechter Motor AUS Wait 5 'Warte 5 Sekunden Portb.0 = 0 'bestimmt Richtung rechter Motor Portb.1 = 1 'bestimmt Richtung rechter Motor Portd.5 = 1 'rechter Motor EIN Wait 5 'Warte 5 Sekunden Portd.5 = 0 'Rechter Motor AUS Wait 5 'Warte 5 Sekunden Goto Nochmal End![]()







Zitieren

Lesezeichen