'此脚本为通过单击按钮触发与Modbus-RTU协议通讯，
Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y)                                ////////////////////  串口通讯设置                                                                               
Dim scr
Dim com
Set scr=HMIRuntime.Screens("串口")//获取"串口.pdl"界面存储地址
Set com=scr.ScreenItems("控件1")  //获取"串口.pdl"界面下的“控件1”（MScomm控件）
com.CommPort=4                    //设置端口号
com.Settings="9600,n,8,1"        //设置通信参数
com.InputMode=0                  //设置数据传递模式
'com.RThreshold =1
com.PortOpen=True
////////////////////  数据处理
com.Output=Bytes(check("010*********")) //数据写请求
Dim text,hexchr,i
text= com.Input
For i=1 To lenb(text)-2 Step 2          //解码
If Hex(Asc(MidB(text,i,2)))< 16 Then
hexchr=hexchr & "0" & CStr(Hex(Asc(MidB(text,i,2))))
Else
hexchr= hexchr & CStr(Hex(Asc(MidB(text,i,2))))
End If
Next
vbs脚本怎么停止
Msgbox hexc(hexchr,7)    //输出
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。