VPF::Потоки управляемые системным таймером

ausar

Дата 25.1.2009, 08:23 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 127
Регистрация: 3.8.2007

Репутация: нет
Всего: нет

Привет всем!

Мне необходимо сделать вот такую вот вещь.
В программе 2 процедуры и один счетчик. Процедура Increase увеличивает счетчик при кажом вызове Decrease -уменьшает. В принципе все достаточно просто. Вызовы процедур происходят в цикле продолжительность которого должна регулироваться системным таймером. Т.е при первом прерывании вызывается процедура обработчик которая в произвольном порядке выбирает либо запусить процедуру увеличения счетчика либо процедуру уменьшения и назначает время, затем при последующих вызовах обработчика прерываний просто увеличивает счетчик прерываний, а процедура которая вращается в цикле в основной программе вызывается до тех пор пока счетчик прерываний не достигнет заданного значения, затем все повторяется.
Проблема в том что я не могу прикрутить обработчик прерываний таймера :(

И вторая дилемма: Как сделать из процедур Increase и Decrease потоки? т.е у меня они процедуры а мне нужно чтоб были потоки.

Код получился вот такой:

Код


{$M $1000,0,0}
Uses Crt,Dos;

const max=1000; {Максимальное значение счетчика}

Var
  OldVect:Procedure; {}
  boofer: array[1..max] of integer;
  counter,i,data,stop,ktime:integer;
  streamID:string;
  enwrite,enread,enable:boolean;

Procedure ShowInfo; {отображаем текщее показание счетчика}
begin
  GotoXY(2,6);
  write('Значение: ',counter,' %');
End;

Procedure IncreaseC; {увеличиваем показание}
begin
if enwrite then begin 
if counter<max then begin
inc(counter);
ShowInfo;
End
else begin enwrite:=false; enread:=true; end;
End;
End;


Procedure DecreaseC; {уменьшаем показание}
begin
if enread then begin
if counter>1 then begin
dec(counter);
ShowInfo;
End
else begin enwrite:=true; enread:=false; end;
End;
End;

{$F+}
Procedure TimeR;interrupt; {обработчик прерываний таймера}
var a:integer;
begin
If enable then begin {тут выбирается произвольно либо увеличить}
Randomize;  {либо уменьшить счетчик}
a:=Random(3);
Randomize;
ktime:=random(19); {количество времени на работу процедуры}
case a of
1:enWrite:=true; 
2:enRead:=true;
End;
End
Else
inc(stop); {в остальных случаях просто увеличиваем счетчик прерваний}
Inline($9C);
OldVect;
End;
{$F-}


begin
clrscr;
counter:=1;
enable:=true;
GetIntVec($8,@Oldvect);
SetIntVec($8, Addr(TimeR));
repeat
repeat
read;
write;
Until stop=ktime;
enread:=false;
enwrite:=false;
enable:=true;
until keypressed;
end.

Metalex

Дата 25.1.2009, 13:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет

Спрошу не в тему, но что такое потоки?

--------------------

Don't let the system get you down.

ausar

Дата 25.1.2009, 15:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 127
Регистрация: 3.8.2007

Репутация: нет
Всего: нет

Ну...

ausar

Дата 27.1.2009, 05:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 127
Регистрация: 3.8.2007

Репутация: нет
Всего: нет

Да неужели никто не может ничем помочь? Может примеры? статьи?

M
volvo877

Что "примеры, статьи"? О чем? Тебя спросили русским языком, о каких потоках идет речь? Уж не от Thread-ах ли??? А ничего, что компилятор, которым ты пользуешься, создавался в то время, когда НЕ БЫЛО потоков вообще? Это тебе как, не мешает?

Закрыто, ибо дубликат: Здесь

Это сообщение отредактировал(а) volvo877 - 7.2.2009, 04:12

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »