Hallo ihr,
ich habe momentan ein Problem mit meinen Programm
Ich habe eine einfach Steuerung aufgabut (von Sprut USB4all). Diese
möchte ich gern über USB steuern können.
Dies geschieht alles über einen simulierten COM-Anschluß.
Da ich früher viel mit VB gearbeitet hab,dachte ich mir ich bekomm das
so hin.
Momentaner Stand ist:
Ich kann den COM Port öffnen.
Ich muss dem Port jetzt aber HEX-Zahlen rüberschicken
Mein Code sieht momentan so aus:
1 | Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
2 | Try
|
3 | SerialPort1.PortName = TextBox1.Text
|
4 | SerialPort1.BaudRate = TextBox2.Text
|
5 | SerialPort1.Open()
|
6 | Button1.Enabled = False
|
7 | Button2.Enabled = True
|
8 | Button3.Enabled = True
|
9 | Catch ex As Exception
|
10 | MsgBox("Verbindungsfehler!")
|
11 | End Try
|
12 | End Sub
|
13 | -------------------------------------------------------------------------
|
14 | Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
|
15 |
|
16 | If SerialPort1.IsOpen = True Then
|
17 | SerialPort1.Close()
|
18 |
|
19 | End If
|
20 | End Sub
|
21 | --------------------------------------------------------------------------------
|
22 | Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
23 |
|
24 | SerialPort1.Write("50-01-00-00-00-00-00-00-00-00-00-00-00-00-00-00" & vbCr)
|
25 | End Sub
|
26 | -------------------------------------------------------------------------------------
|
27 | Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
|
28 |
|
29 | SerialPort1.Write("50-02-55-55-55-00-00-00-00-00-00-00-00-00-00-00" & vbCr)
|
30 | End Sub
|
31 | End Class
|
Die Zahlen sind halt Hex Zahlen. Aber irgendwie fehlt mir die richtige
Syntax.
Kann mir wer bitte helfen :)
Danke im vorraus