- 3D-Druck Einstieg und Tipps         
Seite 2 von 2 ErsteErste 12
Ergebnis 11 bis 13 von 13

Thema: Funksteuerung eines Roboters

  1. #11
    Benutzer Stammmitglied
    Registriert seit
    05.10.2007
    Alter
    34
    Beiträge
    63
    Anzeige

    Praxistest und DIY Projekte
    mh... als ich kann einfach eine Fernbedienung einen alten Fernsehers nehemen?... aber dann brauche ich doch einen IR Empfänger oder?... kann ich da jeden nehmen?...

    gruß

    ma-power

  2. #12
    Benutzer Stammmitglied
    Registriert seit
    24.10.2007
    Ort
    San Jose
    Beiträge
    43
    Hallo erstmal.Ich habe mir einen ASURO gebaut und C gelernt. Ich habe eine DVD-Player Ferbedinung auf das IR-Modul gehalten und Hyperterminal geschaut.Sihe da es funktioniert!!!Leider kommen nur verwirrende zeichen.Ich wollte auch über Funk MEINEN ASURO unter die Arme greifen.Dann muss ich ihm nicht hinterherlaufen um ihn zurück zu holen.Kann jemand den Code in C übersetzen??

  3. #13
    Benutzer Stammmitglied
    Registriert seit
    25.11.2007
    Ort
    Boppard
    Alter
    32
    Beiträge
    37
    Das was du für verwirrende Zeichen gesehen hast kann aber der yc durch Bascom leicht umsetzen:

    --> Config Rc5 = Pinb.0

    --> Getrc5(address , Command)

    Code:
    Code:
    ============================================= 
    '     Infrartot - Fernbedinung - LCD Adress and Comand 
    '============================================= 
    
    $regfile = "m8def.dat" 
    $crystal = 8000000 
    
    Config Pinb.0 = Input 
    Config Rc5 = Pinb.0              'Einfach ne Fotodiode zwischen Masse und PinB.0 
    
    Portb.0 = 1                                                 'Pullup aktivieren 
    
    Enable Interrupts 
    
    Dim Address As Byte , Command As Byte , Dispon As Bit 
    
    Initlcd 
    Cls 
    Initlcd 
    Cls 
    Home Upper 
    Lcd "Waiting for RC5" 
    
    Dispon = 1 
    
    Do 
      Getrc5(address , Command) 
      Home Lower 
      Lcd "---No Command---" 
      If Address <> 255 Then 
         'clear the toggle bit 
         'the toggle bit toggles on each new received command 
         'toggle bit is bit 7. Extended RC5 bit is in bit 6 
         Command = Command And &B01111111 
         Home Lower 
         Lcd "-- " ; Address ; " -- " ; Command ; " --" 
    
         If Command = 12 Then 
           Dispon = Not Dispon 
           If Dispon = 1 Then 
             Display On 
           Else 
             Display Off 
           End If 
         End If 
    
         Wait 1 
      End If 
      Waitms 10 
    Loop 
    End
    Wie ich schon gesagt habe ist eigentlich ne ziemlich einfache Angelegenheit. zu Test hat bei mir im dunklen Raum sogar schon ein einfacher Fototransistor von Masse zu PinB.0 gereicht !

Seite 2 von 2 ErsteErste 12

Berechtigungen

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

Labornetzteil AliExpress