当前位置:编程学习 > VB >>

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+
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,