Wrox Programmer Forums
| Search | Today's Posts | Mark Forums Read
VB How-To Ask your "How do I do this with VB?" questions in this forum.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the VB How-To section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
  #1 (permalink)  
Old September 13th, 2004, 02:51 PM
Registered User
 
Join Date: Sep 2004
Location: , , .
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
Default Cash Drawer Detection

This is for POS software. I can open the cash drawer but I want to know how can I detect if the drawer is already onep? Anyone know please help!

Thanks

  #2 (permalink)  
Old May 1st, 2006, 04:48 PM
Registered User
 
Join Date: May 2006
Location: , , .
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
Default

Hi,

Can You please send me the code to open the Cash Drawer for VB if you have one working for you.

I am using the TM-U295 Printer and Xc19 Cash Drawer.

I tried different ESC Sequences like

MSComm1.Output = Chr$(&H1B) + "p" + "0" + "zz"
MSComm1.Output = Chr$(&H1B) + "p" + Chr$(0) + Chr$(100) + Chr$(250)
MSComm1.Output = Chr$(27) & Chr$(112) & Chr$(0) & Chr$(25) & Chr$(250)
MSComm1.Output = Chr$(27)& Chr$(112) & Chr$(48) & Chr$(55) & Chr$(121)
MSComm1.Output = Chr(27) + Chr(33) + Chr(1) + Chr(112) ' + Chr(0)

None of the Above Worked for me.

Please reply ASAP.

Thanx in Advance.

Dhaval
  #3 (permalink)  
Old April 24th, 2007, 05:20 PM
Registered User
 
Join Date: Apr 2007
Location: , , .
Posts: 3
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via MSN to Lenry
Default

Hello,

This exanple is for an epson TM-T88 printer Opening a Cashbases cash drawer. I hope it helps

If Option1.Value = True Then
    MSComm1.CommPort = 1
    ElseIf Option2.Value = True Then
    MSComm1.CommPort = 2
    End If
MSComm1.PortOpen = True
MSComm1.Output = Chr$(27) & "p" & 0 & vbCrLf
MSComm1.Output = Chr$(27) & "@"
MSComm1.PortOpen = False
End Sub
'Draw Kick Pin 2



Similar Threads
Thread Thread Starter Forum Replies Last Post
Cash Register arcadium Java GUI 0 August 2nd, 2008 10:24 PM
accessing Electronic Cash Register memory programmer.cse BOOK: Excel 2003 VBA Programmer's Reference 0 July 23rd, 2008 03:53 PM
Controling Cash Register With VBA Code wkalo Access ASP 5 July 22nd, 2008 07:07 PM
browser detection Adam H-W Javascript 0 January 20th, 2007 09:55 AM
Cash Register web form activexcode Classic ASP Basics 4 October 3rd, 2004 05:01 AM





Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.