Перенести функционал программы с Delphi в LabVIEW

Простейшие вопросы в области инженерной разработки
Ответить
login
interested
interested
Сообщения: 2
Зарегистрирован: 13 ноя 2016, 14:12
Версия LabVIEW: 10 (x86)
Контактная информация:

Перенести функционал программы с Delphi в LabVIEW

Сообщение login »

Здравствуйте, уважаемые пользователя форума.
Совсем недавно я начал изучать среду разработки LabView.
У меня есть плата EDU05 (http://www.vellemanusa.com/products/vie ... &id=525980). Я скачал себе Software package с того же сайта (http://www.vellemanusa.com/downloads/fi ... ev1148.zip). В архиве есть написанный на Delphi софт для проверки работоспособности платы: GraphicalDemo и TestDiagnosis. Есть мануал по DLL файлу EDU05D.DLL. И несколько других примеров написанных на C# / C / Visual Basic

У меня есть задание: перенести функционал одной из програм написанных на Delphi в среду разработки LabView. Меня больше заинтересовала программа TestDiagnosis, так как у нее функционал более интересный. Самостоятельные попытки реализовать код написанный на Delphi в LabView были и они закончились нудачами. Так вот, суть моего вопроса, скорее просьбы: можете мне помочь реализовать (показать как) одну-две procedure и function в LabView, чтобы я имел понятие как это делается, а дальше я уже буду сам разбираться.
EDU05 - need files.rar
Файлы о которых шла речь в сообщении
(1.52 МБ) 97 скачиваний
Последний раз редактировалось Kosist 18 ноя 2016, 22:18, всего редактировалось 1 раз.
Причина: Заголовок указан как теги, не соответствует правилам форума (п. 2).
Artem.spb

Activity Автор
professor
professor
Сообщения: 3394
Зарегистрирован: 31 июл 2011, 23:05
Награды: 2
Версия LabVIEW: 12-18
Благодарил (а): 49 раз
Поблагодарили: 172 раза
Контактная информация:

Re: Перенести функционал программы с Delphi в LabVIEW

Сообщение Artem.spb »

rtfm
если у вас есть готовые dll, проще их использовать, чем заниматься самодеятельностью, тем более с вашим знанием языка
Аватара пользователя
dadreamer

Activity Professionalism Автор
professor
professor
Сообщения: 3926
Зарегистрирован: 17 фев 2013, 16:33
Награды: 4
Версия LabVIEW: 2.5 — 2022
Благодарил (а): 11 раз
Поблагодарили: 126 раз
Контактная информация:

Re: Перенести функционал программы с Delphi в LabVIEW

Сообщение dadreamer »

login писал(а):Так вот, суть моего вопроса, скорее просьбы: можете мне помочь реализовать (показать как) одну-две procedure и function в LabView, чтобы я имел понятие как это делается, а дальше я уже буду сам разбираться.
Абсолютно ничего сложного нет. Смотрите внимательней код в EDU05Dmo.pas.

Код: Выделить всё

unit EDU05Dmo;
...
function OpenDevice: integer; stdcall; external 'EDU05D.dll'; //импортируем из библиотеки EDU05D.dll функцию OpenDevice
...
procedure TForm1.Button1Click(Sender: TObject); //процедура-обработчик нажатия кнопки Button1
begin
  Timer1.enabled:=false; //деактивируется таймер
  case OpenDevice of //вызывается функция OpenDevice и её результат обрабатывается в операторе case
    0: begin //функция вернула 0 - ошибка
         CheckBox9.enabled:=false; //деактивируется чекбокс CheckBox9
         label1.font.color:=clred; //изменяется цвет шрифта лэйбла label1
         label1.caption:='EDU05 not found'; //изменяется текст лэйбла label1
        end;
    1: begin //функция вернула 1 - успех
         label1.font.color:=clblack; //изменяется цвет шрифта лэйбла label1
         label1.caption:='EDU05 connected'; //изменяется текст лэйбла label1
         IOMode:=1; //изменяется переменная IOMode
         InOutMode(IOMode); //вызывается функция InOutMode из EDU05D.dll
         RadioButton3.checked:=true; //устанавливается активная радио-кнопка
         CheckBox9.enabled:=true; // активируется чекбокс CheckBox9
         CheckBox9.checked:=ReadBackStartupDemo; //вызывается функция ReadBackStartupDemo из EDU05D.dll и её результат присваивается чекбоксу CheckBox9 (True или Fale)
         Timer1.enabled:=true; //активируется таймер
       end;
  end;
end;
И так далее.
Ответить
  • Похожие темы
    Ответы
    Просмотры
    Последнее сообщение

Вернуться в «Для чайников»