Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Sub Form_Load()
' Set and open port
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
End Sub
Private Sub CommandOpenTheDrawer_Click()
'Send some ascii characters down the line
'Assuming this is the required command to open the drawer
MSComm1.Output = "OPEN THE CASH DRAWER"
End Sub
with MSComm1
.CommPort = 1
.Settings = "300,n,8,1"
.PortOpen = True
.Output = Chr$(7)
.PortOpen = False
end with