Problem sa regulacijom triaka 12f629

[mtihomirbn]

Pozz.
Hocu da napravim sobni ventilator koji ima kontrolu univerzalnim daljincem! I sve sam resio samo mi triak pravi problem tj ne mogu da ga nateram da radi! Imam neke ideje, ali ne valja.

Code: Select all

'Triak je povezan preko otpora 1k, a nula preko 1m

Define OSC             4               ' Set Xtal Frequency
DEFINE CONFIG INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, MCLRE_OFF, ALL_DIGITAL TRUE
CMCON = 7                                   
TRISIO = 0         
TRISIO = %00000001 
        
NULA VAR GPIO.0        
INPUT NULA
IZLAZ  VAR GPIO.2
 
main:            
if NULA = 0 then
goto okidac0
endif 
goto main

okidac1:
PAUSE k
   IZLAZ = 1
   pauseus 8
   IZLAZ = 0
   while NULA=1: wend
   goto main
okidac0:
  PAUSE k
  IZLAZ = 1
  pauseuS 25
  IZLAZ = 0
  while NULA=0: wend
  GOTO okidac1

end

Ako moze neko da mi pomogne unapred hvala.