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

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

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

500 р. вы уже должны за чтение ТЗ.

Проходите мимо. 500р/час.

тут пара дней возни.
посланник кажись не готов раскошеливаться

Проходите пожалуйста дальше. Если вы эту задачу собрались решать два дня то это вызывает только грусть.
1 компонент, 1 цикл это два дня?

да, таков мой опыт решения таких задач.
а вам советую писать на freepascal.ru, может там найдутся умельцы на час.
А тут не светит. и умаю нигде не светит. если время дорого - трахайтесь сами

Сообщение отредактировал AlexRayne - Jan 12 2018, 07:40

Лучше все-таки этому неучу пойти в армию. Не нужны стране такие "специалисты"!

Delphi 7 - это сурово. Ну хоть бы Delphi 2007.
А так за один только дауншифтинг к Delphi 7 и Win 95 стоит брать не меньше 1 тыс. евро.

как раз дельфин7 - это вершина, самое лучшее что у них было. Если это слишком старо, то лучше уж на лазарусе, чем эмбаркадеру тащить.

Это предложение у кого есть опыт, наработки и установлено Делфи 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 поиск порта
% далее ручной выбор...

Почему Windows 95? Delphi 7 прекрасно идет на Windows XP и возможно даже на Windows 7. Ну хотя, да, доступ к портам есть только у Windows 95 и 98. Хотя с COM-портами он не нужен.
Руки чешутся эту программу написать, но я пишу на C++Builder 6. Так что, извиняйте.
Напишите сами да и все. Киньте на форму кнопку(Button), метку(Label) и COM-порт. Компонент COM-порт, по-моему, скачивается с Интернета. Прочитайте про события и сделайте события OnClick для кнопки. Дальше настраивайте компонент COM-порт.

to AlexRayne, просто когда я слышу тут работы на два дня то понимаю это как 500*16=8т.р. согласитесь этот пример не стоит 8 рублей.

Ну собственно работы на час, включая поиск, скачивание и установку этой окаменелости.

смотря кому и как. если для бизнеса решение - то определенно стоит.
вы ведь не посчитали в ваши трудовые издержки:
дизайн формы, и согласование ее
процедуры перечисления ком-портов в системе, или их детектирование
обработки ошибок при работе с портами
собственно реакции - что делать с результатом тестов
оформление компонента в удобном для вас виде, для укладки его в ваши репы/архивы
время на отладку на реальном железе, и на вашей операционке
сапорт компонента в ходе эксплуатации, или время на тестирование компонента и приемку работы


И кстате, бизнес решение былобы ведение теста по всем выбраным портам паралельно, а не перебор их последовательный

Сообщение отредактировал AlexRayne - Jan 12 2018, 08:20

Насколько помню там было все очень плохо с USB COM портами и новыми политиками безопасности начатыми с Win 7.
Никому не пожелал бы связываться с Delphi 7.

Кстати вышел RAD Studio RAD 10.2.2 Tokyo 25.0.29039.2004.
Может кто пробовал, как там с COM портами через Bluetooth?

А то после Creator Update в Win10 в RAD с Bluetooth все посыпалось.