Stregkode fra Comport med MsComm

hvad er det for noget udstyr du har på din com port?
Hvilken type stregkode skal du skrive?

Jeg har en håndscanner, der udlæser i plaintekst... jeg skal bare have den til at holde øje med porten, og skrive det ind i en label, når den finder noget

MSComm1.CommPort = 3
  MSComm1.Settings = "9600,N,8,1"
  MSComm1.InputLen = 0
  MSComm1.PortOpen = True
  TT = ""
Do
        Tstr = MSComm1.Input
        if Tstr = chr(13) then ' hvis skanneren sender en return til slut, ellers ret
        label1.text = TT
        exit do
      end if
        TT = TT & Tstr
      DoEvents ' hvis den skal lave andet imens
      Loop  'vent på svar"

MSComm1.PortOpen = false

Husk
MSComm1.RTreshold=1
og brug så
MSComm1_OnComm event'en til at trigge indlæsningen
Herinde skriver du:
if MSComm1.input="" then exit sub
stregkode=""
do
  stregkode=stregkode & MSComm1.input
loop until MSComm1.inbuffercount=0
label1 = stregkode

Kebab... Opret et svar.... I har begge svarret rigtigt (og tak for det ;), så i må dele pointene...

ok.... læste måske en smule hurtigt.... Kebab = Kabbak

et svar ;-))