Início![[Resolvido]Acionar Gaveta Empty](https://2img.net/i/empty.gif)
Agravina 7/6/2013, 17:53como fazer para ,abrir gaveta automatica via código?
3 participantes
[Resolvido]Acionar Gaveta
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Veja se serve;
- Anexos
![[Resolvido]Acionar Gaveta Attachment](https://2img.net/i/fa/attachment.png)
AbraGaveta.zip - Você não tem permissão para fazer download dos arquivos anexados.
- (14 Kb) Baixado 147 vez(es)
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
![[Resolvido]Acionar Gaveta Folder_announce_new](https://2img.net/i/fa/subsilver/folder_announce_new.gif)
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Mestre JPaulo, infelizmente não funcionou!
Fernando Bueno- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2115
Registrado : 13/04/2012
Boa tarde senhores.
O exemplo acima no meu computador funcionou.
O exemplo acima no meu computador funcionou.
.................................................................................
Um abraço
Fernando Bueno
O aumento do conhecimento é como uma esfera dilatando-se no espaço
quanto maior a nossa compreensão,
maior o nosso contacto com o desconhecido
quanto maior a nossa compreensão,
maior o nosso contacto com o desconhecido
![[Resolvido]Acionar Gaveta 16rzeq](https://2img.net/h/oi61.tinypic.com/16rzeq.gif)
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Qual a versão do seu SO ?
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
XP
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Consegui junto ao fornecedor da gaveta ,mas preciso adptar o código vb
Quem quiser ajudar veja o Exemplo
Quem quiser ajudar veja o Exemplo
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Preciso codigo para abrir gaveta de dinheiro automatica
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Este é o código exemplo do fabricante.
Como adptar ´para meu sistema
Onde coloco as DLL
'' \WinNT ou \WinNT\system ''
'' O projeto deve ser compilado em ''
'' "P-code" ''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' Este codigo-fonte pode ser copiado livremente ''
'' e incorporado a softwares que utilizem as ''
'' GAVETAS MENNO MGI ''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
'DECLARACAO DAS FUNÇÕES DA GHDL32.DLL
'PARA INTERFACE COM A GAVETA MENNO MGI
Private Declare Function GavetaConfigura Lib "Ghdl32" (ByVal pulso As Integer,
ByVal min As Integer) As Long
Private Declare Function DriverGaveta Lib "Ghdl32" (ByVal p As Integer, ByVal f As
Integer) As Long
'Declaracao da variavel que indica a porta serial
Public serial As Integer
'Declaracao das variáveis para configuracao da GAVETA MENNO
Public m1, p1 As Integer
'Constantes de parametros da funcao DriverGaveta
Const GAVETA_INICIALIZA = 1
Const GAVETA_ABRE = 2
Const GAVETA_ESTADO = 3
Private Sub btn_aciona_Click()
Como adptar ´para meu sistema
Onde coloco as DLL
'' \WinNT ou \WinNT\system ''
'' O projeto deve ser compilado em ''
'' "P-code" ''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' Este codigo-fonte pode ser copiado livremente ''
'' e incorporado a softwares que utilizem as ''
'' GAVETAS MENNO MGI ''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
'DECLARACAO DAS FUNÇÕES DA GHDL32.DLL
'PARA INTERFACE COM A GAVETA MENNO MGI
Private Declare Function GavetaConfigura Lib "Ghdl32" (ByVal pulso As Integer,
ByVal min As Integer) As Long
Private Declare Function DriverGaveta Lib "Ghdl32" (ByVal p As Integer, ByVal f As
Integer) As Long
'Declaracao da variavel que indica a porta serial
Public serial As Integer
'Declaracao das variáveis para configuracao da GAVETA MENNO
Public m1, p1 As Integer
'Constantes de parametros da funcao DriverGaveta
Const GAVETA_INICIALIZA = 1
Const GAVETA_ABRE = 2
Const GAVETA_ESTADO = 3
Private Sub btn_aciona_Click()