MikroElektronika Forum

Code: Select all

program test_as_control

   ' this program is to give PWM signal to triac controler where
   ' input source is 50Hz, PWM will turn on when signal is high, and turn of
   ' when signal is low.

' Declarations section 
Dim current_duty as byte


sub procedure incdec()
          if  Button(porta,0,250,1) then
              'portb.2 = 1
              'Delay_ms(40)
              Inc(current_duty)
              PWM1_SET_DUTY(current_duty)
          end if

          if  Button(porta,1,250,1) then
              'portb.2 = 0
              'Delay_ms(40)
              DEC(current_duty)
              PWM1_SET_DUTY(current_duty)
          end if

 end sub
 


main:
'   Main program 
ANSEL = 0
OPTION_REG = %11100000

current_duty = 100
trisa = %1111111
trisb = %0000000
portb = 0

pwm1_init(500)


portb.1 = 1      'high portb.1 as indicator only


PWM1_set_duty(current_duty)



while true
          ' porta.4 is an input from a 50Hz source
          if porta.4 = 1 then
            PWM1_set_duty(current_duty)
             PWM1_start()

          else
              PWM1_stop

          end if

          incdec()
          
          
wend


end.