Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Теоретические вопросы _ часы

Автор: Гия 3.04.2003 22:38

Как на паскале сделать следующую вешь:
нужно чтобы отпечаталось текущее время например
               12:34:12
т. е. 12 часов 34 минуты и 12 секунд и затем точно
через каждую секунду.
что то не получилось сформулировать вопрос)

короче, надо чтобы шли часы в моей программе

заранее благодарю.              

Автор: GLuk 3.04.2003 23:17

Независимо от текущего процесса?

Автор: Гия 3.04.2003 23:36

необязательно, после некоторого действия должна вызываться функция и в ней печататься время на протяжении 2 мин, но если можно это делать и независимо от текущего процесса, то если можешь приведи оба примера.

Автор: Ivs 3.04.2003 23:46

ну вообщето для этого служит ф-я GetTime(hour,min,sec,milisec);
вот небольшой пример:

Код

program Timer;
uses dos,crt;
var
  h,m,s,ms:Word;
begin
  ClrScr;
  repeat
     GetTime(h,m,s,ms);
     Gotoxy(1,1);
     Write(h:2,':',m:2,':',s:2);
  until keypressed;
end.


Автор: Гия 3.04.2003 23:56

я то знаю что для этого служит gettime
мне надо другое:
как посчитать сколько точно времени прошло после некоторого действия иначе как узнать что прошло точно 2 минуты?

Автор: Ivs 4.04.2003 1:11

Ну дык надо получить текущее время, запомнить его в переменных, а потом в цикле получать новые и сравнивать на необходимую разность.

Автор: Гия 4.04.2003 2:22

так тип там string возвращается же(

Автор: ozzy 4.04.2003 8:20

Цитата
так тип там string возвращается же(

val

Автор: Ivs 4.04.2003 13:20

Цитата
так тип там string возвращается же(

ЭЭЭ.....Вобщето там возвращается тип WORD.........

Автор: Гия 4.04.2003 15:12

И правда там возвращаемый тип WORD. Спасибо ребята за участие в моей программе.Всё получилось что я хотел.Да, трудно без хелпа работать(