vb 怎么开启动钱柜抽屉
vb 编写一个开启动钱柜抽屉的程序串口的,连接线.一钱柜抽屉内码如下
内码 说明 文件如图,我使用了mscomm控件 ,输出这样的字串,就是开启不了
out_str = Hex("1B") & Hex("70") & Hex("00") & Hex("01") & Hex("00")
MSComm1.Output = out_str
有没有在线的朋友呀,指导一下! 看着中间有一个H,你的没有。
这手册写得太烂了。 好像应该是这样
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 直接用数组也可以:
楼主你确认串口发出数据了吗?
Dim a(6) As Byte
a(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
你发送 0a 看看走纸不.
你的十六进制命令没有问题.就是1b 70 ...
另外你的脉冲太短了吧,起码 20以上.
补充:VB , COM/DCOM/COM+