Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

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

Написал процедуру для модуля 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 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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