Hallo zusammen,
ich brauche eure Hilfe bei einem (lächerlichen) Prog. Folgendes: bei einem kurzen H-Signal an PB.3 soll ein Ausgang PB.4 auf High gehen und es wird ein Ton an PB.2 ausgegeben. Nach Ton-Ende soll PB.4 wieder abschalten.
Bei längerem H-Signal an PB.3 geht PB.0 auf High, solange ein Signal an PB.3 anliegt. Das funktioniert bisher.
Was ich nicht hin bekomme, wenn der Eingang PB.3 länger ansteht, soll der Ausgang PB.0 nach 3min abschalten. Ich sehe den Wald vor lauter Bäumen nicht. Wer kann mir helfen ?
Alles anzeigen
Danke !
ich brauche eure Hilfe bei einem (lächerlichen) Prog. Folgendes: bei einem kurzen H-Signal an PB.3 soll ein Ausgang PB.4 auf High gehen und es wird ein Ton an PB.2 ausgegeben. Nach Ton-Ende soll PB.4 wieder abschalten.
Bei längerem H-Signal an PB.3 geht PB.0 auf High, solange ein Signal an PB.3 anliegt. Das funktioniert bisher.
Was ich nicht hin bekomme, wenn der Eingang PB.3 länger ansteht, soll der Ausgang PB.0 nach 3min abschalten. Ich sehe den Wald vor lauter Bäumen nicht. Wer kann mir helfen ?
Quellcode
- $regfile = "ATtiny85.DAT"
- $crystal = 1000000
- $prog &HFF , &H62 , &HDF , &HFF
- Ddrb.3 = 0
- Ddrb.1 = 0
- Portb.3 = 1
- Portb.1 = 1
- Ddrb.2 = 1
- Ddrb.4 = 1
- Ddrb.0 = 1
- Dim Laber As Bit
- Prr = &B00001111
- Portb.4 = 0
- Portb.0 = 0
- Do
- Main:
- If Pinb.3 = 1 Then
- Portb.0 = 0
- End If
- Waitms 100
- If Pinb.3 = 0 Then
- ..
- Waitms 500
- If Pinb.3 = 0 Then
- Merker = 1
- Portb.0 = 1
- Goto Main
- End If
- If Pinb.3 = 1 And Merker = 0 Then
- Portb.4 = 1
- Sound Portb.2 , 3000 , 46
- Portb.4 = 0
- Else
- End If
- Else
- End If
- Merker = 0
- Goto Main
- Loop
- End