SoloCodigo

Programación General => Pascal => Mensaje iniciado por: eduardoremix en Miércoles 24 de Febrero de 2010, 00:20

Título: validacion captura de datos
Publicado por: eduardoremix en Miércoles 24 de Febrero de 2010, 00:20
Hola tengo una duda, hize una agenda telefonica en pascal y esta para mi casi perfecta lo unico que me falta es validar que cuando el usuario tenga que introducir un numero telefonico( ej. 04141234567) o numero cedula (ej. 12345678) no pueda introducir letras o caracteres ya que el programa se saldria.

este es el procedure que tengo:

procedure llenar_contacto(var p:contacto);

        BEGIN

           writeln('INGRESE UN NOMBRE');
           readln(p.nombre);
           writeln('INGRESE APELLIDO');
           readln(p.apellido);
           writeln('INGRESE N# DE CEDULA');===--------      
           readln(p.cedula);---------------------------------     aqui es donde quisiera validar la captura, p.telefono_casa y p.telefono_movil        
           writeln('INGRESE TELEFONO DE CASA');--------     son de tipo rango( rango es una variable que cree en type
           readln(p.telefono_casa);--------------------------/    rango=0..9999999999;) p.cedula es de tipo longint.
           writeln('INGRESE TELEFONO MOVIL');-----------/
           readln(p.telefono_movil);-----------------------/

         END;
Tambien pense en declararlos como string pero entonces no quedaria bien porque el usuario podria introducir cualquier cosa. Gracias de antemano :good:
Título: Re: validacion captura de datos
Publicado por: droezva en Miércoles 24 de Febrero de 2010, 09:44
Hola que tal, pues ya tenía rato que no programaba en Pascal pero me acorde de algunas cosillas!!!
te dejo un ejemplo de validación que yo utilizaba.
Este ejemplo es muy sencillo nada mas esta validado para capturar los digitos, la tecla de retroceso y el enter para indicar que terminamos de ingresar el numero, cabe mencionar que no saldra de la captura de numero hasta que se capture aunque sea un digito. Esta claro que se puede mejorar mucho más. pero bueno creo que te puede servir.

Código: Pascal
  1.  
  2. uses crt;
  3.  
  4. function leerNumero(longitud: integer): string;
  5. var
  6.    numero : string;
  7.    tecla  : char;
  8.    i,x,y  : integer;
  9. begin
  10.      x := whereX;
  11.      y := whereY;
  12.      numero := '';
  13.      i := 1;
  14.      repeat
  15.            tecla := readKey;
  16.            case tecla of
  17.                 '0'..'9' : {Teclas del 0 al 9}
  18.                          if i <= longitud then
  19.                          begin
  20.                               numero := numero + tecla;
  21.                               i := i  + 1;
  22.                          end;
  23.                 chr(8)   : { Tecla de retroceso para borrar el ultimo digito}
  24.                          if i > 1 then
  25.                          begin
  26.                               i := i - 1;
  27.                               numero[i] := ' ';
  28.                               gotoxy(x,y);
  29.                               write(numero);
  30.                               numero := copy(numero,1,i-1);
  31.                         end
  32.            end;
  33.            gotoxy(x,y);
  34.            write(numero);
  35.      until ( tecla = chr(13) ) and ( length(numero) > 0 );
  36.      leerNumero := numero;
  37. end;
  38.  
  39. var
  40.    numeroTxt  : string[20];
  41.    numeroLong : longInt;
  42.    estado     : integer;
  43. begin
  44.      clrscr;
  45.      write('Ingrese un numero maximo de 20 digitos: ');
  46.      numeroTxt := leerNumero(20);
  47.      writeln;
  48.      writeln('Usted ingreso: ',numeroTxt);
  49.  
  50.      {Conversion del Texto a Entero}
  51.      val(numeroTxt,numeroLong, estado);
  52.      writeln('El valor desde la variable longInt: ',numeroLong);
  53.  
  54.      readKey;
  55. end.
  56.  
  57.  

Espero que te sirva. :)
Título: Re: validacion captura de datos
Publicado por: DriverOp en Miércoles 24 de Febrero de 2010, 14:06
Mi solución es que uses el procedimiento val() para convertir cadenas en tipos enteros o reales.

Código: Pascal
  1.  
  2. var
  3.   Cad: string;
  4.   Numero, C: integer;
  5. ...
  6. begin
  7. repeat
  8. Write('Ingrese un número: ');
  9. ReadLn(Cad);
  10. Val(Cad, Numero, C);
  11. if C > 0 then WriteLn('Dato erróneo.');
  12. until C = 0;
  13. WriteLn('El número ingresado fue: ',Numero);
  14.  
  15.  
Título: Re: validacion captura de datos
Publicado por: epayan en Jueves 25 de Febrero de 2010, 03:58
mira en esta liga tengo una uileria, tal vez encuentres lo que estas buscando o parte de la solucion que podrias adaptarla a tus necesidades, aun asi esta abierto el codigo
puedes utilizar una funcion llamada EditaLongInt y adaptarla a tus necesidades

viewtopic.php?f=34&t=40724 (http://foros.solocodigo.com/viewtopic.php?f=34&t=40724" onclick="window.open(this.href);return false;)
Título: Re: validacion captura de datos
Publicado por: eduardoremix en Jueves 25 de Febrero de 2010, 19:30
Muchas gracias por las respuestas ya por fin esta completa mi agenda. Saludoss :good: