搜索
更多>> 热门搜索:
当前位置:

OFweek工控网

PLC/PAC

正文

PLC与PC机通讯的VB源程序

导读: PLC与PC机通讯的VB源程序大体如下:我采用的是FX232BD通讯模块,协议就是FX通讯协议

PLC与PC机通讯的VB源程序

PLC与PC机通讯的VB源程序大体如下:我采用的是FX232BD通讯模块,协议就是FX通讯协议。

强制PLC为RUN

Private Sub command1_Click()
   Dim dat As String
   commli.OutBufferCount = 0
    commli.InBufferCount = 0
           dat = "01FFRR0"
    commli.Output = Chr$(5) + dat + SumChk(dat)
   
End Sub

强制PLC为STOP

Private Sub command2_Click()
   Dim dat As String
   commli.OutBufferCount = 0
   commli.InBufferCount = 0
   dat = "01FFRS0"
   commli.Output = Chr$(5) + dat + SumChk(dat)
   
End Sub

强制Y0为1

 

Private Sub command3_Click()
   Dim dat As String
   commli.OutBufferCount = 0
   commli.InBufferCount = 0
   commli.Output = “01FFBW0Y001011”
   
End Sub

强制Y0为0

Private Sub command3_Click()
   Dim dat As String
   commli.OutBufferCount = 0
   commli.InBufferCount = 0
   commli.Output = “01FFBW0Y001010”
   
End Sub

设置电脑通信参数

Private Sub Commlis()
  
    If commli.PortOpen = True Then
        commli.PortOpen = False
    End If
    If Not commli.PortOpen Then
        commli.CommPort = 1 ''通信口
        commli.Settings = "9600,N,8,1"
        commli.Handshaking = 0
        commli.InputLen = 0
        commli.OutBufferCount = 0
        commli.InBufferCount = 0
        commli.PortOpen = True
    End If
    Exit Sub

   
End Sub
Private Function SumChk(Dats$) As String
    Dim i&
    Dim CHK&
    For i = 1 To Len(Dats)
        CHK = CHK + Asc(Mid(Dats, i, 1))
    Next i
 
    SumChk = Right(Hex$(CHK), 2)
End Function

 

责任编辑:siliver
免责声明: 本文仅代表作者个人观点,与 OFweek工控网 无关。其原创性以及文中陈述文字和内容未经本站证实, 对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅 作参考,并请自行核实相关内容。

我来说两句

(共0条评论,0人参与)

请输入评论

请输入评论/评论长度6~500个字

您提交的评论过于频繁,请输入验证码继续

暂无评论

暂无评论

  • 机械
  • 自动化
  • 单片机
  • 猎头职位
更多
文章纠错
x
*文字标题:
*纠错内容:
联系邮箱:
*验 证 码: