Оффтоп
кхм..открыл лог аськи
[<3]~DyH9l~(^^,) (02:35:44 14/11/2010)
а сам таймер вызывает тело скрипта)
Breadfan (02:42:07 14/11/2010)
delphi Код:
var
TT1:ttimer;
res:integer;
min, max:integer;
procedure Init; //Вызывается при включении скрипта
begin
min:=500; // - минимальная граница интервала
max:=7000; // - максимальная граница интервала
TT1:=TTimer.Create(nil);
TT1.OnTimer:=@Mesg; // процедура выполняющаяся по таймеру
TT1.enabled:=True; //таймер вкл.
TT1.interval:=1000; //стартовое значение интервала
end;
procedure Free; //Вызывается при выключении скрипта
begin
TT1.enabled:=False;
TT1.free;
end;
procedure Mesg; //проц-ра выполняющаяся по таймеру
begin
SendMsg('Интервал: '+inttostr(TT1.interval)); //выводим старый интервал
res:=min+int((max-min)*random); // получаем новый случайный интервал, где мин\макс - границы диапазона
TT1.interval:=res; //интервалу присваевается новое значение
end;
begin
end.
Я ж тебе описывал все это уже.
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 18.11.2010 в 21:51.
|