-
大小: 3.1MB文件類型: .rar金幣: 2下載: 0 次發布日期: 2023-08-11
- 語言: C#
- 標簽: S7-200Smart??C#??VB.net??VB6.0??
資源簡介
開發好的動態鏈接庫dll。共享給大家。希望通過在自動化行業多多應用!
VB、C#、VB.net通過dll建立S7-200Smart通訊。親測簡易可用

代碼片段和文件信息
using?System.Collections.Generic;
using?System;
using?System.Linq;
using?System.Drawing;
using?System.Diagnostics;
using?System.Data;
using?System.xml.Linq;
using?Microsoft.VisualBasic;
using?System.Collections;
using?System.Windows.Forms;
using?System.Net;
using?System.Runtime.InteropServices;
namespace?TCP_CLIENT
{
public?partial?class?Form1
{
public?Form1()
{
InitializeComponent();
if?(defaultInstance?==?null)
defaultInstance?=?this;
}
#region?Default?Instance
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
????????WinTcpS7_Smart.PlcClient?PLC?=?new?WinTcpS7_Smart.PlcClient();
bool?Entlink;
long?ScanCount;
short?ScanRet;
????????Int32?PlcHand;
[DllImport(“winmm.dll“?ExactSpelling=true?CharSet=CharSet.Ansi?SetLastError=true)]
public?static?extern?UInt32?timeGetTime();
public?void?Form1_Load(System.object?sender?System.EventArgs?e)
{
short?i?=?0;
this.CenterToScreen();
cmbReadMry.Items.Clear();
cmbReadMry.Items.Add(“I“);
cmbReadMry.Items.Add(“Q“);
cmbReadMry.Items.Add(“M“);
cmbReadMry.Items.Add(“V“);
cmbWriteMry.Items.Clear();
cmbWriteMry.Items.Add(“I“);
cmbWriteMry.Items.Add(“Q“);
cmbWriteMry.Items.Add(“M“);
cmbWriteMry.Items.Add(“V“);
cmbBitMry.Items.Clear();
cmbBitMry.Items.Add(“I“);
cmbBitMry.Items.Add(“Q“);
cmbBitMry.Items.Add(“M“);
????????????cmbBitMry.Items.Add(“V“);
????????????cmbReadType.Items.Clear();
????????????cmbReadType.Items.Add(“W_INT16“);
????????????cmbReadType.Items.Add(“W_UINT16“);
????????????cmbReadType.Items.Add(“D_DINT32“);
????????????cmbReadType.Items.Add(“D_HEX32“);
????????????cmbReadType.Items.Add(“D_REAL32“);
????????????cmbReadType.Items.Add(“W_BIN16“);
????????????cmbReadType.Items.Add(“B_CHAR8“);
????????????cmbReadType.Items.Add(“B_BYTE8“);
????????????cmbWriteType.Items.Clear();
????????????cmbWriteType.Items.Add(“W_INT16“);
????????????cmbWriteType.Items.Add(“W_UINT16“);
????????????cmbWriteType.Items.Add(“D_DINT32“);
????????????cmbWriteType.Items.Add(“D_HEX32“);
????????????cmbWriteType.Items.Add(“D_REAL32“);
????????????cmbWriteType.Items.Add(“W_BIN16“);
????????????cmbWriteType.Items.Add(“B_CHAR8“);
????????????cmbWriteType.Items.Add(“B_BYTE8“);
for?(i?=?0;?i?<=?7;?i++)
{
cmbBit.Items.Add(“Bit“?+?System.Convert.ToString(i));
}
cmbReadMry.SelectedIndex?=?2;
cmbWriteMry.SelectedIndex?=?2;
cmbBitMry.SelectedIndex?=?2;
cmbBit.SelectedIndex?=
?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件????????201??2012-12-15?19:48??TcpClient?VB2010\TcpClient\App.config
?????文件????1392671??2005-12-31?00:00??TcpClient?VB2010\TcpClient\bin\Release\msvbvm60.dll
?????文件?????124688??2004-03-09?00:00??TcpClient?VB2010\TcpClient\bin\Release\MSWINSCK.OCX
?????文件??????66560??2017-09-06?21:54??TcpClient?VB2010\TcpClient\bin\Release\TcpClient.exe
?????文件??????56832??2017-09-06?21:54??TcpClient?VB2010\TcpClient\bin\Release\TcpClient.pdb
?????文件??????11600??2017-09-06?21:52??TcpClient?VB2010\TcpClient\bin\Release\TcpClient.vshost.exe
?????文件????????490??2010-03-17?22:39??TcpClient?VB2010\TcpClient\bin\Release\TcpClient.vshost.exe.manifest
?????文件????????668??2017-09-06?21:54??TcpClient?VB2010\TcpClient\bin\Release\TcpClient.xm
?????文件??????77824??2017-09-25?18:51??TcpClient?VB2010\TcpClient\bin\Release\WinTcpS7_Smart.dll
?????文件??????61506??2017-07-22?22:33??TcpClient?VB2010\TcpClient\Form1.Designer.vb
?????文件???????6206??2017-07-22?22:33??TcpClient?VB2010\TcpClient\Form1.resx
?????文件??????19135??2017-09-03?17:58??TcpClient?VB2010\TcpClient\Form1.vb
?????文件???????1509??2012-12-15?19:48??TcpClient?VB2010\TcpClient\My?Project\Application.Designer.vb
?????文件????????510??2012-12-15?19:48??TcpClient?VB2010\TcpClient\My?Project\Application.myapp
?????文件???????1097??2012-12-15?19:48??TcpClient?VB2010\TcpClient\My?Project\AssemblyInfo.vb
?????文件???????2776??2012-12-15?19:48??TcpClient?VB2010\TcpClient\My?Project\Resources.Designer.vb
?????文件???????5612??2010-05-04?06:45??TcpClient?VB2010\TcpClient\My?Project\Resources.resx
?????文件???????2993??2012-12-15?19:48??TcpClient?VB2010\TcpClient\My?Project\Settings.Designer.vb
?????文件????????279??2010-05-04?06:45??TcpClient?VB2010\TcpClient\My?Project\Settings.settings
?????文件???????2855??2016-04-19?16:27??TcpClient?VB2010\TcpClient\obj\x86\Debug\DesignTimeResolveAssemblyReferences.cache
?????文件???????6184??2016-05-17?13:32??TcpClient?VB2010\TcpClient\obj\x86\Debug\DesignTimeResolveAssemblyReferencesInput.cache
?????文件????????792??2015-04-04?20:37??TcpClient?VB2010\TcpClient\obj\x86\Debug\GenerateResource.read.1.tlog
?????文件???????2118??2015-04-04?20:37??TcpClient?VB2010\TcpClient\obj\x86\Debug\GenerateResource.write.1.tlog
?????文件??????14493??2013-05-03?11:17??TcpClient?VB2010\TcpClient\obj\x86\Debug\ResolveAssemblyReference.cache
?????文件??????48640??2016-05-17?13:32??TcpClient?VB2010\TcpClient\obj\x86\Debug\TcpClient.exe
?????文件????????180??2016-05-17?13:32??TcpClient?VB2010\TcpClient\obj\x86\Debug\TcpClient.Form1.resources
?????文件??????56832??2016-05-17?13:32??TcpClient?VB2010\TcpClient\obj\x86\Debug\TcpClient.pdb
?????文件????????180??2016-05-17?13:32??TcpClient?VB2010\TcpClient\obj\x86\Debug\TcpClient.Resources.resources
?????文件???????4716??2016-05-17?13:32??TcpClient?VB2010\TcpClient\obj\x86\Debug\TcpClient.vbproj.FileListAbsolute.txt
?????文件????????975??2016-05-17?13:32??TcpClient?VB2010\TcpClient\obj\x86\Debug\TcpClient.vbproj.GenerateResource.Cache
............此處省略119個文件信息
- 上一篇:C#打印-全部打印源碼
- 下一篇:asp.net打印控件免費使用
評論
共有 條評論