Programación General > Pascal

 Free Pascal Pregunta???

<< < (2/2)

Enko:
Hola, no es ninguna molestia. Cualquier duda que tengas, pregunta nomas.

--- Código: Text --- begin    repeat         WriteLn('1: opcion A');         WriteLn('2: opcion B');         WriteLn('9: SALIR');         ReadLn(opcion);         case opcion of             1: ProcedureOpcionA;             2: ProcedureOpcionB;             else                WriteLn('Opcion Invalida, eliga 1,2,9);         end;    until opcion = 9; end.  Se imprime el menu y se pide que se eliga una opcion hasta que el usuario ingresa un '9' como eleccion.
Saludos.

- RIKI -:
ok pues para que emntirte tengo mas preguntas como por ejempplo como hacer que el programa (el exe) se copie en otro directorio (vamos como hacen lo virus) no es mi intencio aviso!! pero deberia saverlo ai algun codigo?


I otra cosa nos e puede crear esto en pascal:

ejemplño:



 Que en un determnado momento se vea esto    


                                     Espere...


i estos 3 pntos suspensivo se muevan como si estubiera cargando i una vez un tiempo determinado aya pasado que continue con el programa


Es posible


GRacias de antemano!!!

Enko:
Para trabajar con archivos:
http://www.learn-programming.za.net/progra...al_learn11.html

Para hacer la espera hace:

--- Código: Text --- Write('Espere');Delay(1000);Write('.');Delay(1000);Write('.');Delay(1000);Write('.');  Delay(milisegundos)  hace pausar la ejecucion del programa por el tiempo que le pases.

- RIKI -:
Tema cerrado..




gracias!

Navegación

[0] Índice de Mensajes

[*] Página Anterior