Fehler beim Senden von Hex werten über den Serial Port ..

M.P. · 22. Oktober 2011, 08:29

Hallo zusammen, ich hoffe mir kann einer auf die Sprünge helfen ......

ich habe folgendes Problem,

ich versuche über den Serial Port eine hex Kette zu versenden, (01 06 00 02 01 F4 28 1D), das klappt auch soweit, mein Problem ist das die Gegenseite die Werte nicht erkennt!?
Sende ich dieselben Werte über ein Externes Programm (Comm Operator), werde diese erkannt und auch Bestätigt!

Auch wenn ich mir den Mitschnitt ansehe, erkenne ich keine Fehler, was das Telegramm betrifft.

Quellcode

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
SerialPort1.Encoding = System.Text.Encoding.GetEncoding(28591) 'Bitweise Senden
SerialPort1.Open()
SerialPort1.Write(New Byte() {&H1}, 0, 1)
SerialPort1.Write(New Byte() {&H6}, 0, 1)
SerialPort1.Write(New Byte() {&H0}, 0, 1)
SerialPort1.Write(New Byte() {&H2}, 0, 1)
SerialPort1.Write(New Byte() {&H1}, 0, 1)
SerialPort1.Write(New Byte() {&HF4}, 0, 1)
SerialPort1.Write(New Byte() {&H28}, 0, 1)
SerialPort1.Write(New Byte() {&H1D}, 0, 1)
Catch ex As Exception
MsgBox("keine Verbindung")
End Try
If SerialPort1.IsOpen = True Then
SerialPort1.Close()
End If
End Sub

Danke im Voraus .....

Manawyrm · 22. Oktober 2011, 09:12

1D ist jetzt eigendlich kein besonderes Steuerkommando oO
Laut meiner ASCII Tabelle ein "Group Seperator"

Gruß,
Manawyrm

M.P. · 22. Oktober 2011, 09:21

Danke, aber es war mein Fehler, habe die Anzeige Falsch gedeutet, es hat nichts mit dem Letzten HEX wert zu tun ..
Es liegt wahrscheinlich daran, dass die Werte nicht als HEX Werte von der Gegenseite Erkannt werden!?

petaod · 22. Oktober 2011, 14:31

Serial-Port auf 8-Bit umstellen!

M.P. · 22. Oktober 2011, 15:42

ok, und wie stelle ich das an ...

petaod · 22. Oktober 2011, 16:32

msdn.microsoft.com/en-US/libra…atabits%28v=VS.80%29.aspx

Die Parity musst du dann wahrscheinlich auf None setzen.

Wichtig ist, dass die Leitungsparameter auf beiden Seiten gleich sind, sonst verstehen sich die Partner nicht.
Baudrate, Bits, Parity, DSR/DTR, RTS/CTS...

Vergleiche die Einstellungen auf beiden Seiten und passe sie entsprechend an.
msdn.microsoft.com/en-US/libra…perties%28v=VS.80%29.aspx

M.P. · 22. Oktober 2011, 16:42

ok da komme ich jetzt nicht ganz mit, denn mit Komikation habe ich ja keine Propleme, sondern nur das zwei telegramm gleichzeitg versendet werden, ich aber mochte das die telegramme hineinander versendet werden

telegramm 1
telegramm 2

entweder durch einen zeilenbruch oder andere möglichkeiten wenn es welche gibt..

RodFromGermany · 22. Oktober 2011, 18:27

Wie wäre es mit

VB.NET-Quellcode

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim daten() As Byte = {&H1, &H6, &H0, &H2, &H1, &HF4, &H28, &H1D}
'SerialPort1.Encoding = System.Text.Encoding.GetEncoding(28591) 'Bitweise Senden
SerialPort1.Open()
SerialPort1.Write(daten, 0, daten.Length)
SerialPort1.Close()
Catch ex As Exception
MsgBox("keine Verbindung")
End Try
End Sub

Wenn Du Bytes sendest, brauchst Du kein Encoding.

M.P. · 22. Oktober 2011, 18:41

jep, soweit habe ich den Code schon geändert, ich poste mal das ganze ....

Quellcode

Public Class Status
Private Sub Status_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
' PORT wird Geöffnet (COM3 / BAUD 19600)
SerialPort1.Open()
Catch ex As Exception
MsgBox("Keine Schnittsteller Vorhanden oder Frei ....")
End Try
End Sub
'####################################
'######## AUF und Ab Fahrt ########
'####################################
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTauf.Click
Try
' Sequenz zum AUF Fahren des Motors (01 06 00 04 00 03 88 0A)in HEX
Dim block() As Byte = New Byte() {&H1, &H6, &H0, &H4, &H0, &H3, &H88, &HA}
SerialPort1.Write(block, 0, block.Length)
Catch ex As Exception
MsgBox("keine Verbindung")
End Try
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTstop.Click
Try
' Sequenz zum Stoppen der Fahrt des Motors (01 06 00 04 00 02 49 CA)in HEX
Dim block() As Byte = New Byte() {&H1, &H6, &H0, &H4, &H0, &H2, &H49, &HCA}
SerialPort1.Write(block, 0, block.Length)
Catch ex As Exception
MsgBox("keine Verbindung")
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTab.Click
Try
' Sequenz zum AB Fahren des Motors (01 06 00 04 00 04 C9 C8)in HEX
Dim block() As Byte = New Byte() {&H1, &H6, &H0, &H4, &H0, &H4, &HC9, &HC8}
SerialPort1.Write(block, 0, block.Length)
Catch ex As Exception
MsgBox("keine Verbindung")
End Try
End Sub
'################################################
'############## Referenz ################
'################################################
Private Sub ReferenzfahrtToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReferenzfahrtToolStripMenuItem.Click
Try
' Sequenz für Referenzfart des Motors (01 06 00 04 00 01 09 CB)in HEX
Dim block() As Byte = New Byte() {&H1, &H6, &H0, &H4, &H0, &H1, &H9, &HCB}
SerialPort1.Write(block, 0, block.Length)
Catch ex As Exception
MsgBox("keine Verbindung")
End Try
End Sub
'################################################
'############ Lamellenwinkel ################
'################################################
Sub LamelleStart()
Try
' Sequenz für den Startbefehl (01 06 00 04 00 0B 89 CC)in HEX
Dim start() As Byte = New Byte() {&H1, &H6, &H0, &H4, &H0, &HB, &H89, &HCC}
SerialPort1.Write(start, 0, start.Length)
Catch ex As Exception
MsgBox("keine Verbindung")
End Try
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Try
' Sequenz für Lamellenwinkel 0% (01 06 00 03 00 00 79 CA)in HEX
Dim block() As Byte = New Byte() {&H1, &H6, &H0, &H3, &H0, &H0, &H79, &HCA}
SerialPort1.Write(block, 0, block.Length)
'LamelleStart()
Catch ex As Exception
MsgBox("keine Verbindung")
End Try
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Try
' Sequenz für Lamellenwinkel 50% (01 06 00 03 01 F4 79 DD)in HEX
Dim block() As Byte = New Byte() {&H1, &H6, &H0, &H3, &H1, &HF4, &H79, &HDD}
SerialPort1.Write(block, 0, block.Length)
Catch ex As Exception
MsgBox("keine Verbindung")
End Try
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Try
' Sequenz für Lamellenwinkel 100% (01 06 00 03 03 E8 79 74)in HEX
Dim block() As Byte = New Byte() {&H1, &H6, &H0, &H3, &H3, &HE8, &H79, &H74}
SerialPort1.Write(block, 0, block.Length)
Catch ex As Exception
MsgBox("keine Verbindung")
End Try
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'' Sequenz für den Startbefehl (01 06 00 04 00 0B 89 CC)in HEX
LamelleStart()
End Sub
Private Sub EXITToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EXITToolStripMenuItem.Click
Close()
End Sub
Private Sub Status_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
' Es wird Geprüft ob der Port geöffnet ist, wenn ja wird er Geschlossen
If SerialPort1.IsOpen = True Then
SerialPort1.Close()
End If
End Sub
End Class

wie gesagt das proplem besteht darin zwei telegramme mit einen Bottun zu versenden ...

also
telegramm 1
telegramm 2

und nicht
telegramm 1 telegramm2

habt ihr da eine lösung für mich, wäre super ...

danke schoneinmal im voraus ...

RodFromGermany · 23. Oktober 2011, 11:04

Verwende bitte den [vb]-Tag, nicht den [code]-Tag.
Kannst Du bitte das Problem genauer beschreiben?

M.P. · 23. Oktober 2011, 13:06

hallo, ok werd ich das nächste mal machen ...

also ich möchte gerne das ich mit einen Button zwei Telegramme versenden kann, und zwar so das sie jeweils in einer eigen zeile Steht ...

telegramm 1 .. besagt was zu tun ist (01 06 00 04 00 03 88 0A )
telegramm 2 .. besagt mach es nun (04 06 00 04 00 03 88 5F)

mein problem ist das ich zwar die Telegramme versenden kann, aber das sie dann hineinander stehen und somit kann mein Kontroller damit nichts anfangen kann,
da er meint das es ein Telegramm ist.

Lege ich jedes Telegramm für sich auf ein Button klappt alles, ich möchte es gerne aber, so das es über einen Funktioniert ...

Danke im Voraus ...

petaod · 23. Oktober 2011, 13:59

Du musst rauskriegen, welchen Separator der Controller erwartet.
Ist es einfach ein vbLf oder vbCr oder vbCrLf, das du hinten anfügen musst?
Musst du das Telegramm einpacken in STX/ETX?
Oder ist es ein noch komplizierteres Protokoll?

Lies das Handbuch deines Controllers.

Die Tatsache, dass es mit dem Konsolprogramm geht, lässt eventuell auf das Anfügen von CR=vbCr=Chr(13)=&H0D schließen.

M.P. · 23. Oktober 2011, 14:51

also die hex werte die ich dir mit gesendet habe sind orginale, heist ich habe sie mit geschnitten ....

auch wenn beim siniefer zwischen DEC/HEX/Text umschalte, erhalte ich keine Andere Hex werte und
wie gesagt wenn ich die Telegramme auf zwei Buttons verteile geht es ja, es geht nur darum zwei Telegramm über einen
Button einzeln zu versenden, spich das dann ein Zeilenbruch erfolgt.

das mit Anhängen vom Zeilenbruch habe ich auch schon Versucht, Klapt aber nicht ?!

SerialPort1.Write(P1auf1, 0, P1auf1.Length & vbCrLf)

oder wie müsste die Richtige Syntax Ausehen, wenn ich oben Verwenden möchte ?????

es ist ein einfachen Modbus Protokoll !

petaod · 23. Oktober 2011, 15:02

Möglicherweise reagiert der Controller auf einen Timeout.
Versuch mal einen kurzen Sleep zwischen den Telegrammen.

es ist ein einfachen Modbus Protokoll

Im RTU-Modus ist der Trenner eine Wartezeit von 3,5 Zeichen.
de.wikipedia.org/wiki/Modbus

M.P. · 23. Oktober 2011, 15:04

und wie mache ich das ????

petaod · 23. Oktober 2011, 15:10

msdn.microsoft.com/de-de/library/d00bd51t.aspx

3,5 Zeichen sind bei 8 Bit/Zeichen 28 Bit.
Bei 9600 Bit/s sind 28 Bit ungefähr 3 ms.
Also:

VB.NET-Quellcode

Thread.Sleep(3)

Wobei ich aus Sicherheitsgründen etwas länger warten würde.

RodFromGermany · 23. Oktober 2011, 15:50

Ich glaube eher, dass da im Protokoll noch was fehlt. Die beiden Zeilen müssten wenigstens die gleichen Ende-Zeichen oder Ende-Sequenzen haben.
Was passiert denn, wenn Du das Protokoll im Einzelschrittmodus ablaufen lässt?
Haltepunkt (F9) auf die 1. Zeile und dann mit F10 weitergehen.

petaod · 23. Oktober 2011, 16:00

Berechnest du den CRC eigentlich selbst oder verwendest du nur fixe Telegramme?

M.P. · 23. Oktober 2011, 17:58

ok, ersteinmal danke, das war ein super tip und es geht super ..
wenn du willst kannst dir mal das ganze projet ansehen........

Ziel ist es 4Motoren entweder einzeln oder gemeinsamm zu bedienen, auf,stop,ab - 0%,50%,100% funktioniert schon, dank deiner hilfe ...

der rest kommt auch noch was den status und so weiter betrifft ...

was mich jetzt noch stört sind de Abfrage für die checkboxen, das könnte man bestimmt eleganter lösen ...

leider kann ich dir den code nicht senden, angeblich zu groß oder zu fiele zeilen ....

PS. hab doch einen weg gefunden ....

M.P. · 25. Oktober 2011, 06:58

sorry habs erst jetzt gelesen, soeol auch auch, in dieser phase sind es fixe telegramme, später sollen es dann über die berechnung gehen,
wobvei ich mir noch nicht ganz klar bin wie ich das bewerstelligen soll!!!

hast du dir das projekt mal angesehen???
und wenn ja was würdest du anders machen !???

Fehler beim Senden von Hex werten über den Serial Port ..

Fehler beim Senden von Hex werten über den Serial Port ..

Quellcode

VB.NET-Quellcode

Quellcode

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben