CNC 8055 - Ejemplos de programación (modelo ... - Fagor Automation
CNC 8055 - Ejemplos de programación (modelo ... - Fagor Automation
CNC 8055 - Ejemplos de programación (modelo ... - Fagor Automation
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Programa <strong>de</strong> personalización <strong>de</strong> usuario<br />
;——————————————————————————————————<br />
; Primer grupo <strong>de</strong> softkeys - Parámetros P100 a P105<br />
;——————————————————————————————————<br />
N1 (SK1="P100", SK2="P101", SK3="P102", SK4="P103", SK5="P104",<br />
SK6="P105", SK7="+")<br />
(IB11=INPUT "Pulse softkey para seleccionar opción")<br />
(WKEY )<br />
(IF KEY EQ $FC00 GOTO N10) ;Si "P100" sigue en N10<br />
(IF KEY EQ $FC01 GOTO N11) ;Si "P101" sigue en N11<br />
(IF KEY EQ $FC02 GOTO N12) ;Si "P102" sigue en N12<br />
(IF KEY EQ $FC03 GOTO N13) ;Si "P103" sigue en N13<br />
(IF KEY EQ $FC04 GOTO N14) ;Si "P104" sigue en N14<br />
(IF KEY EQ $FC05 GOTO N15) ;Si "P105" sigue en N15<br />
(IF KEY EQ $FC06 GOTO N2) ;Si opción "+" sigue en N2<br />
(GOTO N1)<br />
;——————————————————————————————————<br />
; Segundo grupo <strong>de</strong> softkeys - Parámetros P106 a P110<br />
;——————————————————————————————————<br />
N2 (SK1="(P106)", SK2="(P107)", SK3="(P108)", SK4="(P109)", SK5="(P110)",<br />
SK6="FIN", SK7="+")<br />
(IB11=INPUT "Pulse softkey para seleccionar opción")<br />
(WKEY )<br />
(IF KEY EQ $FC00 GOTO N16) ;Si "P106" sigue en N16<br />
(IF KEY EQ $FC01 GOTO N17) ;Si "P107" sigue en N17<br />
(IF KEY EQ $FC02 GOTO N18) ;Si "P108" sigue en N18<br />
(IF KEY EQ $FC03 GOTO N19) ;Si "P109" sigue en N19<br />
(IF KEY EQ $FC04 GOTO N20) ;Si "P110" sigue en N20<br />
(IF KEY EQ $FC05 GOTO N100) ;Si opción "FIN" sigue en N100<br />
(IF KEY EQ $FC06 GOTO N1) ;Si opción "+" vuelve a N1<br />
(GOTO N2)<br />
;——————————————————————————————————<br />
; Pi<strong>de</strong> P100 Angulo entre caras <strong>de</strong> la polea<br />
;——————————————————————————————————<br />
N10 (SK1="", SK2="", SK3="", SK4="", SK5="", SK6="", SK7="")<br />
(IB0=INPUT "Angulo entre caras <strong>de</strong> la polea:", 3.0)<br />
(DW0=IB0)<br />
(GOTO N1)<br />
;——————————————————————————————————<br />
; Pi<strong>de</strong> P101 Cota absoluta en Z <strong>de</strong>l centro <strong>de</strong> la polea<br />
;——————————————————————————————————<br />
N11 (SK1="", SK2="", SK3="", SK4="", SK5="", SK6="", SK7="")<br />
(IB1=INPUT "Cota absoluta en Z <strong>de</strong>l centro <strong>de</strong> la polea:", -6.5)<br />
(DW1=IB1)<br />
(GOTO N1)<br />
;——————————————————————————————————<br />
; Inicialización <strong>de</strong> variables<br />
;——————————————————————————————————<br />
(IB0=(0))<br />
(IB1=(0))<br />
(IB2=(0))<br />
(IB3=(0))<br />
(IB4=(0))<br />
(IB5=(0))<br />
(IB6=(0))<br />
(IB7=(0))<br />
(IB8=(0))<br />
(IB9=(0))<br />
(IB10=(0))<br />
;——————————————————————————————————<br />
; Visualiza en la pantalla la Pagina 50 y las Ventanas<br />
;——————————————————————————————————<br />
(PAGE 50) ;Visualiza la Pagina 50<br />
(ODW 0,6,65) ;Visualiza las Ventanas<br />
(ODW 1,7,65) ;Visualiza las Ventanas<br />
(ODW 2,9,65)<br />
(ODW 3,10,65)<br />
(ODW 4,11,65)<br />
(ODW 5,13,65)<br />
(ODW 6,14,65)<br />
(ODW 7,15,65)<br />
(ODW 8,17,65)<br />
(ODW 9,18,65)<br />
(ODW 10,19,65)<br />
;——————————————————————————————————<br />
; Muestra en cada una <strong>de</strong> las ventanas el valor 0, valor inicial<br />
;——————————————————————————————————<br />
(DW0=IB0)<br />
(DW1=IB1)<br />
(DW2=IB2)<br />
(DW3=IB3)<br />
(DW3=IB3)<br />
(DW4=IB4)<br />
(DW5=IB5)<br />
(DW6=IB6)<br />
(DW7=IB7)<br />
(DW8=IB8)<br />
(DW9=IB9)<br />
(DW10=IB10)<br />
56 MANUAL DE EJEMPLOS - T -