Hallo ich bin recht neu auf demm gebiet microcontroler
und habe mir daher ein Rn control zugelegt nun versuche ich schon den ganzen tag
ein motor zum drehen zu bekommen der motor ist ein 0815 standert modelmotor so wie in fast jeden kleinen modelauto zu finden.
Ich versuche die motor geschwindigkeit zu steuern
mittels 2 taster und durch einen 3ten soll der motor angehalten werden.
Bis dahin klapt das ganze auch ganz gut aber wie pole ich nun die drehrichtung vom motor um ?
hier mal mein Bascom code
Es ist übrigens nur ein motor am linken anschluss angeschlossen.
Das ändern von Portc.6 und 7 also 1 oder 0 bewirkt irgendwie garnix -.-
auch das ändern von Portd.4 schaltet den motor weder aus noch ein.
Bin völlig ratlos wie das gehen soll ?
Mfg marcusCode:$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 'Die Baudrate für RS232 Ausgabe. 'Sie muss auch bei PC Terminalprogramm identisch sein Dim I As Integer 'Ports für linken Motor Config Portc.6 = Output 'Linker Motor Kanal 1 Config Portc.7 = Output 'Linker Motor Kanal 2 Config Portd.4 = Output 'Linker Motor PWM Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down Pwm1a = 0 Tccr1b = Tccr1b Or &H02 'Linker Motor ein Portc.6 = 0 'bestimmt Richtung Portc.7 = 1 'bestimmt Richtung Portd.4 = 1 'Linker Motor EIN I = 200 Config Pinb.4 = Input Config Pinb.6 = Input Config Pinb.5 = Input Taster1 Alias Pinb.4 Taster2 Alias Pinb.6 Taster3 Alias Pinb.5 Portb.4 = 1 Portb.6 = 1 Portb.5 = 1 Do If Taster1 = 0 Then I = I + 10 Else I = I End If Waitms 30 If Taster2 = 0 Then I = I - 10 Else I = I End If Waitms 30 If Taster3 = 0 Then I = 0 Else I = I Waitms 20 End If Pwm1a = I Loop End







Zitieren

Lesezeichen