基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

C#连接三菱PLC的例子

namespace ComTest//整个程序的名字
{
public partial class Form1 //生成部分类 Form1
    {
public Form1()
{
InitializeComponent();//窗口定义


if (defaultInstance == null)//默认实例
defaultInstance = this;
}
        //#region可以折叠这一段
#region 折叠defaultInstance

        private static Form1 defaultInstance;


public static Form1 Default
{
get
{
if (defaultInstance == null)
{
defaultInstance = new Form1();
defaultInstance.FormClosed = new FormClosedEventHandler(defaultInstance_FormClosed);
}

return defaultInstance;
}
set
{
defaultInstance = value;
}
}

static void defaultInstance_FormClosed(object sender, FormClosedEventArgs e)
{
defaultInstance = null;
}

#endregion//可以折叠这一段

ModbusRTU.PlcCom PLC = new ModbusRTU.PlcCom();//引用了dll文件作为库

bool EntLink;
long ScanCount;
bool ScanRun;


[DllImport("winmm.dll", ExactSpelling=true, CharSet=CharSet.Ansi, SetLastError=true)]
public static extern long timeGetTime();


public void Form1_Load(System.Object sender, System.EventArgs e)
{
short i = 0;
this.CenterToScreen();
 
cmbReadMry.Items.Add("DI");
cmbReadMry.Items.Add("DQ");
cmbReadMry.Items.Add("DR");
cmbReadMry.Items.Add("HR");
cmbWriteMry.Items.Add("DI");
cmbWriteMry.Items.Add("DQ");
cmbWriteMry.Items.Add("DR");
cmbWriteMry.Items.Add("HR");
cmbBitMry.Items.Add("DI");
cmbBitMry.Items.Add("DQ");
cmbBitMry.Items.Add("DR");
cmbBitMry.Items.Add("HR");
for (i = 0; i <= 15; i )//0-15依次扫描
{
cmbBit.Items.Add("Bit" System.Convert.ToString(i));
}
cmbReadType.Items.Clear();
            cmbReadType.Items.Add("BOOL1");
cmbReadType.Items.Add("INT16");
cmbReadType.Items.Add("UINT16");
cmbReadType.Items.Add("DINT32");
cmbReadType.Items.Add("HEX32");
cmbReadType.Items.Add("REAL32");
cmbReadType.Items.Add("BIN16");
cmbWriteType.Items.Clear();
            cmbWriteType.Items.Add("BOOL1");
cmbWriteType.Items.Add("INT16");
cmbWriteType.Items.Add("UINT16");
cmbWriteType.Items.Add("DINT32");
cmbWriteType.Items.Add("HEX32");
cmbWriteType.Items.Add("REAL32");
cmbWriteType.Items.Add("BIN16");
cmbReadMry.SelectedIndex = 3;
cmbWriteMry.SelectedIndex = 3;
cmbBitMry.SelectedIndex = 1;
cmbBit.SelectedIndex = 0;
cmbReadType.SelectedIndex = 0;
cmbWriteType.SelectedIndex = 0;
lstRead.Items.Clear();
txtWrite.Text = "";
}

public void butLink_Click(System.Object sender, System.EventArgs e)
{
short re = 0;
string restr = "";
            re = PLC.ComLink(Convert .ToUInt16 (txtPort.Text), Convert.ToUInt32(txtRate.Text), 8, 1, ModbusRTU.PlcCom.ParityType.Even, Convert.ToUInt16(txtDelay.Text), "DEMO");
txtReLink.Text = re.ToString();
if (re == 0)
{
EntLink = true;
MessageBox.Show("PLC联接成功: " restr);
}
else
{
EntLink = false;
MessageBox.Show("PLC联接失败: " restr);
}
}

public void butClose_Click(System.Object sender, System.EventArgs e)
{
short re = 0;
re = PLC.DeLink();
txtReClose.Text = re.ToString();
            EntLink = false;
}

public void butRead_Click(System.Object sender, System.EventArgs e)
{
short i = 0;
            short re = 0;
object[] RD = null;
RD = new object[Convert.ToUInt16(double.Parse(txtReadCnt.Text)) ];
if (!EntLink)
{
MessageBox.Show("还未与PLC建立联接！");
return;
}
int var1 = cmbReadType.SelectedIndex;
            ModbusRTU.PlcCom.DataType typ = (ModbusRTU.PlcCom.DataType)var1;
switch (cmbReadMry.SelectedIndex)
{
case 0:
                    re = PLC.CmdRead((ushort)(Convert.ToUInt16(txtStation.Text)), ModbusRTU.PlcCom.PlcMemory.DI, typ, (ushort)(Convert.ToUInt16(txtReadAdd.Text)), (ushort)(Convert.ToUInt16(txtReadCnt.Text)), ref RD, false, false);
break;
case 1:
                    re = PLC.CmdRead((ushort)(Convert.ToUInt16(txtStation.Text)), ModbusRTU.PlcCom.PlcMemory.DQ, typ, (ushort)(Convert.ToUInt16(txtReadAdd.Text)), (ushort)(Convert.ToUInt16(txtReadCnt.Text)), ref RD, false, false);
break;
case 2:
                    re = PLC.CmdRead((ushort)(Convert.ToUInt16(txtStation.Text)), ModbusRTU.PlcCom.PlcMemory.DR, typ, (ushort)(Convert.ToUInt16(txtReadAdd.Text)), (ushort)(Convert.ToUInt16(txtReadCnt.Text)), ref RD, false, false);
break;
case 3:
                    re = PLC.CmdRead((ushort)(Convert.ToUInt16(txtStation.Text)), ModbusRTU.PlcCom.PlcMemory.HR, typ, (ushort)(Convert.ToUInt16(txtReadAdd.Text)), (ushort)(Convert.ToUInt16(txtReadCnt.Text)), ref RD, false, false);
break;
}