procedure TMainForm.FormCreate(Sender: TObject);
var
height: Integer;
begin
Form8.Show;
//Form16.Show;
height := Screen.WorkAreaHeight;
height := height div 3 - 90;
MainForm.Show;
MainForm.height := height;
MainForm.SetFocus;
ComPort1.Port :='\\.\Com4'; //климат
ComPort1.BaudRate :=(br9600);
ComPort1.Open;
if ComPort1.Open then
begin
Memo1.Lines.Add('Connected'); //высвечиваем на 3 сек
PlaySound('C:\вав\приветствие полное.wav', 0, SND_ASYNC);
Form9.Show;
Form2.Show;
ComPort2.Port := '\\.\Com3'; //гироскоп
ComPort2.BaudRate := (br115200);
ComPort2.Open;
ComPort3.Port :='\\.\Com5'; //окна
ComPort3.BaudRate :=(br9600);
ComPort3.Open;
ComPort4.Port :='\\.\Com6'; //двигатель
ComPort4.BaudRate :=(br115200);
ComPort4.Open;
ComPort5.Port :='\\.\Com7'; //пневма
ComPort5.BaudRate :=(br115200);
ComPort5.Open;
end;
если проверять каждую, да можно заставить ее посылать какойто идентификатор и програмно прописать если пришло например 5 то стань ComPort5, а как быть с button например ComPort1.WriteStr('A');
и в каждой кнопке и тд придется кучу условий прописывать и фиг че найдешь..
или с этим как их читать.. они же жестко прописаны..
ComPort2.ReadStr(S, Count);
вот и загвоздка, пока придумал решение ардуино нано к которой подпаяно допустим семь ключей и при запуске она ждет чуток потом по очереди врубает питание ардуино 1 ардуино 2.. пояляются сом1 сом2..
но если режим возвращения из сна то прога встает при перетыкании юсбишников
|