q系列通讯源码_哪位有C#与三菱PLC通讯的源码最好有实例

❶ 哪位有C#与三菱PLC通讯的源码，最好有实例

提供一个C#与FX5U以太网通讯的代码：


usingSystem.Collections.Generic;
usingSystem;
usingSystem.Linq;
usingSystem.Drawing;
usingSystem.Diagnostics;
usingSystem.Data;
usingSystem.Xml.Linq;
usingMicrosoft.VisualBasic;
usingSystem.Collections;
usingSystem.Windows.Forms;


usingSystem.Net;
usingSystem.Runtime.InteropServices;

namespaceTCP_CLIENT
{
	publicpartialclassForm1
	{
		publicForm1()
		{
			InitializeComponent();
			

			if(defaultInstance==null)
				defaultInstance=this;
		}
		
#regionDefaultInstance
		
		;
		

publicstaticForm1Default
		{
			get
			{
				if(defaultInstance==null)
				{
					defaultInstance=newForm1();
					defaultInstance.FormClosed+=newFormClosedEventHandler(defaultInstance_FormClosed);
				}
				
				returndefaultInstance;
			}
			set
			{
				defaultInstance=value;
			}
		}
		
		staticvoiddefaultInstance_FormClosed(objectsender,FormClosedEventArgse)
		{
			defaultInstance=null;
		}
		
#endregion
		
		
		EntFxPlc.PlcClientPLC=newEntFxPlc.PlcClient();
		boolEntLink;
		longScanCount;
		shortScanRet;
Int32PlcHand;

		[DllImport("winmm.dll",ExactSpelling=true,CharSet=CharSet.Ansi,SetLastError=true)]
		();
		
		publicvoidForm1_Load(System.Objectsender,System.EventArgse)
		{
			this.CenterToScreen();
			cmbReadMry.Items.Clear();
			cmbReadMry.Items.Add("X");
			cmbReadMry.Items.Add("Y");
			cmbReadMry.Items.Add("M");
			cmbReadMry.Items.Add("D");
			cmbWriteMry.Items.Clear();
			cmbWriteMry.Items.Add("X");
			cmbWriteMry.Items.Add("Y");
			cmbWriteMry.Items.Add("M");
			cmbWriteMry.Items.Add("D");
			cmbBitMry.Items.Clear();
			cmbBitMry.Items.Add("X");
			cmbBitMry.Items.Add("Y");
			cmbBitMry.Items.Add("M");
			cmbReadType.Items.Clear();
			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("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=2;
			cmbReadType.SelectedIndex=0;
			cmbWriteType.SelectedIndex=0;
			lstRead.Items.Clear();
			txtWrite.Text="";
cmbCmdType.SelectedIndex=0;
		}
		
		
		publicvoidbutLink_Click(System.Objectsender,System.EventArgse)
		{
			shortre=0;
			stringrestr="";
re=PLC.EntLink(txtLocalIP.Text.Trim(),Convert.ToUInt16(txtLocalPort.Text),txtRemoteIP.Text.Trim(),(Convert.ToUInt16(txtRemotePort.Text)),"DEMO",refPlcHand,Convert.ToUInt16(1000),Convert.ToBoolean(cmbCmdType.SelectedIndex));
			txtReLink.Text=re.ToString();
			if(re==0)
			{
				EntLink=true;
				MessageBox.Show("PLC联接成功!");
			}
			else
			{
				EntLink=false;
				MessageBox.Show("PLC联接失败:"+restr);
			}
		}
		
		publicvoidbutClose_Click(System.Objectsender,System.EventArgse)
		{
			shortre=0;
EntLink=false;
re=PLC.DeLink(PlcHand);
			txtReClose.Text=re.ToString();
		}
		
		publicvoidbutRead_Click(System.Objectsender,System.EventArgse)
		{
			shorti=0;
			object[]RD=null;
			RD=newobject[Convert.ToUInt16(txtReadCnt.Text)];
			if(!EntLink)
			{
				MessageBox.Show("还未与PLC建立联接！");
				return;
			}
			intvar1=cmbReadType.SelectedIndex+1;
EntFxPlc.PlcClient.DataTypetyp=(EntFxPlc.PlcClient.DataType)var1;
			switch(cmbReadMry.SelectedIndex)
			{
				case0:
ScanRet=PLC.CmdRead(PlcHand,EntFxPlc.PlcClient.PlcMemory.DI,typ,Convert.ToUInt16(txtReadAdd.Text),Convert.ToUInt16(txtReadCnt.Text),refRD);
					break;
				case1:
ScanRet=PLC.CmdRead(PlcHand,EntFxPlc.PlcClient.PlcMemory.DQ,typ,Convert.ToUInt16(txtReadAdd.Text),Convert.ToUInt16(txtReadCnt.Text),refRD);
					break;
				case2:
ScanRet=PLC.CmdRead(PlcHand,EntFxPlc.PlcClient.PlcMemory.MR,typ,Convert.ToUInt16(txtReadAdd.Text),Convert.ToUInt16(txtReadCnt.Text),refRD);
					break;
				case3:
ScanRet=PLC.CmdRead(PlcHand,EntFxPlc.PlcClient.PlcMemory.DR,typ,Convert.ToUInt16(txtReadAdd.Text),Convert.ToUInt16(txtReadCnt.Text),refRD);
					break;
			}
			txtReRead.Text=ScanRet.ToString();
			lstRead.Items.Clear();
			for(i=0;i<=(RD.Length-1);i++)
			{
				if(!(RD[i]==null))
				{
					lstRead.Items.Add(RD[i]);
				}
				else
				{
					lstRead.Items.Add("0");
				}
			}
			
		}
		
		
		publicvoidbutWrite_Click(System.Objectsender,System.EventArgse)
		{
			shorti=0;
			string[]temp=null;
			object[]WD=null;
			if(!EntLink)
			{
				MessageBox.Show("还未与PLC建立联接！");
				return;
			}
			WD=newobject[Convert.ToUInt16(txtWriteCnt.Text)];
			temp=txtWrite.Text.Split('
');
			for(i=0;i<=(WD.Length-1);i++)
			{
				if(i>(temp.Length-1))
				{
					WD[i]=0;
				}
				else
				{
					WD[i]=temp[i].Trim();
				}
			}
			intvar1=cmbWriteType.SelectedIndex+1;
EntFxPlc.PlcClient.DataTypetyp=(EntFxPlc.PlcClient.DataType)var1;
			switch(cmbWriteMry.SelectedIndex)
			{
				case0:
ScanRet=PLC.CmdWrite(PlcHand,EntFxPlc.PlcClient.PlcMemory.DI,typ,Convert.ToUInt16(txtWriteAdd.Text),Convert.ToUInt16(txtWriteCnt.Text),refWD);
					break;
				case1:
ScanRet=PLC.CmdWrite(PlcHand,EntFxPlc.PlcClient.PlcMemory.DQ,typ,Convert.ToUInt16(txtWriteAdd.Text),Convert.ToUInt16(txtWriteCnt.Text),refWD);
					break;
				case2:
ScanRet=PLC.CmdWrite(PlcHand,EntFxPlc.PlcClient.PlcMemory.MR,typ,Convert.ToUInt16(txtWriteAdd.Text),Convert.ToUInt16(txtWriteCnt.Text),refWD);
					break;
				case3:
ScanRet=PLC.CmdWrite(PlcHand,EntFxPlc.PlcClient.PlcMemory.DR,typ,Convert.ToUInt16(txtWriteAdd.Text),Convert.ToUInt16(txtWriteCnt.Text),refWD);
					break;
			}
			txtReWrite.Text=ScanRet.ToString();
		}
		
		publicvoidbutScan_Click(System.Objectsender,System.EventArgse)
		{
			if(!EntLink)
			{
				MessageBox.Show("还未与PLC建立联接！");
				return;
			}
			if(butScan.Text=="CycleR/W")
			{
				ScanCount=0;
				Timer1.Enabled=true;
				butScan.Text="StopR/W";
			}
			else
			{
				Timer1.Enabled=false;
				butScan.Text="CycleR/W";
			}
		}
		
		publicvoidTimer1_Tick(System.Objectsender,System.EventArgse)
		{
Timer1.Enabled=false;
inttim=System.Convert.ToInt32(timeGetTime());
if(!EntLink)
{
MessageBox.Show("还未与PLC建立联接！");
return;
}
//
butRead_Click(null,null);
butWrite_Click(null,null);

//
if((Convert.ToInt32(txtReRead.Text)<0)||(Convert.ToInt32(txtReWrite.Text)<0))
{
butScan.Text="CycleR/W";
return;
}
else
{
ScanCount++;
txtScanCnt.Text=ScanCount.ToString();
txtScanPrd.Text=(System.Convert.ToInt32(timeGetTime())-tim).ToString()+"ms";
}
Timer1.Enabled=true;
		}
		
		
		publicvoidbutBitTest_Click(System.Objectsender,System.EventArgse)
		{
			if(!EntLink)
			{
				MessageBox.Show("还未与PLC建立联接！");
				return;
			}
			boolrd=false;
			shortre=0;
			switch(cmbBitMry.SelectedIndex)
			{
				case0:
re=PLC.Bit_Test(PlcHand,EntFxPlc.PlcClient.PlcMemory.DI,Convert.ToUInt16(txtBitAdd.Text),refrd);
					break;
				case1:
re=PLC.Bit_Test(PlcHand,EntFxPlc.PlcClient.PlcMemory.DQ,Convert.ToUInt16(txtBitAdd.Text),refrd);
					break;
				case2:
re=PLC.Bit_Test(PlcHand,EntFxPlc.PlcClient.PlcMemory.MR,Convert.ToUInt16(txtBitAdd.Text),refrd);
					break;
			}
			txtBitTest.Text=rd.ToString();
			txtReBit.Text=re.ToString();
		}
		
		publicvoidbutBitSet_Click(System.Objectsender,System.EventArgse)
		{
			if(!EntLink)
			{
				MessageBox.Show("还未与PLC建立联接！");
				return;
			}
			shortre=0;
			switch(cmbBitMry.SelectedIndex)
			{
				case0:
re=PLC.Bit_Set(PlcHand,EntFxPlc.PlcClient.PlcMemory.DI,Convert.ToUInt16(txtBitAdd.Text));
					break;
				case1:
re=PLC.Bit_Set(PlcHand,EntFxPlc.PlcClient.PlcMemory.DQ,Convert.ToUInt16(txtBitAdd.Text));
					break;
				case2:
re=PLC.Bit_Set(PlcHand,EntFxPlc.PlcClient.PlcMemory.MR,Convert.ToUInt16(txtBitAdd.Text));
					break;
			}
			txtReBit.Text=re.ToString();
		}
		
		publicvoidbutBitRst_Click(System.Objectsender,System.EventArgse)
		{
			if(!EntLink)
			{
				MessageBox.Show("还未与PLC建立联接！");
				return;
			}
			shortre=0;
			switch(cmbBitMry.SelectedIndex)
			{
				case0:
re=PLC.Bit_Reset(PlcHand,EntFxPlc.PlcClient.PlcMemory.DI,Convert.ToUInt16(txtBitAdd.Text));
					break;
				case1:
re=PLC.Bit_Reset(PlcHand,EntFxPlc.PlcClient.PlcMemory.DQ,Convert.ToUInt16(txtBitAdd.Text));
					break;
				case2:
re=PLC.Bit_Reset(PlcHand,EntFxPlc.PlcClient.PlcMemory.MR,Convert.ToUInt16(txtBitAdd.Text));
					break;
			}
			txtReBit.Text=re.ToString();
		}
		
		
	}
	
}

❷ AB PLC和三菱Q系列以太网SOCKET通讯如何实现

用CCLINK通讯吧！Q为主站，另外一个PLC为从站。要传送数据直接在寄存器和位元件中。

❸ VB和三菱Q系列PLC通信

1.0 通讯组件概述
通讯组件用于PC与可编程控制器(PLC)、智能仪表等进行数据通讯，适用于基于PC高级语言的工业自动化控制系统。组件采用动态链接库文件(*.DLL)的形式，在PC系统的项目工程里引用该组件，调用相应的属性与方法函数，即可快速实现PC与PLC的高效数据交换。
DLL通讯组件无须安装，直接复制到工程文件目录，方便打包安装部署；无须任何配置，直接调用函数，与应用开发无缝衔接；多年工程经验的软件团队开发测试，经过本公司及客户的海量实际工程应用检验，稳定可靠；采用稳定高效的内部协议，无须编写PLC内部程序配合，直接访问PLC的内存，通讯响应快速；内建动态管理的多独立线程连接，同时支持外部应用的多线程结构调用；兼容WINDOWS系统下的所有开发环境，包括各种版本的VB.NET、C#、VC++，以及DEIPHI 、VB、LabView等；支持几乎所有PLC的CPU自带通讯口、通讯扩展模块。
你可以在技成看视频教程，这个案例比较经典，看视频更容易理解。

❹ 电脑如何和三菱Q系列PLC通讯

通讯第一步你的电脑必须要有RS232串口就是9针那种第一行5针第二行4针是公座，如果笔记本大部分没有串口，你可以到【东莞友诚工控】买一个USB转串口RS232的转换线120元里面包括驱动光盘自己安装后把转换线插到USB上你的电脑就生成一个串口。第二部必须有串口到三菱PLC的通讯线不管你是FX系列。Q系列还是A系列都有相应的通讯电缆，也就是专用的编程电缆把这个编程电缆一头和串口链接另一头和PLC连接，友诚工控都有的卖。第三部也是最重要的你需要懂一点编程软件的使用方法在三菱工控展销网下载三菱全系列编程软件，软件安装好打开点击左上角有一张小白纸样的小方框
，会弹出一个【创建新工程】的复选框你自己选择PLC的系列和类型也就是Q系列还是A系列或者是FX系列的你用什么型号自己选好，然后点击【确定】，下一画面点击上面的【在线】然后弹出的选项中点击PLC读取这样就通讯成功。如果出现通讯错误改一传输设置，具体步骤是点击【在线】点击第一行【传输设置】然后弹出一个传输设置对话框左上角有个[串行USB]双击后弹出串口更改选项用那个串口自己选，三菱PLC分大中小三种A系列Q系列FX系列。其中A系列Q系列又分整体式和组合式。你说的那两种是PLC点数。特殊功能模块。组合方式。都不相同的两种。第四步如果PLC读取时弹出来请输入口令那就是密码。记住我的邮箱需要的话给我发信息，我还有免费的三菱全系列解密软件发给你。邮箱：[email protected]

❺ 求C#与三菱Q系列PLC 通讯实例或源码

❻ 有台三菱Q系列plc要和现场一台仪器通信，该仪器上有个232的通信口，怎么实现通信，程序怎么写

首先要Q上面有通讯口 232 485 都可以
如果是有232就直接和仪器的232对接，如果是485 或者422的话就要转接一下，可以自己买个转接盒子，也可以通过焊线加电阻的方式（接线图网络一大把）。
程序的话就要参考仪器的通讯协议了。没有协议，没办法进行设置。
望采纳

❼ 三菱Q系列PLC与上位机的以太网通讯数据格式是怎样的

上位机可以用专用的组态软件，也可以用VB或VC自己写监控界面，如果使用专用的组态软件通讯部分已经是集成好了的，而如果自己用VB，VC写界面就需要使用三菱的软件包进行通讯。

PLC与PC机之间实现通道，可使二者互补功能上的不足，PLC用于控制方面既方便又可靠，而PC机在图形显示、数据处理、打印报表以及中文显示等方面有很强的功能。因此，各PLC制造厂家纷纷开发了适用于本公司的各种型号PLC与PC机通信的接口模块。三菱公司开发的FX-232AW接口模块用于FX2系列PLC与计算机通信。还有与以太网连接的接口模块AJ71E71、与MAP网连接的接口模块AJ71M51-S1、与FAIS MAP网连接的接口模块AJ71M51M1等。不同的通信方式，有着不同的成本价格和不同的适用范围。在此介绍一种通过PC机的RS-232口与PLC进行通信的实现方法。

FX2系列PLC的编程接口采用RS-422标准，而计算机的串行口采用RS-232标准。因此，作为实现PLC计算机通信的接口电路，必须将RS-422标准转换成RS-232标准。

RS-232与RS-422标准在信号的传送、逻辑电平均不相同。

RS-232采用单端接收器和单端发送器，只用一根信号线来传送信息，并且根据该信号线上电平相对于公共的信号地电平的大小来决定逻辑的“1”（-3～-15V）和“0”（+3～+15V）；

RS-422标准是一种以平衡方式传输的标准，即双端发送和双端接收，根据两条传输线之间的电位差值来决定逻辑状态。RS-422电路由发送器、平衡连接电缆、电缆终端负载和接收器组成。它通过平衡发送器和差动接收器将逻辑电平和电位差之间进行转换（+2V表示“0”，-2V表示“1”）。

选用MAXIM公司的MAX202实现RS-232与TTL之间的电平转换。MAX202内部有电压倍增电路和转换电路，仅需+5V电源就可工作，使用十分方便；选用MAX490实现RS-485与TTL之间的转换。每片MAX490有一对发送器/接收器，由于通信采用全双工方式，故需两片MAX490，另外只需外接4只电容即可。

PLC的RS-422接口配接DB-25型连接器，而PC机一般用DB-9型连接器。硬件电路图如图1所示。

将RS-232的RS、CS短接，这样对计算机发送数据来说，PLC总是处于就绪状态。也就是说，计算机在任何时候都可以将数据送到PLC内。又由于DR、ER交叉连接，因此，对计算机接收数据来说，必须等待至PLC处于准备就绪状态。

2 通信装置的软件描述

2.1 FX2系列PLC与计算机之间通信协议

FX2系列PLC与计算机之间的通信采用RS-232标准，其传输速率固定为9600bps，奇偶校验位采用偶校验。数据格式如图2所示。数据以帧为单位发送和接收。一个多字符帧由力所示的五部分组成，其中和校验值是将命令码ETX之间的的呢字符的ASCII码（十六进制数）相加，取得所得和的最低二位数。STX和ETX分别表示该字符帧的起始标起和结束标志。

FX2系列与计算机之间的通信是以主机发出的初始命令，PLC对其作出响应的方式进行通信的。共有0、1、7、8四种命令，上位机实现对PLC的读写和强行置位。通过ENQ、ACK和NAK，上位机协调与PLC的通信应答。

2.2 通信过程

采用Bland C编写主机与PLC的通信程序。首先必须对COM1口进行初始化，波特率为9600bps，奇偶校验位采用偶校验，七位有效数据。通信的初始化检测过程如图4所示。当计算机接收到来自PLC的应答字符ACK后，就可以进入数据通信了。通信的时序图如图5所示。

计算机可对PLC内各软设备进行读、写和强制ON/OFF操作。除开PLC的计时器和计数器的设定值采用常数时，以及文件寄存器内的数据，FX2系列PLC的所有开关量输入、输出以及各软件设备对计算机都是透明的。其操作时的多字符帧的格式如图3所示。但不同的操作在“多个字符”项内有所不同。例如，计算机对PLC的软设备Y20～Y37进行读操作，查装置地址表为00A2，读取2字节数据。其状态如图6（a）所示，主机发出的命令格式如图6（b）所示，PLC返回的信息如图6（c）所示。

如传送的命令有错误，PLC返回NAK信号，本次操作失败，重新进行。

为了保证主机与PLC的通信准确无误，上位机也必须按通信协议进行和校。如接收的信息有误，则重新读取。如重复3次仍不行，则显示错误信息。

使用C语言很容易实现以上编程。

主机还可向PLC写数据，进行单点的强近置位和复位。

对于运行在控制和实验室环境飞速下本方案运行可靠、性价比高、体积小、但是对于通信距离长，环境恶劣的发问，需加光电隔离等措施。

❽ Q系列PLc主站与远程|/0站通信怎么写程序

X1 X10为站号设置，主站必须设置为0. MODE为通讯模式及传送速率，0-4为在线模式，即正常运行模式；5-9为线路测试；A-E为硬件测试；对应速率为 156kbps 625kbps 2.5Mbps 5Mbps 10Mbps 。F不允许设置。
将通讯模式拨到A-E，执行以下操作，开始硬件自检；即主站CPU与CCLINK模块的自检。

❾ 三菱Q系列PLC通讯问题

为什么要用两个以太网模块，这不浪费吗？用一个不可以吗？

❿ 能给我发个VB与三菱PLC通讯的源代码实例吗，非常感谢啊

得说明是什么型号的PLC啊，串口还是网口，VB6还是VB.NET？

算了，写段代码，VB.NET与Q系列以太网通讯的：

ImportsSystem.Net
ImportsSystem.Runtime.InteropServices
PublicClassForm1

DimHandle1AsInt32
DimEntLink1AsBoolean
DimScanCount1AsLong
DimPLCAsNewEntQsPlc_Asc.PlcClient'EntQsPlc_ASC.DLL是Q系列以太网通讯组件
"winmm.dll"()AsUInt32

PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
Me.CenterToScreen()
cmbReadMry.Items.Clear()
cmbReadMry.Items.Add("X")
cmbReadMry.Items.Add("Y")
cmbReadMry.Items.Add("M")
cmbReadMry.Items.Add("D")
cmbReadMry.Items.Add("R")
cmbReadMry.Items.Add("Z")
'
cmbWriteMry.Items.Clear()
cmbWriteMry.Items.Add("X")
cmbWriteMry.Items.Add("Y")
cmbWriteMry.Items.Add("M")
cmbWriteMry.Items.Add("D")
cmbWriteMry.Items.Add("R")
cmbWriteMry.Items.Add("Z")
'
cmbBitMry.Items.Clear()
cmbBitMry.Items.Add("X")
cmbBitMry.Items.Add("Y")
cmbBitMry.Items.Add("M")
'
cmbReadType.Items.Clear()
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("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=2
cmbReadType.SelectedIndex=0
cmbWriteType.SelectedIndex=0
lstRead.Items.Clear()
txtWrite.Text=""
'
cmbCmdType.SelectedIndex=0
EndSub


PrivateSubbutLink_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbutLink.Click
DimreAsShort
DimrestrAsString=""
re=PLC.EntLink(Trim(txtLocalIP.Text),Val(txtLocalPort.Text),Trim(txtRemoteIP.Text),Val(txtRemotePort.Text),"DEMO",Handle1,1000,CBool(cmbCmdType.SelectedIndex))
txtReLink.Text=re.ToString
Ifre=0Then
EntLink1=True
MsgBox("PLC联接成功!")
Else
EntLink1=False
MsgBox("PLC联接失败:"&restr)
EndIf
EndSub


PrivateSubbutClose_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbutClose.Click
DimreAsShort
IfNotEntLink1Then
MsgBox("还未与PLC建立联接！")
ExitSub
EndIf
re=PLC.DeLink(Handle1)
txtReClose.Text=re.ToString
EndSubPrivateSubbutRead_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbutRead.Click
DimreAsShort
DimiAsShort
DimRD()AsObject
ReDimRD(Val(txtReadCnt.Text-1))
IfNotEntLink1Then
MsgBox("还未与PLC建立联接！")
'ExitSub
EndIf
DimmryAsEntQsPlc_Asc.PlcClient.PlcMemory=cmbReadMry.SelectedIndex+1
DimtypAsEntQsPlc_Asc.PlcClient.DataType=cmbReadType.SelectedIndex+1
re=PLC.CmdRead(Handle1,mry,typ,CInt(txtReadAdd.Text),CUShort(txtReadCnt.Text),RD)
txtReRead.Text=re.ToString
lstRead.Items.Clear()
Fori=0ToUBound(RD)Step1
IfNotIsNothing(RD(i))ThenlstRead.Items.Add(RD(i))
Nexti
Ifre<>0Then
Timer1.Enabled=False
butScan.Text="CycleR/W"
EndIf
EndSubPrivateSubbutWrite_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbutWrite.Click
DimreAsShort
DimiAsShort
Dimtemp()AsString
DimWD()AsObject
IfNotEntLink1Then
MsgBox("还未与PLC建立联接！")
ExitSub
EndIf
ReDimWD(Val(txtWriteCnt.Text)-1)
temp=Split(txtWrite.Text,vbCrLf)
Fori=0ToUBound(WD)Step1
Ifi>UBound(temp)Then
WD(i)=0
Else
WD(i)=Trim(temp(i))
EndIf
Nexti
DimmryAsEntQsPlc_Asc.PlcClient.PlcMemory=cmbWriteMry.SelectedIndex+1
DimtypAsEntQsPlc_Asc.PlcClient.DataType=cmbWriteType.SelectedIndex+1
re=PLC.CmdWrite(Handle1,mry,typ,CInt(txtWriteAdd.Text),CUShort(txtWriteCnt.Text),WD)
txtReWrite.Text=re.ToString
Ifre<>0Then
Timer1.Enabled=False
butScan.Text="CycleR/W"
EndIf
EndSub


PrivateSubbutScan_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbutScan.Click
IfNotEntLink1Then
MsgBox("还未与PLC建立联接！")
ExitSub
EndIf
Timer1.Enabled=NotTimer1.Enabled
IfTimer1.EnabledThen
ScanCount1=0
butScan.Text="StopR/W"
Else
butScan.Text="CycleR/W"
EndIf
EndSubPrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.Tick
Timer1.Enabled=False
DimtimAsInteger=timeGetTime
IfNotEntLink1Then
MsgBox("还未与PLC建立联接！")
ExitSub
EndIf
'
CallbutRead_Click(Nothing,Nothing)
CallbutWrite_Click(Nothing,Nothing)
'
If(Val(txtReRead.Text)<0)Or(Val(txtReWrite.Text)<0)Then
butScan.Text="CycleR/W"
ExitSub
Else
ScanCount1+=1
txtScanCnt.Text=ScanCount1
txtScanPrd.Text=(timeGetTime-tim)&"ms"
EndIf
Timer1.Enabled=True
EndSub

PrivateSubbutBitTest_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbutBitTest.Click
IfNotEntLink1Then
MsgBox("还未与PLC建立联接！")
ExitSub
EndIf
DimrdAsBoolean
DimreAsShort
DimmryAsEntQsPlc_Asc.PlcClient.PlcMemory=cmbBitMry.SelectedIndex+1
re=PLC.Bit_Test(Handle1,mry,CUShort(txtBitAdd.Text),rd)
txtBitTest.Text=rd
txtReBit.Text=re
EndSub
PrivateSubbutBitSet_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbutBitSet.Click
IfNotEntLink1Then
MsgBox("还未与PLC建立联接！")
ExitSub
EndIf
DimreAsShort
re=PLC.Bit_Set(Handle1,cmbBitMry.SelectedIndex+1,Val(txtBitAdd.Text))
txtReBit.Text=re
EndSubPrivateSubbutBitRst_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbutBitRst.Click
IfNotEntLink1Then
MsgBox("还未与PLC建立联接！")
ExitSub
EndIf
DimreAsShort
re=PLC.Bit_Reset(Handle1,cmbBitMry.SelectedIndex+1,Val(txtBitAdd.Text))
txtReBit.Text=re
EndSub

EndClass

导航:首页 > 源码编译 > q系列通讯源码

q系列通讯源码

与q系列通讯源码相关的资料