西门子S7-200PLC自由口通讯的实现及应用设

4.3 vb中串行通讯控件的事件
    (1) commevent属性用于传回下列所述的值之一，来表示不同的通讯错误或事件，通讯错误的返回值如表4所示。

(2) 通讯事件的返回值如表5所示。

4.4 visual basic中用于串口通讯的程序代码
    (1) 在form1的代码的公共部分定义变量：
    dim rcvlenth  as  integer  
    定义接收数据长度的整形变量
    dim rcv()    as   byte 
    定义接收数据的动态数组
    dim send(50)  as byte 
    定义发送数据的动态数组
    (2) 在form1——load的代码中对mscomm1控件进行设置：
    private sub form_load()
    rcvlenth=0
    mscomm1.commport=1                指定计算机通讯的端口号
    mscomm1.settings = "9600,n,8,1"   设置通讯波特率及校验方式
    mscomm1.inputmode= cominputmodebinary
    mscomm1.rthreshold=1
    mscomm1.inputlen=0
    mscomm1.outbuffercount=0
    if not mscomm1.portopen then mscomm1.portopen = true
    end sub
    (3) 在mscomm1的oncomm()事件中加入以下代码,用于接收数据：
    private sub mscomm1_on-comm()
    dim i as intger
    dim rcvtemp() as byte
    redim preserve rcv (mscom-m1.inbuffercount) as byte
    select case mscomm1.com-mevent
    case comevreceive
    rcvtemp=mscomm1.input
    for i=lbound(rcvtemp) to ubound(rcvtemp)
    rcvlenth=rcvlenth + 1
    rcv(rcvlenth)=rcvtemp(i)
    next i 
    end select
    end sub
    (4) 在timer1_timer()事件中加入如下代码用于定时的发送数据：
    private sub timer1_timer()
    dim i as intger
    for i=1 to 50
    mscomm1.output = send(i)
    next i 
    end sub
    (5) 程序界面如图6所示。

图6  程序界面

5  结束语
    s7-200的自由口通讯方式，使用户可以通过plc指令自己定义通讯协议，从而与任何公开通讯协议的rs-422或rs-232c接口设备进行通讯，使通讯范围大为增加，控制系统配制更加灵活。本文也介绍了采用vb进行串行口通讯的控件和编程方法。采用本文叙述的方法，可以组成一个上、下位机控制管理系统，将plc的信息转换成各类画面显示，并可以对plc的参数进行实时修改，达到管理、控制一体化。

上一页  [1] [2] [3] [4] 

本文关键字：西门子  PLC入门，plc技术 - PLC入门