6 g9 _+ k; W$ V: oPublic plcadr As plcadrtype1 j' b" F" X2 Q+ }, B) xPublic gb_PlcConnected As Boolean# y2 E( S, A) j5 g {# WType plcadrtype# l* G9 g( z: F! G) Y adr As Byte ‘站地址，默认值为27 z& t8 F: X: y, b SEGMENTID As Byte ‘段标识符，固定值为0- v" K, X4 _4 T% `- X- k* B7 U SLOTNO As Byte ‘槽的编号，默认值为22 J# `. F" c/ Q- n- H; ^5 \+ E2 B RACKNO As Byte ‘机架号，固定为0+ H0 n5 k4 N) r/ YEnd Type# w/ ^7 I# z! l( |# CPublic Res As Long2 H& l; z! K* R+ L/ TDeclare Function load_tool Lib "w95_s7.dll" (ByVal nr As Byte, ByVal dev As String, adr As plcadrtype) As Long, i: k, X9 y5 @。。。。。。。 ‘省略其它定义函数。, B$ m. B# \6 z. b6 i& \9 WDeclare Function as200_vs_field_read Lib "w95_s7.dll" (ByVal nr As Long, ByVal anz As Long, value As Byte) As Long ‘读 200PLC V存储区的数据函数& K7 e& h) h" }0 e****在窗体中声明****5 Y0 r$ q2 v5 N; r) n% K" B
### VB编写PC与S7-200通讯软件的知识点详解
#### 一、概述
在工业自动化领域，实现PC（个人计算机）与PLC（可编程逻辑控制器）之间的通讯是一项重要的技术。本文档主要介绍如何使用Visual Basic（简称VB）开发环境结合S7-200系列PLC进行通讯，特别关注的是通过调用`w95_s7.dll`动态链接库实现这一目标的过程。
#### 二、所需硬件与软件
- **硬件需求**：
- CPU22x系列PLC。
- PC/PPI编程电缆。
- 带有COM口的个人计算机。
- **软件需求**：
- Visual Basic开发环境。
- `w95_s7.dll`动态链接库文件。
#### 三、Prodave简介
Prodave是一个用于PC与S7系列PLC之间数据链接通信的工具箱。它通过提供一系列API函数，帮助开发者实现PLC与PC之间的数据交换和数据处理。在这个案例中，我们不安装Prodave软件，而是直接使用其提供的`w95_s7.dll`文件。
#### 四、通讯设置
为了确保PC与S7-200之间的正常通讯，我们需要进行以下设置：
- 打开“控制面板”中的“设置PG/PC接口”选项。
- 在“应用程序访问点”列表框内选择“S7ONLINE (STEP7) PC/PPI Cable”。
- 在其属性内的“超时”设置为较大的值，如100ms，以避免因响应慢而造成的连接失败。
- “波特率”设置为9.6kbps，这是基于国产PC/PPI电缆可能不支持多主站的情况。
- “地址”设置为0。
#### 五、源代码解析
##### 1. PLC程序
```vb
LDI 0.0
MOV W4766, VW0
```
这段程序是在S7-200 PLC中编写的，其作用是将数值写入到V存储器地址VW0中。
##### 2. VB程序
我们需要在VB程序中声明一些必要的全局变量和类型定义：
```vb
Public plcadr As plcadrtype
Public gb_PlcConnected As Boolean
```
接下来定义`plcadrtype`类型，该类型包含了与PLC通讯相关的参数：
```vb
Type plcadrtype
adr As Byte ' 站地址，默认值为2
SEGMENTID As Byte ' 段标识符，固定值为0
SLOTNO As Byte ' 槽的编号，默认值为22
RACKNO As Byte ' 机架号，固定为0
End Type
```
此外，还需声明一些与DLL函数交互的变量和函数：
```vb
Public Res As Long
Declare Function load_tool Lib "w95_s7.dll" (ByVal nr As Byte, ByVal dev As String, adr As plcadrtype) As Long
Declare Function as200_vs_field_read Lib "w95_s7.dll" (ByVal nr As Long, ByVal anz As Long, value As Byte) As Long
```
#### 六、VB程序分析
在`Form_Load`事件中初始化通讯：
```vb
Private Sub Form_Load()
Dim buffer(1) As Byte
plcadr.adr = 2
plcadr.SEGMENTID = 0
plcadr.SLOTNO = 2
plcadr.RACKNO = 0
Res = load_tool(1, "S7ONLINE", plcadr)
Res = as200_vs_field_read(0, 2, buffer(0))
If Res <> 0 Then
MsgBox("PLC连接错误")
gb_PlcConnected = False
Else
gb_PlcConnected = True
MsgBox("plc连接正确")
Label1.Caption = buffer(0) * 256 + buffer(1)
End If
End Sub
```
该段代码执行了以下几个步骤：
1. 初始化缓冲数组`buffer`。
2. 设置`plcadr`类型的各个字段。
3. 调用`load_tool`函数加载工具并建立连接。
4. 使用`as200_vs_field_read`函数读取PLC中的数据。
5. 根据返回值判断是否成功，并显示相应消息。
#### 七、扩展应用
文档最后提到可以通过以上程序正确读出PLC中的数据，并且可以在此基础上扩展内容，编写一个完整的监控软件。这表明作者已经实现了基本的数据读取功能，并准备进一步开发更复杂的软件系统。
#### 八、参考资料
文档还提及了一些额外的DLL文件，包括`w95_s7.dll`, `w95_s7.lib`, `w95_s7.h`, `komfort.dll`, `komfort.lib`, `komfort.h`，这些文件可能在扩展功能时需要用到。
#### 结论
通过上述分析可以看出，本文档详细介绍了如何使用VB编写PC与S7-200通讯软件的过程。它不仅提供了具体的代码示例，还涵盖了硬件和软件配置的要求以及基本的原理说明，对于初学者来说是一份非常实用的学习资料。
