Hallo,
ich habe zur Zeit in mehrerlei hinsicht Freude ein Nachtlicht bauen zu dürfen.
Das Nachtlicht soll folgenden Funktionsablauf haben.
-Start
----Nachtmodus
-------Sensor kurz betätigt
-----------LED an/aus
-------Sensor lang betätigt
-----------LED Setupmodus
-------Sensor nicht betatigt
-----------/
-------1/2 Sek warten
----Tagmodus
-------LED aus
-------Watchdog einschalten und Chip in Powerdown-Modus legen
-------Chip-Reset
Dazu hätte ich ein paar Fragen um mehr Energie zu sparen.
-Tagmodus: Der Watchdog zählt beim Attiny45 maximal bis 2048, mir würde aber auch reichen wenn er aller Minute mal prüft ob die Nacht begonnen hat.
Gibt es da eine möglichkeit den Chip später aus dem Powerdown-Modus zu holen?
-Nachtmodus: die 1/2Sek warten würde ich gern durch den Idle-Modus ersetzen. Mich stört da aber beim aufwachen via Watchdog der Chipreset.
Lässt sich der Chip auch anders in den Normal-Modus zurückholen?
Vielen Dank für Eure Hilfe.
Mein aktueller Arbeitsstand:
Code:'******************************************************************************* '******************************************************************************* '****************************** NACHTLICHT V1.0 ******************************** '******************************************************************************* '************************** 24.06.2014 by CYBORG ******************************* '******************************************************************************* '******************************************************************************* '****************************** Allgemein ************************************** $regfile = "attiny45.dat" $crystal = 8000000 $hwstack = 40 $swstack = 16 $framesize = 32 '********************************* PWM 0 *************************************** Config Timer0 = Pwm , Prescale = 256 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up Enable Timer0 '********************************* PWM 1 *************************************** Config Portb.4 = Output 'Config Portb.3 = Input Tccr1 = Bits(cs10) Gtccr = Bits(6 , Com1b0) Ocr1b = 63 'Duty Enable Timer1 Enable Interrupts '********************************** LED **************************************** R_pwm Alias Pwm1b G_pwm Alias Pwm0b B_pwm Alias Pwm0a Dim R_eram As Eram Byte Dim G_eram As Eram Byte Dim B_eram As Eram Byte Dim R As Byte Dim G As Byte Dim B As Byte Dim R_max As Byte Dim G_max As Byte Dim B_max As Byte Dim Setup_count As Word Dim Setup_time As Word Dim Setup_time_config As Word Dim Setup_time_step As Word Dim Setup_preview As Byte Dim Is_day_temp As Byte Dim Is_day_value As Word Dim Is_night_value As Word If R_eram = 0 And R_eram = 0 And R_eram = 0 Then 'Defauld Werte schreiben falls leer R_eram = 200 'ROT-Wert ins EERAM schreiben G_eram = 200 'GRUEN-Wert ins EERAM schreiben B_eram = 1 'BLAU-Wert ins EERAM schreiben End If R = R_eram 'ROT-Wert aus EERAM lesen G = G_eram 'GRUEN-Wert aus EERAM lesen B = B_eram 'BLAU-Wert aus EERAM lesen R_max = 255 G_max = 255 B_max = 255 R_pwm = 0 G_pwm = 0 B_pwm = 0 Setup_count = 0 'Setup zähler Setup_time = 3000 'Zeit bis Setup startet Setup_time_step = 100 'Zeit/Geschwindigkeit der Farbsteigerung Setup_time_config = 1000 'Zeit zwischen der Farbeinstellung Setup_preview = 100 'Helligkeit für Vorschau-LED Is_day_temp = 0 Is_day_value = 1020 'Tag ==> Nacht Schwellwert Is_night_value = 1000 'Nacht ==> Tag Schwellwert '********************************** ADC **************************************** Declare Function Sensor() As Byte Declare Function Is_day() As Byte Config Adc = Single , Prescaler = Auto Dim Led_on As Word Dim Led_off As Word Ir_led Alias Portb.2 Config Ir_led = Output Ir_led = 0 '********************************** MAIN *************************************** Do 'Nacht - Modus If Is_day() = 0 Then 'Sensor wurde aktiviert If Sensor() = 1 Then 'Zeit bis SetupModus messen For Setup_count = 0 To Setup_time 'Prüfen ob Sensor losgelassen wird If Sensor() = 0 Then If R_pwm = 0 And G_pwm = 0 And B_pwm = 0 Then 'LED einschalten R_pwm = R G_pwm = G B_pwm = B Else 'LED ausschalten R_pwm = 0 G_pwm = 0 B_pwm = 0 End If Exit For End If Waitms 1 Next 'LED-Konfiguration starten If Setup_count >= Setup_time Then Gosub Led_config End If End If Waitms 500 'Tag - Modus Else 'LED ausschalten R_pwm = 0 G_pwm = 0 B_pwm = 0 'Chip ~2Sek schlafen legen Config Watchdog = 2048 Start Watchdog Config Powermode = Powerdown End If Loop '******************************** FUNCTIONS ************************************ '***************************** SENSOR MESSUNG ********************************** Function Sensor() As Byte Local Led_diff As Word Led_off = Getadc(3) Ir_led = 1 Led_on = Getadc(3) Ir_led = 0 Led_diff = Led_off - Led_on If Led_diff < 500 Then Sensor = 0 Else Sensor = 1 End If End Function '*************************** TAG / NACHT MESSUNG ******************************* Function Is_day() As Byte Led_off = Getadc(3) If Led_off > Is_day_value And Is_day_temp = 1 Then Is_day = 0 Elseif Led_off > Is_night_value And Is_day_temp = 0 Then Is_day = 0 Else Is_day = 1 End If Is_day_temp = Is_day End Function '************************** LED - SETUP - MODUS ******************************** Led_config: R_pwm = Setup_preview G_pwm = 0 B_pwm = 0 Waitms Setup_time_config R_pwm = 0 G_pwm = 0 B_pwm = 0 Waitms Setup_time_config For R = 0 To R_max Waitms Setup_time_step If Sensor() = 0 Then Goto R_end End If R_pwm = R Next R_end: Waitms Setup_time_config R_pwm = 0 G_pwm = Setup_preview B_pwm = 0 Waitms Setup_time_config R_pwm = R G_pwm = 0 B_pwm = 0 Waitms Setup_time_config For G = 0 To G_max Waitms Setup_time_step If Sensor() = 0 Then Goto G_end End If G_pwm = G Next G_end: Waitms Setup_time_config R_pwm = 0 G_pwm = 0 B_pwm = Setup_preview Waitms Setup_time_config R_pwm = R G_pwm = G B_pwm = 0 Waitms Setup_time_config For B = 0 To B_max Waitms Setup_time_step If Sensor() = 0 Then Goto B_end End If B_pwm = B Next B_end: Waitms Setup_time_config R_pwm = 0 G_pwm = 0 B_pwm = 0 Waitms Setup_time_config R_pwm = R G_pwm = G B_pwm = B Waitms Setup_time_config If R > 0 Or G > 0 Or B > 0 Then R_eram = R G_eram = G B_eram = B Else R = R_eram G = G_eram B = B_eram End If Waitms 2000 R_pwm = 0 G_pwm = 0 B_pwm = 0 Return End
Zitieren
Lesezeichen