Searcher

Ich habe doch noch ein bißchen mit der Fernbedienung gespielt. Hier der gegenwärtige Stand plus Video, damit es nicht so trocken wird.

Schaltung

Code:

HW_RC5_PWM: Ferngesteuerter IR Empfänger (RC5)

              4,8V NiMh
               VCC
                +     Block- und Pufferkondensatoren n. gez.
                |
          .-----o-----------------------o----o----o--------.
          |     |           ATtiny45    |    |    |        |
    TSOP .-.    | 10k ___   1 __ 8      |    |    |        |
   36kHz | |    '----|___|--o|  |o------'    |    |        |
         | |----------------o|  |o-          |    |        |
         '-'         .------o|  |o------.    |    |Motor1  |Motor2
          '-----o----)------o|__|o-     |    |   / \      / \
                |    |      4    5      |    |  (   )    (   )
                |    | .----------------'    |   \ /      \ /
                |    | |    1 __ 18          |    |        |
                |    '-)----o|  |o-----------)----'        |
                |      '----o|  |o-----------)-------------'
                |          -o|  |o-          |
                |          -o|  |o-          |
                |          -o|  |o-          |
                |          -o|  |o-          |
                |          -o|  |o-          |
                |          -o|  |o-          |
                o-----------o|__|o-----------'
                |           9    10
                |           ULN2803A
                |
                |
               ===
               GND

BASCOM Code

Code:

'#################################################  ##############################
'File: RC5_PWM.bas
'Fernbedienung eines Dreirades mit RC5 Fernbedienung
'IDE: BASCOM-AVR Demoversion 1.11.9.8
'
'HW circuit: hw_rc5_pwm.aac
'PWM Erzeugung mit Timer1
'TSOP an PB3. BASCOM Kommando Getrc5 nutzt Timer0 !!!
'#################################################  ##############################

$regfile = "attiny45.dat"
$eepleave
$framesize = 32                         'default?
$swstack = 32                           'default?
$hwstack = 32                           'default?
$crystal = 1000000
$lib "mcsbyteint.lbx"                   'only byte and word operations

Dim Address As Byte , Command As Byte   'variables for getrc5

Dim Helperbyte1 As Byte
Dim Dummy As Byte
Dim Helperword As Word At Helperbyte1 Overlay
Dim Top As Byte
Dim Limit_slower As Byte
Dim Limit_faster As Byte
Dim Limit_low_curve As Byte
Dim Limit_high_curve As Byte
Dim Quarter_power As Byte
Dim Half_power As Byte

Config Portb = Input                    'ports initialisieren
Portb = &HFF                            'ports mit pullups auf definierten Pegel

Config Rc5 = Pinb.3                     'TSOP at PB3
Enable Interrupts                       'nötig für RC5 Empfang

Config Portb.4 = Output                 'PB4 as output, OC1B
Config Portb.1 = Output                 'PB1 as output, OC1A

Top = 249                               'OCR1C wert für PWM Frequenz
Half_power = Top
Shift Half_power , Right , 1
Quarter_power = Half_power
Shift Quarter_power , Right , 1
Limit_slower = 7
Limit_faster = Top - 8
Limit_low_curve = 3
Limit_high_curve = Top - 4


Tccr1 = Tccr1 Or &B01100000             'set PWM1A & OC1A (PB1)
Gtccr = Gtccr Or &B01100000             'set PWM1B & OC1B (PB4) clear TCNT1 on OCR1C match
Ocr1a = 0                               'initialise OCR1A -> low, no pulses at OC1A
Ocr1b = 0                               'initialise OCR1B -> low, no pulses at OC1B
Ocr1c = Top                             'set pwm frq. 1Mhz / 4 / (Top + 1)
Tccr1 = Tccr1 Or &B00000011             'set prescaler (4) switches timer on

Do
   Getrc5(address , Command)            'procedure returns FF FF if no RC5 message
   If Address <> &HFF Then              'RC5 Nachricht empfangen then...
      Command = Command And &B01111111  'toggle bit auf Null
      Select Case Command
         Case &H17 : Helperword = Ocr1a + Ocr1b       'OK Taste - geradeaus
                     Shift Helperword , Right , 1       'durch zwei teilen
                     Ocr1a = Helperbyte1
                     Ocr1b = Helperbyte1
         Case &H0F : If Ocr1a > Limit_slower And Ocr1b > Limit_slower Then
                          Ocr1a = Ocr1a - 8       'langsamer bei Pfeil nach unten
                          Ocr1b = Ocr1b - 8
                        Else
                          Ocr1a = 0     'bei Reg.überläufen Notstop
                          Ocr1b = 0
                     End If
         Case &H0E : If Ocr1a < Limit_faster And Ocr1b < Limit_faster Then
                          Ocr1a = Ocr1a + 8       'schneller bei Pfeil nach oben
                          Ocr1b = Ocr1b + 8
                        Else
                          Ocr1a = Top   'schneller geht's nicht
                          Ocr1b = Top
                     End If
         Case &H13 : If Ocr1a > Limit_low_curve And Ocr1b < Limit_high_curve Then
                          Ocr1a = Ocr1a - 4       'rechts bei Pfeil nach rechts
                          Ocr1b = Ocr1b + 4
                        Else
                          Ocr1a = 0
                          Ocr1b = 0
                     End If
         Case &H0B : If Ocr1a < Limit_high_curve And Ocr1b > Limit_low_curve Then
                          Ocr1a = Ocr1a + 4       'links bei Pfeil nach links
                          Ocr1b = Ocr1b - 4
                        Else
                          Ocr1a = 0     'bei Reg.überläufen Notstop
                          Ocr1b = 0
                     End If
         Case &H1D : Ocr1a = 0          'stop bei home Taste
                     Ocr1b = 0
         Case &H01 : Ocr1a = Quarter_power       '1/4 Gas mit Taste 1
                     Ocr1b = Quarter_power
         Case &H02 : Ocr1a = Half_power '1/2 Gas mit Taste 2
                     Ocr1b = Half_power
         Case &H03 : Ocr1a = Top        'Vollgas mit Taste 3
                     Ocr1b = Top
         Case &H37 : Ocr1a = 0          'Pirouette rechts mit Taste Audio
                     Ocr1b = Top
         Case &H36 : Ocr1a = Top        'Pirouette links mit Taste View
                     Ocr1b = 0
'for quick and dirty tests
         Case &H08 : Ocr1c = 249        'PWM Frequenz auf 1000 mit Taste 8
         Case &H07 : Ocr1c = Ocr1c - 10 'erhöhe PWM f in 40Hz Schritten; Taste 7
         Case &H09 : Ocr1c = Ocr1c + 10 'decrease PWM f in 40Hz Schritten; Taste 9
      End Select
   End If
   Waitms 30                            'Änderungen nicht zu schnell bei gehaltener Taste
Loop