messenger 1 12 января, 2018 Опубликовано 12 января, 2018 · Жалоба Написать программу Делфи 7 Форма. На форме кнопка и строка с текстом. При нажатии Кнопка Вкл/меняеться на Выкл. При Вкл, проверка доступных com портов (Например 1,2,4,8). Подключение по очереди к каждому. Отправка запроса "fix" При получении ответа "fix" перейти к функции №1 (Пустой раздел со словом "Функиция") При получении иного ответа или не получении за таймаут 0,1 с перейти к слудующему по номеру порту. Если все доступные порты пройдены а ответ не получен изменить кнопку на выкл. Написать строку устрйоство не найдено. 500р. на карту после принтскрина Почта lia54()mail.ru Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты Поделиться
Mareng 0 12 января, 2018 Опубликовано 12 января, 2018 · Жалоба 500 р. вы уже должны за чтение ТЗ. Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты Поделиться
messenger 1 12 января, 2018 Опубликовано 12 января, 2018 · Жалоба Проходите мимо. 500р/час. Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты Поделиться
AlexRayne 7 12 января, 2018 Опубликовано 12 января, 2018 · Жалоба 500 р. вы уже должны за чтение ТЗ. тут пара дней возни. посланник кажись не готов раскошеливаться Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты Поделиться
messenger 1 12 января, 2018 Опубликовано 12 января, 2018 · Жалоба Проходите пожалуйста дальше. Если вы эту задачу собрались решать два дня то это вызывает только грусть. 1 компонент, 1 цикл это два дня? Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты Поделиться
AlexRayne 7 12 января, 2018 Опубликовано 12 января, 2018 (изменено) · Жалоба Проходите пожалуйста дальше. Если вы эту задачу собрались решать два дня то это вызывает только грусть. 1 компонент, 1 цикл это два дня? да, таков мой опыт решения таких задач. а вам советую писать на freepascal.ru, может там найдутся умельцы на час. А тут не светит. и умаю нигде не светит. если время дорого - трахайтесь сами Изменено 12 января, 2018 пользователем AlexRayne Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты Поделиться
Eddy_Em 1 12 января, 2018 Опубликовано 12 января, 2018 · Жалоба Лучше все-таки этому неучу пойти в армию. Не нужны стране такие "специалисты"! Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты Поделиться
AlexandrY 3 12 января, 2018 Опубликовано 12 января, 2018 · Жалоба Написать программу Делфи 7 Delphi 7 - это сурово. Ну хоть бы Delphi 2007. А так за один только дауншифтинг к Delphi 7 и Win 95 стоит брать не меньше 1 тыс. евро. Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты Поделиться
AlexRayne 7 12 января, 2018 Опубликовано 12 января, 2018 · Жалоба Delphi 7 - это сурово. Ну хоть бы Delphi 2007. А так за один только дауншифтинг к Delphi 7 и Win 95 стоит брать не меньше 1 тыс. евро. как раз дельфин7 - это вершина, самое лучшее что у них было. Если это слишком старо, то лучше уж на лазарусе, чем эмбаркадеру тащить. Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты Поделиться
messenger 1 12 января, 2018 Опубликовано 12 января, 2018 · Жалоба Это предложение у кого есть опыт, наработки и установлено Делфи 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 12 января, 2018 Опубликовано 12 января, 2018 · Жалоба А так за один только дауншифтинг к 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 1 12 января, 2018 Опубликовано 12 января, 2018 · Жалоба to AlexRayne, просто когда я слышу тут работы на два дня то понимаю это как 500*16=8т.р. согласитесь этот пример не стоит 8 рублей. Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты Поделиться
Kabdim 0 12 января, 2018 Опубликовано 12 января, 2018 · Жалоба Ну собственно работы на час, включая поиск, скачивание и установку этой окаменелости. Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты Поделиться
AlexRayne 7 12 января, 2018 Опубликовано 12 января, 2018 (изменено) · Жалоба to AlexRayne, просто когда я слышу тут работы на два дня то понимаю это как 500*16=8т.р. согласитесь этот пример не стоит 8 рублей. смотря кому и как. если для бизнеса решение - то определенно стоит. вы ведь не посчитали в ваши трудовые издержки: дизайн формы, и согласование ее процедуры перечисления ком-портов в системе, или их детектирование обработки ошибок при работе с портами собственно реакции - что делать с результатом тестов оформление компонента в удобном для вас виде, для укладки его в ваши репы/архивы время на отладку на реальном железе, и на вашей операционке сапорт компонента в ходе эксплуатации, или время на тестирование компонента и приемку работы to AlexRayne, просто когда я слышу тут работы на два дня то понимаю это как 500*16=8т.р. согласитесь этот пример не стоит 8 рублей. И кстате, бизнес решение былобы ведение теста по всем выбраным портам паралельно, а не перебор их последовательный Изменено 12 января, 2018 пользователем AlexRayne Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты Поделиться
AlexandrY 3 12 января, 2018 Опубликовано 12 января, 2018 · Жалоба Ну собственно работы на час, включая поиск, скачивание и установку этой окаменелости. Насколько помню там было все очень плохо с USB COM портами и новыми политиками безопасности начатыми с Win 7. Никому не пожелал бы связываться с Delphi 7. Кстати вышел RAD Studio RAD 10.2.2 Tokyo 25.0.29039.2004. Может кто пробовал, как там с COM портами через Bluetooth? А то после Creator Update в Win10 в RAD с Bluetooth все посыпалось. Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты Поделиться