Mit Bascom, soweit ich mich erinnern kann sieht der Code so aus:
Code:
Dim Pwmspeed As Byte ' Geschwindigkeit der Motoren
Pwmspeed = 245
Dim m_temp As String * 10 ' MAXIMUM (245 = 6v) !!!
'Ports für linken Motor
Config Pinc.6 = Output 'Linker Motor Kanal 1
Config Pinc.7 = Output 'Linker Motor Kanal 2
Config Pind.4 = Output 'Linker Motor PWM
'Ports für rechten Motor
Config Pinb.0 = Output 'Rechter Motor Kanal 1
Config Pinb.1 = 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
Pwm1a = 0
Pwm1b = 0
Tccr1b = Tccr1b Or &H02 'Prescaler = 8
<-snip->
Sub Mvor()
'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 wenn schraubklemmen oben sind
Portb.1 = 0 'bestimmt Richtung rechter Motor
Portd.5 = 1 'rechter Motor EIN
Print Pwmspeed
If Pwmspeed < 120 Then 'evt anschubsen
Pwm1a = 120
Pwm1b = 120
Waitms 20
Pwm1a = Pwmspeed
Pwm1b = Pwmspeed
Else
Pwm1a = Pwmspeed
Pwm1b = Pwmspeed
End If
End Sub
Lesezeichen