Hallo Zusammen
Der Winzling ATTiny 25 bringt mich noch zur Verzeiflung
Problem:
Der Ausgang Jz_out soll in Abhängigkeit des Steuereingangs Tz durchgereicht werden
Bei Tz =0 (Nacht) einfach 1:1 auf Durchzug
Bei Tag mit Verzögerung einschalten und ohne Verzögerung ausschalten
Das Ding macht einfach nicht das was ich will
Wichtig: Ich bin nur Hobbyprogrammierer
******************************************************************
Alles anzeigen
Der Winzling ATTiny 25 bringt mich noch zur Verzeiflung
Problem:
Der Ausgang Jz_out soll in Abhängigkeit des Steuereingangs Tz durchgereicht werden
Bei Tz =0 (Nacht) einfach 1:1 auf Durchzug
Bei Tag mit Verzögerung einschalten und ohne Verzögerung ausschalten
Das Ding macht einfach nicht das was ich will
Wichtig: Ich bin nur Hobbyprogrammierer
******************************************************************
Quellcode
- '------------------------------------------------------------------
- ' Tiny25_1.bas
- ' 10.11.2022
- ' ATTiny25
- ' V 1.0
- ' Impulsunterdrückung und Einschaltverzögerung
- '------------------------------------------------------------------
- '
- '
- $regfile = "attiny25.dat"
- $Crystal=1000000 'intern 8,0 MHz / 8
- $hwstack = 32
- $swstack = 32
- $framesize = 40
- Config PinB.0 = input 'Jahreszeit Eingang
- Config PinB.2 = input 'Tageszeit Eingang
- Config PortB.1 = Output 'Jahreszeit Ausgang
- Config PortB.4 = Output 'Messausgang
- 'Test alias portb.4 ' nur für Test
- Tz alias PinB.2
- Jz_in alias PinB.0
- Jz_out alias PortB.1
- Tz=1 ' Pull up ein (nur für Test)
- Jz_in =1 ' Pull up ein (nur für Test)
- Enable Interrupts
- do
- select case Tz
- case 0: Jz_out = Jz_in 'Nacht 1:1 Übertragung
- case 1: goto M1 'Tag
- end select
- M1: 'Tag
- select case Jz_in
- case 0: Jz_out = 0
- case 1: goto M2
- end select
- M2: ' Verzögerung Anstieg
- Wait 2
- Jz_out = Jz_in
- loop
- end