Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 27.05.2009, 12:57   #1
RockForr
Форумчанин
 
Аватар для RockForr
 
Регистрация: 28.04.2009
Сообщений: 112
Репутация: 7
По умолчанию Работа с датчиком

Написал процедуру для модуля Ke-usb24a, на нем есть кнопочки, это процедура при нажатии на кнопку (как на мышке) должен переходить сигнал в программу и отобразиться картинка, что типа датчик сработал, у меня почему-то надо очень долго жать на кнопочку на модуле и на BUTTON, чтобы картинка поменялась.

procedure TForm2.Button20Click(Sender: TObject);
var
Line: Byte;
Value: Byte;
BinBuf: array[0..1023] of Char;
Buf: string;
CRbyte: Shortint;
LFbyte: Shortint;
NumberWritten : DWORD;
begin
CRbyte := 13; // HEX 0x0D
LFbyte := 10; // HEX 0x0A
Line := StrToInt(Form2.Edit3.Text);
Buf := '$KE,RD,' + Form2.Edit3.Text + Char(CRbyte) + Char(LFbyte);
WriteFile(CommHandle, PChar(Buf)^, Length(Buf), NumberWritten, nil);
ReadFile(CommHandle, BinBuf, 128, NumberWritten, nil);
Buf := Format('#RD,%.2d,', [Line]);
if(StrLComp(BinBuf, PChar(Buf), Length(Buf)) = 0) then
begin
Value := Byte(BinBuf[Length(Buf)]) - $30;
if(Value > 0) then
begin
Form2.Image19.Visible:=true;
Exit;
end;
RockForr вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача. Работа с псевдослучайными последовательностями (ПСП). Работа с цветом. 0101 Помощь студентам 3 18.12.2009 00:57


07:25.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru