zwei HEX blöcke senden ..

M.P. · 22. Oktober 2011, 12:22

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

ich habe folgendes Problem, ich möchte gerne in einer PRIVATE SUB, zwei getrennte HEX Blöcke
versenden und zwar so dass diese einzeln versendet werden, also block eins neue Zeile zweiter block.

Block1 01 06 00 03 00 00 79 CA

Block2 01 06 00 04 00 0B 89 CC

Könnte mir da jemand auf die Sprünge helfen, Danke im Voraus !!!!!!

Leseratte · 22. Oktober 2011, 12:49

Und wohin senden?

M.P. · 22. Oktober 2011, 13:02

Versendet wird das Ganze dann per Serial, oder hast du was anderes gemeint?

also ich drücke den Button, und er soll die zwei Blöcke voneinander getrennt senden ....

So habe ich versucht, aber da schreibt er mir sie Hintereinander, logisch eigentlich ...

Quellcode

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Try
' Sequenz für Lammelenwinkel 0% (01 06 00 03 00 00 79 CA)in HEX
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() {&H3}, 0, 1)
SerialPort1.Write(New Byte() {&H0}, 0, 1)
SerialPort1.Write(New Byte() {&H0}, 0, 1)
SerialPort1.Write(New Byte() {&H79}, 0, 1)
SerialPort1.Write(New Byte() {&HCA}, 0, 1)
' Sequenz für den Startbefehl (01 06 00 04 00 0B 89 CC)in HEX
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() {&H4}, 0, 1)
SerialPort1.Write(New Byte() {&H0}, 0, 1)
SerialPort1.Write(New Byte() {&HB}, 0, 1)
SerialPort1.Write(New Byte() {&H89}, 0, 1)
SerialPort1.Write(New Byte() {&HCC}, 0, 1)
Catch ex As Exception
MsgBox("keine Verbindung")
End Try
End Sub

jvbsl · 22. Oktober 2011, 13:12

Dann schreib das am besten in zwei getrennte Subs, machts aufjedenfall mal übersichtlicher...
Und warum jedesmal ein ByteArray erzeugen, wenn es einmalig für einen Block reicht?!

VB.NET-Quellcode

Sub SendLammelenwinkel()
Dim block() As Byte = New Byte() {&H01, &H06, &H00, &H03, &H00, &H00, &H7, &HCA}
SerialPort1.Write(block,0,block.Length)
End Sub

dasselbe natürlich noch für die Startbefehlsequenz...
bei einem Zeilenumbruch ist die Frage, willst du nur LineFeed oder LineFeed mit Carriage Return, oder gar nur Carriage Return?...
für CR sendest du follgendes Byte(Hex):

Quellcode

0D

für LF sendest du:

Quellcode

0A

für CRLF:

Quellcode

0D, 0A

M.P. · 22. Oktober 2011, 13:33

Ok gebe ich zu der Code ist wesentlich kürzer, nur das mit den subs verstehe ich nicht ganz, sicher kann ich die zwei sequenzen in zwei sub verpacken,
aber wie soll ich die dann mit einen Button ansprechen ???

der erste Hex block sagt dem Kontroller was er zu tun hat,
der zweite block gibt ihn dann den befehl es zu tun

Samus Aran · 22. Oktober 2011, 14:20

lol, pack die beiden Sub-Aufrufe einfach untereinander ins Button_Click-Event

M.P. · 22. Oktober 2011, 14:31

ok, das mit den sub habe ich hinbekommen, aber wie soll ich jetzt den zeilen sprung mit einbinden, egal was ich versuche er giebt es mir immer als Hex wert wieder ....

Quellcode

Sub LamelleStart()
' 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)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Try
' Sequenz für Lammelenwinkel 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}
Dim sp() As Byte = New Byte() {&HD, &HA}
SerialPort1.Write(block, 0, block.Length)
SerialPort1.Write(sp, 0, sp.Length)
LamelleStart()
Catch ex As Exception
MsgBox("keine Verbindung")
End Try
End Sub

Danke schoneinmal fü die Tips !!!!!!

Samus Aran · 22. Oktober 2011, 14:38

Wenn LamelleStart VOR den anderen Befehlen gesendet werden soll, musst du die Sub natürlich auch vorher ausführen.

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

jep, das weis ich, das ist aber nicht das problem, denn die reinenfolge stimmt, das problem ist das beide blöcke hineinander in einer zeile erscheinen und darf nicht sein,

Lamellenwinkel 0%, neue Zeile
LamellenStart

Quellcode

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}
Dim sp() As Byte = New Byte() {&HD, &HA}
SerialPort1.Write(block, 0, block.Length)
SerialPort1.Write(sp, 0, sp.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

der Code soll dazu dienen eine Jalousie zu Steuern ....

Samus Aran · 22. Oktober 2011, 14:44

Hat die SerialPort-Klasse ne WriteLine-Methode?

M.P. · 22. Oktober 2011, 14:49

ich denke schon, zumindestens kann ich auch was senden über diesen Befehl

Samus Aran · 22. Oktober 2011, 14:52

Dann nutz die anstatt .Write.

M.P. · 22. Oktober 2011, 14:57

und wo liegt da der Unterschied ????

Tsuyo · 22. Oktober 2011, 15:06

WriteLine schickt noch ein weiteres Bytes mit das Zeigt, dass nichts mehr geschickt wird

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

ja das habe ich gerade nachgelesen, aber es geht nicht, bekomme eine Fehlermeldung " zu fiele Argumente"

SerialPort1.WriteLine(block, 0, block.Length)

Samus Aran · 22. Oktober 2011, 15:50

Dann guck dir mal an, wie viele Argumente WriteLine nimmt. IntelliSense ftw.

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

hab ich laut hilfe ..

Parameter

FileNumber Erforderlich. Ein Integer-Ausdruck mit einer beliebigen gültigen Dateinummer.
Output Optional. Mindestens ein durch Komma getrennter Ausdruck, der in eine Datei geschrieben wird.

ok, aber es geht trozdem nicht, oder ich gebe die argumente falsch ein ...
eine kleine hilfe wäre nicht schlecht ..

Samus Aran · 22. Oktober 2011, 16:06

Ich weiß ja nicht, wo du geguckt hast, lol.
cl.ly/BBl3

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

in der hilfe von vb.net, sei mir bitte nicht böse aber damit kann ich nichts anfangen, denn der text ligt ja in vor einer Var. vor Dim block ... , er will aber das ich
ihn als string makiere, er soll aber den inhalt von block senden, oder verstehe ich da was falsch ...

zwei HEX blöcke senden ..

zwei HEX blöcke senden ..

Quellcode

VB.NET-Quellcode

Quellcode

Quellcode

Quellcode

Quellcode

Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben