• Sábado 14 de Diciembre de 2019, 08:59

Autor Tema:  un cronometro de cuenta atras en Adam,SOS  (Leído 998 veces)

pacorubio77

  • Miembro MUY activo
  • ***
  • Mensajes: 207
    • Ver Perfil
un cronometro de cuenta atras en Adam,SOS
« en: Lunes 13 de Abril de 2009, 21:52 »
0
Hola, tengo que hacer una practica, y un apartado es cuando un coche se averie...que espere durante un momento(determinado) ,pero claro tiene que haber una cuenta atras..que me tiene que salir por pantalla...y no se como implementar esa cuenta atrás...

Yo he echo lo siguiente..

....

 LOOP
                                         --    exit when (Clock - Comienzo)>10.0;
                                         --    Put_line("se mete");
                                                DELAY UNTIL comienzo+1.0;
                                                Durac:=Fin-Comienzo;
                                                Jaja:=Integer(Durac);
                                                Put(jaja);
                                                Op_Reloj_Averia(Via1).Actualiza_Reloj_Averia(Jaja);--vemos el cast de convertir un tipo duration a entero
                                         --    Jaja:=Jaja-1;
                                         --    Put(jaja);
                                          end loop;

....