久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

標題: VB開發的串口與三菱FX PLC通訊源碼 [打印本頁]
作者: jay_0218    時間: 2017-9-13 10:17
標題: VB開發的串口與三菱FX PLC通訊源碼
VB開發的串口與三菱FX PLC通訊源碼


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, 下載次數: 140)




作者: xiao8289739    時間: 2018-1-5 19:48
感謝樓主分享
作者: zwk34    時間: 2018-5-24 21:10
謝謝分享。
作者: jxsunyinwu    時間: 2018-6-20 14:37
謝謝分享，無遠程連接是怎么回事？
作者: 赤發鬼李逵    時間: 2018-7-24 18:17

感謝樓主分享
作者: han912xue    時間: 2018-8-15 13:40
樓主高人
作者: errorboy    時間: 2018-9-10 10:50
支持，支持分享
作者: lizhendong    時間: 2018-10-18 23:45
太好了，謝謝了
作者: 大飛0011    時間: 2018-10-20 08:42
太好了，謝謝了！！！
作者: jzylcj    時間: 2019-10-29 19:12

感謝樓主分享
作者: gaoii6    時間: 2019-11-21 16:32


感謝樓主分享  試試看
作者: GANRCJY    時間: 2020-4-11 21:53
下載了不是你說的這個呢？？
有原件嗎發給我好嗎？
作者: zxc7891    時間: 2020-5-13 03:43
謝謝分享~剛好可以用來最近在研究的
作者: 790546684    時間: 2020-6-27 17:11
感謝樓主分享
作者: robter    時間: 2020-7-6 06:56
很好很好，感謝樓主的好資料，下載學習了
作者: wangshoujue    時間: 2021-9-4 08:47
已下載，多謝樓主分享1~



歡迎光臨 (http://www.zg4o1577.cn/bbs/) Powered by Discuz! X3.1
主站蜘蛛池模板： 欧美在线观看一区 | 日韩欧美国产精品综合嫩v 一区中文字幕 | 亚洲色欧美另类 | 亚洲福利 | 午夜精品久久久久久 | 天天操天天天干 | 亚洲高清一区二区三区 | 精品麻豆剧传媒av国产九九九 | 在线视频成人 | 欧美国产日韩精品 | 国产精品日韩在线观看一区二区 | 91精品国产乱码久久久久久久久 | 99久久夜色精品国产亚洲96 | 日本中出视频 | 91精品久久久久久综合五月天 | 久久亚洲一区二区三区四区 | 久久国产一区 | 天天躁日日躁狠狠躁白人 | 亚洲不卡在线观看 | 日韩在线免费播放 | 亚洲精品一区二区在线 | 欧美久久久久久久 | 精品不卡 | 九九热在线视频 | 国产网站在线免费观看 | 午夜免费电影院 | 99爱视频| 国产精品国产a | 欧美日韩精品亚洲 | 精品视频在线一区 | 免费黄色大片 | 国产一二三区在线 | 国产精品欧美一区喷水 | 麻豆精品国产免费 | 免费久久视频 | 亚洲精品一区二区三区中文字幕 | 日本在线精品视频 | 色欧美综合 | 日韩在线成人 | 国产欧美日韩一区 | 亚洲欧洲国产视频 |