以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助 全局代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113624)

--  作者:tcmhl
--  发布时间:2018/1/19 15:26:00
--  求助 全局代码
请问全局代码里 为啥不能用HexToDec ~?

有是么办法完成16进制转10进制吗?

--  作者:有点甜
--  发布时间:2018/1/19 15:43:00
--  
什么意思?你怎么写代码报什么错?
--  作者:tcmhl
--  发布时间:2018/1/19 15:52:00
--  
    If Vars("com")=True Then
        Dim s As String = ""
        Do While s =""
            Ports(Tables("系统参数").Rows(3)("值")).Write("01 0D" & vbcrlf)
            s = Ports(Tables("系统参数").Rows(3)("值")).ReadExisting()
            application.doevents
        Loop
        If s.Length=18 Then
          r("行驶速度") =HexToDec(right(left(s,14),2))
        End If       
    End If

全局代码里  出现错误 
图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20180119155023.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2018/1/19 16:12:00
--  

全局代码执行一个内部函数,在内部函数写代码

 

http://www.foxtable.com/webhelp/scr/1486.htm