برنامه آسانسور به زبان پيک بيسيک با ميکرو pic16f877 يک سرعته 5 توقف (ساده جهت يادگيري ساختار کاري)

نقشه شماتیک مدار 

trisa=%11111111
trisb=%11111111
trisc=%11111111
trisd=%00000000

key0 var portc.4
key1 var portc.3
key2 var portc.2
key3 var portc.1
key4 var portc.0

SENs0 var portb.4
SENs1 var portb.3
SENs2 var portb.2
SENs3 var portb.1
SENs4 var portb.0
 
upled var portd.4
hiled var portd.5
loled var portd.6
DOWNled var portd.7

shenasai:
if key0=1 or key1=1 or key2=1 or key3=1 or key4=1 and sens0=1 then
downled=1
goto  jahatdn
else
goto shenasai
endif

jahatdn:
if sens0=0  then
pause 10
downled=0
pause 10
goto park0
else
downled=1
goto jahatdn
endif

park0:
   
if key1=1 then
upled=1
pause 10
goto stop1
endif
if key2=1 then
upled=1
pause 10
goto stop2
endif
if key3=1 then
upled=1
pause 10
goto stop3
endif
if key4=1 then
upled=1
pause 10
goto stop4
endif 
goto park0  

park1:
   
if key0=1 then
downled=1
pause 10
goto stop0
endif
if key2=1 then
upled=1
pause 10
goto stop2
endif
if key3=1 then
upled=1
pause 10
goto stop3
endif
if key4=1 then
upled=1
pause 10
goto stop4
endif  
goto park1

park2:

if key0=1 then
downled=1
pause 10
goto stop0
endif
if key1=1 then
downled=1
pause 10
goto stop1
endif
if key3=1 then
upled=1
pause 10
goto stop3
endif
if key4=1 then
upled=1
pause 10
goto stop4
endif
goto park2

park3:

if key0=1 then
downled=1
pause 10
goto stop0
endif
if key1=1 then
downled=1
pause 10
goto stop1
endif
if key2=1 then
downled=1
pause 10
goto stop2
endif
if key4=1 then
upled=1
pause 10
goto stop4
endif
goto park3

park4:

if key0=1 then
downled=1
pause 10
goto stop0
endif
if key1=1 then
downled=1
pause 10
goto stop1
endif
if key2=1 then
downled=1
pause 10
goto stop2
endif
if key3=1 then
downled=1
pause 10
goto stop3
endif
goto park4

stop0:

if sens0=0 then
pause 10
upled=0
downled=0
pause10
goto park0
else
pause 10
goto stop0
endif

stop1:

if sens1=0 then
pause 10
upled=0
downled=0
pause 10
goto park1
else
pause 10
goto stop1
endif
 
 
stop2: 

 if sens2=0 then
pause 10
upled=0
downled=0
pause 10
goto park2
else
pause 10
goto stop2
endif

stop3: 

 if sens3=0 then
pause 10
upled=0
downled=0
pause 10
goto park3
else
pause 10
goto stop3
endif

stop4:

  if sens4=0 then
pause 10
upled=0
downled=0
pause 10
goto park4
else
pause 10
goto stop4
endif
 

    end

منبع مطلب