设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 电子技术分类讨论区 › PLC/自动化/工控 › VB开发的串口与三菱FX PLC通讯源码
返回列表 发新帖
查看: 8636|回复: 15
收起左侧

VB开发的串口与三菱FX PLC通讯源码

  [复制链接]
ID:232819 发表于 2017-9-13 10:17 | 显示全部楼层 |阅读模式
VB开发的串口与三菱FX PLC通讯源码
0.png

vb源程序如下:

  2. Private Sub fraComm2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  3.         lblTopic = "设置连接PLC的通信端口以及PLC的站号(应与D8121相同)"
  4. End Sub

  6. Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  7.         lblTopic = "实时监控/设置PLC的XYMTCD设备值"
  8. End Sub

  10. Private Sub OptionD_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  11.         lblTopic = "数据以十进制方式返回或设置"
  12. End Sub

  14. Private Sub OptionH_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  15.         lblTopic = "数据以十六进制方式返回或设置"
  16. End Sub

  18. Private Sub SETRST_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  19.         lblTopic = "对位元件(X,Y,M,T,C)线圈置位与复位"
  20. End Sub

  22. Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
  23.     SETRST.Enabled = False
  24.     start = False
  25.     fraComm1.Visible = True
  26.     fraComm2.Visible = True
  27. End Sub

  29. Private Sub Text1_KeyPress(KeyAscii As Integer)
  30.     char = Chr(KeyAscii)
  31.     setaddr = Text1.Text
  32.     If Len(setaddr) > 1 Then: setad = Right(setaddr, Len(setaddr) - 1)
  33.     KeyAscii = Asc(UCase(char)) '转换为大写
  34.    
  35.     If KeyAscii = 13 Then '按回车键
  36.         Device = Left(setaddr, 1)
  37.         Text1.SelStart = 0
  38.         Text1.SelLength = Len(setaddr)
  39.         Text2.Enabled = True
  40.         If (Device = "X" Or Device = "Y" And Oct(Val("&o" + setad)) = setad And Val(setad) < 178) Or (Device = "M" And CStr(Val(setad)) = setad And (Val(setad) < 1536 Or Val(setad) > 7999 And Val(setad) < 8256)) Then
  41.             DevAdd = Right(("0000" + setad), 4)
  42.             DevDat = cboStation.Text + "FFBR0" + Device + DevAdd + "01"
  43.             DevType = "XYM"
  44.             Text2.Enabled = False
  45.             SETRST.Enabled = True
  46.             start = True
  47.         End If
  48.         If Device = "D" And CStr(Val(setad)) = setad And (Val(setad) < 1000 Or Val(setad) > 7999 And Val(setad) < 8256) Then
  49.             DevAdd = Right(("0000" + setad), 4)
  50.             If Check1.Value = 0 Then
  51.                 DevDat = cboStation.Text + "FFWR0" + Device + DevAdd + "01" '使用WR命令读16bit数据
  52.                 DevType = "D"
  53.             Else
  54.                 DevDat = cboStation.Text + "FFWR0" + Device + DevAdd + "02" '使用WR命令读32bit数据
  55.                 DevType = "2D"
  56.             End If
  57.             SETRST.Enabled = False
  58.             start = True
  59.         End If
  60.         If Device = "T" And CStr(Val(setad)) = setad And Val(setad) < 256 Then
  61.             DevAdd = Right(("000" + setad), 3)
  62.             DevDatTC = cboStation.Text + "FFBR0" + Device + "S" + DevAdd + "01" 'T的线圈状态
  63.             DevDat = cboStation.Text + "FFWR0" + Device + "N" + DevAdd + "01" 'T的数据值
  64.             DevType = "D"
  65.             SETRST.Enabled = True
  66.             start = True
  67.         End If
  68.         If Device = "C" And CStr(Val(setad)) = setad And Val(setad) < 256 Then
  69.             DevAdd = Right(("000" + setad), 3)
  70.             DevDatTC = cboStation.Text + "FFBR0" + Device + "S" + DevAdd + "01" 'C的线圈状态
  71.             If Val(setad) > 199 Then
  72.                 DevDat = cboStation.Text + "FFWR0" + Device + "N" + DevAdd + "01" 'C200以上的数据值
  73.                 DevType = "2D"
  74.             Else
  75.                 DevDat = cboStation.Text + "FFWR0" + Device + "N" + DevAdd + "01" 'C200以下的数据值
  76.                 DevType = "D"
  77.             End If
  78.             SETRST.Enabled = True
  79.             start = True
  80.         End If
  81.         fraComm1.Visible = False
  82.         fraComm2.Visible = False
  83.     Else
  84.         start = False
  85.         fraComm1.Visible = True
  86.         fraComm2.Visible = True

  88.     End If
  89. End Sub
  90.    
  91. Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  92.         lblTopic = "输入要监控或设置的地址回车确定，如D0,T10,Y7等"
  93. End Sub

  95. Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
  96.         If KeyCode <> 13 Then
  97.             start = False
  98.         End If
  99. End Sub

  101. Private Sub Text2_KeyPress(KeyAscii As Integer)
  102.     char = Chr(KeyAscii)
  103.     KeyAscii = Asc(UCase(char))
  104.     If Device = "D" And CStr(Val(setad)) = setad And Val(setad) < 1000 Then
  105.         start = False
  106.     End If
  107.     If (Device = "T" Or Device = "C") And CStr(Val(setad)) = setad And Val(setad) < 256 Then
  108.         start = False
  109.     End If
  110.     If KeyAscii = 13 Then
  111.       If Val(DevAdd) > 7999 Then
  112.          If MsgBox("改变系统参数可能对系统造成破坏，是否写入？", vbOKCancel + vbCritical) = vbCancel Then Exit Sub
  113.       ElseIf MsgBox("改变当前值可能对运行造成危险，是否写入？", vbOKCancel + vbExclamation) = vbCancel Then Exit Sub
  114.       End If
  115.             If Device = "D" And Check1.Value = 0 Then
  116.                 DevAdd = Right(("0000" + setad), 4)
  117.             ElseIf Device = "D" And Check1.Value = 1 Then
  118.                 DevAdd = Right(("0000" + setad), 4)
  119.             Else
  120.                 DevAdd = Right(("000" + setad), 3)
  121.             End If
  122.             If OptionD.Value Then '十进制方式
  123.                 If Device = "C" And Val(setad) > 199 Then 'C200以上写入
  124.                     If Val(Text2.Text) > 2847483647# Then: GoTo this
  125.                     DevDat1 = cboStation.Text + "FFWW0" + Device + "N" + DevAdd + "01" + Right("00000000" + Hex(Val(Text2.Text)), 8)
  126.                 ElseIf Device = "D" And Check1.Value = 1 Then '双字节D写入
  127.                     If Val(Text2.Text) > 2847483647# Then: GoTo this
  128.                     DevDat1 = Right("00000000" + Hex(Val(Text2.Text)), 8)
  129.                     DevDat1 = Right(DevDat1, 4) + Left(DevDat1, 4)
  130.                     DevDat1 = cboStation.Text + "FFWW0" + Device + DevAdd + "02" + DevDat1
  131.                 Else
  132.                     If Val(Text2.Text) > 32767 Then: GoTo this
  133.                     If Device = "D" Then '单字节D写入
  134.                         DevDat1 = cboStation.Text + "FFWW0" + Device + DevAdd + "01" + Right("0000" + Hex(Val(Text2.Text)), 4)
  135.                     Else 'C200以下写入
  136.                         DevDat1 = cboStation.Text + "FFWW0" + Device + "N" + DevAdd + "01" + Right("0000" + Hex(Val(Text2.Text)), 4)
  137.                     End If
  138.                 End If
  139.             Else '十六进制方式
  140.                 If Device = "C" And Val(setad) > 199 Then 'C200以上写入
  141.                     If Val("&H" + Text2.Text) > 2847483647# Then: GoTo this
  142.                     DevDat1 = cboStation.Text + "FFWW0" + Device + "N" + DevAdd + "01" + Right("00000000" + Text2.Text, 8)
  143.                 ElseIf Device = "D" And Check1.Value = 1 Then '双字节D写入
  144.                     If Val("&H" + Text2.Text) > 2847483647# Then: GoTo this
  145.                     DevDat1 = Right("00000000" + Text2.Text, 8)
  146.                     DevDat1 = Right(DevDat1, 4) + Left(DevDat1, 4)
  147.                     DevDat1 = cboStation.Text + "FFWW0" + Device + DevAdd + "02" + DevDat1
  148.                 Else
  149.                     If Val("&H" + Text2.Text) > 32767 Then: GoTo this
  150.                     If Device = "D" Then '单字节D写入
  151.                         DevDat1 = cboStation.Text + "FFWW0" + Device + DevAdd + "01" + Right("0000" + Text2.Text, 4)
  152. ……………………

  154. …………限于本文篇幅 余下代码请从51黑下载附件…………
复制代码

所有资料51hei提供下载:
VB开发的串口与三菱FX PLC通讯源码.rar (19.54 KB, 下载次数: 139)
回复

使用道具 举报

ID:272098 发表于 2018-1-5 19:48 | 显示全部楼层
感谢楼主分享
回复

使用道具 举报

ID:33634 发表于 2018-5-24 21:10 | 显示全部楼层
谢谢分享。
回复

使用道具 举报

ID:219903 发表于 2018-6-20 14:37 | 显示全部楼层
谢谢分享，无远程连接是怎么回事？
回复

使用道具 举报

ID:361620 发表于 2018-7-24 18:17 | 显示全部楼层

感谢楼主分享
回复

使用道具 举报

ID:386518 发表于 2018-8-15 13:40 | 显示全部楼层
楼主高人
回复

使用道具 举报

ID:395920 发表于 2018-9-10 10:50 | 显示全部楼层
支持，支持分享
回复

使用道具 举报

ID:138443 发表于 2018-10-18 23:45 | 显示全部楼层
太好了，谢谢了
回复

使用道具 举报

ID:373838 发表于 2018-10-20 08:42 | 显示全部楼层
太好了，谢谢了！！！
回复

使用道具 举报

ID:23309 发表于 2019-10-29 19:12 | 显示全部楼层

感谢楼主分享
回复

使用道具 举报

ID:646618 发表于 2019-11-21 16:32 | 显示全部楼层


感谢楼主分享  试试看
回复

使用道具 举报

ID:715003 发表于 2020-4-11 21:53 | 显示全部楼层
下载了不是你说的这个呢？？
有原件吗发给我好吗？
回复

使用道具 举报

ID:750448 发表于 2020-5-13 03:43 | 显示全部楼层
謝謝分享~剛好可以用來最近在研究的
回复

使用道具 举报

ID:750209 发表于 2020-6-27 17:11 | 显示全部楼层
感谢楼主分享
回复

使用道具 举报

ID:47634 发表于 2020-7-6 06:56 | 显示全部楼层
很好很好，感谢楼主的好资料，下载学习了
回复

使用道具 举报

ID:963949 发表于 2021-9-4 08:47 | 显示全部楼层
已下载，多谢楼主分享1~
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表