Blinklicht mit 3 LED´s

'============================================================
'
' ********************************************************
' *** ***
' *** Tiny-Reaktivlicht mit LDR und A/D-Wandler ***
' *** mit Watchdog-Energiesparmodus und Tagabschaltung ***
' *** ***
' *** erstellt von Windi für www.geoclub.de ***
' *** 15.10.2006 ***
' *** ***
' ********************************************************
'
' µC: ATtiny13V
' +Ub: 3,00 V
' I: 17 µA im Leerlauf (Nachtbetrieb)
' I: 5 µA bei Tagabschaltung
' Reichweite: 650 m mit Maglite 5D
'
'============================================================
$regfile = "ATtiny13.DAT"
$crystal = 16000                                            'Frequenz des internen Oszillators
$hwstack = 6                                                'hardwarestack herabsetzen damit genügend variablen zur verfügung stehen
Config Adc = Single , Prescaler = Auto
Config Portb = &B00001110                                   'Pinb.3, Pinb.6 und Pinb.7 auf 'Ausgang', Rest auf 'Eingang' schalten
Portb = 0                                                   'Ausgänge auf Low setzen
Stop Ac                                                     'Analog-Komparator abschalten, um Strom zu sparen
Wdtcr = &B11010011                                          'Watchdog definieren: 0.125 Sekunden, Interrupt auslösen, kein Reset
Enable Interrupts                                           'Interrupts freigeben
Const Schwelle = 50                                         'je größer der Schwellwert, desto unempfindlicher
Const Tagschwelle = 800                                     'Schwellwert für Schlafmodus
Const Zwangsimpuls = 8                                      'LED-Impuls tagsüber alle X Schlafyklen (á ca. 8 Sekunden)
Dim A As Byte                                               'Variablen definieren
Dim Tagzaehler As Byte
Dim Schlafzaehler As Byte
Dim Ldr As Integer                                          '0 = Dunkel, 1023 = Hell
Dim Alt As Integer
Dim Merker As Integer

Do
Reset Watchdog
Powerdown                                                   'prozessor bremsen da sonst lichtänderung nicht erkannt wird
Start Adc                                                   'A/D-Wandler starten
Ldr = Getadc(2)                                             'Helligkeitswert einlesen
Stop Adc                                                    'A/D-Wandler zum Stromsparen wieder stoppen
Merker = Ldr - Alt                                          'Unterschied zwischen letzter und aktueller Messung ermitteln
Alt = Ldr                                                   'letzten LDR-Wert sichern
If Merker > Schwelle Then Gosub Blinken                     'Bei großer Änderung Dunkel->Hell: Blinken
If Ldr > Tagschwelle Then                                   'prüfen ob helligkeit über tagschwelle liegt
If Tagzaehler < 255 Then                                    'int-variable geht nur bis 255
Tagzaehler = Tagzaehler + 1
End If
Else
Tagzaehler = 0                                              'wenn wieder dunkel tagzähler löschen
End If
If Tagzaehler > 200 Then Gosub Pause                        'wenn mehr als x zyklen hell dann schlafmodus
Loop

Blinken:                                                    'LED blinken lassen
Waitms 5000
For A = 0 To 2
Portb.3 = 1
Waitms 600
Reset Watchdog
Powerdown
Portb.3 = 0
Waitms 1000
Reset Watchdog
Powerdown
Next A
Waitms 1000
For A = 0 To 1
Portb.2 = 1
Waitms 1000
Reset Watchdog
Powerdown
Portb.2 = 0
Waitms 2000
Next A
Waitms 1000
For A = 0 To 3
Portb.1 = 1
Waitms 1000
Reset Watchdog
Powerdown
Portb.1 = 0
Waitms 2000
Next A
Waitms 1000
For A = 0 To 1
Portb.2 = 1
Waitms 1000
Reset Watchdog
Powerdown
Portb.2 = 0
Waitms 2000
'Reset Watchdog
'Powerdown
Next A
Waitms 50
For A = 0 To 1
Portb.1 = 1
Waitms 1000
Reset Watchdog
Powerdown
Portb.1 = 0
Waitms 2000
'Reset Watchdog
'Powerdown
Next A
Waitms 10
For A = 0 To 2
Portb.3 = 1
Waitms 600
Reset Watchdog
Powerdown
Portb.3 = 0
Waitms 1000
Reset Watchdog
Powerdown
Next A


Wdtcr = &B11110001                                          'Watchdog auf 8 Sekunden stellen
'Reset Watchdog
'Powerdown
Reset Watchdog
Powerdown
Reset Watchdog
Powerdown
Reset Watchdog
Powerdown
Wdtcr = &B11010011                                          'Watchdog wieder auf 0,125 Sekunden zurückstellen

Alt = 1023                                                  'Doppelauslösung verhindern
Return
Pause:
Wdtcr = &B11110001                                          'Watchdog auf 8 Sekunden stellen
Reset Watchdog
Powerdown
Wdtcr = &B11010011                                          'Watchdog wieder auf 0,125 Sekunden zurückstellen
Schlafzaehler = Schlafzaehler + 1                           'merken wie oft Schlafmodus durchlaufen wurde
If Schlafzaehler = Zwangsimpuls Then                        'als Funktionskontrolle tagsüber LED auslösen
Portb.3 = 1
Reset Watchdog
Powerdown
Portb.3 = 0
Schlafzaehler = 0
End If
Return

End