怎样用MSCOMM打开POS机的钱箱。。(在线等待) pos 机为IBM 4614-A03 开发工具为 VB6。0。 我已经可以用MSCOMM控制POS机的打印机和扫描枪,还有客显了,就是不能找到打开钱箱的PORT口,,请高手指教THANK YOU。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 If MSComm1.PortOpen = False Then MSComm1.PortOpen = TrueEnd IfMSComm1.OutBufferCount = 0If Text9.Text = "" ThenPDStrhj = Chr(24) + Chr(27) + Chr(115) + Chr(50) + "0"ElsePDStrhj = Chr(24) + Chr(27) + Chr(115) + Chr(50) + Str(Text9.Text)End IfMSComm1.Output = PDStrhj8888888888888888888If MSComm1.PortOpen = False Then MSComm1.PortOpen = TrueEnd IfMSComm1.OutBufferCount = 0PDStrzl = Chr(24) + Chr(27) + Chr(115) + Chr(52) + Str(Text12.Text)MSComm1.Output = PDStrzl If MSComm1.PortOpen = False Then MSComm1.PortOpen = TrueEnd IfMSComm1.OutBufferCount = 0PDStr = Chr(2) + Chr(77)MSComm1.Output = PDStr看后试试 不用指定边个COMM口吗?如果不指定COMM口,会把信消发送到其它设备上吧。可惜我不能在家直接试啊,我要等回到公司才能试到啊。不过也谢谢你。 求教获取网页内表格中数据 怎样使MSFLEXGRID表同一行相邻的两三个单元格合并?? listview的问题 VB中数据的移位操作? 请高手帮忙做个程序^^^有奖品的! 很奇怪的串口调试问题,在线等待! 求进销存软件源代码 求教高手帮我看看 我用VB做的一个系统怎么让他的普通用户没有权限登陆这个 下面是代码 改那个才可以让他只能管理员才能有下面的权限 DataReport 的高手在哪里! 如何使用ADO即时创建一个数据库?另外,怎么样才能让按钮做成像IE那样的效果??:-)Thanks! 打包的问题 各位仁兄请问谁有GHOST2003的下载地址,急急急
MSComm1.PortOpen = True
End If
MSComm1.OutBufferCount = 0
If Text9.Text = "" Then
PDStrhj = Chr(24) + Chr(27) + Chr(115) + Chr(50) + "0"
Else
PDStrhj = Chr(24) + Chr(27) + Chr(115) + Chr(50) + Str(Text9.Text)
End IfMSComm1.Output = PDStrhj
8888888888888888888
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
MSComm1.OutBufferCount = 0PDStrzl = Chr(24) + Chr(27) + Chr(115) + Chr(52) + Str(Text12.Text)
MSComm1.Output = PDStrzl
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
MSComm1.OutBufferCount = 0
PDStr = Chr(2) + Chr(77)
MSComm1.Output = PDStr
看后试试
如果不指定COMM口,会把信消发送到其它设备上吧。
可惜我不能在家直接试啊,我要等回到公司才能试到啊。不过也谢谢你。