Значения таймера в ячейке таблицы

@GR3YVAC · Регистрация: 28.03.2016

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

Добрый вечер, уважаемые Форумчане и Администрация сайта!
Прошу помощи в решении задачи:
Создать приложение, в котором производят следующие действия - заполняется поле: id_card, затем нажимаем кнопку старт и в таблице появляется запись(как в прикрепленном изображении): id(№ п/п), idcard, time; при этом в time начинается отсчет времени в формате "чч:мм:сс" (00:00:12 и т.д). После нажатия на кнопку "Стоп" - значение таймера останавливается и в поле "SUM" вписывается сумма(сумма расчитывается по принципу 1 час = 100 руб.)+ одновременно всю эту строчку записывает в базу.

Работаю в Embarcadero Rad Studio xe7
база - InterBase

При работе столкнулся с проблемой вывести идущий таймер в таблицу(но таблица это же отображение данных из бд), поэтому не представляю как это можно сделать. Подскажите, пожалуйста.
За ранее благодарен! с Уважением, Вячеслав.

Скрин БД прилогаю.

@GR3YVAC · 13.04.2016, 21:04 **[ТС]**

Может у кого есть предположения как это по другому реализовать? Поделитесь, пожалуйста, буду рад любым советам. Спасибо.

@D1973 · 14.04.2016, 18:20

GR3YVAC, делай в обыкновенном СтрингГриде, а после нажатия кнопки СТОП и расчета суммы просто переноси полученные данные в БД

@GR3YVAC · 14.04.2016, 19:06 **[ТС]**

D1973, Спасибо большое! Ещё вопрос: как реализовать обновление ячейки в котором отображён таймер? Чтобы каждую секунду обновлять значение ячейки ?Сейчас таймер в ячейке StringGrid отображается только после нажатия "стоп" с текущим значением.
Спасибо.

@D1973 · 14.04.2016, 19:22

На форме StringGrid, кнопка Button1 (свойство Caption = "Start") и таймер (Enabled = false)

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if(Button1->Caption == "Start")
   {
     Button1->Caption = "Stop";
     StringGrid1->Cells[1][1] = TimeToStr(Now());
   }
  else
   {
     Button1->Caption = "Start";
     //Тут твои вычисления и т.д.
   }
  Timer1->Enabled = !Timer1->Enabled;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  StringGrid1->Cells[1][1] = TimeToStr(Now());
  Application->ProcessMessages();
}
//---------------------------------------------------------------------------

@GR3YVAC · 14.04.2016, 19:25 **[ТС]**

D1973, Спасибо за помощь!

@GR3YVAC · 15.04.2016, 22:14 **[ТС]**

Выражаю благодарность за помощь в решении задачи D1973, Ваш совет был ключевым в решении. Спасибо!
Через пару дней вкину код, может кому понадобиться!

@D1973 · 16.04.2016, 17:12

Не по теме:

GR3YVAC, ой, блин, да на здоровье!!! Обращайся, ежели чего!!!

@gunslinger · 16.04.2016, 22:54

Кликните здесь для просмотра всего текста

Не по теме:

@GR3YVAC · 18.04.2016, 14:22 **[ТС]**

Значение таймера выводится в ячейку StringGrid:

Объявляем переменную:

id_card1 = "1w2e8956dfv5";

в таймер пишется

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
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 
if ( s <= 59 )
 {
 s++;
 }
 else if ( s >= 59 )
  {
  s = 0;
  s++;
  if ( m <= 59 )
    {
    m++;
     }
     else if ( m >= 59 )
      {
      m = 0;
      if ( h <= 24 )
        {
        h++;
      }
      else if ( h >= 0 )
       {
        h = 0;
        m = 0;
        s = 0;
  }
}
}
StringGrid1->Cells[2][1] = IntToStr(h)+":"+IntToStr(m)+":"+IntToStr(s);
Application->ProcessMessages();
 
}

Дальше в EditChange:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
void __fastcall TForm1::Edit2Change(TObject *Sender)
{
if (Edit2->Text == id_card1)
{
    if (StringGrid1->Cells[1][1] != id_card1)
    {
        StringGrid1->Cells[1][1] = id_card1;
        Timer1->Enabled = true;
        Edit2->SetFocus();
        Edit2->Text = "";
    }
    else
    {
        Timer1->Enabled = false;
        AnsiString s = StringGrid1->Cells[2][1];
        StringGrid1->Cells[3][1] = s;
        ShowMessage("Спасибо, вы пробыли у нас: " + s);
        Edit2->Text = "";
    }
}
 
}
//---------------------------------------------------------------------------

Может кому пригодится.
Как-то так, не судите строго... Может кто предложит более удобный вариант, буду рад))

@GR3YVAC · 21.04.2016, 15:16 **[ТС]**

Всем спасибо за помощь!
вот рабочий проект:

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@GR3YVAC 2 / 2 / 3 Регистрация: 28.03.2016 Сообщений: 45

	Значения таймера в ячейке таблицы 13.04.2016, 17:10. Показов 1413. Ответов 10 Метки нет (Все метки) Добрый вечер, уважаемые Форумчане и Администрация сайта! Прошу помощи в решении задачи: Создать приложение, в котором производят следующие действия - заполняется поле: id_card, затем нажимаем кнопку старт и в таблице появляется запись(как в прикрепленном изображении): id(№ п/п), idcard, time; при этом в time начинается отсчет времени в формате "чч:мм:сс" (00:00:12 и т.д). После нажатия на кнопку "Стоп" - значение таймера останавливается и в поле "SUM" вписывается сумма(сумма расчитывается по принципу 1 час = 100 руб.)+ одновременно всю эту строчку записывает в базу. Работаю в Embarcadero Rad Studio xe7 база - InterBase При работе столкнулся с проблемой вывести идущий таймер в таблицу(но таблица это же отображение данных из бд), поэтому не представляю как это можно сделать. Подскажите, пожалуйста. За ранее благодарен! с Уважением, Вячеслав. Скрин БД прилогаю. Миниатюры 0

@GR3YVAC 2 / 2 / 3 Регистрация: 28.03.2016 Сообщений: 45
	13.04.2016, 21:04 [ТС]
	Может у кого есть предположения как это по другому реализовать? Поделитесь, пожалуйста, буду рад любым советам. Спасибо. 0

@D1973 Модератор 9910 / 6447 / 2455 Регистрация: 21.01.2014 Сообщений: 27,365 Записей в блоге: 3
	14.04.2016, 18:20
	GR3YVAC, делай в обыкновенном СтрингГриде, а после нажатия кнопки СТОП и расчета суммы просто переноси полученные данные в БД 1

@GR3YVAC 2 / 2 / 3 Регистрация: 28.03.2016 Сообщений: 45
	14.04.2016, 19:06 [ТС]
	D1973, Спасибо большое! Ещё вопрос: как реализовать обновление ячейки в котором отображён таймер? Чтобы каждую секунду обновлять значение ячейки ?Сейчас таймер в ячейке StringGrid отображается только после нажатия "стоп" с текущим значением. Спасибо. 0

@GR3YVAC 2 / 2 / 3 Регистрация: 28.03.2016 Сообщений: 45
	14.04.2016, 19:25 [ТС]
	D1973, Спасибо за помощь! 0

@GR3YVAC 2 / 2 / 3 Регистрация: 28.03.2016 Сообщений: 45
	15.04.2016, 22:14 [ТС]
	Выражаю благодарность за помощь в решении задачи D1973, Ваш совет был ключевым в решении. Спасибо! Через пару дней вкину код, может кому понадобиться! 0

@D1973
	16.04.2016, 17:12
	Не по теме: GR3YVAC, ой, блин, да на здоровье!!! Обращайся, ежели чего!!! 0

@gunslinger place status here 3186 / 2220 / 640 Регистрация: 20.07.2013 Сообщений: 6,013
	16.04.2016, 22:54
	Кликните здесь для просмотра всего текста Не по теме: 1

Значения таймера в ячейке таблицы

Решение