Вверх ↑
Этот топик читают: Гость
Ответов: 1305
Рейтинг: 29
#1: 2006-06-24 22:18:34 ЛС | профиль | цитата
Секундомер. Имеет четыре выхода:

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

Добавлено:

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

0
файлы: 1SecondsCounter1.1.zip [2.2KB] [1114]
vip
#1.1контекстная реклама от партнеров
Разработчик
Ответов: 26061
Рейтинг: 2120
#2: 2007-07-08 20:55:12 ЛС | профиль | цитата
Первыый дубль.
карма: 22

0
Ответов: 1305
Рейтинг: 29
#3: 2007-07-08 21:17:02 ЛС | профиль | цитата
Чего дубль?
карма: 0

0
Разработчик
Ответов: 26061
Рейтинг: 2120
#4: 2007-07-08 21:48:44 ЛС | профиль | цитата
v258, отбой, я второй не нашел. Не волнуйся, это идет поиск всех стадий развития компонентов.
карма: 22

0
Ответов: 1305
Рейтинг: 29
#5: 2007-07-08 22:22:05 ЛС | профиль | цитата
Да я и не волнуюсь, первую версию я еще тогда удалил
карма: 0

0
Ответов: 5227
Рейтинг: 585
#6: 2008-08-09 15:26:10 ЛС | профиль | цитата
v258, а нельзя ли добавить обратный отсчёт случаем

а так довольно полезный секундомер однако
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 1305
Рейтинг: 29
#7: 2008-08-09 16:29:54 ЛС | профиль | цитата
andrestudio, ну ты даешь - три года компоненту, сейчас бы я уже все по другому сделал, а в том безобразии даже ковыряться желания нет
карма: 0

0
Ответов: 5227
Рейтинг: 585
#8: 2008-08-09 18:19:40 ЛС | профиль | цитата
v258, так вот представляешь только сейчас этот обратный отсчёт и потребовался. Ну не беда выкрутимся на штатных компонентах, правда громозко немного получится.
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 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

1
Голосовали:andrestudio
Ответов: 5227
Рейтинг: 585
#10: 2008-08-09 19:09:27 ЛС | профиль | цитата
v258, СПАСИБО! большое, выручил, очень даже пригодится!
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 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 не снижает возможностей, но сильно увеличивает схему
0
Ответов: 2059
Рейтинг: 131
#12: 2017-08-25 09:30:37 ЛС | профиль | цитата
Не ясно, куда девать Install.hic. Говорят, надо его перетащить на окно HiAsm, но это ни чего не дает.

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

0
Ответов: 1924
Рейтинг: 172
#13: 2017-08-25 15:28:11 ЛС | профиль | цитата
Какой популярный компонент! http://forum.hiasm.com/topic/62363
Даже у меня есть. Правда, пользуюсь им реже редкого.

Редактировалось 1 раз(а), последний 2017-08-25 15:30:36
карма: 9
0
Ответов: 212
Рейтинг: 2
#14: 2017-08-25 16:51:39 ЛС | профиль | цитата
flint2, спасибо, заработало!
карма: 0
Незнание HiAsm не снижает возможностей, но сильно увеличивает схему
0
14
Сообщение
...
Прикрепленные файлы
(файлы не залиты)