在设备上增加条码器功能，条码器的开关定时器为16进制的，怎样编写程序控制，
求助大神！
barcode
开定时器:  16 54 0D(十六进制)
关定时器:  16 55 0D(十六进制)

我这样写开关定时器出错了：
'开定时器
Public Function Command_LON() As Integer
    Dim sErrorMessage As String
    Dim msgData As String
    Dim rc As Integer
    Dim bRc As Boolean
   
    rc = 0
    msgData = ""
    sErrorMessage = ""
    Dim sdat As String

    sdat = ChrW(27) &  “16 54 0D"                ' LON Command Data Send
        bRc = gclsLCR.SendMessage(sdat)
    If bRc = False Then
        GoTo Func_Err
    End If
    Debug.Print (sdat)

Func_Err:
    Command_LON = rc
End Function

'关定时器
Public Function Command_LOFF() As Integer
    Dim rc As Integer
    rc = 0
    Dim sdat As String
    Dim bRc As Boolean

    sdat = ChrW(27) & " 16 55 0D"                   ' LOFF Command Data Send
        bRc = gclsLCR.SendMessage(sdat)
    If bRc = False Then
        GoTo Func_Err
    End If
Func_Err:
Debug.Print (sdat)
    Command_LOFF = rc
End Function

开定时器:  16 54 0D(十六进制)
关定时器:  16 55 0D(十六进制)

这个是 3 个字节。
dim sdat(0 to 2) as byte
sdat(0)=&H16
sdat(1)=&H54
sdat(2)=&0D

然后把 sdat 发出去。
这条命令应该支持 BYTE 数组。你要测试一下，如果不支持，那就 把上面3字节的 数组再转化为 字符串。
bRc = gclsLCR.SendMessage(sdat)

收到的鲜花

• jun20131204 于 2014-07-24 09:12 送鲜花  3朵   附言：我很赞同
• jun20131204 于 2014-07-24 09:12 送鲜花  3朵   附言：我很赞同

谢谢版主了！我曾也有想过用数组的。我调试下，不行就转化为字符串。