MANUAL DE EJEMPLOS - T - 57
;——————————————————————————————————
; Pide P102 Diámetro exterior de la polea
;——————————————————————————————————
N12 (SK1="", SK2="", SK3="", SK4="", SK5="", SK6="", SK7="")
(IB2=INPUT "Diámetro exterior de la polea:", 6.5)
(DW2=IB2)
(GOTO N1)
;——————————————————————————————————
; Pide P103 Profundidad de la ranura (en radios)
;——————————————————————————————————
N13 (SK1="", SK2="", SK3="", SK4="", SK5="", SK6="", SK7="")
(IB3=INPUT "Profundidad de la ranura (en radios):", 6.5)
(DW3=IB3)
(GOTO N1)
;——————————————————————————————————
; Pide P104 Anchura de la ranura
;——————————————————————————————————
N14 (SK1="", SK2="", SK3="", SK4="", SK5="", SK6="", SK7="")
(IB4=INPUT "Anchura de la ranura:", 6.5)
(DW4=IB4)
(GOTO N1)
;——————————————————————————————————
; Pide P105 Distancia de seguridad
;——————————————————————————————————
N15 (SK1="", SK2="", SK3="", SK4="", SK5="", SK6="", SK7="")
(IB5=INPUT "Distancia de seguridad:", 6.5)
(DW5=IB5)
(GOTO N1)
;——————————————————————————————————
; Pide P106 Profundidad de pasada máxima
;——————————————————————————————————
N16 (SK1="", SK2="", SK3="", SK4="", SK5="", SK6="", SK7="")
(IB6=INPUT "Profundidad de pasada máxima:", 6.5)
(DW6=IB6)
(GOTO N2)
;——————————————————————————————————
; Pide P107 Creces para el acabado
;——————————————————————————————————
N17 (SK1="", SK2="", SK3="", SK4="", SK5="", SK6="", SK7="")
(IB7=INPUT "Creces para el acabado:", 6.5)
(DW7=IB7)
(GOTO N2)
;——————————————————————————————————
; Pide P108 Velocidad de corte
;——————————————————————————————————
N18 (SK1="", SK2="", SK3="", SK4="", SK5="", SK6="", SK7="")
(IB8=INPUT "Velocidad de corte:", 3.5)
(DW8=IB8)
(GOTO N2)
;——————————————————————————————————
; Pide P109 Avance mm/v para el desbaste
;——————————————————————————————————
N19 (SK1="", SK2="", SK3="", SK4="", SK5="", SK6="", SK7="")
(IB9=INPUT "Avance mm/v para el desbaste:", 6.5)
(DW9=IB9)
(GOTO N2)
;——————————————————————————————————
; Pide P110 Avance mm/v para el acabado
;——————————————————————————————————
N20 (SK1="", SK2="", SK3="", SK4="", SK5="", SK6="", SK7="")
(IB10=INPUT "Avance mm/v para el acabado:", 6.5)
(DW10=IB10)
(GOTO N2)
;——————————————————————————————————
; Genera bloques de programa
;——————————————————————————————————
N100 (WBUF "(PCALL 50, P100=",IB0)
(WBUF ", P101=",IB1)
(WBUF ", P102=",IB2)
(WBUF ", P103=",IB3)
(WBUF ", P104=",IB4)
(WBUF ", P105=",IB5)
(WBUF ", P106=",IB6)
(WBUF ", P107=",IB7)
(WBUF ", P108=",IB8)
(WBUF ", P109=",IB9)
(WBUF ", P110=",IB10)
(WBUF ")")
(WBUF )
(SYSTEM )