Tasten wir uns mal ran. Ich hab immer noch nicht verstanden, was im Datail unbefriedigend ist und hab einfach mal was gemacht. Kennst das, was von Planung über Entwicklung, Fabrikation, Lieferung und Montage am Ende übrig bleibt 
?
Nicht getestet aber sollte so sein:
Auswahl Szenario wie gehabt.
Am Ende der Auswahl bei Taster loslassen werden die Relais(Leds) nicht abgeschaltet, aktuelles Szenario bleibt an.
Mit folgendem kurzem Tastendruck wird dann abgeschaltet.
Mit weiterem kurzen Tastendruck wird vorhergehendes Szenario wieder eingeschaltet.
Hab noch ein Case für den kuzen Tastendruck eingefügt und das Abschalten der LedX am Ende rausgenommen. - Dieses Case wieder entfallen nach Update. Kurzer Tastendruck wird am Ende abgefragt.
PS. Ohhh schon Fehler entdeckt - Update kommt später
Update gemacht 
Code:
'###################################
'### Bascom Demoversion V2.0.7.5 ###
'###################################
$regfile = "m168def.dat"
$framesize = 32
$swstack = 32
$hwstack = 34
$crystal = 16000000
Dim Hundertstelsekunden As Word 'enthält Tastendrucklänge in Hundertstel Sekunden
Dim Ledspeicher As Byte 'Speichert Zustand der LEDs in einzelnen Bits
Const Led_1 = 0 'Zum Adressieren der Bits in Ledspeicher
Const Led_2 = 1 'Zum Adressieren der Bits in Ledspeicher
Const Led_3 = 2 'Zum Adressieren der Bits in Ledspeicher
Portd.4 = 1 'Pullup an PD4 einschalten
Taster Alias Pind.4 'Taster an PD4
Led1 Alias Portc.0 'Anschluß für LED1 ?
Led2 Alias Portc.1 'Anschluß für LED2 ?
Led3 Alias Portb.3 'Anschluß für LED3 ?
Config Led1 = Output
Config Led2 = Output
Config Led3 = Output
Do 'Hauptschleife
Debounce Taster , 0 , Taste_gedrueckt , Sub 'Wenn Tasteranschluß auf 0 (low) -> Subroutine Taste_gedrueckt
'Debounce hat bei Aktivität auf dem PIN ca. 25ms Verzögerung
Loop 'Ende Hauptschleife
Taste_gedrueckt: 'Unterprogram wird angesprungen, wenn Taste gedrückt wurde
Hundertstelsekunden = 0 'initialisieren für Zeitmessung
While Taster = 0 'Solange Taster gedrückt ist...
Waitms 10 '0,01s Zeitmeßschritte
Incr Hundertstelsekunden 'alle 10ms erhöhen
Select Case Hundertstelsekunden 'Hundertstelsekunden enthält Länge des Tastendruckes in Hundertstelsekunden
Case 20 To 69 : Ledspeicher = Bits(led_1) 'Taste zwischen 200ms und <700ms gedrückt
Case 70 To 119 : Ledspeicher = Bits(led_2) 'Taste zwischen 700ms und <1200ms gedrückt
Case 120 To 169 : Ledspeicher = Bits(led_3)
Case 170 To 219 : Ledspeicher = Bits(led_1 , Led_2)
Case 220 To 269 : Ledspeicher = Bits(led_1 , Led_3)
Case 270 To 319 : Ledspeicher = Bits(led_2 , Led_3)
Case 320 To 369 : Ledspeicher = Bits(led_1 , Led_2 , Led_3)
Case 370 : Hundertstelsekunden = 19 'Taste 3,7s und länger gedrückt-> Auswahl Lichtszenario beginnt neu
End Select
if Hundertstelsekunden >= 20 then 'wenn Selektion, dann Leds entsprechend einschalten
Led1 = Ledspeicher.Led_1
Led2 = Ledspeicher.Led_2
Led3 = Ledspeicher.Led_3
end if
Wend
if Hundertstelsekunden < 20 then 'wenn Taste nur kurz gedrückt wurde ...
If Led1 = 1 or Led2 = 1 or Led3 = 1 then 'und irgendeine Led eingeschaltet ist
Led1 = 0 'dann alle ausschalten
Led2 = 0
Led3 = 0
else 'oder gespeichertes Szenario einschalten.
Led1 = Ledspeicher.Led_1
Led2 = Ledspeicher.Led_2
Led3 = Ledspeicher.Led_3
end if
end if
Return 'zurück zur Hauptschleife
End 'end program
Danke dafür!
Zitieren
Zitat von p@ty
Jetzt sollte es passen. Hab den Code von heute morgen ausgetauscht und bin nun auch gespannt.
Lesezeichen