- fchao-Sinus-Wechselrichter AliExpress         
Seite 1 von 2 12 LetzteLetzte
Ergebnis 1 bis 10 von 14

Thema: RC5 kurzen und langen Tastendruck unterscheiden

  1. #1
    Erfahrener Benutzer Roboter Experte
    Registriert seit
    06.07.2006
    Alter
    94
    Beiträge
    627

    RC5 kurzen und langen Tastendruck unterscheiden

    Anzeige

    Praxistest und DIY Projekte
    Hallo,
    ich möchte mit einer RC5FB bei kurzem druck auf Taste 1 Ausgang 1 schalten. Bei langem Druck sollen Ausgang 1&2 schalten.
    Wie werte ich die Tastenlänge aus?

    In meinem Versuch zähle ich eine Variable hoch - aber irgend wo hängt es - uns zwar beim zurücksetzen/auswerten der Variable.

    Code:
    'RC5 Eingang über Pin5 / PD3
    
    'L1-L12 sind die Lampen, wobei die ungerade die halbe Helligkeit ist und die gerade die volle Helligkeit mit beiden zusammen
    
    '-------------------------------------------------------------------------------
    'Konfiguration µC:
    $regfile = "m8def.dat"                                      'AT-Mega8
    $crystal = 16000000                                         'Quarz: 16 MHz 
    $baud = 38400                                                                               'Baudrate definieren
    
    '-------------------------------------------------------------------------------
    'Ein- Ausgänge:
    Ddrb = &B11111111                                           '1 Ausgang, 0 Eingang => Pin PB7-0 als Ausgang
    Ddrc = &B11111111                                           '1 Ausgang, 0 Eingang => Pin PB7-0 als Ausgang
    
    Portb = 0
    Portc = 0
    
    '-------------------------------------------------------------------------------
    'Timer0 = 8 Bit
    'wird für RC5 Auswertung benötigt!!!
    Config Rc5 = Pind.3                                         'Timer0 in Benutzung!!!
    Portd.3 = 1                                                 '??????????????????????????????????
    
    '16Bit Timer:
    Config Timer1 = Timer , Prescale = 256
    On Timer1 Timer1_irq
    Const Timervorgabe = 34286                                  '2 mal pro Sekunde
    Enable Timer1
    Enable Interrupts
    
    
    '-------------------------------------------------------------------------------
    'Variablen:
    '-------------------------------------------------------------------------------
    Dim Address As Byte , Command As Byte , Flag As Bit         'RC5
    
    'Taste 1-6 auf der FB
    Dim T1 As Word , T2 As Word , T3 As Word , T4 As Word , T5 As Word , T6 As Word
    'Lampe 1-12
    Dim L1 As Bit , L2 As Bit , L3 As Bit , L4 As Bit , L5 As Bit , L6 As Bit , L7 As Bit , L8 As Bit , L9 As Bit , L10 As Bit , L11 As Bit , L12 As Bit ,
    
    
    'Lampen festlegen
    Portc.5 = L1
    Portc.4 = L2
    
    
    
    
    '-------------------------------------------------------------------------------
    'Vor Programmstart:
    
    'alle Lampen aus:
    L1 = 0
    L2 = 0
    L3 = 0
    L4 = 0
    L5 = 0
    L6 = 0
    L7 = 0
    L8 = 0
    L9 = 0
    L10 = 0
    L11 = 0
    L12 = 0
    
    
    '-------------------------------------------------------------------------------
    '-------------------------------------------------------------------------------
    'Hauptprogramm Do...Loop
    '-------------------------------------------------------------------------------
    '-------------------------------------------------------------------------------
    Print " geht los... "
    Do
    
    
    '-------------------------------------------------------------------------------
    'Rc5 Code einlesen:
    Getrc5(address , Command)
        'Print "Address: " ; Address
         'Print "Command: " ; Command
    
    
    
    '-------------------------------------------------------------------------------
    'RC5 Code umsetzen:
    
       If Address = 0 Then                                      'Adresse 0=TV FB
         Command = Command And &B01111111
         Reset Command.7                                        ' reset toggle bit / Restmüll beseitigen
    
            Select Case Command
    
               Case 0 : Print "CASE = 0"
               Case 1 : Incr T1
               Case 2 : Incr T2
               Case 3 : Incr T3
               Case 4 : Incr T4
               Case 5 : Incr T5
               Case 6 : Incr T6
               Case Else : Print "Fehler: " ; Command
             End Select
    
    
             If T1 > 0 Then                                     'wenn Taste 1 gedrückt wurde
    
    
    
    
                   If T1 => 1 And T1 < 6 Then                   'wenn Taste kurz gedrückt wurde
                       Print "--> T1: " ; T1
                       If L1 = 0 Then                           'wenn Lampe 1 aus ist
                         Set L1                                 'schalte Lampe 1 an
                         Print "L1 an"
                         Else                                   'sonst
                         Reset L1                               'schalte Lampe 1 aus
                         Print "L1 aus"
                         Reset L2                               'schalte Lampe 2 aus
                         Print "L2 aus"
                       End If
    
                   Else                                         'Wenn Taste 1 lange gedrückt wurde
                       Print "--> T1größer5: " ; T1
                       If L1 <> L2 Then                         'also nur 1 Lampen an
                         Set L1                                 'schalte Lampe 1 an
                         Print "L1an"
                         Set L2                                 'schalte Lame 2 an
                         Print "L2an"
                       End If
    
                       If L1 = 1 And L2 = 1 Then                'Wenn beide Lampen an sind
                         Reset L1                               'schalte Lampe 1 aus
                         Print "L1aus"
                         Reset L2                               'schalte Lampe 2 aus
                         Print "L2aus"
                       End If
    
                       If L1 = 0 And L2 = 0 Then                'Wenn beide Lampen aus sind
                         Set L1                                 'schlate Lampe 1 an
                         Print "L1 AN"
                         Set L2                                 'schalte Lampe 2 an
                         Print "L2 AN"
                       End If
    
                   End If
    
    
             End If                                             'ENDE von "wenn Taste 1 gedrückt wurde"
    
    
    
    
    
    
    
         'Print "-----------------------"
         'Print "Address: " ; Address
         'Print "Command: " ; Command
         'Print "-----------------------"
    
       Else                                                     'Wenn Adresse nicht = 0
       Timer1 = Timervorgabe                              'Timer1 zurücksetzen, damit erst bei Tastendruck gezählt wird
         Print "timerzurück"
       End If
    
    
    
    
    
    
    Loop
    '-------------------------------------------------------------------------------
    
    '-------------------------------------------------------------------------------
    'Sprungmarken
    '-------------------------------------------------------------------------------
    Timer1_irq:
    Timer1 = Timervorgabe
    
    T1 = 0
    T2 = 0
    T3 = 0
    T4 = 0
    T5 = 0
    T6 = 0
    
    Print "L1: " ; L1
    Print "L2: " ; L2
    
    
    Return
    wo muss ich den Timer zurück setzen? - nun wird er nach jedem Tastendruck zurück gesetzt und wenn man die Taste lange drückt, verhält sich das Programm so, als wenn die FB immer Impulse sendet.


    Hintergrund:
    Ich habe 6 Lampen mit je 2 Leuchtmitteln. 1 Leuchtmittel ist also halbe Helligkeit und 2 Leuchtmittel sind dann volle Helligkeit. Wenn man kurz drückt, soll eine Lampe angehen und wenn man etwas länger drückt, sollen beide Leuchtmittel angehen. "Aus" natürlich genauso.

  2. #2
    Moderator Robotik Visionär Avatar von radbruch
    Registriert seit
    27.12.2006
    Ort
    Stuttgart
    Alter
    61
    Beiträge
    5.799
    Blog-Einträge
    8
    Hallo

    Ja, genau das macht die Fernbedienung, wenn man länger drückt. Sie sendet mehrfach fast den selben Code. Das "fast" steckt hier:

    Reset Command.7 ' reset toggle bit / Restmüll beseitigen

    Schau dir mal an was das Togglebit macht!

    Gruß

    mic

    Im RN-Wissen ist es das Flip-Bit:
    http://www.rn-wissen.de/index.php/RC5-Code
    Bild hier  
    Atmel’s products are not intended, authorized, or warranted for use
    as components in applications intended to support or sustain life!

  3. #3
    Erfahrener Benutzer Roboter Experte
    Registriert seit
    06.07.2006
    Alter
    94
    Beiträge
    627
    Hallo,
    vielen Dank, nun wusste ich wonach ich suchen muss.

    Nun kann ich einen langen Tastendruck auswerten. Die Variable Taste_lang wird jede Sekunde zurückgesetzt.
    Code:
    If Command.7 = Command_old Then
         Incr Taste_lang
         Else
         Command_old = Command.7
         End If
    Jetzt muss ich es nur noch schaffen, dass bei einem langen Tastendruck nicht 5 mal vorher geschaltet wird - so ist es zumindest jetzt...(Variable Taste_lang = 5 ist ein langer Tastendruck)

  4. #4
    Erfahrener Benutzer Roboter Experte
    Registriert seit
    06.07.2006
    Alter
    94
    Beiträge
    627
    so, ich habe nun einen neuen Lösungsansatz:
    Problem war dass bei einem langen Tastendruck mehrmals zuvor geschaltet wurde bis der lange Tastendruck zählt(also der kurze Tastendruck wurde vorher ausgewertet). Nun habe ich mit den Bedingungen Variablen gesetzt und diese werden 1 mal pro Sekunde an die Ports übertragen.

    Manchmal kommt es vor, dass der Timer schon fast durchgelaufen ist, wenn eine Taste gedrückt wird. Wie muss ich das anstellen, dass der Timer erst losläuft, wenn eine Taste gedrückt wird?
    Code:
    '-------------------------------------------------------------------------------
    'Konfiguration µC:
    $regfile = "m8def.dat"                                      'AT-Mega8
    $crystal = 16000000                                         'Quarz: 16 MHz
    $baud = 38400                                               'Baudrate definieren
    
    '-------------------------------------------------------------------------------
    'Ein- Ausgänge:
    Ddrb = &B11111111                                           '1 Ausgang, 0 Eingang => Pin PB7-0 als Ausgang
    Ddrc = &B11111111                                           '1 Ausgang, 0 Eingang => Pin PB7-0 als Ausgang
    
    Portb = 0
    Portc = 0
    
    '-------------------------------------------------------------------------------
    'Timer0 = 8 Bit
    'wird für RC5 Auswertung benötigt!!!
    Config Rc5 = Pind.3                                         'Timer0 in Benutzung!!!
    Portd.3 = 1                                                 '??????????????????????????????????
    
    '16Bit Timer:
    Config Timer1 = Timer , Prescale = 256
    On Timer1 Timer1_irq
    Const Timervorgabe = 64911                                  '100 mal pro Sekunde
    Enable Timer1
    Enable Interrupts
    
    
    '-------------------------------------------------------------------------------
    'Variablen:
    '-------------------------------------------------------------------------------
    Dim Address As Byte , Command As Byte , Command_old As Bit , Flag As Bit       'RC5
    
    'Taste lange gedrückt
    Dim Taste_lang As Word
    'Taste 1-6 auf der FB
    Dim T1 As Word , T2 As Word , T3 As Word , T4 As Word , T5 As Word , T6 As Word
    'Lampe 1-12
    Dim L1 As Bit , L2 As Bit , L3 As Bit , L4 As Bit , L5 As Bit , L6 As Bit , L7 As Bit , L8 As Bit , L9 As Bit , L10 As Bit , L11 As Bit , L12 As Bit ,
    Dim L1s As Bit , L2s As Bit
    
    Dim Sek As Byte                                             'wenn = 100 dann 1 sec um
    
    'Lampen festlegen
    L1 Alias Portc.5
    L2 Alias Portc.4
    
    
    
    '-------------------------------------------------------------------------------
    'Vor Programmstart:
    
    'alle Lampen aus:
    L1 = 0
    L2 = 0
    L3 = 0
    L4 = 0
    L5 = 0
    L6 = 0
    L7 = 0
    L8 = 0
    L9 = 0
    L10 = 0
    L11 = 0
    L12 = 0
    
    
    '-------------------------------------------------------------------------------
    '-------------------------------------------------------------------------------
    'Hauptprogramm Do...Loop
    '-------------------------------------------------------------------------------
    '-------------------------------------------------------------------------------
    Print " geht los... "
    Do
    
    
    '-------------------------------------------------------------------------------
    'Rc5 Code einlesen:
    Getrc5(address , Command)
        'Print "Address: " ; Address
         'Print "Command: " ; Command
    
    
    
    '-------------------------------------------------------------------------------
    'RC5 Code umsetzen:
    
       If Address = 0 Then                                      'Adresse 0=TV FB
    
         If Command.7 = Command_old Then
         Incr Taste_lang
         Else
         Command_old = Command.7
         End If
    
         'Print "Command.7: " ; Command.7
         'Print "Taste_lang: " ; Taste_lang
    
            'Command = Command And &B01111111                    'reset toggle bit
            Reset Command.7                                     'reset toggle bit
            Select Case Command
    
               Case 0 : Print "CASE = 0"
               Case 1 : Incr T1
               Case 2 : Incr T2
               Case 3 : Incr T3
               Case 4 : Incr T4
               Case 5 : Incr T5
               Case 6 : Incr T6
               Case Else : Print "Fehler: " ; Command
             End Select
    
    
    
    
    
             If T1 > 0 Then                                     'wenn Taste 1 gedrückt wurde
    
                   L1s = L1                                     'Iststatus übernehmen
                   L2s = L2                                     'Iststatus übernehmen
    
                     If L1s = 0 And L2s = 0 Then
                         L1s = 1
                         Goto Sprung1                           'wenn Bedingung richtig, dann Restüberspringen bzw. bei lange drücken weitermachen
                     End If
                     If L1s = 1 And L2s = 0 Then
                         L1s = 0
                         Goto Sprung1
                     End If
                     If L1s = 1 And L2s = 1 Then
                         L2s = 0
                     End If
    
          Sprung1:
    
    
                      If Taste_lang => 2 Then                   'wenn lange gedrückt wird
                         Print "Taste_lang: " ; Taste_lang
                         If L1 = 1 And L2 = 0 Then
                         L1s = 1                                'immer beide setzen, falls davor anders gesetzt wurde(einzellampe)
                         L2s = 1
                         Goto Sprung2                           'wenn Bedingung richtig, dann Restüberspringen bzw. bei lange drücken weitermachen
                         End If
                         If L1 = 1 And L2 = 1 Then
                         L1s = 0
                         L2s = 0
                         Goto Sprung2                           'wenn Bedingung richtig, dann Restüberspringen bzw. bei lange drücken weitermachen
                         End If
                         If L1 = 0 And L2 = 0 Then
                         L1s = 1
                         L2s = 1
                         End If
                      End If
    
          Sprung2:
    
             End If                                             'ENDE von "wenn Taste 1 gedrückt wurde"
    
    
    
    
    
    
    
         'Print "-----------------------"
         'Print "Address: " ; Address
         'Print "Command: " ; Command
         'Print "-----------------------"
    
    
    
       Else                                                     'Wenn Adresse nicht = 0
          'Timer1 = Timervorgabe                                 'Timer1 zurücksetzen, damit erst bei Tastendruck gezählt wird
          'Print "timerzurück"
       End If
    
    
    
    
    If Sek => 100 Then
    Sek = 0
    T1 = 0
    T2 = 0
    T3 = 0
    T4 = 0
    T5 = 0
    T6 = 0
    Taste_lang = 0
    
    L1 = L1s
    L2 = L2s
    
    Print "L1: " ; L1
    Print "L2: " ; L2
    
    Sek = 0
    End If
    
    
    
    Loop
    '-------------------------------------------------------------------------------
    
    '-------------------------------------------------------------------------------
    'Sprungmarken
    '-------------------------------------------------------------------------------
    Timer1_irq:
    Timer1 = Timervorgabe
    
    Incr Sek
    
    
    
    Return

  5. #5
    Erfahrener Benutzer Roboter Experte
    Registriert seit
    06.07.2006
    Alter
    94
    Beiträge
    627
    so, das Programm läuft soweit.
    Als nur 2 Ausgänge geschaltet werden konnten lief es flüssig - jetzt mit 12 Ausgängen ist es etwas hackelig...also falls jemand noch optimierungsvorschläge hat - gerne!



    Code:
    'Konfiguration µC:
    $regfile = "m8def.dat"                                      'AT-Mega8
    $crystal = 16000000                                         'Quarz: 16 MHz
    $baud = 38400                                               'Baudrate definieren
    
    '-------------------------------------------------------------------------------
    'Ein- Ausgänge:
    Ddrb = &B11111111                                           '1 Ausgang, 0 Eingang => Pin PB7-0 als Ausgang
    Ddrc = &B11111111                                           '1 Ausgang, 0 Eingang => Pin PB7-0 als Ausgang
    
    Portb = 0
    Portc = 0
    
    '-------------------------------------------------------------------------------
    'Timer0 = 8 Bit
    'wird für RC5 Auswertung benötigt!!!
    Config Rc5 = Pind.3                                         'Timer0 in Benutzung!!!
    Portd.3 = 1                                                 '??????????????????????????????????
    
    '16Bit Timer:
    Config Timer1 = Timer , Prescale = 256
    On Timer1 Timer1_irq
    Const Timervorgabe = 64911                                  '100 mal pro Sekunde
    Enable Timer1
    Enable Interrupts
    
    
    '-------------------------------------------------------------------------------
    'Variablen:
    '-------------------------------------------------------------------------------
    Dim Address As Byte , Command As Byte , Command_old As Bit , Flag As Bit       'RC5
    
    'Taste lange gedrückt
    Dim Taste_lang As Word
    'Taste 1-6 auf der FB
    Dim T1 As Word , T2 As Word , T3 As Word , T4 As Word , T5 As Word , T6 As Word
    'Lampe 1-12
    Dim L1s As Bit , L2s As Bit , L3s As Bit , L4s As Bit , L5s As Bit , L6s As Bit , L7s As Bit , L8s As Bit , L9s As Bit , L10s As Bit , L11s As Bit , L12s As Bit ,
    
    Dim Empfang As Bit                                          'ist 0 wenn kein empfang  also 255 von address
    
    Dim Sek As Byte                                             'wenn = 100 dann 1 sec um
    
    'Lampen festlegen
    L1 Alias Portc.5
    L2 Alias Portc.4
    L3 Alias Portc.3
    L4 Alias Portc.2
    L5 Alias Portc.1
    L6 Alias Portc.0
    L7 Alias Portb.5
    L8 Alias Portb.4
    L9 Alias Portb.3
    L10 Alias Portb.2
    L11 Alias Portb.1
    L12 Alias Portb.0
    
    '-------------------------------------------------------------------------------
    'Vor Programmstart:
    
    'alle Lampen aus:
    L1 = 0
    L2 = 0
    L3 = 0
    L4 = 0
    L5 = 0
    L6 = 0
    L7 = 0
    L8 = 0
    L9 = 0
    L10 = 0
    L11 = 0
    L12 = 0
    
    
    '-------------------------------------------------------------------------------
    '-------------------------------------------------------------------------------
    'Hauptprogramm Do...Loop
    '-------------------------------------------------------------------------------
    '-------------------------------------------------------------------------------
    Print "Programm Start 38400 Baud..."
    Do
    
    
    '-------------------------------------------------------------------------------
    'Rc5 Code einlesen:
    Getrc5(address , Command)
        'Print "Address: " ; Address
         'Print "Command: " ; Command
    
    
    
    '-------------------------------------------------------------------------------
    'RC5 Code umsetzen:
       If Address = 255 Then                                    'also kein Signal
          Empfang = 0
       End If
    
    
       If Address = 0 Then                                      'Adresse 0=TV FB
             If Empfang = 0 Then
              Empfang = 1
              Timer1 = Timervorgabe                             'Timer1 zurücksetzen, damit erst bei Tastendruck gezählt wird
             'Print "timerzurück"
             End If
    
              If Command.7 = Command_old Then
              Incr Taste_lang
              Else
              Taste_lang = 0                                    'Variable zurücksetzen
              Command_old = Command.7
              End If
    
               'Print "Command.7: " ; Command.7
               'Print "Taste_lang: " ; Taste_lang
    
               'Command = Command And &B01111111                    'reset toggle bit
               Reset Command.7                                  'reset toggle bit
    
            Select Case Command
               Case 0 : Print "CASE = 0"
               Case 1 : Incr T1
                         Goto Lampe1
               Case 2 : Incr T2
                         Goto Lampe3
               Case 3 : Incr T3
                         Goto Lampe5
               Case 4 : Incr T4
                         Goto Lampe7
               Case 5 : Incr T5
                         Goto Lampe9
               Case 6 : Incr T6
                         Goto Lampe11
               Case Else : Print "Fehler: " ; Command
            End Select
       End If
    
    
    '-------------------------------------------------------------------------------
    'Relais ansteuern
    '-------------------------------------------------------------------------------
    
    Lampe1:
    '=============
    
             If T1 > 0 And Taste_lang < 6 Then                  'wenn Taste 1 gedrückt wurde UND Taste_lang nicht überlaufen ist!
    
                   L1s = L1                                     'Iststatus von Lampen übernehmen
                   L2s = L2                                     'Iststatus von Lampen übernehmen
    
                     If L1s = 0 And L2s = 0 Then
                         L1s = 1
                         Goto Sprung1                           'wenn Bedingung richtig, dann Restüberspringen bzw. bei lange drücken weitermachen
                     End If
                     If L1s = 1 And L2s = 0 Then
                         L1s = 0
                         Goto Sprung1
                     End If
                     If L1s = 1 And L2s = 1 Then
                         L2s = 0
                     End If
    
          Sprung1:
    
    
                      If Taste_lang => 3 And Taste_lang <= 5 Then       'wenn lange gedrückt wird (<=5 damit nicht über Timer gesprungen wird)
                         Print "Taste_lang: " ; Taste_lang
                         Taste_lang = 100                       'Variable setzen damit Routine kein zweites mal erfüllt wird
                         If L1 = 1 And L2 = 0 Then
                         L1s = 1                                'immer beide setzen, falls davor anders gesetzt wurde(einzellampe)
                         L2s = 1
                         Goto Sprung2                           'wenn Bedingung richtig, dann Restüberspringen bzw. bei lange drücken weitermachen
                         End If
                         If L1 = 1 And L2 = 1 Then
                         L1s = 0
                         L2s = 0
                         Goto Sprung2                           'wenn Bedingung richtig, dann Restüberspringen bzw. bei lange drücken weitermachen
                         End If
                         If L1 = 0 And L2 = 0 Then
                         L1s = 1
                         L2s = 1
                         End If
                      End If
    
          Sprung2:
    
             End If                                             'ENDE von "wenn Taste 1 gedrückt wurde"
             Goto Lampenende
    
    
    Lampe3:
    '=============
    
             If T2 > 0 And Taste_lang < 6 Then                  'wenn Taste 1 gedrückt wurde UND Taste_lang nicht überlaufen ist!
    
                   L3s = L3                                     'Iststatus von Lampen übernehmen
                   L4s = L4                                     'Iststatus von Lampen übernehmen
    
                     If L3s = 0 And L4s = 0 Then
                         L3s = 1
                         Goto Sprung3                           'wenn Bedingung richtig, dann Restüberspringen bzw. bei lange drücken weitermachen
                     End If
                     If L3s = 1 And L4s = 0 Then
                         L3s = 0
                         Goto Sprung3
                     End If
                     If L3s = 1 And L4s = 1 Then
                         L4s = 0
                     End If
    
          Sprung3:
    
    
                      If Taste_lang => 3 And Taste_lang <= 5 Then       'wenn lange gedrückt wird (<=5 damit nicht über Timer gesprungen wird)
                         Print "Taste_lang: " ; Taste_lang
                         Taste_lang = 100                       'Variable setzen damit Routine kein zweites mal erfüllt wird
                         If L3 = 1 And L4 = 0 Then
                         L3s = 1                                'immer beide setzen, falls davor anders gesetzt wurde(einzellampe)
                         L4s = 1
                         Goto Sprung4                           'wenn Bedingung richtig, dann Restüberspringen bzw. bei lange drücken weitermachen
                         End If
                         If L3 = 1 And L4 = 1 Then
                         L3s = 0
                         L4s = 0
                         Goto Sprung4                           'wenn Bedingung richtig, dann Restüberspringen bzw. bei lange drücken weitermachen
                         End If
                         If L3 = 0 And L4 = 0 Then
                         L3s = 1
                         L4s = 1
                         End If
                      End If
    
          Sprung4:
    
             End If                                             'ENDE von "wenn Taste 1 gedrückt wurde"
             Goto Lampenende
    
    
    Lampe5:
    '=============
    
             If T3 > 0 And Taste_lang < 6 Then                  'wenn Taste 1 gedrückt wurde UND Taste_lang nicht überlaufen ist!
    
                   L5s = L5                                     'Iststatus von Lampen übernehmen
                   L6s = L6                                     'Iststatus von Lampen übernehmen
    
                     If L5s = 0 And L6s = 0 Then
                         L5s = 1
                         Goto Sprung5                           'wenn Bedingung richtig, dann Restüberspringen bzw. bei lange drücken weitermachen
                     End If
                     If L5s = 1 And L6s = 0 Then
                         L5s = 0
                         Goto Sprung5
                     End If
                     If L5s = 1 And L6s = 1 Then
                         L5s = 0
                     End If
    
          Sprung5:
    
    
                      If Taste_lang => 3 And Taste_lang <= 5 Then       'wenn lange gedrückt wird (<=5 damit nicht über Timer gesprungen wird)
                         Print "Taste_lang: " ; Taste_lang
                         Taste_lang = 100                       'Variable setzen damit Routine kein zweites mal erfüllt wird
                         If L5 = 1 And L6 = 0 Then
                         L5s = 1                                'immer beide setzen, falls davor anders gesetzt wurde(einzellampe)
                         L6s = 1
                         Goto Sprung6                           'wenn Bedingung richtig, dann Restüberspringen bzw. bei lange drücken weitermachen
                         End If
                         If L5 = 1 And L6 = 1 Then
                         L5s = 0
                         L6s = 0
                         Goto Sprung6                           'wenn Bedingung richtig, dann Restüberspringen bzw. bei lange drücken weitermachen
                         End If
                         If L5 = 0 And L6 = 0 Then
                         L5s = 1
                         L6s = 1
                         End If
                      End If
    
          Sprung6:
    
             End If                                             'ENDE von "wenn Taste 1 gedrückt wurde"
             Goto Lampenende
    
    
    Lampe7:
    '=============
    
             If T4 > 0 And Taste_lang < 6 Then                  'wenn Taste 1 gedrückt wurde UND Taste_lang nicht überlaufen ist!
    
                   L7s = L7                                     'Iststatus von Lampen übernehmen
                   L8s = L8                                     'Iststatus von Lampen übernehmen
    
                     If L7s = 0 And L8s = 0 Then
                         L7s = 1
                         Goto Sprung7                           'wenn Bedingung richtig, dann Restüberspringen bzw. bei lange drücken weitermachen
                     End If
                     If L7s = 1 And L8s = 0 Then
                         L7s = 0
                         Goto Sprung7
                     End If
                     If L7s = 1 And L8s = 1 Then
                         L8s = 0
                     End If
    
          Sprung7:
    
    
                      If Taste_lang => 3 And Taste_lang <= 5 Then       'wenn lange gedrückt wird (<=5 damit nicht über Timer gesprungen wird)
                         Print "Taste_lang: " ; Taste_lang
                         Taste_lang = 100                       'Variable setzen damit Routine kein zweites mal erfüllt wird
                         If L7 = 1 And L8 = 0 Then
                         L7s = 1                                'immer beide setzen, falls davor anders gesetzt wurde(einzellampe)
                         L8s = 1
                         Goto Sprung8                           'wenn Bedingung richtig, dann Restüberspringen bzw. bei lange drücken weitermachen
                         End If
                         If L7 = 1 And L2 = 1 Then
                         L7s = 0
                         L8s = 0
                         Goto Sprung8                           'wenn Bedingung richtig, dann Restüberspringen bzw. bei lange drücken weitermachen
                         End If
                         If L7 = 0 And L8 = 0 Then
                         L7s = 1
                         L8s = 1
                         End If
                      End If
    
          Sprung8:
    
             End If                                             'ENDE von "wenn Taste 1 gedrückt wurde"
             Goto Lampenende
    
    
    Lampe9:
    '=============
    
             If T5 > 0 And Taste_lang < 6 Then                  'wenn Taste 1 gedrückt wurde UND Taste_lang nicht überlaufen ist!
    
                   L9s = L9                                     'Iststatus von Lampen übernehmen
                   L10s = L10                                   'Iststatus von Lampen übernehmen
    
                     If L9s = 0 And L10s = 0 Then
                         L9s = 1
                         Goto Sprung9                           'wenn Bedingung richtig, dann Restüberspringen bzw. bei lange drücken weitermachen
                     End If
                     If L9s = 1 And L10s = 0 Then
                         L9s = 0
                         Goto Sprung9
                     End If
                     If L9s = 1 And L10s = 1 Then
                         L10s = 0
                     End If
    
          Sprung9:
    
    
                      If Taste_lang => 3 And Taste_lang <= 5 Then       'wenn lange gedrückt wird (<=5 damit nicht über Timer gesprungen wird)
                         Print "Taste_lang: " ; Taste_lang
                         Taste_lang = 100                       'Variable setzen damit Routine kein zweites mal erfüllt wird
                         If L9 = 1 And L10 = 0 Then
                         L9s = 1                                'immer beide setzen, falls davor anders gesetzt wurde(einzellampe)
                         L10s = 1
                         Goto Sprung10                          'wenn Bedingung richtig, dann Restüberspringen bzw. bei lange drücken weitermachen
                         End If
                         If L9 = 1 And L10 = 1 Then
                         L9s = 0
                         L10s = 0
                         Goto Sprung10                          'wenn Bedingung richtig, dann Restüberspringen bzw. bei lange drücken weitermachen
                         End If
                         If L9 = 0 And L10 = 0 Then
                         L9s = 1
                         L10s = 1
                         End If
                      End If
    
          Sprung10:
    
             End If                                             'ENDE von "wenn Taste 1 gedrückt wurde"
             Goto Lampenende
    
    
    Lampe11:
    '=============
    
             If T6 > 0 And Taste_lang < 6 Then                  'wenn Taste 1 gedrückt wurde UND Taste_lang nicht überlaufen ist!
    
                   L11s = L11                                   'Iststatus von Lampen übernehmen
                   L12s = L12                                   'Iststatus von Lampen übernehmen
    
                     If L11s = 0 And L12s = 0 Then
                         L11s = 1
                         Goto Sprung11                          'wenn Bedingung richtig, dann Restüberspringen bzw. bei lange drücken weitermachen
                     End If
                     If L11s = 1 And L12s = 0 Then
                         L11s = 0
                         Goto Sprung11
                     End If
                     If L11s = 1 And L12s = 1 Then
                         L12s = 0
                     End If
    
          Sprung11:
    
    
                      If Taste_lang => 3 And Taste_lang <= 5 Then       'wenn lange gedrückt wird (<=5 damit nicht über Timer gesprungen wird)
                         Print "Taste_lang: " ; Taste_lang
                         Taste_lang = 100                       'Variable setzen damit Routine kein zweites mal erfüllt wird
                         If L11 = 1 And L12 = 0 Then
                         L11s = 1                               'immer beide setzen, falls davor anders gesetzt wurde(einzellampe)
                         L12s = 1
                         Goto Sprung12                          'wenn Bedingung richtig, dann Restüberspringen bzw. bei lange drücken weitermachen
                         End If
                         If L11 = 1 And L12 = 1 Then
                         L11s = 0
                         L12s = 0
                         Goto Sprung12                          'wenn Bedingung richtig, dann Restüberspringen bzw. bei lange drücken weitermachen
                         End If
                         If L11 = 0 And L12 = 0 Then
                         L11s = 1
                         L12s = 1
                         End If
                      End If
    
          Sprung12:
    
             End If                                             'ENDE von "wenn Taste 1 gedrückt wurde"
             Goto Lampenende
    
    
    
    Lampenende:
    
    
         'Print "-----------------------"
         'Print "Address: " ; Address
         'Print "Command: " ; Command
         'Print "-----------------------"
    
    
    
    
    
    '_______________________________________________________________________________
    If Sek => 100 And Address = 255 Then
    Sek = 0
    
    T1 = 0                                                      'Tastenzähler zurücksetzen
    T2 = 0
    T3 = 0
    T4 = 0
    T5 = 0
    T6 = 0
    
    L1 = L1s                                                    'Werte auf Ausgänge übertragen
    L2 = L2s
    L3 = L3s
    L4 = L4s
    L5 = L5s
    L6 = L6s
    L7 = L7s
    L8 = L8s
    L9 = L9s
    L10 = L10s
    L11 = L11s
    L12 = L12s
    
    
    Print "L1: " ; L1
    Print "L2: " ; L2
    Print "L3: " ; L3
    Print "L4: " ; L4
    Print "L5: " ; L5
    Print "L6: " ; L6
    Print "L7: " ; L7
    Print "L8: " ; L8
    Print "L9: " ; L9
    Print "L10: " ; L10
    Print "L11: " ; L11
    Print "L12: " ; L12
    Print "____________"
    
    
    
    End If
    
    
    
    Loop
    '-------------------------------------------------------------------------------
    
    '-------------------------------------------------------------------------------
    'Sprungmarken
    '-------------------------------------------------------------------------------
    Timer1_irq:
    Timer1 = Timervorgabe
    
    Incr Sek
    
    
    
    Return

  6. #6
    Erfahrener Benutzer Roboter Experte
    Registriert seit
    18.05.2007
    Ort
    Berlin
    Alter
    53
    Beiträge
    765
    Habe nicht getestet. Wäre ein Versuch wert.
    Code:
                  'Konfiguration µC:
    $regfile = "m8def.dat"                                      'AT-Mega8
    $crystal = 16000000                                         'Quarz: 16 MHz
    $baud = 38400                                               'Baudrate definieren
    $hwstack = 64                                               ' default use 32 for the hardware stack
    $swstack = 64                                               ' default use 10 for the SW stack
    $framesize = 64
    '-------------------------------------------------------------------------------
    'Ein- Ausgänge:
    Ddrb = &B11111111                                           '1 Ausgang, 0 Eingang => Pin PB7-0 als Ausgang
    Ddrc = &B11111111                                           '1 Ausgang, 0 Eingang => Pin PB7-0 als Ausgang
    
    Portb = 0
    Portc = 0
    
    '-------------------------------------------------------------------------------
    'Timer0 = 8 Bit
    'wird für RC5 Auswertung benötigt!!!
    Config Rc5 = Pind.3                                         'Timer0 in Benutzung!!!
    Portd.3 = 1                                                 'Pull Up für Empfänger
    
    '16Bit Timer:
    Config Timer1 = Timer , Prescale = 256
    On Timer1 Timer1_irq
    Const Timervorgabe = 64911                                  '100 mal pro Sekunde
    Enable Timer1
    Enable Interrupts
    
    
    '-------------------------------------------------------------------------------
    'Variablen:
    '-------------------------------------------------------------------------------
    Dim Address As Byte , Command As Byte , Command_old As Bit , Flag As Bit       'RC5
    
    'Taste lange gedrückt
    'Dim Taste_lang As Word
    'Taste 1-6 auf der FB
    Dim T1 As Byte , T2 As Byte , T3 As Byte                    ' , T4 As Byte , T5 As Byte , T6 As Byte
    'Lampe 1-12
    'Dim L1s As Bit , L2s As Bit , L3s As Bit , L4s As Bit , L5s As Bit , L6s As Bit , L7s As Bit , L8s As Bit , L9s As Bit , L10s As Bit , L11s As Bit , L12s As Bit ,
    
    Dim Empfang As Bit                                          'ist 0 wenn kein empfang  also 255 von address
    
    Dim Sek As Byte                                             'wenn = 100 dann 1 sec um
    Dim L As Integer
    
    'Lampen festlegen
    
    '-------------------------------------------------------------------------------
    'Vor Programmstart:
    
    'alle Lampen aus:
    
    Const An = 1
    Const Aus = 0
    Const Nichts = 255
    
    T3 = Nichts
    '-------------------------------------------------------------------------------
    '-------------------------------------------------------------------------------
    'Hauptprogramm Do...Loop
    '-------------------------------------------------------------------------------
    '-------------------------------------------------------------------------------
    Print "Programm Start 38400 Baud..."
    Do
    
    
    '-------------------------------------------------------------------------------
    'Rc5 Code einlesen:
    Getrc5(address , Command)
        'Print "Address: " ; Address
         'Print "Command: " ; Command
    
    
    
    '-------------------------------------------------------------------------------
    'RC5 Code umsetzen:
       If Address = 255 Then                                    'also kein Signal
          Empfang = 0
          Sek = 0
          T3 = Nichts
       End If
    
    
       If Address = 0 Then                                      'Adresse 0=TV FB
             If Empfang = 0 Then
              Empfang = 1
    '          Timer1 = Timervorgabe                             'Timer1 zurücksetzen, damit erst bei Tastendruck gezählt wird
             'Print "timerzurück"
             End If
    
     '         If Command.7 = Command_old Then
     '           Incr Taste_lang
     '         Else
     '            Taste_lang = 0                                    'Variable zurücksetzen
     '            Command_old = Command.7
     '         End If
    
               'Print "Command.7: " ; Command.7
               'Print "Taste_lang: " ; Taste_lang
    
               'Command = Command And &B01111111                    'reset toggle bit
     '          Reset Command.7                                  'reset toggle bit
    
            Select Case Command
               Case 0 : Print "CASE = 0"
               Case 1 : T1 = 1
                         T2 = 2
                         Gosub Lampe1
    
               Case 2 : T1 = 3
                         T2 = 4
                         Gosub Lampe1
    
               Case 3 : T1 = 5
                         T2 = 6
                         Gosub Lampe1
    
               Case 4 : T1 = 7
                         T2 = 8
                         Gosub Lampe1
    
               Case 5 : T1 = 9
                         T2 = 10
                         Gosub Lampe1
    
               Case 6 : T1 = 11
                         T2 = 12
                         Gosub Lampe1
    
               Case Else : Print "Fehler: " ; Command
            End Select
       End If
      '_______________________________________________________________________________
    
    Loop
    End
    
    
    
    '-------------------------------------------------------------------------------
    'Relais ansteuern
    '-------------------------------------------------------------------------------
    
    
    
    
    Lampe1:
    '=============
             If T3 = Nichts Then
                If L.t1 = 0 Then
                   T3 = An
                Else
                   T3 = Aus
                End If
             End If
             If Sek < 200 Then
                If T3 = An Then
                   Set L.t1
                   Print "L" ; T1 ; ":1"
                Else
                   Reset L.t2
                   Print "L" ; T2 ; ":0"
                End If
             Else
                If T3 = An Then
                   Set L.t2
                   Print "L" ; T2 ; ":1"
                Else
                   Reset L.t1
                   Print "L" ; T1 ; ":0"
                End If
             End If
             Gosub Setzen
    
    Return
    
    Timer1_irq:
    Timer1 = Timervorgabe
    
    If Empfang = 1 Then
       If Sek < 255 Then
          Incr Sek
       End If
    End If
    
    
    Return
    
    
    Setzen:
         Portc.5 = L.1
         Portc.4 = L.2
         Portc.3 = L.3
         Portc.2 = L.4
         Portc.1 = L.5
         Portc.0 = L.6
         Portb.5 = L.7
         Portb.4 = L.8
         Portb.3 = L.9
         Portb.2 = L.10
         Portb.1 = L.11
         Portb.0 = L.12
    Return
    Wenn das Herz involviert ist, steht die Logik außen vor! \/

  7. #7
    Erfahrener Benutzer Roboter Experte
    Registriert seit
    06.07.2006
    Alter
    94
    Beiträge
    627
    Hallo,
    sorry das ich erst nun antworte.

    @peterfido
    Das Programm läuft leider nicht.
    Dadurch dass mehrere Impulse von der FB gesendet werden reicht die Verriegelung mit der 255 nicht aus und man schafft es fast nie die FB Taste so kurz zu drücken das der Kontakt nicht mehrmals schaltet.
    Die andere Sache ist, dass nur ein Leuchtmittel gesteuert werden kann (oder ich hab das Programm noch nicht durchschaut) Jede Lampe hat 2 Leuchtmittel, wodurch 2 Helligkeitsstuffen möglich sind.

    ABER ich habe die Programmierweise (über die Variablen L.1 - L.12 die Lampen auswählen und so viele Programmzeilen sparen) übernommen.

    Jetzt kommt der Fehler der mir unmöglich erscheint. Alle Funktionen mit Taste 1,3,5 funktionieren - Taste 2,4,6 LANGE drücken auswerten funktioniert nicht?! Dabei werden doch alle Tasten gleich abgefragt...
    (zur Funktion: kurz drücken -> erstes Leuchtmittel an bzw. aus. lange drücken beide Leuchtmittel an bzw. aus)

    Code:
    '-------------------------------------------------------------------------------
    'Konfiguration µC:
    $regfile = "m8def.dat"                                      'AT-Mega8
    $crystal = 16000000                                         'Quarz: 16 MHz
    $baud = 38400                                               'Baudrate definieren
    
    '-------------------------------------------------------------------------------
    'Ein- Ausgänge:
    Ddrb = &B11111111                                           '1 Ausgang, 0 Eingang => Pin PB7-0 als Ausgang
    Ddrc = &B11111111                                           '1 Ausgang, 0 Eingang => Pin PB7-0 als Ausgang
    
    Portb = 0
    Portc = 0
    
    '-------------------------------------------------------------------------------
    'Timer0 = 8 Bit
    'wird für RC5 Auswertung benötigt!!!
    Config Rc5 = Pind.3                                         'Timer0 in Benutzung!!!
    Portd.3 = 1                                                 '??????????????????????????????????
    
    '16Bit Timer:
    Config Timer1 = Timer , Prescale = 256
    On Timer1 Timer1_irq
    Const Timervorgabe = 64911                                  '100 mal pro Sekunde
    Enable Timer1
    Enable Interrupts
    
    
    '-------------------------------------------------------------------------------
    'Variablen:
    '-------------------------------------------------------------------------------
    Dim Address As Byte , Command As Byte , Command_old As Bit , Flag As Bit       'RC5
    
    'Taste lange gedrückt
    Dim Taste_lang As Word
    Dim Empfang As Bit                                          'ist 0 wenn kein empfang  also 255 von address
    Dim Sek As Byte                                             'wenn = 100 dann 1 sec um
    Dim L As Integer , Ls As Integer , Lampe_x As Byte , Lampe_y As Byte
    
    'Lampen festlegen
    Lampe1 Alias Portc.5
    Lampe2 Alias Portc.4
    Lampe3 Alias Portc.3
    Lampe4 Alias Portc.2
    Lampe5 Alias Portc.1
    Lampe6 Alias Portc.0
    Lampe7 Alias Portb.5
    Lampe8 Alias Portb.4
    Lampe9 Alias Portb.3
    Lampe10 Alias Portb.2
    Lampe11 Alias Portb.1
    Lampe12 Alias Portb.0
    
    '-------------------------------------------------------------------------------
    'Vor Programmstart:
    
    'alle Lampen aus:
    Lampe1 = 0
    Lampe2 = 0
    Lampe3 = 0
    Lampe4 = 0
    Lampe5 = 0
    Lampe6 = 0
    Lampe7 = 0
    Lampe8 = 0
    Lampe9 = 0
    Lampe10 = 0
    Lampe11 = 0
    Lampe12 = 0
    
    Address = 255                                               'also kein Signal
    Command = 255                                               'also kein Signal
    
    Lampe_x = 255
    Lampe_y = 255
    
    '-------------------------------------------------------------------------------
    '-------------------------------------------------------------------------------
    'Hauptprogramm Do...Loop
    '-------------------------------------------------------------------------------
    '-------------------------------------------------------------------------------
    Print "Programm Start 38400 Baud..."
    Do
    Anfang:
    
    '-------------------------------------------------------------------------------
    'Rc5 Code einlesen:
    Getrc5(address , Command)
        'Print "Address: " ; Address
         'Print "Command: " ; Command
    
    
    
    '-------------------------------------------------------------------------------
    'RC5 Code umsetzen:
       If Address = 255 Then                                    'also kein Signal
          Empfang = 0
       End If
    
    
       If Address = 0 Then                                      'Adresse 0=TV FB
             If Empfang = 0 Then
              Empfang = 1
              Timer1 = Timervorgabe                             'Timer1 zurücksetzen, damit erst bei Tastendruck gezählt wird
             'Print "timerzurück"
             End If
    
              If Command.7 = Command_old Then
              Incr Taste_lang
              Else
              Taste_lang = 0                                    'Variable zurücksetzen
              Command_old = Command.7
              End If
    
               'Print "Command.7: " ; Command.7
               'Print "Taste_lang: " ; Taste_lang
    
               'Command = Command And &B01111111                    'reset toggle bit
               Reset Command.7                                  'reset toggle bit
    
               'Print Command
    
            Select Case Command
               Case 0 : Goto All_off
    
               Case 1 : Lampe_x = 1
                         Lampe_y = 2
                         Goto Lampe
               Case 2 : Lampe_x = 3
                         Lampe_y = 4
                         Goto Lampe
               Case 3 : Lampe_x = 5
                         Lampe_y = 6
                         Goto Lampe
               Case 4 : Lampe_x = 7
                         Lampe_y = 8
                         Goto Lampe
               Case 5 : Lampe_x = 9
                         Lampe_y = 10
                         Goto Lampe
               Case 6 : Lampe_x = 11
                         Lampe_y = 12
                         Goto Lampe
               Case Else : Print "Fehler: " ; Command
            End Select
       End If
    
    
    '-------------------------------------------------------------------------------
    'Relais ansteuern
    '-------------------------------------------------------------------------------
    
    Lampe:
    '=============
    
             If Lampe_x < 255 And Taste_lang < 7 Then           'wenn Taste 1 gedrückt wurde UND Taste_lang nicht überlaufen ist!
    
                 Ls.lampe_x = L.lampe_x                         'Iststatus von Lampen übernehmen
                 Ls.lampe_y = L.lampe_y                         'Iststatus von Lampen übernehmen
    
                     If Ls.lampe_x = 0 And Ls.lampe_y = 0 Then
                         L.lampe_x = 1
                         Goto Sprung1                           'wenn Bedingung richtig, dann Restüberspringen bzw. bei lange drücken weitermachen
                     End If
                     If Ls.lampe_x = 1 And Ls.lampe_y = 0 Then
                         L.lampe_x = 0
                         Goto Sprung1
                     End If
                     If Ls.lampe_x = 1 And Ls.lampe_y = 1 Then
                         L.lampe_y = 0
                     End If
    
          Sprung1:
    
                        If Taste_lang => 3 And Taste_lang < 7 Then       'wenn lange gedrückt wird (<=5 damit nicht über Timer gesprungen wird)
    
                         Print "Taste_lang: " ; Taste_lang
                         Taste_lang = 100                       'Variable setzen damit Routine kein zweites mal erfüllt wird
    
                         If Ls.lampe_x = 1 And Ls.lampe_y = 0 Then
                         L.lampe_x = 1                          'immer beide setzen, falls davor anders gesetzt wurde(einzellampe)
                         L.lampe_y = 1
                         Goto Sprung2                           'wenn Bedingung richtig, dann Restüberspringen bzw. bei lange drücken weitermachen
                         End If
    
                         If Ls.lampe_x = 1 And Ls.lampe_y = 1 Then
                         L.lampe_x = 0
                         L.lampe_y = 0
                         Goto Sprung2                           'wenn Bedingung richtig, dann Restüberspringen bzw. bei lange drücken weitermachen
                         End If
    
                         If Ls.lampe_x = 0 And Ls.lampe_y = 0 Then
                         L.lampe_x = 1
                         L.lampe_y = 1
                         End If
    
                      End If
    
           Sprung2:
             Gosub Lampen_setzen
             End If                                             'ENDE von "wenn Taste 1 gedrückt wurde"
    
    
    
    
    
    '_______________________________________________________________________________
    'If Sek = 50 Then
    'Goto Ausgabe
    
    
    
    'Ausgabe:
    'End If
    
    
    '_______________________________________________________________________________
    If Sek => 100 And Address = 255 Then
    Sek = 0
    
    Print "L1: " ; Lampe1
    Print "L2: " ; Lampe2
    Print "L3: " ; Lampe3
    Print "L4: " ; Lampe4
    Print "L5: " ; Lampe5
    Print "L6: " ; Lampe6
    Print "L7: " ; Lampe7
    Print "L8: " ; Lampe8
    Print "L9: " ; Lampe9
    Print "L10: " ; Lampe10
    Print "L11: " ; Lampe11
    Print "L12: " ; Lampe12
    Print "____________"
    
    End If
    
    
    
    Loop
    '-------------------------------------------------------------------------------
    
    '-------------------------------------------------------------------------------
    'Sprungmarken
    '-------------------------------------------------------------------------------
    Timer1_irq:
    Timer1 = Timervorgabe
    
    Incr Sek
    
    Return
    
    '-------------------------------------------------------------------------------
    Lampen_setzen:
    Lampe1 = L.1                                                'Werte auf Ausgänge übertragen
    Lampe2 = L.2
    Lampe3 = L.3
    Lampe4 = L.4
    Lampe5 = L.5
    Lampe6 = L.6
    Lampe7 = L.7
    Lampe8 = L.8
    Lampe9 = L.9
    Lampe10 = L.10
    Lampe11 = L.11
    Lampe12 = L.12
    Lampe_x = 255
    Lampe_y = 255
    
    Return
    
    '-------------------------------------------------------------------------------
    All_off:                                                    'Alle Lampen ausschalten
    
    Lampe1 = 0                                                  'Werte auf Ausgänge übertragen
    Lampe2 = 0
    Lampe3 = 0
    Lampe4 = 0
    Lampe5 = 0
    Lampe6 = 0
    Lampe7 = 0
    Lampe8 = 0
    Lampe9 = 0
    Lampe10 = 0
    Lampe11 = 0
    Lampe12 = 0
    
    'rücksetzen der Variablen
    L.1 = 0
    L.2 = 0
    L.3 = 0
    L.4 = 0
    L.5 = 0
    L.6 = 0
    L.7 = 0
    L.8 = 0
    L.9 = 0
    L.10 = 0
    L.11 = 0
    L.12 = 0
    
    
    Goto Anfang

  8. #8
    Erfahrener Benutzer Roboter Experte
    Registriert seit
    18.05.2007
    Ort
    Berlin
    Alter
    53
    Beiträge
    765
    War ein Versuch wert. Evtl. Sek nur jedes 10. Mal hochzählen...

    Leider habe ich passende Hardware nicht hier und kann so nicht testen. Diese Gotos aus Subs heraus würde ich durch Gosubs mit Return ersetzen.
    Wenn das Herz involviert ist, steht die Logik außen vor! \/

  9. #9
    Erfahrener Benutzer Roboter Experte
    Registriert seit
    06.07.2006
    Alter
    94
    Beiträge
    627
    naja, goto hat natürlich den Vorteil, dass der µC den Rest dann nicht mehr bearbeiten muss - so spare ich (jenachdem welche Taste gedrückt wurde und welche Lampen an sind) einige If...then-Schleifen.
    Macht es Sinn statt 16MHz mal 20Mhz zu testen?

  10. #10
    Erfahrener Benutzer Roboter Experte
    Registriert seit
    18.05.2007
    Ort
    Berlin
    Alter
    53
    Beiträge
    765
    Innerhalb der Subs nutze ich auch gelegentlich Goto. Aber aus der Hauptschleife heraus ein Sub mit Goto anzuspringen und am Ende wieder mit Goto zurück in die Hauptschleife habe ich bisher noch nicht gemacht.

    Mein IR-Fernbedienungsprojekt läuft super schnell mit 8 MHZ und steuert dabei noch ein Display an. Allerdings nutze ich da nicht die GetRc5 sondern eine eigene InterruptRoutine. 20 MHZ testen kann aber trotzdem nicht schaden, wobei ich den Fehler woanders vermute.

    Vielleicht krame ich am Wochenende mal mein Bastelzeugs vor und schaue mal, woran es liegt. Auch der Fehler in meinem schnell hingeschriebenen Code interessiert mich...
    Wenn das Herz involviert ist, steht die Logik außen vor! \/

Seite 1 von 2 12 LetzteLetzte

Berechtigungen

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

LiFePO4 Speicher Test