社区
下载资源悬赏专区
帖子详情
OPENBOX开钱箱源码下载
weixin_39820780
2019-08-15 08:30:13
Delphi OPENBOX开钱箱 通过并口开钱箱源码
相关下载链接:
//download.csdn.net/download/zhc637/4978061?utm_source=bbsseo
...全文
19
回复
打赏
收藏
OPENBOX开钱箱源码下载
Delphi OPENBOX开钱箱 通过并口开钱箱源码 相关下载链接://download.csdn.net/download/zhc637/4978061?utm_source=bbsseo
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
open
box
开
钱箱
程序
pos机并口
开
钱箱
程序,支持通过pos打印机LPT1打
开
钱箱
开
钱箱
易语言
源码
开
钱箱
易语言
源码
pb打
开
钱箱
源码
实例
pb打
开
钱箱
源码
实例
VB打
开
POS机
钱箱
源码
.
VB打
开
POS机
钱箱
,
源码
.使用VB的MSComm控件. Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmd
Open
_Click() Dim sTmp As String '打
开
钱箱
命令 sTmp = Chr(2) & Chr(77)
Open
Box
sTmp End Sub Private Sub cmd
Open
1_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)
Open
Box
sTmp End Sub Private Sub Command1_Click() Dim sTmp As String sTmp = Chr(27) & Chr(57) & Chr(0) & Chr(60) & Chr(255)
Open
Box
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
Open
Box
(PDStr As String) On Error GoTo
Open
Err '------------使用 COMM控件时--------------------- Dim Instring As String ' 使用 COM1。 Comm1.CommPort = 1 ' 9600 波特,无奇偶校验,8 位数据,一个停止位。 Comm1.Settings = "9600,N,8,1" ' 当输入占用时, ' 告诉控件读入整个缓冲区。 Comm1.InputLen = 0 ' 打
开
端口。 Comm1.Port
Open
= True '------------------------------------------------ Comm1.Output = PDStr Comm1.Port
Open
= False Exit Sub
Open
Err: Msg
Box
"
钱箱
端口打
开
错误:" & Err.Description, vbCritical Exit Sub End Sub
开
钱箱
源码
当前文件包含
开
钱箱
源码
、在VS2010下可直接编译运行;成功完成
开
钱箱
功能,内涵通用
开
钱箱
指令
下载资源悬赏专区
12,880
社区成员
12,433,167
社区内容
发帖
与我相关
我的任务
下载资源悬赏专区
CSDN 下载资源悬赏专区
复制链接
扫一扫
分享
社区描述
CSDN 下载资源悬赏专区
其他
技术论坛(原bbs)
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章