hallo

hier ein code ist zwar allerdings für das RNVN2 gedacht aber macht ja nix ist das gleiche prinzip.


Code:
$regfile = "m8def.dat"
$crystal = 7372800
$baud = 9600
$hwstack = 34
$framesize = 34
$swstack = 34

Dim A As Word
Dim B As Word


Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 8         'Pwm deklarieren

Config Pinb.1 = Output                                        'Pins aufwählen
Motor1_pwm Alias Portb.1
Config Pind.4 = Output
Motor1_in1 Alias Portd.4
Config Pind.5 = Output
Motor1_in2 Alias Portd.5


Do


 Motor1_in1 = 1                                             'links
 Motor1_in2 = 0

For A = 0 To 255
 Pwm1a = A
 Waitms 120
 Next A

 Motor1_in1 = 0
 Motor1_in2 = 1                                             'rechts

For A = 125 To 255
 Pwm1a = A
 Waitms 220
 Next A


Loop
End

der Code ist auch bei Download zu finden.


das wichtigste ist eigentlich

Pwm1a = 155 (wenn du das direkt machen willst oder wie oben geziegt dann fährt er beim ersten von 0V bis 12Votln und beim zweiten von 6V bis 12 Volt ist eigentlich gar nicht so schwer.)


gruß
patrick