Zeroeightfifteen
27.12.2005, 16:36
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.
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
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.
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