Hallo,
nachdem ich schon mal ein CMOS-Reaktivlicht gebaut habe, wollte ich mich nun mal an ein Reaktivlicht auf ATTiny13V basis heranwagen. Angespornt durch hitec2@night habe ich mir ein paar ATTiny13V's bei Reichelt bestellt und den Aufbau nach dem Kochbuch von http://www.reaktivlicht.de "Grundschaltung mit LED-Lichtmessung" auf einem Steckbrett nachgebaut. Anschliessend noch den Programmieradapter über den Parallelport hinzugefügt und BASCOM-AVR Version 1.11.9.5 aus dem I-Net gezogen.
Soweit so gut.
Board anschliessen....OK
Fusebits setzen nach Beschreibung....OK
Jetzt wird's spannend.
Um das Ganze zu testen, erstmal den einfachsten Programmcode kompelieren und auf den Chip bringen.
Den Code kompeliert, geflasht und..... Das Laden der LED ist schon mal zu sehen.
Also mal beleuchten, ob die LED auch blinkt und..... Dauerlicht für die Zeit der Beleuchtung
Na eigentlich sollte sie ja laut Code 10mal blinken.
Jetzt bin ich ein wenig verwirrt
Vom Prinzip funktioniert alles. Alles ausser das Blinken. Habe ich hier irgendwo einen Codefehler? :hilfe:
nachdem ich schon mal ein CMOS-Reaktivlicht gebaut habe, wollte ich mich nun mal an ein Reaktivlicht auf ATTiny13V basis heranwagen. Angespornt durch hitec2@night habe ich mir ein paar ATTiny13V's bei Reichelt bestellt und den Aufbau nach dem Kochbuch von http://www.reaktivlicht.de "Grundschaltung mit LED-Lichtmessung" auf einem Steckbrett nachgebaut. Anschliessend noch den Programmieradapter über den Parallelport hinzugefügt und BASCOM-AVR Version 1.11.9.5 aus dem I-Net gezogen.
Soweit so gut.

Board anschliessen....OK
Fusebits setzen nach Beschreibung....OK
Jetzt wird's spannend.

Um das Ganze zu testen, erstmal den einfachsten Programmcode kompelieren und auf den Chip bringen.
Code:
$regfile = "ATtiny13.DAT"
$crystal = 113000
Config Portb = &B00011000
Portb = &B11100111
Stop Adc
Stop Ac
Dim A As Byte
Dim Hell_dunkel As Bit
Do
Gosub Led_abfrage
If Hell_dunkel = 0 Then
For A = 1 To 10
Portb.3 = 1
Waitms 50
Portb.3 = 0
Waitms 500
Next A
End If
Loop
Led_abfrage:
Portb.3 = 0
Portb.4 = 1
Waitus 1
Config Portb.4 = Input
Portb.4 = 0
Waitus 1500
Hell_dunkel = Pinb.4
Config Portb.4 = Output
Portb.4 = 0
Return
End
Den Code kompeliert, geflasht und..... Das Laden der LED ist schon mal zu sehen.
Also mal beleuchten, ob die LED auch blinkt und..... Dauerlicht für die Zeit der Beleuchtung

Code:
For A = 1 To 10
Portb.3 = 1
Waitms 50
Portb.3 = 0
Waitms 500
Next A
Jetzt bin ich ein wenig verwirrt
