vb与收款机

xiao16 2000-07-07 10:01:00

我想知道收款机是怎样与微机接口的它的工作原理越详细越好谢谢

...全文

140 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

Apollol 2000-08-19

打赏
举报

回复

现在的POS大多是三代机,基本上与Pc的工作原理相同

netufo 2000-07-08

打赏
举报

回复

什么收款机?二代机还是三代机？三代机的话有好多种外设接在一个pc主机上，
如客显屏，钱柜，打印机，条码器，pos键盘.....
每一种外设用法都不一样，如客显屏一般是com口的，钱柜有com口的也有接在打印机上的...

基于VB软件开发的超市收银系统，包含毕业论文

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

介绍MATLAB与VB 6接口的方法。包括基于自动化的接口方法和基于组件的接口方法。所在套餐：MATLAB核心知识点系列课程-CSDN程序员研修院，不断更新和增加课程。

Visual Basic 6.0是Microsoft公司推出的功能强大的应用系统开发工具，它简单易学、编程效率高，深受广大计算机专业人员和编程爱好者的欢迎。本软件是用VB编写的超市管理系统。。数据库为MS ACCESS

POS收款机钱箱测试软件软件名称：POS钱箱测试软件,通用型,适合小票打印机带钱箱控制口介绍：本POS钱箱测试软件是用VB编写的。

7,762

社区成员

197,608

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章