用VB远程控制可编程控制器

2.3 PC的运行开关设置

　　若实现利用VB程序进行PC控制，必须将PC的运行开关设置在ON的位置。运行开关设置与对应的控制结果如下表：



　　2.4 VB通信功能设计与实现

　　VB通过MSCOMM控件控制串行口，该控件屏蔽了通讯过程中的底层操作程序，用户只需设置和监视控件的属性和事件，就可很方便地实现串行异步通讯，它有事件驱动通信和查询通信两种方式，通过检查InBufferCount属性值来判断输入缓冲区中是否接受到相应数目的字符，为实现所述通信，应在窗体中加入一个通讯控件MSComm，控件的参数设置要与上述PC通讯模块AJ71UC24的设置相同。控制命令的传输采用即时传送方法。

　　3. 软件编程与实现

　　监控微机主要供系统管理人员对PC进行系统运行的控制。下面主要列出微机对PC进行控制有关的程序。本例是以单个PC为例，PC站号为00H，PC号为FFH。：

　　该功能的实现必须将PC运行开关扳到RUN位置。通过在Form中加入两个option按钮实现：第一选项为启动，命令为"RR"；第二选项为停止，命令为"RS"。

Private Sub Option1_Click(Index As Integer) 　Dim An_Msg, Kzh_Cmd ，rd, rdf, temp, temp1 As String 　Dim i, rdd As Long 　Select Case Index 　　Case 0 　　　Kzh_Cmd = "RR" '启动PC系统 　　Case 1 　　　Kzh_Cmd = "RS" '关闭PC系统 　End Select 　Screen.MousePointer = 11 　If MSComm1.PortOpen = False Then 　　MSComm1.PortOpen = True 　End If 　MSComm1.InputLen = 0 　rd = Chr$(5) + "00FF" + Trim(Kzh_Cmd) + "0" 　rd=rd + Xy_hj(rd) '其中Xj_hj字符串效验求和函数 　MSComm1.Output = rd 　Do 　　dummy = DoEvents() 　Loop Until MSComm1.InBufferCount >= 5 　rdf = MSComm1.Input 　temp = Mid(rdf, 1, 5) 　If temp<> Chr$(6) + "00FF" Then 　　MsgBox "命令运行失败！！！", 16 　End If 　Screen.MousePointer = 0 End Sub

查看本文来源