Wye-delta Motor Controll For Basic PRO Compiler

@ device pic16f877
define osc 4
define adc_bits 8
main:
    trisb =$00
    trisa =$ff
    adcon1 = 7
    K1         var portb.0
    K2         var portb.1
    K3         var portb.2        
    start      var porta.0
    stops      var porta.1    
    K1=0 :K2=0:k3=0

while(1)
     if(!start and stops) then 
         K1=1
         K2=1
         K3=0         
         pause 3000   
      repeat     
         K1=1
         K2=0
         K3=1 
     until(!stops)         
     endif
         K1=0
         K2=0
         K3=0                             
    pause 10   
 wend
end

About The Author

Ibrar Ayyub

I am an experienced technical writer holding a Master's degree in computer science from BZU Multan, Pakistan University. With a background spanning various industries, particularly in home automation and engineering, I have honed my skills in crafting clear and concise content. Proficient in leveraging infographics and diagrams, I strive to simplify complex concepts for readers. My strength lies in thorough research and presenting information in a structured and logical format.

Follow Us:
LinkedinTwitter