-         

Ergebnis 1 bis 3 von 3

Thema: RN-VNH2 Dualmotor will nicht mit RN-Mega128 Funk

  1. #1

    RN-VNH2 Dualmotor will nicht mit RN-Mega128 Funk

    Anzeige

    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

  2. #2
    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

  3. #3
    Administrator Robotik Einstein Avatar von Frank
    Registriert seit
    30.10.2003
    Beiträge
    4.990
    Blog-Einträge
    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.

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •