реклама на сайте
подробности

 
 
2 страниц V   1 2 >  
Reply to this topicStart new topic
> простой пример Делфи 7
messenger
сообщение Jan 12 2018, 06:49
Сообщение #1


Местный
***

Группа: Участник
Сообщений: 361
Регистрация: 23-03-07
Пользователь №: 26 457



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

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

500р. на карту после принтскрина
Почта lia54()mail.ru
Go to the top of the page
 
+Quote Post
Mareng
сообщение Jan 12 2018, 06:56
Сообщение #2


Участник
*

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



500 р. вы уже должны за чтение ТЗ.
Go to the top of the page
 
+Quote Post
messenger
сообщение Jan 12 2018, 07:01
Сообщение #3


Местный
***

Группа: Участник
Сообщений: 361
Регистрация: 23-03-07
Пользователь №: 26 457



Проходите мимо. 500р/час.
Go to the top of the page
 
+Quote Post
AlexRayne
сообщение Jan 12 2018, 07:20
Сообщение #4


Местный
***

Группа: Участник
Сообщений: 319
Регистрация: 27-09-07
Пользователь №: 30 877



Цитата(Mareng @ Jan 12 2018, 09:56) *
500 р. вы уже должны за чтение ТЗ.

тут пара дней возни.
посланник кажись не готов раскошеливаться
Go to the top of the page
 
+Quote Post
messenger
сообщение Jan 12 2018, 07:34
Сообщение #5


Местный
***

Группа: Участник
Сообщений: 361
Регистрация: 23-03-07
Пользователь №: 26 457



Проходите пожалуйста дальше. Если вы эту задачу собрались решать два дня то это вызывает только грусть.
1 компонент, 1 цикл это два дня?
Go to the top of the page
 
+Quote Post
AlexRayne
сообщение Jan 12 2018, 07:38
Сообщение #6


Местный
***

Группа: Участник
Сообщений: 319
Регистрация: 27-09-07
Пользователь №: 30 877



Цитата(messenger @ Jan 12 2018, 10:34) *
Проходите пожалуйста дальше. Если вы эту задачу собрались решать два дня то это вызывает только грусть.
1 компонент, 1 цикл это два дня?

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

Сообщение отредактировал AlexRayne - Jan 12 2018, 07:40
Go to the top of the page
 
+Quote Post
Эдди
сообщение Jan 12 2018, 07:45
Сообщение #7


Знающий
****

Группа: Участник
Сообщений: 825
Регистрация: 16-04-15
Из: КЧР, Нижний Архыз
Пользователь №: 86 250



Лучше все-таки этому неучу пойти в армию. Не нужны стране такие "специалисты"!
Go to the top of the page
 
+Quote Post
AlexandrY
сообщение Jan 12 2018, 07:46
Сообщение #8


Ally
******

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



Цитата(messenger @ Jan 12 2018, 08:49) *
Написать программу Делфи 7

Delphi 7 - это сурово. Ну хоть бы Delphi 2007.
А так за один только дауншифтинг к Delphi 7 и Win 95 стоит брать не меньше 1 тыс. евро.
Go to the top of the page
 
+Quote Post
AlexRayne
сообщение Jan 12 2018, 07:47
Сообщение #9


Местный
***

Группа: Участник
Сообщений: 319
Регистрация: 27-09-07
Пользователь №: 30 877



Цитата(AlexandrY @ Jan 12 2018, 10:46) *
Delphi 7 - это сурово. Ну хоть бы Delphi 2007.
А так за один только дауншифтинг к Delphi 7 и Win 95 стоит брать не меньше 1 тыс. евро.

как раз дельфин7 - это вершина, самое лучшее что у них было. Если это слишком старо, то лучше уж на лазарусе, чем эмбаркадеру тащить.
Go to the top of the page
 
+Quote Post
messenger
сообщение Jan 12 2018, 08:09
Сообщение #10


Местный
***

Группа: Участник
Сообщений: 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 поиск порта
% далее ручной выбор...
Go to the top of the page
 
+Quote Post
Molotov
сообщение Jan 12 2018, 08:13
Сообщение #11


Участник
*

Группа: Участник
Сообщений: 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-портами он не нужен. biggrin.gif
Руки чешутся эту программу написать, но я пишу на C++Builder 6. biggrin.gif Так что, извиняйте.
Напишите сами да и все. Киньте на форму кнопку(Button), метку(Label) и COM-порт. Компонент COM-порт, по-моему, скачивается с Интернета. Прочитайте про события и сделайте события OnClick для кнопки. Дальше настраивайте компонент COM-порт.
Go to the top of the page
 
+Quote Post
messenger
сообщение Jan 12 2018, 08:13
Сообщение #12


Местный
***

Группа: Участник
Сообщений: 361
Регистрация: 23-03-07
Пользователь №: 26 457



to AlexRayne, просто когда я слышу тут работы на два дня то понимаю это как 500*16=8т.р. согласитесь этот пример не стоит 8 рублей.
Go to the top of the page
 
+Quote Post
Kabdim
сообщение Jan 12 2018, 08:15
Сообщение #13


Знающий
****

Группа: Свой
Сообщений: 558
Регистрация: 26-11-14
Из: Зеленоград
Пользователь №: 83 842



Ну собственно работы на час, включая поиск, скачивание и установку этой окаменелости.
Go to the top of the page
 
+Quote Post
AlexRayne
сообщение Jan 12 2018, 08:29
Сообщение #14


Местный
***

Группа: Участник
Сообщений: 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
Go to the top of the page
 
+Quote Post
AlexandrY
сообщение Jan 12 2018, 08:33
Сообщение #15


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 все посыпалось.

Go to the top of the page
 
+Quote Post

2 страниц V   1 2 >
Reply to this topicStart new topic
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 


RSS Текстовая версия Сейчас: 23rd July 2025 - 00:20
Рейтинг@Mail.ru


Страница сгенерированна за 0.01672 секунд с 7
ELECTRONIX ©2004-2016