vb s200 通信功能设置 PPI通信协议

由于不知如何上传文件，所以只能贴上代码了
1、本程序仅用于工控爱好者交流使用，鄙视用于商业的行径 
2、已开发出西门子s7-300plc的通信控件，可以与西门子各种型号plc进行 
通信。期望与感兴趣的同仁进行交流。 

作者邮箱：lkl_xz@163.com 
qq：57476662 

2008.06.25 
*****************************说明********************** 

1\上位机通过串口与西门子200通信，基于ppi协议，pc－ppi编程电缆 
2\主要基于v区进行通信，实际应用中足够了，故没有对其他区进行操作 
3\要点： 
1）一次读取v区多个字节， 
2）v区的位操作：置位和复位，在第1个文本框中输入v区地址，在第2个文本框中输入位地址，如程序默认的地址是 V0.0 
3）写一个字 
4\注意： 
实际应用中一次最多可以读取v区55个字节，否则会造成读取失败 
5\安装： 
附带MSCOMM32串口通信控件的安装程序。

×××××××××××××××××××××××××××××××××××××

unit Unit1; 

interface 

uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 

Dialogs, StdCtrls, MSCommLib_TLB, OleCtrls; 

type 
TForm1 = class(TForm) 
MSComm1: TMSComm; 
Button1: TButton; 
Button2: TButton; 
Memo1: TMemo; 
Edit1: TEdit; 
Edit2: TEdit; 
Label1: TLabel; 
Label2: TLabel; 
StaticText1: TStaticText; 
StaticText2: TStaticText; 
Button3: TButton; 
Edit3: TEdit; 
Button4: TButton; 
StaticText3: TStaticText; 
Button7: TButton; 
Button8: TButton; 
Button10: TButton; 
Button5: TButton; 
Button11: TButton; 
procedure Button1Click(Sender: TObject); 
procedure Button2Click(Sender: TObject); 
procedure FormCreate(Sender: TObject); 
procedure FormClose(Sender: TObject; var Action: TCloseAction); 
procedure Button3Click(Sender: TObject); 
procedure Button5Click(Sender: TObject); 
procedure FormShow(Sender: TObject);