国产免费AV|泡泡玛特欧洲总部将设在伦敦|中文天堂网www新版资源在线|一本久道综合在线中文|国精产品一二三产区的使用方法|香蕉鱼在线观看|www.27eee

ELEOK

標題: VB開發的串口與三菱FX PLC通訊源碼 [打印本頁]
作者: coolice    時間: 2020-4-25 15:50
標題: VB開發的串口與三菱FX PLC通訊源碼

  1. Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  2.         lblTopic = "輸入要監控或設置的地址回車確定，如D0,T10,Y7等"
  3. End Sub

  5. Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
  6.         If KeyCode <> 13 Then
  7.             start = False
  8.         End If
  9. End Sub

  11. Private Sub Text2_KeyPress(KeyAscii As Integer)
  12.     char = Chr(KeyAscii)
  13.     KeyAscii = Asc(UCase(char))
  14.     If Device = "D" And CStr(Val(setad)) = setad And Val(setad) < 1000 Then
  15.         start = False
  16.     End If
  17.     If (Device = "T" Or Device = "C") And CStr(Val(setad)) = setad And Val(setad) < 256 Then
  18.         start = False
  19.     End If
  20.     If KeyAscii = 13 Then
  21.       If Val(DevAdd) > 7999 Then
  22.          If MsgBox("改變系統參數可能對系統造成破壞，是否寫入？", vbOKCancel + vbCritical) = vbCancel Then Exit Sub
  23.       ElseIf MsgBox("改變當前值可能對運行造成危險，是否寫入？", vbOKCancel + vbExclamation) = vbCancel Then Exit Sub
  24.       End If
  25.             If Device = "D" And Check1.Value = 0 Then
  26.                 DevAdd = Right(("0000" + setad), 4)
  27.             ElseIf Device = "D" And Check1.Value = 1 Then
  28.                 DevAdd = Right(("0000" + setad), 4)
  29.             Else
  30.                 DevAdd = Right(("000" + setad), 3)
  31.             End If
  32.             If OptionD.Value Then '十進制方式
  33.                 If Device = "C" And Val(setad) > 199 Then 'C200以上寫入
  34.                     If Val(Text2.Text) > 2847483647# Then: GoTo this
  35.                     DevDat1 = cboStation.Text + "FFWW0" + Device + "N" + DevAdd + "01" + Right("00000000" + Hex(Val(Text2.Text)), 8)
  36.                 ElseIf Device = "D" And Check1.Value = 1 Then '雙字節D寫入
  37.                     If Val(Text2.Text) > 2847483647# Then: GoTo this
  38.                     DevDat1 = Right("00000000" + Hex(Val(Text2.Text)), 8)
  39.                     DevDat1 = Right(DevDat1, 4) + Left(DevDat1, 4)
  40.                     DevDat1 = cboStation.Text + "FFWW0" + Device + DevAdd + "02" + DevDat1
  41.                 Else
  42.                     If Val(Text2.Text) > 32767 Then: GoTo this
  43.                     If Device = "D" Then '單字節D寫入
  44.                         DevDat1 = cboStation.Text + "FFWW0" + Device + DevAdd + "01" + Right("0000" + Hex(Val(Text2.Text)), 4)
  45.                     Else 'C200以下寫入
  46.                         DevDat1 = cboStation.Text + "FFWW0" + Device + "N" + DevAdd + "01" + Right("0000" + Hex(Val(Text2.Text)), 4)
  47.                     End If
  48.                 End If
  49.             Else '十六進制方式
  50.                 If Device = "C" And Val(setad) > 199 Then 'C200以上寫入
  51.                     If Val("&H" + Text2.Text) > 2847483647# Then: GoTo this
  52.                     DevDat1 = cboStation.Text + "FFWW0" + Device + "N" + DevAdd + "01" + Right("00000000" + Text2.Text, 8)
  53.                 ElseIf Device = "D" And Check1.Value = 1 Then '雙字節D寫入
  54.                     If Val("&H" + Text2.Text) > 2847483647# Then: GoTo this
  55.                     DevDat1 = Right("00000000" + Text2.Text, 8)
  56.                     DevDat1 = Right(DevDat1, 4) + Left(DevDat1, 4)
  57.                     DevDat1 = cboStation.Text + "FFWW0" + Device + DevAdd + "02" + DevDat1
  58.                 Else
  59.                     If Val("&H" + Text2.Text) > 32767 Then: GoTo this
  60.                     If Device = "D" Then '單字節D寫入
  61.                         DevDat1 = cboStation.Text + "FFWW0" + Device + DevAdd + "01" + Right("0000" + Text2.Text, 4)
  62. ……………………

  64. …………限于本文篇幅 余下代碼請下載附件…………
復制代碼
VB開發的串口與三菱FX PLC通訊源碼.rar (19.54 KB, 售價: 5 E幣)



歡迎光臨 ELEOK (http://m.afoofa.cn/) Powered by Discuz! X5.0