[Gambas-user] Ask about com access

[Leo Sendra]

Hi Jose.. If you don't mind, would you like to send me a code in Gambas??
I really need a code to open cash drawer...

I really appreciate for your help...

Thanks...

>Hi all! I also wrote a program pos in gambas :)
>I open the cash drawer as follows:


>C (constants): Gambas module file
>---------------------------------
>PUBLIC codeopencash AS String = ""
>....
>codeopencash=Chr$(27) & Chr$(112) & Chr$(0) & Chr$(27) & Chr$(112) & Chr
>$(1)
>.....



>F (functions): Gambas Module File
>---------------------------------

>PUBLIC SUB abrir_caja()

>DIM hFile AS File

>hFile = OPEN "/dev/lp0" FOR WRITE
>IF ERROR THEN 
>  message.Error("No se puede acceder a la Caja")
>ELSE 
>   WRITE #hFile, Eval(c.codeopencash)
>END IF

>END


>Regards!


      Menambah banyak teman sangatlah mudah dan cepat. Undang teman dari Hotmail, Gmail ke Yahoo! Messenger sekarang! http://id.messenger.yahoo.com/invite/