www.elektronik.si

[damijan]

V bascomu 8051 sem spisal program za dimmer. Problem mi nastane ker luč ne gori ampak utripa. Detekcija ničle je napravljena z "zero cross".
Če je kdo delal kaj podobnega prosim za pomoč.

Program:

$regfile = "89c51RD.dat"
$crystal = 12000000

Config Timer0 = Timer , Mode = 1 , Gate = Internal
Enable Timer0
Enable Int0
Enable Interrupts
On Int0 Prekinitev
Set Tcon.0

Dim Milisekunde As Word
Milisekunde = 0




Do

Loop

End

Prekinitev:
Th0 = &HFC
Tl0 = &H18
Start Timer0
Incr Milisekunde
If Milisekunde >= 4 Then
Stop Timer0
Set P2.0
Milisekunde = 0
Else
Reset P2.0
End If
Return