Управление внешними устройствами средствами Delphi

[RockForr]

Это листинг программы-вольтметра, которая считывает инф-ю с модуля подключенного к компу и и выдает кол-во вольт.
Как переделать эту прогу, чтобы она считывала инф-ю с датчиков модуля подключенного к компу и выводила состояние датчиков на экран, например, ЕСЛИ ДАТЧИК СРАБОТАЛ, то картинка на форме отображается красным цветом.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, mmsystem, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  MyTimer: TTimer;
  uTimerID: word;
  i: word;
  CommHandle : hFile;
  DCB : TDCB;
  PortString: string;
  CommTimeOuts: TCOMMTIMEOUTS;

  p: PChar;
  BinBuf: array[0..1023] of Char;
  buffer: string;
  ADC_Res: array[0..64] of Char;
  ADCFloat: Double;
  CRbyte: Shortint;
  LFbyte: Shortint;
  NumberWritten : DWORD; 

implementation

{$R *.dfm}


procedure FNTimeCallBack(uTimerID, uMessage: UINT;dwUser, dw1, dw2: DWORD);stdcall;
begin

ReadFile(CommHandle, BinBuf, 128, NumberWritten, nil);
if(NumberWritten > 0) then
begin
p := BinBuf;
for i:=1 to NumberWritten do
begin
//**************
if (p^ = '#') then
begin
  if(StrLComp(p, PChar('#ADC,'), 4) = 0) then
  begin 
    p := p + 5;
    StrLCopy(ADC_Res, p, 4);
    ADCFloat := (StrToInt(ADC_Res)/1024)*5;
    Form1.Edit2.Text := FloatToStr(ADCFloat);
  end;
  inc(p);
end
//****************
end;
end;  
end; 


procedure TForm1.Button1Click(Sender: TObject);
begin
PortString := '\\.\COM' + Edit1.Text;   
CommHandle := CreateFile(PChar(PortString), GENERIC_READ or 
			GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0);

if (CommHandle = INVALID_HANDLE_VALUE) then
begin
  MessageDlg('Error. Can`t Open port', mtError, [mbOK], 0);
end
else
begin
  GetCommState(CommHandle, DCB);
  DCB.BaudRate  := CBR_9600; // FORMALLY, CONNECT BAUD DOESN`T MATTER (Virtual Com Port)
  DCB.Parity    := NOPARITY;
  DCB.ByteSize  := 8;
  DCB.StopBits  := OneStopBit;
  
  CommTimeOuts.ReadIntervalTimeout          := 0;
  CommTimeOuts.ReadTotalTimeoutMultiplier   := 0;
  CommTimeOuts.ReadTotalTimeoutConstant     := 1000;
  CommTimeOuts.WriteTotalTimeoutMultiplier  := 0;
  CommTimeOuts.WriteTotalTimeoutConstant    := 1000;
  SetCommTimeouts(CommHandle, CommTimeOuts);
  SetCommState(CommHandle, DCB);

  uTimerID := timeSetEvent(1000,0,@FNTimeCallBack,100,TIME_PERIODIC);

  CRbyte := 13; // HEX 0x0D
  LFbyte := 10; // HEX 0x0A
  buffer := '$KE,ADC,1' + Char(CRbyte) + Char(LFbyte);
  WriteFile(CommHandle, PChar(buffer)^, Length(buffer), NumberWritten, nil);

  MessageDlg('Port Open Ok', mtInformation, [mbOK], 0);
end 
end;

end.

[ScorpioN_T]

ну ты кадр
чуток разберись в коде....
найди там строку где меняются значения и поставь УСЛОВИЕ при изменений значений, менять форме цвет...
Сразу скажу в коде не разбирался, но суть в этом

if DATCHIK>0 then Form1.color:=clBtnFace;

DATCHIK- переменная (просто привел пример)

[RockForr]

На тему проги "Пароль". Я все также вставил как у тебя в свою прогу, но при запуске экзэшника вылетает ошибка, а потом все нормально, Как от ошибки избавиться?

[Пепел Феникса]

какая ошибка, на какой строке?
ты хоть чтото сам собираешься делать?

[RockForr]

Ошибка НЕ В СТРОКЕ!!!, а на экране

[Пепел Феникса]

блин я удивляюсь нежеланию чтото самому делать..
за тебя делать не намерен, своих проблем хватает, но помочь могу...
так вот, как я понимаю этот код выводит значение в Эдит, так?
мой тебе совет воспользуйся Бряками и трассировкой и поймешь, какие строки выводят это значения и куда(то есть где надо заменить)

[RockForr]

Меня интересует эта часть кода, как ее изменить
procedure FNTimeCallBack(uTimerID, uMessage: UINT;dwUser, dw1, dw2: DWORD);stdcall;
begin

ReadFile(CommHandle, BinBuf, 128, NumberWritten, nil);
if(NumberWritten > 0) then
begin
p := BinBuf;
for i:=1 to NumberWritten do
begin
//**************
if (p^ = '#') then
begin
if(StrLComp(p, PChar('#ADC,'), 4) = 0) then
begin
p := p + 5;
StrLCopy(ADC_Res, p, 4);
ADCFloat := (StrToInt(ADC_Res)/1024)*5;
Form1.Edit2.Text := FloatToStr(ADCFloat);
end;
inc(p);
end
//****************
end;
Как переделать эту прогу, чтобы она считывала инф-ю с датчиков модуля подключенного к компу и выводила состояние датчиков на экран, например, ЕСЛИ ДАТЧИК СРАБОТАЛ, то картинка на форме отображается красным цветом.

[Sergey13666]

Добрый день или вечер Мужики.
Дайте пожалуйста совет чаго почитать или помогите обьясните но только по проще я только начинаю вникать в это дело, мне надо каким нибуть образом подключать датчики и считывать с них информацию а на другие датчики отправлять задания. проблема в том что, как изготовить плату и написать дрова под них?