[messenger 0]

Написать программу Делфи 7

Форма. На форме кнопка и строка с текстом.

При нажатии Кнопка Вкл/меняеться на Выкл.

При Вкл, проверка доступных com портов (Например 1,2,4,8).

Подключение по очереди к каждому.

Отправка запроса "fix"

При получении ответа "fix" перейти к функции №1 (Пустой раздел со словом "Функиция")

 

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

Если все доступные порты пройдены а ответ не получен изменить кнопку на выкл.

Написать строку устрйоство не найдено.

 

500р. на карту после принтскрина

Почта lia54()mail.ru

[Mareng 0]

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

[messenger 0]

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

[AlexRayne 7]

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

тут пара дней возни.

посланник кажись не готов раскошеливаться

[messenger 0]

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

1 компонент, 1 цикл это два дня?

 

[AlexRayne 7]

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

1 компонент, 1 цикл это два дня?

да, таков мой опыт решения таких задач.

а вам советую писать на freepascal.ru, может там найдутся умельцы на час.

А тут не светит. и умаю нигде не светит. если время дорого - трахайтесь сами

Изменено 12 января, 2018 пользователем AlexRayne

[Eddy_Em 1]

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

[AlexandrY 3]

Написать программу Делфи 7

Delphi 7 - это сурово. Ну хоть бы Delphi 2007.

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

[AlexRayne 7]

Delphi 7 - это сурово. Ну хоть бы Delphi 2007.

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

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

[messenger 0]

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

% далее ручной выбор...

 

[MolotovTheBest 0]

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

Почему Windows 95? Delphi 7 прекрасно идет на Windows XP и возможно даже на Windows 7. Ну хотя, да, доступ к портам есть только у Windows 95 и 98. Хотя с COM-портами он не нужен.

Руки чешутся эту программу написать, но я пишу на C++Builder 6. Так что, извиняйте.

Напишите сами да и все. Киньте на форму кнопку(Button), метку(Label) и COM-порт. Компонент COM-порт, по-моему, скачивается с Интернета. Прочитайте про события и сделайте события OnClick для кнопки. Дальше настраивайте компонент COM-порт.

[messenger 0]

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

[Kabdim 0]

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

[AlexRayne 7]

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

смотря кому и как. если для бизнеса решение - то определенно стоит.

вы ведь не посчитали в ваши трудовые издержки:

дизайн формы, и согласование ее

процедуры перечисления ком-портов в системе, или их детектирование

обработки ошибок при работе с портами

собственно реакции - что делать с результатом тестов

оформление компонента в удобном для вас виде, для укладки его в ваши репы/архивы

время на отладку на реальном железе, и на вашей операционке

сапорт компонента в ходе эксплуатации, или время на тестирование компонента и приемку работы

 

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

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

Изменено 12 января, 2018 пользователем AlexRayne

[AlexandrY 3]

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

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

Никому не пожелал бы связываться с Delphi 7.

 

Кстати вышел RAD Studio RAD 10.2.2 Tokyo 25.0.29039.2004.

Может кто пробовал, как там с COM портами через Bluetooth?

 

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