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






Zitieren

Lesezeichen