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
Lesezeichen