• 首 页
• 编程技巧
• 维护技术
• 开发技术
• 西门子案例
• 三菱案例
• 松下案例
• 应用案例
• 下载区
• 参考书籍
• go2IPC下载

PLC与PC机通讯的VB源程序

返回文章列表

作者：老耿 时间：01-27 来源：大测控  字体:【大 中 小】

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

返回文章列表      【我要投稿】 【我要评论】 【会员收藏】 【发现错误】 【打印文档】

---

上一篇：S7200自由口模式下PLC与计算机的通信
下一篇：API 实现串行通信的查询方法

文章相关

• S系列I/O前端与InTouch  (2007-01-31 11:28:48)
• 多系统通信技术研究-------OPTO 22 SNAP I/O 与各种PLC之间同时通讯的应用  (2007-01-29 19:01:45)
• 串行通讯的PLC远程控制  (2007-01-28 10:28:45)
• PLC通讯干扰的一点儿体会  (2007-01-28 10:16:08)
• MODBUS通讯协议及编程  (2007-01-27 20:29:06)
• 串口通讯-网络通信的数据包(帧)  (2007-01-27 20:28:48)
• VB实现文件数据对SQL Server上传下载  (2007-01-27 20:28:39)
• VB下的CRC校验程序  (2007-01-27 20:28:23)
• 基于VB的分布式监控系统通信设计  (2007-01-27 20:28:08)
• VB与AB的PLC之间通讯  (2007-01-27 20:28:08)

现有0条评论 | 更多评论..

---

我要发表看法

  如果您还不是本站会员欢迎加入。

• ※ 评论注意事项：
• 不是会员或未登陆发表评论，评论人名字显示为匿名。
• 尊重网上道德，遵守中华人民共和国的各项有关法律法规。
• 承担一切因您的行为而直接或间接导致的民事或刑事法律责任。
• 本站管理人员有权保留或删除评论中的任意内容。
• 参与本评论即表明您已经阅读并接受上述条款。