Hallo,
ich bin Neueinsteiger in VB 2005.
Mit folgenden Programmzeilen möchte ich einen String an den COM-Port senden.
Der String muss mehrfach gesendet werden, was ich hier erst mal in einer For-Next Schleife versucht habe.
Das Programm funktioniert auch soweit, nur das die Übertragung viel zu langsamm geht.
Liegt das am Programmaufruf über CALL?
Sehe ich das richtig das die Schnittstelle jedesmal "geöffnet" und "geschlossen" wird?
Sub SendSerialData(ByVal data As String)
' Send strings to a serial port.
Using com1 As IO.Ports.SerialPort = _
My.Computer.Ports.OpenSerialPort("COM3")
com1.WriteLine(data)
End Using
End Sub
Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
For schritt = 0 To 20
Call SendSerialData("#:+#")
Next schritt
End Sub
End Class
VIELEN DANK FÜR EINE INFO
ich bin Neueinsteiger in VB 2005.
Mit folgenden Programmzeilen möchte ich einen String an den COM-Port senden.
Der String muss mehrfach gesendet werden, was ich hier erst mal in einer For-Next Schleife versucht habe.
Das Programm funktioniert auch soweit, nur das die Übertragung viel zu langsamm geht.
Liegt das am Programmaufruf über CALL?
Sehe ich das richtig das die Schnittstelle jedesmal "geöffnet" und "geschlossen" wird?
Sub SendSerialData(ByVal data As String)
' Send strings to a serial port.
Using com1 As IO.Ports.SerialPort = _
My.Computer.Ports.OpenSerialPort("COM3")
com1.WriteLine(data)
End Using
End Sub
Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
For schritt = 0 To 20
Call SendSerialData("#:+#")
Next schritt
End Sub
End Class
VIELEN DANK FÜR EINE INFO