-         

Ergebnis 1 bis 9 von 9

Thema: Joypad/ RN-Control/ 2 Getriebemotoren

  1. #1
    Neuer Benutzer Öfters hier
    Registriert seit
    24.04.2011
    Beiträge
    6

    Joypad/ RN-Control/ 2 Getriebemotoren

    Anzeige

    Hallo, Jungs!
    Ich habe mir RN-Control, RN-Joypad und RN-VN2 Dualmotor angeschaft und möchte 2 Getriebemotoren mit einem Joystick steuern, X-Achse Motor1, Y-Achse Motor2. Da ich in dem Bereich neu bin, kann ich das (mit BASCOM) nicht programmieren. Ob mir jemand helfen kann?

  2. #2
    Erfahrener Benutzer Roboter Genie
    Registriert seit
    25.04.2010
    Beiträge
    1.249
    Dann solltest du dir erstmal die nötigen Grundlagen aneignen und danach versuchen die Beispiele zu den einzelnen Modulen (sind auf der CD die mitgeschickt wird) zu verstehen.

  3. #3
    Neuer Benutzer Öfters hier
    Registriert seit
    24.04.2011
    Beiträge
    6
    Verstehen ist gut, aber ich stehe unter Zeitdruck. Wenn ich irgend ein funktionierendes Programm hätte wo ich mit dem Joystick irgend was steuern kann, um zu sehen wie das ganze funktioniert.

  4. #4
    Erfahrener Benutzer Roboter Genie
    Registriert seit
    25.04.2010
    Beiträge
    1.249
    Ach ok.
    Aber wie gesagt, auf der CD sind einige Beispiele, die du nur zusammenbasteln musst.

  5. #5
    Neuer Benutzer Öfters hier
    Registriert seit
    24.04.2011
    Beiträge
    6
    Wenn ich wüsste wie. Hab schon mehrere Nächte dran gesessen, klappt aber nichts.
    Geändert von hssbiker (26.04.2011 um 22:55 Uhr)

  6. #6
    Erfahrener Benutzer Roboter Genie
    Registriert seit
    25.04.2010
    Beiträge
    1.249
    Dann zeig her was du bis jetzt hast, dann wird dir sicher geholfen werden!

  7. #7
    Neuer Benutzer Öfters hier
    Registriert seit
    24.04.2011
    Beiträge
    6
    Es ist mir peinlich, aber ich habe echt keine Ahnung
    Code:
    Declare Sub Motor1()
    Declare Sub Motor2()
    Declare Sub Motor3()
    Declare Sub Motor4()
    Declare Function Joystickabfrage() As Byte
    
    
    $regfile = "m32def.dat"
    $framesize = 32
    $swstack = 32
    $hwstack = 32
    
    
    Dim I As Integer
    Dim N As Integer
    Dim Ton As Integer
    
    $crystal = 16000000                                         'Quarzfrequenz
    $baud = 9600
    
    Config Porta = Input
    Config Adc = Single , Prescaler = Auto                      'Für Tastenabfrage und Spannungsmessung
    
    Dim Joy1x As Word                                           'Variablen für Positionen der JoyPad Steuerknüppel
    Dim Joy1y As Word
    
    Start Adc
    
    'Ports für linken Motor
    Config Pinc.6 = Output                                      'Linker Motor Kanal 1
    Config Pinc.7 = Output                                      'Linker Motor Kanal 2
    Config Pind.4 = Output                                      'Linker Motor PWM
    'Ports für rechten Motor
    Config Pinb.0 = Output                                      'Rechter Motor Kanal 1
    Config Pinb.1 = Output                                      'Rechter Motor Kanal 2
    Config Pind.5 = Output                                      'Rechter Motor PWM
    Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
    Pwm1a = 0
    Pwm1b = 0
    Tccr1b = Tccr1b Or &H02                                     'Prescaler = 8
    I = 0
    Sound Portd.7 , 400 , 450                                   'BEEP
    Sound Portd.7 , 400 , 250                                   'BEEP
    Sound Portd.7 , 400 , 450                                   'BEEP
    Print
    Print "**** RN-Control 1.4 *****"
    Print "Das neue Experimentier- und Roboterboard"
    Print "Weitere passende Zusatzboards bei www.robotikhardware.de"
    Print
    
    Function Joystickabfrage() As Byte
    Do
    
      Joy1y = Getadc(0)
      Joy1x = Getadc(1)
      Print "Joystick 1 Position:  X=" ; Joy1x ; "  Y=" ; Joy1y
      Wait 2
    Loop
    
    
    
    
    End Function
    
    
    
    
    
    'Motoren und Geschwindigkeitsreglung
    Sub Motor1()
    
       'Rechter Motor ein
       Portb.0 = 1                                              'bestimmt Richtung rechter Motor
       Portb.1 = 0                                              'bestimmt Richtung rechter Motor
       Portd.5 = 1                                              'rechter Motor EIN
    
    
       I = 0
       Do
          Pwm1a = 0
          Pwm1b = I
          Waitms 5
          I = I + 10
       Loop Until I > 300
    
       Wait 1
       Do
          Pwm1a = 0
          Pwm1b = I
          Waitms 5
          I = I - 10
       Loop Until I < 1
       Pwm1a = 0                                                'Linker Motor aus
       Pwm1b = 0                                                'rechter Motor aus
    End Sub
    
    
    'Motoren und Geschwindigkeitsreglung
    Sub Motor2()
       'Rechter Motor ein
       Portc.0 = 0                                              'bestimmt Richtung
       Portc.1 = 1                                              'bestimmt Richtung
       Portd.5 = 1                                              'rechter Motor EIN
    
       I = 0
       Do
          Pwm1a = 0
          Pwm1b = I
          Waitms 5
          I = I + 10
       Loop Until I > 300
    
       Wait 1
       Do
          Pwm1a = 0
          Pwm1b = I
          Waitms 5
          I = I - 10
       Loop Until I < 1
       Pwm1a = 0                                                'Linker Motor aus
       Pwm1b = 0                                                'rechter Motor aus
       End Sub
    
    'Motoren und Geschwindigkeitsreglung
    Sub Motor3()
       'Linker Motor ein
       Portb.6 = 0                                              'bestimmt Richtung rechter Motor
       Portb.7 = 1                                              'bestimmt Richtung rechter Motor
       Portd.4 = 1                                              'linker Motor EIN
    
    
       I = 0
       Do
          Pwm1a = I
          Pwm1b = 0
          Waitms 5
          I = I + 10
       Loop Until I > 300
    
       Wait 1
       Do
          Pwm1a = I
          Pwm1b = 0
          Waitms 5
          I = I - 10
       Loop Until I < 1
       Pwm1a = 0                                                'Linker Motor aus
       Pwm1b = 0                                                'rechter Motor aus
    End Sub
    
    
    'Motoren und Geschwindigkeitsreglung
    Sub Motor4()
       'Linker Motor ein
       Portc.6 = 1                                              'bestimmt Richtung
       Portc.7 = 0                                              'bestimmt Richtung
       Portd.4 = 1                                              'Linker Motor EIN
    
    
       I = 0
       Do
          Pwm1a = I
          Pwm1b = 0
          Waitms 5
          I = I + 10
       Loop Until I > 300
    
       Wait 1
       Do
          Pwm1a = I
          Pwm1b = 0
          Waitms 5
          I = I - 10
       Loop Until I < 1
       Pwm1a = 0                                                'Linker Motor aus
       Pwm1b = 0                                                'rechter Motor aus
    End Sub
    Geändert von hssbiker (26.04.2011 um 02:43 Uhr)

  8. #8
    Neuer Benutzer Öfters hier
    Registriert seit
    24.04.2011
    Beiträge
    6
    Kann mir keiner helfen?

  9. #9
    Neuer Benutzer Öfters hier
    Registriert seit
    24.04.2011
    Beiträge
    6

    Hilfeeeeeeeeeeeeeeee!!!!!!!!!!!!

    Hallo, Profis! Ein Anfänger braucht Hilfe.

Ähnliche Themen

  1. JoyPad mit RN-Mega128Funk
    Von Nico99 im Forum Basic-Programmierung (Bascom-Compiler)
    Antworten: 14
    Letzter Beitrag: 06.02.2010, 21:38
  2. RNBFRA + RN-Joypad = hähh?
    Von Fips1907 im Forum Bauanleitungen, Schaltungen & Software nach RoboterNetz-Standard
    Antworten: 2
    Letzter Beitrag: 23.10.2007, 19:38
  3. RN-Joypad mit RNFRA ansteuern
    Von Fips1907 im Forum Basic-Programmierung (Bascom-Compiler)
    Antworten: 0
    Letzter Beitrag: 22.10.2007, 13:00
  4. bautiele gesiucht für RN-JoyPad für Controllerboards
    Von lowtzow im Forum Bauanleitungen, Schaltungen & Software nach RoboterNetz-Standard
    Antworten: 3
    Letzter Beitrag: 26.06.2007, 11:09
  5. Fertiges Projekt: RN-JoyPad - JoyPad für Controllerboards
    Von Frank im Forum Bauanleitungen, Schaltungen & Software nach RoboterNetz-Standard
    Antworten: 0
    Letzter Beitrag: 09.06.2006, 10:02

Berechtigungen

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