Страница 19 из 24 ПерваяПервая ... 91718192021 ... ПоследняяПоследняя
Показано с 181 по 190 из 239

Тема: примеры для программирования

  1. #181

    По умолчанию

    Господа товарищи! Есть у кого прошивка на ТРМ 251?! Неделю уже найти не могу и тех поддержка молчит! Скиньте на почту, если не сложно, буду ооооооооочень рад! golodov.kvarc@gmail.com

  2. #182

    По умолчанию

    Добрый день!

    Сбросьте мне, пожалуйста, примеры программирования приборов МВ110-224.2А, а так же МУ110-8Р и МВ110-8А для всех языков программирования.

    Моя почта: a.g.zhuk@gmail.com

  3. #183

    По умолчанию

    День добрый. Скиньте пожалуйста пример программы ПЛК 110 (master), ПЛК 110 (slave), панель СП270 (slave). Или хотя бы примерно похожие. Спасибо. a.kostin@advik.ru

  4. #184

    По умолчанию

    Добрый день всем! Друзья, поделитесь пожалуйста исходниками \ примерами для использования owen_io.dll в Delphi, если окажется для ХЕ или старше вообще будет супер. Спасибо. dima_catсобакаmail.ru

  5. #185

    По умолчанию

    __________________________________________________ _______
    Помощь в настройке оборудования.
    Жариков Алексей
    Skype: zharikovaleksey
    e-mail: menatwork2014@yandex.ru

  6. #186

    По умолчанию

    Тоже присоединяюсь. Почта wisesage@list.ru

  7. #187

    По умолчанию

    Поделитесь пожалуйста примером работы с CAA FILE в КДС3. Интересует как организовать в СПК110:
    1. поиск файла на флешке по имени.
    2. чтение данных в найденном файле.
    3. запись данных в найденный файл.

    почта: 01-11-86@mail.ru

  8. #188

    По умолчанию

    Добрый день, вышлите пожалуйста примеры С/С++ (linux) для TPM 200. Спасибо!
    plotnikov__ivan@mail.ru

  9. #189

    По умолчанию Не подключается к com порту

    Добрый день! Подскажите пожалуйста, использую ТРМ202 и преобразователь АС4, Пишу на делфи, при попытке подключится появляется к порту появляется ошибка "Не удалось открыть порт (функция!)', 'Ошибка!', MB_OK". Через конфигуратор работает все отлично. Может быть где то нужно указывать адрес устройства? Если у когог то есть примеры реализации на делфи, скиньте gj;fkeqcnf на почту szimogorov@yandex.ru В качестве примера взял код с этой темы

    Код:
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    const
    // Определения четности (Без)
            prty_NONE:integer=0;
    // Определения количества Бит данных
            databits_8:integer=1;
    // Определения количества стоп Бит
            stopbit_1:integer=0;
    // Вид конвертора RS485 (Автоматический конвертор)
            RS485CONV_AUTO:integer=1;
    
    
    type
    TProcOpenPort=function (n,speed,part,bits,stop,vid:DWORD):integer;stdcall;
    TProcSetupPort=function (n,speed,part,bits,stop,vid:DWORD):integer;stdcall;
    TProcClosePort=function :integer;stdcall;
    TProcSetApiMode=function (n:DWORD):integer;stdcall;
    TProcReadIEEE32=function (adr,adr_type:DWORD;command:pchar;var value:single;var time:integer;index:integer):integer;stdcall;
        TForm1 = class(TForm)
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
        Edit1: TEdit;
        Edit2: TEdit;
        Label1: TLabel;
        Label2: TLabel;
        procedure FormCreate(Sender: TObject);
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
    Form1: TForm1;
    hLibInst:cardinal;
    func_avail:boolean;
    OpenPort:TProcOpenPort;
    SetupPort:TProcSetupPort;
    ClosePort:TProcClosePort;
    ReadIEEE32:TProcReadIEEE32;
    SetApiMode:TProcSetApiMode;
    
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
     hLibInst:=LoadLibrary('owen_io.dll');
     if(hLibInst<>0)
       then
        begin
         func_avail:=true;
         OpenPort:=GetProcAddress(hLibInst,'OpenPort');
         if(not Assigned(OpenPort)) then
           begin
            func_avail:=false;
            exit;
           end;
         ClosePort:=GetProcAddress(hLibInst,'ClosePort');
         if(not Assigned(ClosePort)) then
           begin
            func_avail:=false;
            exit;
           end;
         SetupPort:=GetProcAddress(hLibInst,'SetupPort');
         if(not Assigned(SetupPort)) then
           begin
            func_avail:=false;
            exit;
           end;
         ReadIEEE32:=GetProcAddress(hLibInst,'ReadIEEE32');
         if(not Assigned(ReadIEEE32)) then
           begin
            func_avail:=false;
            exit;
           end;
         SetApiMode:=GetProcAddress(hLibInst,'SetApiMode');
         if(not Assigned(SetApiMode)) then
           begin
            func_avail:=false;
            exit;
           end;
          end
     else
      func_avail:=false;
    end;
    
    // ОТКРЫВАЕМ COM-ПОРТ #1
    procedure TForm1.Button1Click(Sender: TObject);
    var
     op_succ:integer;
    begin
     if func_avail then
       begin
         SetApiMode(1);
         op_succ:=OpenPort(0,2,0,databits_8,stopbit_1,RS485CONV_AUTO);
         if (op_succ<>0) then
           Application.MessageBox('Не удалось открыть порт', 'Ошибка!', MB_OK)
         else
           begin
            SetupPort(0,2,0,databits_8,stopbit_1,RS485CONV_AUTO);
           end;
        end
     else
          Application.MessageBox('Не удалось открыть порт (функция!)', 'Ошибка!', MB_OK);
    end;
    
    // ЗАКРЫВАЕМ COM-ПОРТ #1
    procedure TForm1.Button2Click(Sender: TObject);
    var
     cp_succ:integer;
    begin
     if func_avail then
       begin
       cp_succ:=ClosePort();
        if (cp_succ<>0) then
          Application.MessageBox('Не удалось закрыть порт', 'Ошибка!', MB_OK);
       end
     else
          Application.MessageBox('Не удалось закрыть порт (функция!)', 'Ошибка!', MB_OK);
    end;
    
    // ПО ИДЕЕ ЧИАТЕМ С ПЕРВОГО ВХОДА ТРМ251
    procedure TForm1.Button3Click(Sender: TObject);
    var
     iee:integer;
     val:single;
     tm:integer;
    begin
      iee:=ReadIEEE32(16,0,'rEAd',val,tm,-1);
      Edit1.Text:=FloatToStr(val);
      Edit2.Text:=IntToStr(iee);
      end;
    
    
    end.

  10. #190

    По умолчанию

    Здравствуйте! Вышлите, пожалуйста, пример работы с ПЛК110 на C#
    E-mail: greenwod67@gmail.com

    Если кратко, то передо мной поставили задачу ознакомится с ПЛК110, подключится к контроллеру со сторонней программы для последующего считывания/передачи информации в ПЛК.
    С подобными устройствами до этого не работал.

    Как я понимаю, то в Codesys мне нужно написать программу и загрузить ее в контроллер (с помощью видеоуроков это сделал - подавать/принимать сигналы на входы/выходы получается).

    Теперь мне нужно подключится из своей программы к ПЛК и научится работать, как я понял с форума, с переменными предварительно созданными в коде программы ПЛК.
    Вот с этого момента у меня проблемы.
    Не могу решить, мне лучше работать c ПЛК подключенным по COM или Ethernet (на форуме больше примеров для работы по Ethernet)
    Как подключатся к ПЛК из C#, какая библиотека лучше (возможно проще в освоении).
    Возможно, есть какие-то уроки по работе с ПЛК из C# - также буду благодарен за ссылки на них.

    Заранее спасибо!

Страница 19 из 24 ПерваяПервая ... 91718192021 ... ПоследняяПоследняя

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •