barkod okuma

[muammerturkmen]

arkadaşlar yeni model usb barkod okuma cihazlarında nasıl barkod okutacağım hakkında yardımcı olabilirmisiniz

[Revlis]

Bu soru forumda çok fazla soruldu arama işlevini kullanırsanız, sorularınızdan önce iyi olur.

Barkod okuma cihazları okudukları sayıyı , klavye gibi yazar. O anda imleç yazı yazılabilecek neredeyse barkod oraya yazılır.
Yani sizin ekstra bir kod yazmanıza gerek yokturç

[Cekici]

Revlisin dediği doğrudur ama PS2 girişinde oluyor fakat Com1 de olmadığı için aşağıdaki kodu yazdım ve oldu. düşündüğüm kadarı ile USB portları içinde bu geçerli...

Private Sub MSComm1_OnComm()
    If MSComm1.InBufferCount > 0 Then
          Dim Barcode As String
          Barcode = Barcode & MSComm1.Input
          Me.Text1.Text = veri
    End If
End Sub