title image


Smiley Re: Empfang von Daten über serielle Schnittstelle
Hallo Martin,hier ein Codebeispiel, mit dem Du Daten zur seriellen Schnittstelle sendest bzw. von welche empfängst. Einfach das MSComm-Control in Deine Form einbinden.Dim sInput as String ' Schnittstelle initialisieren und öffnen MSComm1.CommPort = "1" MSComm1.InputLen = 0 MSComm1.Settings = "9600,N,8,1" ' (beispielsweise) MSComm1.PortOpen = True ' Daten an COM1 senden With MSComm1 .Output = Chr(16) .InBufferCount = 0 End With ' Daten von COM1 empfangen ' (in diesem Fall solange einlesen, bis 13 Zeichen ' angekommen sind). Do sInput = sInput & MSComm1.Input Loop Until Len(sInput) > 13 ' Schnittstelle wieder schließen MSComm1.PortOpen = FalseGruß Jürgen

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: