Franck
Nuevo Miembro
Registrado: 27 Jun 2006
Mensajes: 2
|
 Publicado: Mar Jun 27, 2006 4:14 am Título del mensaje: trabar teclas en turbo pascal |
 |
|
Hola!!!! soy un estudiante de ing. en sistemas de informacion. Hace poco tiempo q empece con la programacion en pascal. Tengo una duda que por ejemplo en visual basic no la tenia. Necesito saber como hacer para poder trabar las teclas en una aplicacion realizada en pascal, es decir, para q el ususario al presionar ciertas teclas las mismas no aparezcan en pantalla. En visual Basic es muy facil ya q la programacion orientada a objetos permite programar en los eventos de los textbox el cambio del codigo ascii de la tecla presionada.
A continuacion le sdejo un algoritmo q diseñe para q perimita ingresar solo enteros, el problema es q me parece q es demasiado extenso y creo q se podria realizar de una forma mucho mas sencilla y ordenada.
Desde ya les agradezco su ayuda. chau.
program a;
uses crt;
var opc:char;
i,cont,cont1,cod:integer;
pot,num,num1:real;
begin
clrscr;
repeat
opc:=readkey;
cod:=ord(opc);
num1:=cod-48;
pot:=1;
until ((ord(opc)>=4 and (ord(opc)<=5 or (ord(opc)=13));
cont:=1;
while ((ord(opc)<>13) and (cont<7))do
begin
write(opc);
repeat
opc:=readkey;
if ((ord(opc)>=4 and (ord(opc)<=5) then
begin
cod:=ord(opc);
num1:=(num1*10)+(cod-4;
end;
until ((ord(opc)>=4 and (ord(opc)<=5 or (ord(opc)=13));
cont:=cont+1;
end;
clrscr;
writeln(num1:0:0);
readkey;
end. |
|
