2

次のコードを使用して、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)

上記のコードはうまく機能します。ただし、クライアントの 1 つが USB を使用しています。

USBポートを使用してキャッシュドロワーを開くコードを知っている人はいますか?

ありがとうございました

4

1 に答える 1

1

私が覚えていることによると、USB キャッシュ ドロワーのいくつかは、メモリの場所を特定の値に設定して開く必要があります。キャッシュドロアーに必要なドライバー次第なので、メーカーの仕様書を入手する必要があります。

キャッシュ ドロワーのブランドを教えていただくことは、大きな第一歩です。

補遺: いくつかの検索の後、次の便利なリンクを見つけました。

適切な答えは本当に大きすぎて時間がかかりすぎてここに収まらず、それを機能させるには少し実験が必要ですが、基本的にはProlificからUSB to 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/

于 2012-07-12T15:15:18.493 に答える