Värmeljus
Värmeljus
Har byggt om ett elvärmeljus från rusta så det ser mer levande ut.
De har ju bara ett fast sken när man köper dom.
http://www.rusta.se/product.asp?p=78101178
Jag byggde in en liten PIC12F629 som jag skrev ett litet program till i picbasic.
Det är bara en pic jag laggt till, inget annat, den går på interna oscillatorn.
Jag filade bort lite av den vita plasten för att picen skulle få plats, sen limmade jag fast den med superlim och lödade ditt sladdarna.
Har tyvärr inte kunnat mäta strömförbrukningen, då min multimeter pajat.
Här är ett litet filmklipp på hur det blev.
http://web.telia.com/~u36308569/ljus.avi
-----------start picbasic kod------------
DEFINE OSC 4
led VAR GPIO.4
Output led
i VAR WORD
p VAR WORD
r VAR WORD
Random r
While (r > 1000)
r = r - 1000
Wend
start:
Random p
IF p < 1000 Then
ra:
Random r
While (r > 1000)
r = r - 1000
Wend
Else
EndIF
Random p
While (p > r)
p = p - r
Wend
For i= 0 TO p
High led
PauseUs i
Low led
PauseUs p - i
Next i
Random p
While (p > r)
p = p - r
Wend
For i= 0 TO p
High led
PauseUs p - i
Low led
PauseUs i
Next i
GoTo start
-----------slut picbasic kod------------
- JimmyAndersson
- Inlägg: 26308
- Blev medlem: 6 augusti 2005, 21:23:33
- Ort: Oskarshamn (En bit utanför)
- Kontakt: