Hallo,
Ist es möglich den Timer im tiny13 zwei mal zu nutzen?
Gewünscht ist das ein pin abgefragt wird ob er 1 ist oder war - Bewegungsmelder einstellbar 0.2 - 18 s
Wenn eine Bewegung erfasst wurde dann soll eine PWM meinen ausgang ein dimmen und bei 100% bleiben für 30 s
Wenn in den 30 s wieder eine Bewegung erfasst wird fangen die 30 s immer wieder von vorn an wenn nicht dimmt das licht nach ablauf der 30 s aus.
Die Schaltung funktioniert schon so ähnlich, Problem ist nur das erst nach ablauf der 30 s bzw beim ausdimmen neu erfasst werden kann mir fehlt irgendwie die Möglichkeit ein interupt auszulösen
hier mal der code:
Danke schon mal im vorraus
(ja ich habe schon die suche verwendet aber es gibt zu viele variablen den jeder beschreibt sein Problem anders, vllt such ich auch falsch weil sich mein Problem anders lösen lässt als ichs mir vorstelle)
Ist es möglich den Timer im tiny13 zwei mal zu nutzen?
Gewünscht ist das ein pin abgefragt wird ob er 1 ist oder war - Bewegungsmelder einstellbar 0.2 - 18 s
Wenn eine Bewegung erfasst wurde dann soll eine PWM meinen ausgang ein dimmen und bei 100% bleiben für 30 s
Wenn in den 30 s wieder eine Bewegung erfasst wird fangen die 30 s immer wieder von vorn an wenn nicht dimmt das licht nach ablauf der 30 s aus.
Die Schaltung funktioniert schon so ähnlich, Problem ist nur das erst nach ablauf der 30 s bzw beim ausdimmen neu erfasst werden kann mir fehlt irgendwie die Möglichkeit ein interupt auszulösen
hier mal der code:
Code:
$regfile = "Attiny13.dat"
$crystal = 1200000
$hwstack = 10
$framesize = 17
$swstack = 0
Dim An As Byte
Dim Aus As Byte
Dim Pwm As Byte
Config Portb.0 = Output
Config Pinb.2 = Input
Tccr0a = &B11110001 : Tccr0b = &B00000010 : Ocr0b = 255
Ocr0a = 255 'Portb.2 = 1
An = 0 : Pwm = 255
Do
If Pinb.2 = 1 And An = 0 Then
Do
Decr Pwm : Ocr0a = Pwm : Waitms 10
An = 1
Loop Until Pwm = 0
Wait 3
Elseif Pinb.2 = 1 And An = 1 Then
Elseif Pinb.2 = 0 And An = 1 Then
Do
Incr Pwm : Ocr0a = Pwm : Waitms 10
An = 0
Loop Until Pwm = 255 Or Pinb.2 = 1
End If
Loop
Danke schon mal im vorraus
(ja ich habe schon die suche verwendet aber es gibt zu viele variablen den jeder beschreibt sein Problem anders, vllt such ich auch falsch weil sich mein Problem anders lösen lässt als ichs mir vorstelle)