• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

rui_fernandes

Leitura de codigo de barras

7 mensagens neste tópico

boa tarde,

estou prestes a desenvolver uma aplicacao em que vai ser usado um leitor de codigo de barras.

disseram-me que nao teria muitos problemas com isso, pk era facil trabalhar com aquilo.

imaginem que se tiver uma caixa de texto com o focus activo, ele escreve la o codigo de barras...

como se escrevessem no teclado...ali so le e escreve...

sera mesmo assim que funciona ?? ja alguem fez algo parecido ??

Rui Fernandes.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Oi,

Na verdade é mesmo fácil. Deves é colocar um timer e quando detectas novos registos ao fim de x milisegundos copias para outra caixa e apagas a que recebe. Isto porque preparas a caixa para receber informação e o timer é porque alguns scanners levam algum tempo a escrever. Normalmente a informação não aparece de seguida mas com milisegundos de atraso entre caracteres.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ja o fizest alguma vez ?

nao queres por aqui um bocado de codigo ??  :)

tanks

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Só tenho em VB6. Em .NET nunca precisei.

Queres ver ?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Bem o que eu tenho tinha de ir ler à porta RS232 mais muitos deles já escrevem directamente.

Private Sub Form_Load()                       
  Timer1.Interval = 100                       
  MSComm1.PortOpen = True                         
End Sub       

Private Sub Text1_Change()                          
  Timer1.Enabled = True                       
End Sub       

Private Sub Timer1_Timer()                          
Dim buffer As Variant                     
Timer1.Enabled = False                      

While MSComm1.InBufferCount
      buffer = MSComm1.Input
      Debug.Print "Receive - " & StrConv(buffer, vbUnicode)
      Text1.SelText = buffer
      Text1.SelStart = Len(Text1.Text)
Wend

If Trim(Text1.Text) <> "" Then
   Text2.Text = Trim(Text1.Text)
   Text1.Text = ""
End If
End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

boa tarde,

ja tenho aqui comigo o leitor de barras, ja tive a testar altamente... lol

se tiver uma textbox com o focus ele manda para la o codigo de barras, mas a duvida agora é a seguinte, eu keria que ao receber um codigo de barras, ele escrevesse na textbox caso nao tenha o focus la tas a perceber  a ideia ?

tipo, com algum evento, ou rotina nao sei, ele escrevesse na textbox...

isso é que me esta a matar a cabeca como irei fazer isso....

este leitor liga por USB...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora