SCADA системы
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: реферат поведение, реферат образование
| Добавил(а) на сайт: Ryzhikov.
Предыдущая страница реферата | 6 7 8 9 10 11 12 13 14 15 16
Работа приложения в целом строится посредством вызова процедуры
TDDEServe.Timer1Timer по прерыванию таймера.
implementation
{$R *.DFM} uses ComObj, activex, ShellApi, shlobj, registry; var xsin: integer; ru:real; boolka:boolean;
procedure TDDEServe.Timer1Timer(Sender: TObject); var LPTbyte: byte; begin xsin:=xsin+1; if xsin>1000 then xsin:=xsin-1000;
DDEItem100.Text:=inttostr(5*(xsin-20*trunc(xsin/20)));
//пилообразный сигнал asm mov dx,379h in al,dx and al,80h mov LPTbyte,al end;
DDEItem200.Text:=inttostr(LPTbyte*100); //состояние линии LPT-порта
DDEItem300.Text:=inttostr(round(50+50*sin(xsin/20))); if (xsin/5)=trunc(xsin/5) then if (ru
Скачали данный реферат: Vitalina, Naberezhnev, Muhin, Петраков, Vitol'da, Jabrov, Фелициана.
Последние просмотренные рефераты на тему: оформление доклада титульный лист, товар реферат, налоги реферат, гражданское реферат.
Категории:
Предыдущая страница реферата | 6 7 8 9 10 11 12 13 14 15 16
Главная