SecondCounter 1.1

Форумы КомпонентыSecondCounter 1.1 ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 1305

Рейтинг: 29

#1: 2006-06-24 22:18:34 ЛС | профиль | цитата

Секундомер. Имеет четыре выхода:

onTimer=Событие происходит каждую секунду;
onCount=Вывод времени в секундах;
onString=Вывод строки в формате 0 : 00 : 00;
onStop=Событие происходит после остановки секундомера;

Добавлено:

Возможность задания формата строки;
Возможность установки начальной позиции секундомера (работает независимо от знака разделителя, будет работать даже так - 12,45;18);

карма: 0

файлы: 1

SecondsCounter1.1.zip [2.2KB] [1190]

Разработчик

Ответов: 26163

Рейтинг: 2127

#2: 2007-07-08 20:55:12 ЛС | профиль | цитата

Первыый дубль.

карма: 22

Ответов: 1305

Рейтинг: 29

#3: 2007-07-08 21:17:02 ЛС | профиль | цитата

Чего дубль?

карма: 0

Разработчик

Ответов: 26163

Рейтинг: 2127

#4: 2007-07-08 21:48:44 ЛС | профиль | цитата

v258, отбой, я второй не нашел. Не волнуйся, это идет поиск всех стадий развития компонентов.

карма: 22

Ответов: 1305

Рейтинг: 29

#5: 2007-07-08 22:22:05 ЛС | профиль | цитата

Да я и не волнуюсь, первую версию я еще тогда удалил

карма: 0

Ответов: 5227

Рейтинг: 587

#6: 2008-08-09 15:26:10 ЛС | профиль | цитата

v258, а нельзя ли добавить обратный отсчёт случаем

а так довольно полезный секундомер однако

карма: 4

Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...

Ответов: 1305

Рейтинг: 29

#7: 2008-08-09 16:29:54 ЛС | профиль | цитата

andrestudio, ну ты даешь - три года компоненту, сейчас бы я уже все по другому сделал, а в том безобразии даже ковыряться желания нет

карма: 0

Ответов: 5227

Рейтинг: 587

#8: 2008-08-09 18:19:40 ЛС | профиль | цитата

v258, так вот представляешь только сейчас этот обратный отсчёт и потребовался.

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

карма: 4

Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...

Ответов: 1305

Рейтинг: 29

#9: 2008-08-09 18:50:37 ЛС | профиль | цитата

andrestudio, этот IC переводит количество секунд в строку типа hh:mm:ss


Add(InlineCode,5395143,410,132)
{
 @Hint=#66:Перевод целочисленного значения в количество часов, минут и секунд|
 WorkPoints=#7:doCount|
 EventPoints=#8:onString|
 VarPoints=#3:Str|
 DataPoints=#5:Count|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses Kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|17:   FStr : string;|9:   public|20:    Count:THi_Event;|0:|23:    onString:THI_Event;|0:|51:    procedure doCount(var _Data:TData; Index:word);|47:    procedure Str(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|77:function SecTime(var x:integer):string;  // Перевод целочисленного значения в|76:var hour,min,sec:string;                 // количество часов, минут и секунд|5:begin|31:   hour := int2str(x div 3600);|19:   x := x mod 3600;|26:   if (x div 60) < 10 then|40:     min := '0' + int2str(x div 60) else|30:     min := int2str(x div 60);|26:   if (x mod 60) < 10 then|40:     Sec := '0' + int2str(x mod 60) else|52:                           Sec := int2str(x mod 60);|46:   Result := hour + ' : ' + min + ' : ' + sec;|4:end;|0:|30:procedure THiAsmClass.doCount;|14:var C:integer;|15:var str:string;|5:begin|39:     C := ReadInteger(_Data, Count, 0);|23:     str := SecTime(C);|17:     FStr := str;|31:     _hi_onEvent(onString,str);|4:end;|0:|26:procedure THiAsmClass.Str;|5:begin|31:   _Data.Data_type := data_str;|23:   _Data.sdata := FStr;|4:end;|0:|4:end.|
}

Тоже из старых запасов - пользуйся, если поможет

Примерно вот так


Add(Label,612331,357,119)
{
 Left=300
 Top=115
}
Add(Hub,13547987,238,112)
{
 link(onEvent2,5395143:doCount,[])
}
Add(InlineCode,5395143,298,119)
{
 @Hint=#66:Перевод целочисленного значения в количество часов, минут и секунд|
 WorkPoints=#7:doCount|
 EventPoints=#8:onString|
 VarPoints=#3:Str|
 DataPoints=#5:Count|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses Kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|17:   FStr : string;|9:   public|20:    Count:THi_Event;|0:|23:    onString:THI_Event;|0:|51:    procedure doCount(var _Data:TData; Index:word);|47:    procedure Str(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|77:function SecTime(var x:integer):string;  // Перевод целочисленного значения в|76:var hour,min,sec:string;                 // количество часов, минут и секунд|5:begin|31:   hour := int2str(x div 3600);|19:   x := x mod 3600;|26:   if (x div 60) < 10 then|40:     min := '0' + int2str(x div 60) else|30:     min := int2str(x div 60);|26:   if (x mod 60) < 10 then|40:     Sec := '0' + int2str(x mod 60) else|52:                           Sec := int2str(x mod 60);|46:   Result := hour + ' : ' + min + ' : ' + sec;|4:end;|0:|30:procedure THiAsmClass.doCount;|14:var C:integer;|15:var str:string;|5:begin|39:     C := ReadInteger(_Data, Count, 0);|23:     str := SecTime(C);|17:     FStr := str;|31:     _hi_onEvent(onString,str);|4:end;|0:|26:procedure THiAsmClass.Str;|5:begin|31:   _Data.Data_type := data_str;|23:   _Data.sdata := FStr;|4:end;|0:|4:end.|
 link(onString,612331:doText,[(344,125)(344,125)])
}
Add(Timer,2532539,119,119)
{
 link(onTimer,13945467:doPrev,[])
}
Add(Counter,13945467,182,112)
{
 Max=500
 Default=600
 link(onNext,13547987:doEvent1,[])
}

карма: 0

Голосовали: andrestudio

Ответов: 5227

Рейтинг: 587

#10: 2008-08-09 19:09:27 ЛС | профиль | цитата

v258, СПАСИБО! большое, выручил, очень даже пригодится!

карма: 4

Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...

Ответов: 212

Рейтинг: 2

#11: 2017-08-25 09:18:25 ЛС | профиль | цитата

Ребят, очень нужен компонент, но не могу установить. Как устанавливаются компоненты?
Вот такое нашел:

Netspirit писал(а):

1) Все файлы *.ini - в папку HiAsm\Elements\Delphi\conf
2) Все файлы *.pas - в папку HiAsm\Elements\Delphi\code
3) Все файлы *.ico - в папку HiAsm\Elements\Delphi\icon

Все сделал так, но после перезагрузки HiAsm компонент не появляется

Не ясно, куда девать Install.hic. Говорят, надо его перетащить на окно HiAsm, но это ни чего не дает.
Бррррррррррр

карма: 0

Незнание HiAsm не снижает возможностей, но сильно увеличивает схему

Ответов: 2059

Рейтинг: 132

#12: 2017-08-25 09:30:37 ЛС | профиль | цитата

Не ясно, куда девать Install.hic. Говорят, надо его перетащить на окно HiAsm, но это ни чего не дает.

Перетащи ini на окно HiAsm!

карма: 6

Ответов: 1926

Рейтинг: 172

#13: 2017-08-25 15:28:11 ЛС | профиль | цитата

Какой популярный компонент! http://forum.hiasm.com/topic/62363
Даже у меня есть. Правда, пользуюсь им реже редкого.

Редактировалось 1 раз(а), последний 2017-08-25 15:30:36

карма: 9

Учебник по HiAsm | Видеоуроки | Мои программы

Ответов: 212

Рейтинг: 2

#14: 2017-08-25 16:51:39 ЛС | профиль | цитата

flint2, спасибо, заработало!

карма: 0

Незнание HiAsm не снижает возможностей, но сильно увеличивает схему

Форумы КомпонентыSecondCounter 1.1 ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)