【文件属性】:
文件名称:VB打开POS机钱箱源码.
文件大小:33KB
文件格式:RAR
更新时间:2014-09-08 09:48:16
VB打开POS机钱箱源码
VB打开POS机钱箱,源码.使用VB的MSComm控件.
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdOpen_Click()
Dim sTmp As String
'打开钱箱命令
sTmp = Chr(2) & Chr(77)
OpenBox sTmp
End Sub
Private Sub cmdOpen1_Click()
Dim sTmp As String
'打开钱箱命令chr(27)+chr(112)+chr(0)+chr(60)+chr(255)
sTmp = Chr(27) & Chr(112) & Chr(0) & Chr(60) & Chr(255)
OpenBox sTmp
End Sub
Private Sub Command1_Click()
Dim sTmp As String
sTmp = Chr(27) & Chr(57) & Chr(0) & Chr(60) & Chr(255)
OpenBox sTmp
End Sub
Private Sub Form_Load()
'显示最上层
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
'显示最上层取消
SetWindowPos Me.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub
Private Sub OpenBox(PDStr As String)
On Error GoTo OpenErr
'------------使用 COMM控件时---------------------
Dim Instring As String
' 使用 COM1。
Comm1.CommPort = 1
' 9600 波特,无奇偶校验,8 位数据,一个停止位。
Comm1.Settings = "9600,N,8,1"
' 当输入占用时,
' 告诉控件读入整个缓冲区。
Comm1.InputLen = 0
' 打开端口。
Comm1.PortOpen = True
'------------------------------------------------
Comm1.Output = PDStr
Comm1.PortOpen = False
Exit Sub
OpenErr:
MsgBox "钱箱端口打开错误:" & Err.Description, vbCritical
Exit Sub
End Sub
【文件预览】:
OpenMoneybox.vbw
modCom.bas
MSSCCPRJ.SCC
OpenMoneybox.exe
OpenMoneybox.vbp
frmBox.frx
setup.wse
frmBox.frm
opendoor.exe
网友评论
- 好用,简单实用。没得说,推荐下载
- 我也不用不起POS58.....YU58
- 用不了,最后用小票打印机驱动打开的。
- 不知道怎么用,没有说明,而且测试没用
- 下载来调试没有通过,不知道问题出在哪儿了,没有程序说明