Hallo
wenn ich Pind.2 schreibe, dann zeigt er mir keinen Fehler an. Warum aber wenn ich Pinc.2 mache.
Außerdem passt das mit Pwm1b auch noch nicht.
Code:Dim I As Word $crystal = 16000000 'Quarzfrequenz Dim Geschwindigkeitlinks As Word Dim Geschwindigkeitrechts As Word 'Ports für linken Motor Config Pinc.2 = Output 'Linker Motor Kanal 1 Config Pinc.3 = Output 'Linker Motor Kanal 2 Config Pind.4 = Output 'Linker Motor PWM 'Ports für rechten Motor Config Pinc.4 = Output 'Rechter Motor Kanal 1 Config Pinc.5 = Output 'Rechter Motor Kanal 2 Config Pind.5 = Output 'Rechter Motor PWM Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down Geschwindigkeitlinks = 50 Geschwindigkeitrechts = 2900 Pwm1a = Geschwindigkeitrechts Pwm1b = Geschwindigkeitlinks Tccr1b = Tccr1b Or &H02 'Prescaler = 8 'Linker Motor ein Portc.2 = 1 'rechts Portc.3 = 0 'links Portd.4 = 1 'Linker Motor EIN 'Rechter Motor ein Portc.4 = 1 'rechts Portc.5 = 0 'links Portd.5 = 1 'rechter Motor EIN I = 0 Do Pwm1a = I Pwm1b = I Waitms 40 I = I + 5 Loop Until I > 1023 Wait 1 Do Pwm1a = I Pwm1b = I Waitms 40 I = I - 5 Loop Until I < 1 Pwm1a = 0 'Linker Motor aus Pwm1b = 0 'rechter Motor aus End
Lesezeichen