Serielle Schnittstelle RS232 VBA auslesen mithilfe Visual Studio

[Tufan A. (tufaniho)]

Hallo Miteinander,

im Rahmen eines Projekts möchte ich einen PowerSupply per Remote-Zugriff 
ansteuern. Dies möchte ich in der Programmiersprache VBA und in der 
Entwicklungsumgebung Visual Studio realisieren. Leider bekomme ich keine 
Antwort vom Netzteil. Hier der Code, den ich bisher benutzt habe:

Module Module1
    Sub SendSerialData(ByVal data As String)
        ' Send strings to a serial port.
        Using com4 As IO.Ports.SerialPort =
            My.Computer.Ports.OpenSerialPort("COM4")
            com4.WriteLine(data)
            Console.WriteLine("es wurde folgender Befehl übergeben")
            Console.WriteLine(data)
            com4.Close()
        End Using
    End Sub

    Function ReceiveSerialData() As String
        ' Receive strings from a serial port.
        Dim returnStr As String

        Dim com4 As IO.Ports.SerialPort = Nothing
        Try
            com4 = My.Computer.Ports.OpenSerialPort("COM4")
            If com4.IsOpen Then
                Console.WriteLine("Port wurde geöffnet")
            End If
            Do
                Console.WriteLine("Einlesen..")
                Dim Incoming As String = com4.ReadLine() ' Ab Hier wird nichts mehr ausgegeben.. Keine Daten erhalten
                com4.ReadTimeout = 10
                If Incoming Is Nothing Then
                    Console.WriteLine("Keine Daten erhalten")

                    Exit Do
                Else
                    returnStr &= Incoming & vbCrLf
                    Console.WriteLine(Incoming)
                End If
            Loop
        Catch ex As TimeoutException
            returnStr = "Error: Serial Port read timed out."
        Finally
            If com4 IsNot Nothing Then com4.Close()
        End Try

        Return returnStr
    End Function
    Sub Main()
        SendSerialData("[:]SYSTem[<channel>]:VERSion?") 'Beispiel um irgendwas vom Netzteil zu erhalten 
        Console.WriteLine(ReceiveSerialData())
    End Sub

End Module

Habe ich hier einen Fehler eingebaut den ich nicht sehe?

Ich hoffe Ihr könnt mir weiter helfen

Viel Dank im Voraus

[nicht"Gast" (Gast)]

Moin,

"[:]SYSTem[<channel>]:VERSion?"

Damit erhälst du gar nichts vom Netzteil. Das ist kein korrekter Befehl 
und du bekommst auch keine Antwort.
Versuch mal ":SYST:VERS?"


Ach, wäre nicht schlecht mal zu verraten, was du für ein Netzteil 
benutzt. Könnte irgend wie wichtig sein.


leicht OT. mit dem VS kann man kein VBA programmieren. Das ist der 
Dialekt, der in Excel und Co implementiert ist. VBA steht für Visual 
Basic for Applications. Deine Programmiersprache heißt Visual Basic.

Bevor die Meckerer vor kommen. Das ist wie Java und JavaScript zu 
vergleichen.

[nicht"Gast" (Gast)]

Und wieder....


du solltest den Port zwischendrin nicht zumachen. Dann landen die Daten 
vom Netzteil sowieso mit hoher Warscheinlichkeit im Nirwana. Im 
Eingangspuffer landen sie nur, wenn der Port auf ist.

[Tufan A. (tufaniho)]

Hallo,

Danke erstmal für deine Antwort.
Das Netzteil heißt: PCE Power Control A12KW 40-300

Leider habe ich auch auf :SYST:VERS? keine Antwort bekommen,
auch nachdem ich das com4.close() entfernt habe.

Gibt es denn eine bessere Möglichkeit dieses Netzteil anzusteuern?

Gruß,

Tufaniho

[nicht"Gast" (Gast)]

Ja,

versuche erst mal mit einem Terminal Programm verbindung aufzunehmen.

Z.Bsp Realterm eignet sich da ganz gut. Wenn das klappt, kannst du das 
dann nachprogrammieren.


Linending ist übrigens \r und nicht \r\n. Stell das mal um.

[Tufan A. (tufaniho)]

Also,

ich kann mittlerweile Befehle an das Netzteil senden,
welche auch vom Netzteil erkannt werden. Das einzige
was nicht funktioniert ist, dass er keine Strings einlesen
kann. Er läuft immer bis zur Readline-Methode und da bleibt
er auch.

Das Netzteil sendet sicher Informationen zurück, denn wenn ich
den Befehl :SYST:ERR? ausführe, werden auf dem Netzteil-Display
alle Error-Meldungen gelöscht.

Lese ich im falschen format aus ? Oder ist die Readline-Methode
hier nicht geeignet?

Gruß,

Tufaniho

[Tufan A. (tufaniho)]

Hallo,

das Problem wurde gelöst.

Für die, die es interessiert:

Dadurch,dass 2 Funktionen aufgeruft werden, ist die Zeit die dabei 
vergeht
länger als die Antwortzeit des Netzteils.

Lösung: Nur eine Funktion, die beides gleichzeitig abhandelt

Gruß,

Tufaniho