Rn Control Motoransteuern

[Mars 018]

ah okay danke das heisst das alle pins immer eingänge sind und ich im prinzip nur die ausgänge devinieren muss ^^ okay das vereinfacht die ganze sache ja mal erheblich ^^
danke aber mit demm motor drehrichtung wechseln bin ich leider noch immer nicht weiter -.-

mfg marcus

so hab jetzt noch mal das tastprogramm zerflückt

$regfile = "m32def.dat"                                    'Die Anweisung bestimmt Controllertyp, hier AVR Mega 32
 $framesize = 32                                            'Stackanweisungen, die eigentlich nur bei größeren Programmen
 $swstack = 32                                              'wirklich nötig werden
 $hwstack = 32
 $crystal = 16000000                                        'Die Frequenz des verwendeten Quarzes
 $baud = 9600


 Dim I As Integer
 'Initialisierung der einzelnen Ports am Atmel für Motorsteuerung

Config Pinc.6 = Output 'Linker Motor Kanal1
Config Pinc.7 = Output 'Linker Motor Kanal2
Config Pind.4 = Output 'Linker Motor Puls-Weiten-Modulation (PWM)

Config Pinb.0 = Output 'Rechter Motor Kanal1
Config Pinb.1 = Output 'Rechter Motor Kanal2
Config Pind.5 = Output 'Rechter Motor Puls-Weiten-Modulation (PWM)

Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
Pwm1a = 0
Pwm1b = 0
Tccr1b = Tccr1b Or &H02 'Prescaler = 8

I = 0




'Testet Motoren und Geschwindigkeitsreglung1


'Linker Motor ein
Portc.6 = 1                                                 'bestimmt Richtung
Portc.7 = 0                                                 'bestimmt Richtung
Portd.4 = 1                                                 'Linker Motor EIN

'Rechter Motor ein
Portb.0 = 1                                                 'bestimmt Richtung rechter Motor
Portb.1 = 0                                                 'bestimmt Richtung rechter Motor
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

Wait 3

'Testet Motoren und Geschwindigkeitsreglung2


'Linker Motor ein
Portc.6 = 0                                                 'bestimmt Richtung
Portc.7 = 1                                                 'bestimmt Richtung
Portd.4 = 1                                                 'Linker Motor EIN

'Rechter Motor ein
Portb.0 = 0                                                 'bestimmt Richtung rechter Motor
Portb.1 = 1                                                 'bestimmt Richtung rechter Motor
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

und siehe da der rechte motor macht auch das was er soll nur der linke motor macht nichts und dreht sich nur in eine richtung ? das doch nicht normal kann da der motortreiber baustein dingens kaput sein ? oder vil falschherum drinne an denn motoren liegts nicht hab sie vertauscht geht trotzdem immer nur der rechte -.-

mfg marcus