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

tom

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
   
4. 
   
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
   
10. 
    
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. ……………………
    
63. 
    
64. …………限于本文篇幅 余下代码请下载附件…………

复制代码

VB开发的串口与三菱FX PLC通讯源码.rar (19.54 KB, 售价: 5 金币)

2020-4-25 15:48 上传

点击文件名下载附件