Search Tools Links Login

Open Cash Drawer


This piece of code will pop open an MMF ED 2000 Cash Register. It sends the ascii value of A down com port 1. I put this code on planetsource code cause I had a hard time finding out how to do this. I tried the MSComm object and had a lot of difficulty with it. Hope this helps all the coders out there.

Original Author: Markus O Beamer

Code

Sub popDrawer()
On Error GoTo err

If hasCashDrawer Then
  Open "COM1" For Output Access Write As #1
    Print #1, Chr$(65); "A";
  Close #1
End If
Exit Sub
err:
MsgBox ("Problems opening drawer")

End Sub

About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 96 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.