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