таймером || секундомером Трабл

@Mrak19901124 · Регистрация: 25.02.2010

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

Здравствуйте у меня проблема возникла с таймером.
Он у меня не точен!
Подскажите как сделать поточнее. или как сделать таймер на 40мин чтобы выводило на labеl?
Вот код моего секундомера.

C++
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
40
41
42
43
44
45
46
TForm1 *Form1;
int min; // минуты
int sec; // секунды
int msec; // миллисекунды
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Timer1->Enabled = false;
Timer1->Interval = 1;
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Timer1->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if ( msec < 99)
msec++;
else
{
msec = 0;
if ( sec < 59 )
sec++;
else
{
sec = 0;
min++;
Label1->Caption = IntToStr(min);
}
if ( sec <= 9 )
Label2->Caption = "0" + IntToStr(sec);
else
Label2->Caption = IntToStr(sec);
Label4->Visible = ! Label4->Visible;
}
if ( msec <= 9 )
Label3->Caption = "0" + IntToStr(msec);
else
Label3->Caption = IntToStr(msec);
}
//------------------

@NiTan · 09.03.2010, 15:37

Если ты поставил интервал 1 мс, то это не значит что таймер работает с такой скоростью. У него есть какая-то погрешность, когда интервал < 1 секунды.

@Sasha · 09.03.2010, 19:04

Надо

C++
1
Timer1->Interval = 1000;

Тогда будет каждую секунду

@Mrak19901124 · 09.03.2010, 19:11 **[ТС]**

тогда у меня вообще очень долго долго обовляеца окно лейбела

@Sasha · 09.03.2010, 19:25

На вот код когда то я делал секундомер
Условие до 40 додумаешь сам

C++
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
40
41
42
43
44
45
46
47
48
49
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int min,sec;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    if ( sec < 59 )
    { sec++;
        if ( sec < 10)
            {Label2->Caption = ":0" + IntToStr(sec);}
        else
            {Label2->Caption =":" + IntToStr(sec);}
    }
    else if (sec == 59)
         {Label2->Caption = ":00";
          sec = 0;
          min++;}
           if (min < 10)
              {Label1->Caption = "0" + IntToStr(min);}
           else
              {Label1->Caption = IntToStr(min);}
           if (Label1->Caption == "59")
                  {Timer1->Enabled=false;}
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        if(Timer1->Enabled == true)
           {Timer1->Enabled=false;}
         else if (Timer1->Enabled==false)
            {Timer1->Enabled=true;}
}
//---------------------------------------------------------------------------

@Mrak19901124 · 10.03.2010, 12:23 **[ТС]**

ок спасиба вечером попробую!

@zak254 · 13.03.2010, 19:18

Sasha, приветствую. смотрел темы форума связанные с работой со временем, таймерами в с билдере, но нужного не нашел.я не особо разбираюсь в жизни форумов поэтому пишу напрямую, заранее спасибо за посильную помощь. суть проблемы - мне при запуске программы необходимо определить количество секунд прошедших с полуночи этого же дня. смотрел кучу всего, но там то время считается от 70 года, то от 1900 и текущее время дано в частях сотых от суток, что вызывает неточность... вобщем есть возможность просто получить количество секунд в формате int???

@Sasha · 14.03.2010, 01:17

если я тебя правильно понял то это будет работать так

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 TDateTime dt,d;
 Word ms,y1,m1,d1;
 dt = d.CurrentTime();
 DecodeTime(dt,y1,m1,d1,ms);
 int i = y1*3600+m1*60+d1;
 
 i++;
 if (i == 86400)
     {i = 0;}
  Label1->Caption = "С полуночи прошло: " + IntToStr(i)+ " секунд";
 
}
//---------------------------------------------------------------------------

@zak254 · 14.03.2010, 14:11

спасибо большое, все получилось...

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887
	09.03.2010, 15:37
	Если ты поставил интервал 1 мс, то это не значит что таймер работает с такой скоростью. У него есть какая-то погрешность, когда интервал < 1 секунды. 1

@Mrak19901124 47 / 12 / 4 Регистрация: 25.02.2010 Сообщений: 259
	09.03.2010, 19:11 [ТС]
	тогда у меня вообще очень долго долго обовляеца окно лейбела 0

@Mrak19901124 47 / 12 / 4 Регистрация: 25.02.2010 Сообщений: 259
	10.03.2010, 12:23 [ТС]
	ок спасиба вечером попробую! 0

@zak254 0 / 0 / 0 Регистрация: 13.03.2010 Сообщений: 9
	13.03.2010, 19:18
	Sasha, приветствую. смотрел темы форума связанные с работой со временем, таймерами в с билдере, но нужного не нашел.я не особо разбираюсь в жизни форумов поэтому пишу напрямую, заранее спасибо за посильную помощь. суть проблемы - мне при запуске программы необходимо определить количество секунд прошедших с полуночи этого же дня. смотрел кучу всего, но там то время считается от 70 года, то от 1900 и текущее время дано в частях сотых от суток, что вызывает неточность... вобщем есть возможность просто получить количество секунд в формате int??? 0

@zak254 0 / 0 / 0 Регистрация: 13.03.2010 Сообщений: 9
	14.03.2010, 14:11
	спасибо большое, все получилось... 0