Hallo,
ich habe ein Problem.
Ich muss drei Zeiten einstellen einmal die Uhrzeit, dann die StartZeit und die StopZeit
Dafür möchte ich drei Taster verwenden.
Schon richtig soll eine Weihnachtsbleuchtungsregelung mit 7Seg 4Digit Anzeige werden.
Dann Taster1 für 20 sek zwishen 1 und 3 = Uhrzeit, StartZeit und StopZeit
Dann Taster2 für Stunde und Minute
DAnn Taster3 zum Einstellen der jeweiligen Stelle.
Mir will einfach nicht einfallen wie ich den Wert für 20 Sek "Festhalten" soll um die jeweilige Einstellung vorzunehmen.
Kann mir da jemand helfen?
Mein erster Enwurf:
Alles anzeigen
Grüße
Alex
ich habe ein Problem.
Ich muss drei Zeiten einstellen einmal die Uhrzeit, dann die StartZeit und die StopZeit
Dafür möchte ich drei Taster verwenden.
Schon richtig soll eine Weihnachtsbleuchtungsregelung mit 7Seg 4Digit Anzeige werden.
Dann Taster1 für 20 sek zwishen 1 und 3 = Uhrzeit, StartZeit und StopZeit
Dann Taster2 für Stunde und Minute
DAnn Taster3 zum Einstellen der jeweiligen Stelle.
Mir will einfach nicht einfallen wie ich den Wert für 20 Sek "Festhalten" soll um die jeweilige Einstellung vorzunehmen.
Kann mir da jemand helfen?
Mein erster Enwurf:
Quellcode
- Var_hour = _hour
- Var_min = _min
- If Taster1 = 1 Then
- Waitms 25
- Incr Set_time
- While Set_wert < 200
- If Taster1 = 1 Then
- Waitms 25
- Incr Set_time
- Set_wert = 0
- End If
- If Set_wert = 4 Then Set_wert = 0
- Waitms 100
- Wend
- End If
- If Set_time = 1 Then
- 'Uhrzeit
- While Set_wert < 200
- Incr Set_wert
- If Taster2 = 1 Then
- Waitms 25
- Incr Set_uhr
- Set_wert = 0
- End If
- If Set_uhr = 3 Then Set_uhr = 0
- Waitms 100
- Wend
- Set_wert = 0
- If Set_uhr = 1 Then
- While Set_wert < 200
- Incr Set_wert
- If Taster3 = 1 Then
- Waitms 25
- Incr Var_set_stunde
- Set_wert = 0
- End If
- If Var_set_stunde > 24 Then Var_set_stunde = 0
- Wend
- End If
- If Set_uhr = 2 Then
- While Set_wert < 200
- Incr Set_wert
- If Taster3 = 1 Then
- Waitms 25
- Incr Var_set_minute
- Set_wert = 0
- End If
- If Var_set_minute > 59 Then Var_set_minute = 0
- Wend
- End If
- _hour = Var_set_stunde
- _min = Var_set_minute
- Elseif Set_time = 2 Then
- 'Start Zeit
- While Set_wert < 200
- Incr Set_wert
- If Taster2 = 1 Then
- Waitms 25
- Incr Set_uhr
- Set_wert = 0
- End If
- If Set_uhr = 3 Then Set_uhr = 0
- Waitms 100
- Wend
- Set_wert = 0
- If Set_uhr = 1 Then
- While Set_wert < 200
- Incr Set_wert
- If Taster3 = 1 Then
- Waitms 25
- Incr Var_set_stunde
- Set_wert = 0
- End If
- If Var_set_stunde > 24 Then Var_set_stunde = 0
- Wend
- End If
- If Set_uhr = 2 Then
- While Set_wert < 200
- Incr Set_wert
- If Taster3 = 1 Then
- Waitms 25
- Incr Var_set_minute
- Set_wert = 0
- End If
- If Var_set_minute > 59 Then Var_set_minute = 0
- Wend
- End If
- Elseif Set_time = 3 Then
- 'Stop Zeit
- While Set_wert < 200
- Incr Set_wert
- If Taster2 = 1 Then
- Waitms 25
- Incr Set_uhr
- Set_wert = 0
- End If
- If Set_uhr = 3 Then Set_uhr = 0
- Waitms 100
- Wend
- Set_wert = 0
- If Set_uhr = 1 Then
- While Set_wert < 200
- Incr Set_wert
- If Taster3 = 1 Then
- Waitms 25
- Incr Var_set_stunde
- Set_wert = 0
- End If
- If Var_set_stunde > 24 Then Var_set_stunde = 0
- Wend
- End If
- If Set_uhr = 2 Then
- While Set_wert < 200
- Incr Set_wert
- If Taster3 = 1 Then
- Waitms 25
- Incr Var_set_minute
- Set_wert = 0
- End If
- If Var_set_minute > 59 Then Var_set_minute = 0
- Wend
- End If
- End If
Grüße
Alex
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von Alex_T ()