Gå til innhold

Anbefalte innlegg

Videoannonse
Annonse

OMG...

Private Sub Timer1_Timer() 'Timer...
Dim sData As String 'Ein timer te og lagra teksten i..
sData = MSComm1.Input 'Få tak i data'en
If Not sData = "" Then 'sjekka data ann...
   Text1.Text = sData 'printe ut dataen...
End If
End Sub

 

[EDIT] Gløte og sei at du trenge MSComm Control...

Endret av Richard87
Lenke til kommentar

Opprett en konto eller logg inn for å kommentere

Du må være et medlem for å kunne skrive en kommentar

Opprett konto

Det er enkelt å melde seg inn for å starte en ny konto!

Start en konto

Logg inn

Har du allerede en konto? Logg inn her.

Logg inn nå
×
×
  • Opprett ny...