vb 怎么开启动钱柜抽屉

Question

内码 说明 文件如图,我使用了mscomm控件 ，输出这样的字串，就是开启不了    out_str = Hex("1B") & Hex("70") & Hex("00") & Hex("01") & Hex("00")
    
    MSComm1.Output = out_str
 

Answer 1

好像应该是这样
Dim a() As Byte
Dim out_str  As String
out_str = Chr(&H1B) & "H" & Chr(&H70) & "H" & Chr(0) & Chr(1) & Chr(0)
a = StrConv(out_str, vbFromUnicode)
mscomm1.output = a

Answer 2

直接用数组也可以：Dim a(6) As Bytea(0) = &H1B
a(1) = Asc("H")
a(2) = &H70
a(3) = Asc("H")
a(4) = 0
a(5) = 1
a(6) = 0
MSComm1.Output = a