www.elektronik.si

[galex4]

Trenutno programiram zatemnilnik, nevem zakaj mi noče in noče "vžgat" triaka.

Koda:

program zatemnilnik

symbol triak = GPIO.0
dim stevec as word

sub procedure interrupt
'če je bila postavljena zastavica zaradi prekinitve na pinu INT potem
if INTCON.INTF = 1 then
'resetiraj stevec
stevec = 0
'resetiraj zastavico
INTCON.INTF = 0
else
Inc(stevec)
end if
end sub

sub procedure inicializacija
'GP2 je vhod za zunanjo prekinitev
SetBit(TRISIO, TRISIO2)
'GP0 je izhod za proženje triaka
ClearBit(TRISIO, TRISIO0)
'omogočena globalna prekinitev
INTCON.GIE = 1
'omogočimo zunanjo prekinitev
INTCON.INTE = 1
'nastavitev predelilnika za timer 1:1
T1CON.T1CKPS0 = 0
T1CON.T1CKPS1 = 0
'padanje vrednosti signala
OPTION_REG.INTEDG = 0
'zaženi timer
T1CON.TMR1ON = 1
'vsi pini so digitalni
ANSEL.ANS0 = 0
ANSEL.ANS1 = 0
ANSEL.ANS2 = 0
ANSEL.ANS3 = 0
TMR1L = 0
TMR1H = 0
'izključimo primerjalnik
CMCON = 7
'začetna vrednost števca
stevec = 0
end sub

main:
inicializacija
while true
if (stevec <= 32768) then
triak = 1
delay_us(10)
triak = 0
end if
wend
end.

Prosim, če mi kdo pomaga rešiti problem, hvala.