|
|
 |
|
7.- Consulta con Scroll
página(s) : 2/2
(1634 palabras totales en este texto)
(21551 Lecturas) 
|
| »»
CONTROL DE LAS TECLAS PULSADAS Y MOVIMIENTO DEL SCROLL |
Dependiendo
de la tecla pulsada vendremos a cada uno de éstos párrafos.
Veamos como actúa cada uno. |
Si
pulsamos movemos la última pantalla y volvemos a
dibujar.
ACUFIN.
MOVE TOPE TO CABE.
MOVE CABE TO LU
MOVE 3 TO LIU GO CONSUL1.
Si pulsamos nos vamos al primer elemento de la tabla y volvemos
a dibujar.
ACUINI.
MOVE 1 TO CABE.
MOVE CABE TO LU MOVE 3 TO LIU GO
CONSUL1.
Si pulsamos
avanzamos una posición, siempre teniendo en
cuenta que no estamos en el final, ni que traspasamos los límites
de la pantalla y volvemos a dibujar.
ACUMAS.
IF LU = TOPT GO CONSUL6.
COMPUTE LU = LU + 1.
IF LU > TOPT SUBTRACT 1 FROM LU
GO CONSUL5.
IF LU = LO COMPUTE CABE = CABE + 1
GO CONSUL1.
DISPLAY LINPA LINE LIU COL 2 LOW.
COMPUTE LIU = LIU + 1 GO CONSUL5.
Si pulsamos
avanzamos 10 posiciones (las que tiene la pantalla)
comprobamos los límites y volvemos a dibujar.
ACUMASS.
COMPUTE CABE = CABE + 10.
IF CABE >= TOPE MOVE TOPE TO CABE.
MOVE CABE TO LU MOVE 3 TO LIU GO CONSUL1.
Si pulsamos retrocedemos 10 posiciones (las que tiene la
pantalla) comprobamos los límites y volvemos a dibujar.
ACUMENOSS.
IF CABE > 10 SUBTRACT 10 FROM CABE ELSE MOVE 1 TO CABE.
MOVE CABE TO LU MOVE 3 TO LIU GO CONSUL1.
Si pulsamos
retrocedemos una posición, controlamos los
límites y volvemos a dibujar.
ACUMENOS.
IF LU = 1 GO CONSUL6.
COMPUTE LU = LU - 1.
IF LU < CABE SUBTRACT 1 FROM CABE GO CONSUL1.
DISPLAY LINPA LINE LIU COL 2 LOW.
COMPUTE LIU = LIU - 1 GO CONSUL5.
Aqui llegamos si hemos pulsado entonces seleccionamos el
código y volvemos al mantenimiento, mostrando el registro
seleccionado.
CONSULFIN.
CLOSE AGENDA OPEN I-O AGENDA.
GO SOCI-MIRA. |
|
 |
Evidentemente si queremos
hacer la pantalla mas grande solo tendremos que tener en cuenta cambiar los
valores máximos del scroll. Así como si queremos que aparezcan menos
campos u otros campos, solo con cambiar la cabecera y la variable LINPA, lo
habréis conseguido. Creo que es una manera muy sencilla de hacerlo y que se
puede entender bien. Yo desde que la hice, hace ya bastantes años la sigo
utilizando con unos resultados excelentes. Por supuesto se puede ampliar mas
y dar mas opciones de clasificación, pero eso ya os lo dejo a
vosotros.
Para el próximo capítulo,
veremos como generar un listado por impresora. |
(1/2)  |  |
|
|
Programando en Ms-Dos (texto)
