Porta Com1

[cassitos]

Bom dia,

galera estou precisando fazer um sistema para receber informações da porta COM1 (RS232).

O leitor de cheques é do modelo L50 da DataCheck. Acessei o site da fabricante mas não há uma documentação do produto, e não sei q comando enviar a string de inicialização para o leitor, ou até mesmo receber informações da COM1.

alguém sabe algum site ou como fazer esta comunicação?

Já tentei várias funções do objeto MSComm, mas não obtêm resposta...

entre os testes já fiz:

http://www.macoratti.net/vb_comm.htm, http://www.macoratti.net/vbserial.htm. Entre outros...

vlw

[Fgr]

Po cara eu nunca usei o Leitor de Cheques mas possivelmente deve ser como as impressoras fiscais... O fabricante deve fornecer algum driver para ser usado em conjunto a sua aplicação...

[Decio]

Sem o protocolo de comunicação fica mais dificil.

A maioria das leitoras funciona de uma forma simples. Basta você abrir a serial e ao passar um cheque, a leitora já envia os dados.Voce pode pegar o que esta sendo enviado assim:

Private Sub MSComm1_OnComm()
   
 Select Case MSComm1.CommEvent
        Case comEvReceive
            Dim buffer As Variant
            buffer = MSComm1.Input
            Buffers = StrConv(buffer, vbUnicode) 
        end select
  end sub

Use o exemplo do Macoratti ou do VBTerm que é um prg exemplo que vem junto com o VB.

O que pega mais é iniciar a leitora corretamente com a velocidade,paridade e stop Bits , etc.. E alguns tipos usam um protocolo mais elaborado, tipo usar sinais de controle para poderem enviar\receber dados, enviar algum caracter para confirmar que recebeu dados corretamente. Tente achar o protocolo que vai facilitar muito.

[cassitos]

vlw pessoal, imaginei mesmo isso... o cliente possui este leitor que funciona num programa em DOS, mas não existe nenhuma documentação/manual ou qualquer outra informação que possa ajudar na configuração.

vou tentar entrar em contato com o fabricante.

vlws!

[cassitos]

tipo entrei em contato com o fabricante e ofereceram um cabo p/ conectar ao teclado em vez da com1...

estive fazendo uns testes e acredito estar bem perto de resolver...

não sei os comandos equivalentes ao ETX (fim de transmissão) e STX (início de transmissão), tipo qual comando passar assim:

MSComm1.Output = [comando equivalente ao STX], já tentei VbCr

MSComm1.Output = [comando equivalente ao ETX]

mas na verdade sei absolutamente nada destes comandos

alguém conhece alguma referência? to pesquisando na net mas nada ainda...

vlw

Editado Agosto 9, 2005 por cassitos

[cassitos]

dae galera!!! problema resolvido! vlw ae!!

STX = Chr(2)

ETX = Chr(3)

o restante é administrar a porta serial.