Leer la Hora desde Basic

Por manolito74

Paragon (1190)

Imagen del manolito74

30-06-2014, 16:20

Hola:

¿Cómo podría leer la Hora desde Basic MSX? Lo que quiero es saber los segundos que han transcurrido desde que ejecuto una instrucción hasta que se cumple cierta condición del Programa y se ejecuta otra cierta instrucción.

Lo que se me ocurre es leer la Hora del Sistema la primera vez, leer la Hora del Sistema una segunda vez, hacer la resta y obtener los segundos transcurridos.

¿Cómo podría hacerlo?

Gracias & Saludetes. ;-)

Login sesión o register para postear comentarios

Por anonymous

incognito ergo sum (116)

Imagen del anonymous

30-06-2014, 16:58

Primero pon la hora al ordenador: Set Time "16:55:04"

y luego teclea y ejecuta el siguiente programa:

10 Get time A$:?
20 Print A$

Cada vez que le des run a ese programa irá diciéndote la hora.

Por manolito74

Paragon (1190)

Imagen del manolito74

30-06-2014, 18:27

Hola Valky:

Ok, perfecto, funciona. ¡Muchas gracias! ;-)

Vale, ahora ya sé leer la hora pero me surgen dudas-preguntas. Sé que el resultado es un "String" de 8 posiciones:

HH:MM:SS

¿Cómo puedo obtener numéricamente las horas, minutos y segundos? Es decir habría que coger las posiciones 1 y 2 y pasarlas a una variable numérica para obtener la hora, las posiciones 4 y 5 y pasarlas a una variable numérica para obtener los minutos y lo mismo para las posiciones 7 y 8 para obtener los segundos.

Gracias & Saludetes. ;-)

Por manolito74

Paragon (1190)

Imagen del manolito74

30-06-2014, 18:47

Hola de nuevo:

Vale, me respondo a mí mismo. Este sería el Código que:

- Lee la Hora del Sistema.
- Muestra la Hora del Sistema.
- Convierte a una variable numérica la Hora.
- Convierte a una variable numérica los Minutos.
- Convierte a una variable numérica los Segundos.
- Muestra esas variables numéricas. ;-)

10 GET TIME A$
20 PRINT A$
30 H=VAL(MID$(A$,1,2))
40 M=VAL(MID$(A$,4,2))
50 S=VAL(MID$(A$,7,2))
60 PRINT H, " HORAS"
70 PRINT M, " MINUTOS"
80 PRINT S, " SEGUNDOS"