title image


Smiley Hier ein klainer ansatz...
...du hast allerdings keine DataReceive Events...wenn du das willst kanst du die Objekte nicht dynamisch erstellen! Dann müstest du fix für jeden Port ein Objekt erstellen...



Du kannst natürlich auch manuell prüfen ob Daten empfangen wurden und diese dann einlesen...per Timer etc..



Viel Erfolg damit!



Dim oPorts() As System.IO.Ports.SerialPort

Dim i As Integer

Dim iAnzahlPorts As Integer



iAnzahlPorts = 10



ReDim oPorts(iAnzahlPorts)



For i = 0 To iAnzahlPorts

oPorts(i) = New System.IO.Ports.SerialPort

oPorts(i).BaudRate = 9600

oPorts(i).PortName = "COM1"

oPorts(i).Parity = IO.Ports.Parity.None

oPorts(i).DataBits = 1

oPorts(i).Handshake = IO.Ports.Handshake.None

oPorts(i).Open()

Next


SAmUle aus dem Schwabenland
P.s.
Bibel - Mattäus 7,8 Denn wer bittet, der empfängt; und wer sucht, der findet; und wer anklopft, dem wird aufgetan.


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: