Picproje Elektronik Sitesi

include 16f84_4 
include jlib 
pin_a0_direction = input 
pin_a1_direction = input 
pin_a2_direction = input 
pin_a3_direction = input 
pin_a4_direction = input 
pin_b0_direction = output 
pin_b1_direction = output 
pin_b2_direction = output 
pin_b3_direction = output 
pin_b4_direction = output 
pin_b5_direction = output 
pin_b6_direction = output 
pin_b7_direction = output 
pin_b0 = low -- pin a1?in başlangıç değeri 
pin_b1 = low 
pin_b2 = low 
pin_b3 = low 
pin_b4 = low 
pin_b5 = low 
pin_b6 = low 
pin_b7 = low 

procedure flasor is  -- bu satırdaki komutlar b3,e flaşör yaptırır 
   pin_b3 = high 
   delay_200ms 
   pin_b3 = low 
   delay_100ms 
   end procedure 

forever loop 
  flasor 
if pin_a0 == high then 

pin_b1 = high 
delay_200ms 

else   -- else başka aksi takdirde yani burada a0,ra basılı değilse anlamında 
pin_b1 = low 
end if 

if pin_a1 == high then -- burası b0,ı cıkış yapar 

pin_b0 = high 
 end if 
  
 if pin_a2 == high then -- 5 volt gelince b0 eksi digerleri artı olur 

pin_b0 = low 
pin_b1 = high 
pin_b2 = high 
pin_b3 = high 
pin_b4 = high 
pin_b5 = high 
pin_b6 = high 
pin_b7 = high 
end if 

if pin_a3 == high then -- a3 artı olunca b7 eksi olur 

pin_b7 = low 
 end if 
  
  if pin_a4 == high then -- a4 artı olunca b6 artı digerleri eksi b7 de flaşör 

pin_b0 = low 
pin_b1 = low 
pin_b2 = low 
pin_b3 = low 
pin_b4 = low 
pin_b5 = low 
pin_b6 = high 
delay_200ms 
pin_b6 = low 
pin_b7 = low 
delay_200ms 
pin_b7 = high 
delay_200ms 
pin_b7 = low 
end if 

end loop