Tabla de contenido
Ejemplo de un programa de personalización:
El siguiente programa de personalización debe ser seleccionado como programa de
usuario asociado al Modo Editor.
Tras seleccionarse el Modo Editor y pulsar la softkey USUARIO este programa comienza
a ejecutarse y permite realizar una edición ayudada de los 2 ciclos de usuario permitidos.
Esta edición se realiza ciclo a ciclo y cuantas veces se desea.
; Visualiza la página inicial de edición
N0
(PAGE 10)
; Personaliza las softkeys de acceso a los distintos modos y solicita una opción
(SK 1="CICLO 1",SK 2="CICLO 2",SK 7="SALIR")
N10 (WKEY )
(IF KEY EQ $FC00 GOTO N10)
(IF KEY EQ $FC01 GOTO N20)
(IF KEY EQ $FC06 SYSTEM ELSE GOTO N10)
; CICLO 1
; Visualiza la página 11 y define 2 ventanas de datos
N10 (PAGE 11)
(ODW 1,10,60)
(ODW 2,15,60)
;Edición
(WBUF "( PCALL 1,")
(IB 1=INPUT "X:",-6.5)
(DW 1=IB1)
(WBUF "X",IB1)
(WBUF ",")
(IB 2=INPUT "Y:",-6.5)
(DW 2=IB2)
(WBUF "Y",IB2)
(WBUF ")")
(WBUF )
(GOTO N0)
; CICLO 2
; Visualiza la página 12 y define 3ventanas de datos
N20 (PAGE 12)
(ODW 1,10,60)
(ODW 2,13,60)
(ODW 3,16,60)
Capítulo: 12
SENTENCIAS DE CONTROL DE LOS PROGRAMAS
; Añade al bloque en edición (PCALL 1,
; Petición del valor de X
; Visualiza, en la ventana 1, el valor introducido
; Añade al bloque en edición X (valor introducido)
; Añade al bloque en edición ,
; Petición del valor de Y
; Visualiza, en la ventana 2, el valor introducido
; Añade al bloque en edición Y (valor introducido)
; Añade al bloque en edición )
; Introduce en memoria el bloque editado. P.e. (PCALL 1, X2, Y3)
;Pedir tecla
;Ciclo 1
;Ciclo 2
;Salir o pedir tecla
Sección:
SENTENCIAS DE
PERSONALIZACION
Página
19
Capítulos
Tabla de contenido
