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.
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source 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
Original Comments (3)
Recovered from Wayback Machine