MSCOM

USUARIO.EXCLUIDOS 27/12/2004 01:26:45
#57078
Estou com o seguinte problema, etou usando uma leitora de codigo de barras serial, poi bem, coloquei um mscom, em um formulário quando o envento OnComm e diparado um txt recebem o MSComm1.Input.
Public x,y,z as string

x = x & MSComm1.Input
If x = "" Then Exit Sub
y = x
y = y - 3
If x = "" Then Exit Sub
Z = Mid(x, 2, y)

TxtCodigo.Text = Z

o meu proble e o seguinte quado eu faço a primeira pesquiza esta tudo bem, mas
quando eu faço a segunda ou a terceira o meu txt recebe o txt mais o x,.
já tentei limpar o x, o y eo z e também o proprio txt, mas não funciona.
LCSD 27/12/2004 10:51:52
#57108 Resposta escolhida
Osvaldo

Se você colocar quais os valores do X, Y e Z iniciais e finais poderemos te ajudar.

Coloque pelo menos 2 valores para cada um e as rotinas em que eles são alimentados.
[s50]
LCSD 27/12/2004 11:00:31
#57114
Osvaldo

Desculpe, mas sem o Código aqui não tem como ajudar, por favor, coloque que auxiliaremos.
[s50]
LCSD 27/12/2004 11:10:59
#57117
Osvaldo

Em que EVENTO está este código?
[s50]
LCSD 27/12/2004 11:24:27
#57121
Osvaldo

Digamos que o Número Máximo de caracteres seja 13 e você tenha que descartar 3 pelo código acima, certo?


Private Sub Text1_Change()
Dim iLen As Integer
    x = x & Text1.Text
    If Len(x) < 13 Then Exit Sub
    iLen = Len(x) - 3
   Label1.Caption =  Right(x, iLen)
    x = ""
    Text1.Text = ""
End Sub


Esta rotina testei Evento Change de uma TextBox, deve te servir.
[s50]
Tópico encerrado , respostas não são mais permitidas
Voltar