Datenübertragung über serielle Schnittstelle

Hallo,

ich hoffe, daß man mir bei folgendem Problem auf die Sprünge helfen kann.

Ich habe eine Waage mit einer seriellen Schnittstelle. Mit hilfe eines Schalters an der Waage kann man das aktuelle Gewicht auf einen PC übertragen lassen. Dazu habe ich in Visual Basic mit dem Visual Studio ein kleines Programm erstellt, bei dem man sich das übertragene Gewicht in einem Textfeld anzeigen lassen kann. Diese Übertragung von der Waage zum PC funktioniert und es werden die korrekten Werte im Textfeld angezeigt.

Nunmehr kann man auch an der Waage zum Beispiel die Wiegeeinheit ändern (kg/g/oz usw.) und zwar in der Art, dass man an die Waage bestimmte Befehle über die serielle Schnittstelle sendet (Befehl als ASCII-Zeichen mit (ESC s) oder als HEX-Code (1B 73))

Im Programm habe ich definiert, dass beim betätigen des Button 2 die Daten übertragen werden sollen und damit der Wiegeeinheitenwechsel durchgeführt wird.

1

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

2

3

    Dim Sende1 As String = "1B73"

4

5

    SerialPort1.Write(Sende1 & vbCrLf)

6

7

End Sub

Leider wird der Einheitenwechsel nicht durchgeführt. Eine Datenübertragung über die Schnittstelle findet jedoch statt, da dies mittels LED am Schnittstellenstecker angezeigt wird. Offensichtlich wird der Befehl nicht korrekt übertragen.

Im Visual Studio gibt es den "Seriellen Monitor". Wenn ich über diesen Monitor den Befehl 1B73 senden, wird der Einheitenwechsel an der Waage vollzogen.