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

標(biāo)題: VB開(kāi)發(fā)的串口與三菱FX PLC通訊源碼 [打印本頁(yè)]
作者: jay_0218    時(shí)間: 2017-9-13 10:17
標(biāo)題: VB開(kāi)發(fā)的串口與三菱FX PLC通訊源碼
VB開(kāi)發(fā)的串口與三菱FX PLC通訊源碼


vb源程序如下:

  2. Private Sub fraComm2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  3.         lblTopic = "設(shè)置連接PLC的通信端口以及PLC的站號(hào)(應(yīng)與D8121相同)"
  4. End Sub

  6. Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  7.         lblTopic = "實(shí)時(shí)監(jiān)控/設(shè)置PLC的XYMTCD設(shè)備值"
  8. End Sub

  10. Private Sub OptionD_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  11.         lblTopic = "數(shù)據(jù)以十進(jìn)制方式返回或設(shè)置"
  12. End Sub

  14. Private Sub OptionH_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  15.         lblTopic = "數(shù)據(jù)以十六進(jìn)制方式返回或設(shè)置"
  16. End Sub

  18. Private Sub SETRST_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  19.         lblTopic = "對(duì)位元件(X,Y,M,T,C)線圈置位與復(fù)位"
  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)) '轉(zhuǎn)換為大寫(xiě)
  34.    
  35.     If KeyAscii = 13 Then '按回車(chē)鍵
  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數(shù)據(jù)
  52.                 DevType = "D"
  53.             Else
  54.                 DevDat = cboStation.Text + "FFWR0" + Device + DevAdd + "02" '使用WR命令讀32bit數(shù)據(jù)
  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的線圈狀態(tài)
  63.             DevDat = cboStation.Text + "FFWR0" + Device + "N" + DevAdd + "01" 'T的數(shù)據(jù)值
  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的線圈狀態(tài)
  71.             If Val(setad) > 199 Then
  72.                 DevDat = cboStation.Text + "FFWR0" + Device + "N" + DevAdd + "01" 'C200以上的數(shù)據(jù)值
  73.                 DevType = "2D"
  74.             Else
  75.                 DevDat = cboStation.Text + "FFWR0" + Device + "N" + DevAdd + "01" 'C200以下的數(shù)據(jù)值
  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 = "輸入要監(jiān)控或設(shè)置的地址回車(chē)確定，如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("改變系統(tǒng)參數(shù)可能對(duì)系統(tǒng)造成破壞，是否寫(xiě)入？", vbOKCancel + vbCritical) = vbCancel Then Exit Sub
  113.       ElseIf MsgBox("改變當(dāng)前值可能對(duì)運(yùn)行造成危險(xiǎn)，是否寫(xiě)入？", 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 '十進(jìn)制方式
  123.                 If Device = "C" And Val(setad) > 199 Then 'C200以上寫(xiě)入
  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 '雙字節(jié)D寫(xiě)入
  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 '單字節(jié)D寫(xiě)入
  134.                         DevDat1 = cboStation.Text + "FFWW0" + Device + DevAdd + "01" + Right("0000" + Hex(Val(Text2.Text)), 4)
  135.                     Else 'C200以下寫(xiě)入
  136.                         DevDat1 = cboStation.Text + "FFWW0" + Device + "N" + DevAdd + "01" + Right("0000" + Hex(Val(Text2.Text)), 4)
  137.                     End If
  138.                 End If
  139.             Else '十六進(jìn)制方式
  140.                 If Device = "C" And Val(setad) > 199 Then 'C200以上寫(xiě)入
  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 '雙字節(jié)D寫(xiě)入
  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 '單字節(jié)D寫(xiě)入
  151.                         DevDat1 = cboStation.Text + "FFWW0" + Device + DevAdd + "01" + Right("0000" + Text2.Text, 4)
  152. ……………………

  154. …………限于本文篇幅 余下代碼請(qǐng)從51黑下載附件…………
復(fù)制代碼

所有資料51hei提供下載:
VB開(kāi)發(fā)的串口與三菱FX PLC通訊源碼.rar (19.54 KB, 下載次數(shù): 140)




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

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

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


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



歡迎光臨 (http://m.zg4o1577.cn/bbs/) Powered by Discuz! X3.1
主站蜘蛛池模板： 国产一区二区欧美 | 亚洲一区免费视频 | 成人看 | 国产欧美在线观看 | 欧美在线观看一区二区三区 | 日韩成人高清 | 伊人久久综合 | 四虎黄色影院 | 五月婷婷婷 | 亚洲日本天堂 | 色综合天天综合网国产成人网 | 韩国精品一区二区 | 精品日韩一区二区三区 | 四虎永久在线 | 日韩一区二区av | 老司机午夜视频 | 日韩一级黄 | 在线免费看毛片 | a毛片在线观看 | 日韩国产欧美 | 国产一区二区影院 | 日韩中文字幕一区二区 | 综合伊人久久 | 亚洲精品18在线观看 | 日韩国产在线播放 | 久久久久久亚洲 | 波多野结衣一区二区三区在线观看 | 人人干人人草 | 老司机精品福利视频 | 亚洲成人国产 | 伊人影院综合 | 日韩欧美精品 | 老司机午夜免费精品视频 | 色综合av | 国产高清成人 | 黄色片毛片 | 日韩欧美亚洲 | 四虎在线免费视频 | 亚洲天堂第一页 | h片免费观看 | 日韩一区二区av |