BUZZER DA BEMATECH MP4000

FERDEAD 03/02/2012 18:55:33
#394071
Olá !

preciso acionar o buzzer da impressora mp4000 da bematech, porém, peguei o exemplo no site deles:
(http://partners.bematech.com.br/2011/07/edicao-76-acionando-o-buzzer-na-impressora-nao-fiscal/)

iTempoLigado = 500
iTempoDeligado = 500
iVolume = 1

cCMD = chr(27) + chr(40) + chr(65) + chr(4) + chr(0) + chr(49) + chr( iTempoLigado ) + chr( ( iTempoDeligado * 256 ) ) + chr( iVolume )

iRetorno = ComandoTX(cCMD, len(cCMD))


Porém na linha

cCMD = chr(27) + chr(40) + chr(65) + chr(4) + chr(0) + chr(49) + chr( iTempoLigado ) + chr( ( iTempoDeligado * 256 ) ) + chr( iVolume )


Resulta o erro:
Runtime Error 5: Invalid Procedure Call or Argument

o que ao meu ver é que o comando CHR está recebendo um valor maior do que 255...

o que está de errado ?

quando eu coloco os valores tudo [Ô]1[Ô] a impressora dispara um som de uns 12 segundos contínuo...
JOAO.PERSONAL 04/02/2012 19:01:39
#394082 Resposta escolhida
Boa noite,

O exemplo como esta da erro mesmo faz o seguinte:


iTempoLigado = 255
iTempoDeligado = 2
iVolume = 1
cCMD = Chr(27) + Chr(40) + Chr(65) + Chr(4) + Chr(0) + Chr(49) + Chr(iTempoLigado) + Chr(iTempoDeligado) + Chr(1)
iRetorno = ComandoTX(cCMD, Len(cCMD))

O buzzer deve funcionar por uns 2 segundos, caso queira mais tempo é só aumentar a variavel iTempoDeligado ( no maximo em 255).

Um abraço.
FERDEAD 06/02/2012 15:31:39
#394099
obrigado, João !!

foi certinho...
Tópico encerrado , respostas não são mais permitidas
Voltar