|
простой пример Делфи 7 |
|
|
|
Jan 12 2018, 06:56
|
Участник

Группа: Участник
Сообщений: 53
Регистрация: 19-02-07
Пользователь №: 25 487

|
500 р. вы уже должны за чтение ТЗ.
|
|
|
|
|
Jan 12 2018, 07:20
|
Местный
  
Группа: Участник
Сообщений: 319
Регистрация: 27-09-07
Пользователь №: 30 877

|
Цитата(Mareng @ Jan 12 2018, 09:56)  500 р. вы уже должны за чтение ТЗ. тут пара дней возни. посланник кажись не готов раскошеливаться
|
|
|
|
|
Jan 12 2018, 07:38
|
Местный
  
Группа: Участник
Сообщений: 319
Регистрация: 27-09-07
Пользователь №: 30 877

|
Цитата(messenger @ Jan 12 2018, 10:34)  Проходите пожалуйста дальше. Если вы эту задачу собрались решать два дня то это вызывает только грусть. 1 компонент, 1 цикл это два дня? да, таков мой опыт решения таких задач. а вам советую писать на freepascal.ru, может там найдутся умельцы на час. А тут не светит. и умаю нигде не светит. если время дорого - трахайтесь сами
Сообщение отредактировал AlexRayne - Jan 12 2018, 07:40
|
|
|
|
|
Jan 12 2018, 07:47
|
Местный
  
Группа: Участник
Сообщений: 319
Регистрация: 27-09-07
Пользователь №: 30 877

|
Цитата(AlexandrY @ Jan 12 2018, 10:46)  Delphi 7 - это сурово. Ну хоть бы Delphi 2007. А так за один только дауншифтинг к Delphi 7 и Win 95 стоит брать не меньше 1 тыс. евро. как раз дельфин7 - это вершина, самое лучшее что у них было. Если это слишком старо, то лучше уж на лазарусе, чем эмбаркадеру тащить.
|
|
|
|
|
Jan 12 2018, 08:09
|
Местный
  
Группа: Участник
Сообщений: 361
Регистрация: 23-03-07
Пользователь №: 26 457

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

Группа: Участник
Сообщений: 70
Регистрация: 17-07-15
Пользователь №: 87 598

|
Цитата(AlexandrY @ Jan 12 2018, 13:46)  А так за один только дауншифтинг к 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-порт.
|
|
|
|
|
Jan 12 2018, 08:29
|
Местный
  
Группа: Участник
Сообщений: 319
Регистрация: 27-09-07
Пользователь №: 30 877

|
Цитата(messenger @ Jan 12 2018, 11:13)  to AlexRayne, просто когда я слышу тут работы на два дня то понимаю это как 500*16=8т.р. согласитесь этот пример не стоит 8 рублей. смотря кому и как. если для бизнеса решение - то определенно стоит. вы ведь не посчитали в ваши трудовые издержки: дизайн формы, и согласование ее процедуры перечисления ком-портов в системе, или их детектирование обработки ошибок при работе с портами собственно реакции - что делать с результатом тестов оформление компонента в удобном для вас виде, для укладки его в ваши репы/архивы время на отладку на реальном железе, и на вашей операционке сапорт компонента в ходе эксплуатации, или время на тестирование компонента и приемку работы Цитата(messenger @ Jan 12 2018, 11:13)  to AlexRayne, просто когда я слышу тут работы на два дня то понимаю это как 500*16=8т.р. согласитесь этот пример не стоит 8 рублей. И кстате, бизнес решение былобы ведение теста по всем выбраным портам паралельно, а не перебор их последовательный
Сообщение отредактировал AlexRayne - Jan 12 2018, 08:20
|
|
|
|
|
Jan 12 2018, 08:33
|

Ally
     
Группа: Модераторы
Сообщений: 6 232
Регистрация: 19-01-05
Пользователь №: 2 050

|
Цитата(Kabdim @ Jan 12 2018, 10:15)  Ну собственно работы на час, включая поиск, скачивание и установку этой окаменелости. Насколько помню там было все очень плохо с USB COM портами и новыми политиками безопасности начатыми с Win 7. Никому не пожелал бы связываться с Delphi 7. Кстати вышел RAD Studio RAD 10.2.2 Tokyo 25.0.29039.2004. Может кто пробовал, как там с COM портами через Bluetooth? А то после Creator Update в Win10 в RAD с Bluetooth все посыпалось.
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
|
|