RN-VNH2 Dualmotor will nicht mit RN-Mega128 Funk

Hallo!

Ich versuche grad krampfhaft, RN-VNH2 Dualmotor mit dem Mega Funk zum laufen zu bekommen. Leider klappt's nicht :-(

RN-VNH2 Dual ist an JPMOT angeschlossen. JPMOT ist auch auf Funktionsfähigkeit getest, ich habe zum probieren ein RN-Display-Adapter angeschlossen, dieser lief.

Ich poste hier mal meinen Source rein, vielleicht hab ich ja einen ganz dummen Fehler drin, und jemand kann mir kurz helfen.

(Wie poste ich denn Source, damitt der Code in so einem kleinen Fensterchen lesbar ist?)

________________________
' ---------------RN-Mega128Funk übliche ------------------

$regfile = "m128def.dat" ' Bei Mega 128 "
$framesize = 32
$swstack = 32
$hwstack = 32

$crystal = 16000000 'Quarzfrequenz
$baud = 19200 'Baudrate für Funkmodul
$baud1 = 9600 'Baudrate für MAX


Sound Portg.2 , 400 , 450 'BEEP bei RN-Mega128Funk
Sound Portg.2 , 400 , 250 'BEEP bei RN-Mega128Funk
Sound Portg.2 , 400 , 450 'BEEP bei RN-Mega128Funk

' ---------------------------------------------------
Config Pine.3 = Output
Motor1_pwm Alias Porte.3

Config Pind.5 = Output
Motor1_in1 Alias Portd.5

Config Pind.4 = Output
Motor1_in2 Alias Portd.4

Config Pine.4 = Output
Motor2_pwm Alias Porte.4

Config Pind.6 = Output
Motor2_in1 Alias Portd.6

Config Pind.7 = Output
Motor2_in2 Alias Portd.7

'PWM Frequenz Initialisieren

Tccr1a = &B10100010 '9 Bit PWM Voller Takt
Tccr1b = &B10000010 'Teiler = 8 PWM = 1951 Hz bei 9 Bit

Dim I As Word
Wait 1
Print "RESET RN-MINICONTROL"
Print "robotikhardware.de" "
Do

Print " Richtung1"
Motor1_in1 = 0 'Drehrichtung Motor 1
Motor1_in2 = 1 'Drehrichtung Motor 1
Motor2_in1 = 1 'Drehrichtung Motor 2
Motor2_in2 = 0 'Drehrichtung Motor 2

For I = 0 To 511
Pwm1a = I
Pwm1b = I
Waitms 25
Next I
Wait 120

'Bremsen
Pwm1a = 0
Pwm1b = 0
Wait 2

Motor1_in1 = 0 'Drehrichtung Motor 1
Motor1_in2 = 0 'Drehrichtung Motor 1
Motor2_in1 = 0 'Drehrichtung Motor 2
Motor2_in2 = 0

Print " Richtung2"
Motor1_in1 = 1 'Drehrichtung Motor 1
Motor1_in2 = 0 'Drehrichtung Motor 1
Motor2_in1 = 0 'Drehrichtung Motor 2
Motor2_in2 = 1 'Drehrichtung Motor 2
For I = 0 To 511
Pwm1a = I
Pwm1b = I
Waitms 25
Next I
Wait 120
'Bremsen
Pwm1a = 0
Pwm1b = 0
Wait 2
Motor1_in1 = 0 'Drehrichtung Motor 1
Motor1_in2 = 0 'Drehrichtung Motor 1
Motor2_in1 = 0 'Drehrichtung Motor 2
Motor2_in2 = 0
Loop

Hallo!

Jetzt bin ich ein bisschen weiter, aber bezüglich PWM beisse ich mir noch die Zähne aus, das klapp einfach nicht. Die Ports funktionieren aber alle, wenn ich die Motoren (wie unten im Source zu lesen) einfach ein- und ausschalte. Hat niemand eine Idee?
____________________________
Config Pine.3 = Output
Motor1_pwm Alias Porte.3

Config Pind.5 = Output
Motor1_in1 Alias Portd.5

Config Pind.4 = Output
Motor1_in2 Alias Portd.4

Config Pine.4 = Output
Motor2_pwm Alias Porte.4

Config Pind.6 = Output
Motor2_in1 Alias Portd.6

Config Pind.7 = Output
Motor2_in2 Alias Portd.7


Motor1_in1 = 1 'Drehrichtung Motor 1
Motor1_in2 = 0 'Drehrichtung Motor 1
Motor2_in1 = 0 'Drehrichtung Motor 2
Motor2_in2 = 1 'Drehrichtung Motor 2

Motor1_pwm = 1
Motor2_pwm = 1

Mega128 Beispiel habe ich leider keins parat. Berücksichtige das es bei älteren Bascom Versionen eventuell noch Bug´s geben kann, also immer neuste nutzen.
Dürfte reines Software-Problem sein.