Господа товарищи! Есть у кого прошивка на ТРМ 251?! Неделю уже найти не могу и тех поддержка молчит! Скиньте на почту, если не сложно, буду ооооооооочень рад! golodov.kvarc@gmail.com
Вид для печати
Господа товарищи! Есть у кого прошивка на ТРМ 251?! Неделю уже найти не могу и тех поддержка молчит! Скиньте на почту, если не сложно, буду ооооооооочень рад! golodov.kvarc@gmail.com
Добрый день!
Сбросьте мне, пожалуйста, примеры программирования приборов МВ110-224.2А, а так же МУ110-8Р и МВ110-8А для всех языков программирования.
Моя почта: a.g.zhuk@gmail.com
День добрый. Скиньте пожалуйста пример программы ПЛК 110 (master), ПЛК 110 (slave), панель СП270 (slave). Или хотя бы примерно похожие. Спасибо. a.kostin@advik.ru
Добрый день всем! Друзья, поделитесь пожалуйста исходниками \ примерами для использования owen_io.dll в Delphi, если окажется для ХЕ или старше вообще будет супер. Спасибо. dima_catсобакаmail.ru
__________________________________________________ _______
Тоже присоединяюсь. Почта wisesage@list.ru
Поделитесь пожалуйста примером работы с CAA FILE в КДС3. Интересует как организовать в СПК110:
1. поиск файла на флешке по имени.
2. чтение данных в найденном файле.
3. запись данных в найденный файл.
почта: 01-11-86@mail.ru
Добрый день, вышлите пожалуйста примеры С/С++ (linux) для TPM 200. Спасибо!
plotnikov__ivan@mail.ru
Добрый день! Подскажите пожалуйста, использую ТРМ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.
Здравствуйте! Вышлите, пожалуйста, пример работы с ПЛК110 на C#
E-mail: greenwod67@gmail.com
Если кратко, то передо мной поставили задачу ознакомится с ПЛК110, подключится к контроллеру со сторонней программы для последующего считывания/передачи информации в ПЛК.
С подобными устройствами до этого не работал.
Как я понимаю, то в Codesys мне нужно написать программу и загрузить ее в контроллер (с помощью видеоуроков это сделал - подавать/принимать сигналы на входы/выходы получается).
Теперь мне нужно подключится из своей программы к ПЛК и научится работать, как я понял с форума, с переменными предварительно созданными в коде программы ПЛК.
Вот с этого момента у меня проблемы.
Не могу решить, мне лучше работать c ПЛК подключенным по COM или Ethernet (на форуме больше примеров для работы по Ethernet)
Как подключатся к ПЛК из C#, какая библиотека лучше (возможно проще в освоении).
Возможно, есть какие-то уроки по работе с ПЛК из C# - также буду благодарен за ссылки на них.
Заранее спасибо!