простой пример Делфи 7 Опции

[messenger]

Написать программу Делфи 7
Форма. На форме кнопка и строка с текстом.
При нажатии Кнопка Вкл/меняеться на Выкл.
При Вкл, проверка доступных com портов (Например 1,2,4,8).
Подключение по очереди к каждому.
Отправка запроса "fix"
При получении ответа "fix" перейти к функции №1 (Пустой раздел со словом "Функиция")

При получении иного ответа или не получении за таймаут 0,1 с перейти к слудующему по номеру порту.
Если все доступные порты пройдены а ответ не получен изменить кнопку на выкл.
Написать строку устрйоство не найдено.

500р. на карту после принтскрина
Почта lia54()mail.ru

[messenger]

Это предложение у кого есть опыт, наработки и установлено Делфи 7.
Понятно, что если все делать с нуля то и за неделю можно не уложиться.

В матлабе перебором я написал за пол часа с нуля.

% --- Executes on button press in pushbutton_VKL.
function pushbutton_VKL_Callback(hObject, eventdata, handles)
global stop_btn
global btn_cal
global btn_zero
global btn_set_freq
global obj1
global DataMain

if (stop_btn==1)%СТАРТ
set(handles.pushbutton_VKL, 'String', 'Вкл' );%Str2Num(DataMain.power)
drawnow;
fclose(obj1);%Закрываем порт
stop_btn=0
flag_rs_open=0 %Флаг "Порт закрыт"
else %(stop_btn=1)

set(handles.pushbutton_VKL, 'String', 'Выкл' );%Str2Num(DataMain.power)
drawnow;
stop_btn=1

% Подключение к COM, авто и ручное

num_port_set_form=handles.popupmenu1.Value
% If АВТОПОИСК COM else РУЧНОЙ
flag_rs_open=0
if num_port_set_form==1
num_port=1


while (num_port<10) & (flag_rs_open==0)
obj1 = instrfind('Type', 'serial', 'Port', ['COM' num2str(num_port)], 'Tag', '')
if isempty(obj1)
obj1 = serial(['COM' num2str(num_port)]);
else
fclose(obj1)
obj1 = obj1(1)
end

try
fopen(obj1);

catch
num_port=num_port+1
set(handles.info,'String','Автопоиск'); drawnow; pause(0.2)
end

mask='open'
tmp= obj1.status
if strcmp (tmp, mask)
flag_rs_open=1

end

if (flag_rs_open==1)%есть подключение
set(obj1, 'Timeout', 1.0);
test_RS = query(obj1, 'Fix', '%c');
mask='Fix'
if strncmp (test_RS, mask,8)
flag_rs_open=1
pause(0.5);
set(handles.info,'String','i'); drawnow;
else
fclose(obj1)
flag_rs_open=0
num_port=num_port+1
end
end
end %while поиск порта
% далее ручной выбор...