crear_pulsador(x,y,ancho,alto,var) {
// la altura de los botones para aumentar y disminuir;
alto2:=1.5;
// la altura de la etiqueta del pulsador;
alto3:=alto - 2*alto2;
// se crea un botón que representa la flecha hacia arriba;
aumentar:=crear_boton(x,y+(alto2+alto3)/2,ancho,alto2);
asignar_etiqueta(aumentar,'▲');
// se crea una acción que aumenta el valor de la variable var;
asignar_accion(aumentar,var+':='+var+'+1');
// se crea un botón que representa la flecha hacia abajo;
disminuir:=crear_boton(x,y-(alto2+alto3)/2,ancho,alto2);
asignar_etiqueta(disminuir,'▼');
// se crea una acción que disminuye el valor de la variable var;
asignar_accion(disminuir,var+':='+var+'-1');
// se crea un botón que representa la etiqueta;
btn_valor:=crear_boton(x,y,ancho,alto3);
asignar_color(btn_valor,blanco);
REGRESAR btn_valor;
}
S
// se actualiza la etiqueta mostrada por los pulsadores;
asignar_etiqueta(pulsador_1,valor_pulsador_1);
asignar_etiqueta(pulsador_2,valor_pulsador_2);
S
// se crea una variable para contener el valor del pulsador 1;
valor_pulsador_1:=0;
// los parámetros de la función crear_pulsador, son;
// el primero es la posición en x;
// el segundo es la posición en y;
// el tercero es ancho;
// el cuarto es el alto;
// el quito es el nombre de la variable que va a modificar, entre comillas;
pulsador_1:=crear_pulsador(-3,0,4,7,'valor_pulsador_1');
//;
// se crea una variable para contener el valor del pulsador 2;
valor_pulsador_2:=0;
pulsador_2:=crear_pulsador(3,0,4,7,'valor_pulsador_2');
S