Question

我使用以下代码使用lpt和com端口打开现金抽屉。

    Dim intFileNo As Integer = FreeFile()

    FileOpen(1, "c:\escapes.txt", OpenMode.Output)
    PrintLine(1, Chr(27) & "p" & Chr(0) & Chr(25) & Chr(250))
    FileClose(1)

    Shell("print /d:com1 c:\escapes.txt", vbNormalFocus)

以上代码效果很好。但是，我的一个客户端正在使用USB。

任何人都知道使用USB端口打开现金抽屉的任何代码吗？

谢谢

Answer 1

根据我的记忆，需要通过将内存位置设置为特定值来打开某些USB现金抽屉。这完全取决于现金抽屉所需的驱动程序，因此您必须获得制造商的规格。

告诉我们哪个品牌的现金抽屉将是第一步。

附录：经过一番搜索，我发现了以下有用的链接。

一个正确的答案真的太大而且耗时而且适合这里需要一些实验才能使它工作但基本上你可以从Prolific安装一个USB到COM驱动程序然后编写软件或者重写VB6回答你使用常用技术链接到VB.NET。

http://www.jack-frost.co.uk/vb6_usb_cash_drawer.html

http://www.prolific.com.tw/US/index.aspx

http://support.epostraders.co.uk/support-files/documents/27/ldi-C4141_USB_InstallationGuide.pdf

http://answers.microsoft.com/en-us/windows/forum/windows_vista-hardware/prolific-pl2303-usb-to-serial-port-adapter-driver/1902e9e0-4af0-4f36-84bc-f487d4022f1f

http://edvoncken.net/2010/08/pl-2303-usb-to-serial-driver/

打开现金抽屉连接到USB端口

1 个答案: