SoloCodigo

Programación General => Otros Lenguajes de Programación => ADA => Mensaje iniciado por: pacorubio77 en Lunes 13 de Abril de 2009, 21:52

Título: un cronometro de cuenta atras en Adam,SOS
Publicado por: pacorubio77 en Lunes 13 de Abril de 2009, 21:52
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;

....