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.
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.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
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.
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!
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.
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)Code:If Command.7 = Command_old Then Incr Taste_lang Else Command_old = Command.7 End If
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
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
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! \/
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
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! \
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?
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! \
Berechtigungen
Zitieren
Lesezeichen