Часы

@Zilayfe · Регистрация: 17.05.2019

Студворк — интернет-сервис помощи студентам

Создаем по центру экрана цифровые часы, показывающие часы, минуты, секунды и
милисекунды. Часы запускаются по нажатию одной из клавиш, по нажатию другой – останавливаются. По нажатию первой клавиши – продолжают движение. Если
нажата третья клавиша – останавливаются полностью.

@Пс · 17.05.2019, 22:21

Zilayfe, с использованием crt?

Добавлено через 3 минуты

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
uses crt;
 
begin
  var slow_down := System.TimeSpan.FromTicks(DateTime.Now.Ticks);
 
  var count_time := false;
  var last_otp_l := 0;
  System.Console.CursorVisible := false;
  
  System.Threading.Thread.Create(()->
  while true do
  begin
    System.Console.SetCursorPosition(20, 23);
    var otp := DateTime.Now - slow_down;
    var str_otp := $'{otp.Hour}.{otp.Minute}.{otp.Second}:{otp.Millisecond}';
    
    gotoxy(32, 12);
    str_otp.PadRight(last_otp_l).Println;
    last_otp_l := str_otp.Length;
    
    if not count_time then
    begin
      var dt := DateTime.Now;
      while not count_time do Sleep(1);
      slow_down := slow_down + (DateTime.Now - dt);
    end;
    
  end).Start;
  
  while true do
    case System.Console.ReadKey(true).KeyChar of
      
      '1': count_time := true;
      '2': count_time := false;
      '3': Halt;
    
    end;
  
end.

@Zilayfe · 17.05.2019, 22:33 **[ТС]**

Да,

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

@Zilayfe 0 / 0 / 0 Регистрация: 17.05.2019 Сообщений: 6

	Часы 17.05.2019, 21:04. Показов 1527. Ответов 2 Метки нет (Все метки) Создаем по центру экрана цифровые часы, показывающие часы, минуты, секунды и милисекунды. Часы запускаются по нажатию одной из клавиш, по нажатию другой – останавливаются. По нажатию первой клавиши – продолжают движение. Если нажата третья клавиша – останавливаются полностью. 0

@Zilayfe 0 / 0 / 0 Регистрация: 17.05.2019 Сообщений: 6
	17.05.2019, 22:33 [ТС]
	Да, 0

Часы

Решение