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