Hallo zusammen ich habe folgendes Problem. Ich habe ein Program in Visual Studio geschrieben das mir 3 Werte ( 0-255 ; 0-255 ; 0-255 )an die Serielle Schnittstellen senden soll, und zwar setzen sich die 3 Werte aus 3 Schieberegler zusammen. Die werte die ankommen sollen wenn ich die Regler betätige sollen so ausschauen 2 0 0 4 0 0 5 0 0 18 0 0 18 4 0 18 5 0 18 36 0 18 38 0 18 40 0 18 48 219 18 48 221 18 48 224 Mein Code in VB Schaut so aus !!! Wäre super wenn mir jemand helfen könnte.
1 | <System.Serializable()> Partial Public Class Form1 |
2 | |
3 | Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll |
4 | |
5 | If SerialPort1.IsOpen = True Then |
6 | SerialPort1.Write(HScrollBar1.Value, " ", HScrollBar2.Value, " ", HScrollBar3.Value, ) |
7 | End If |
8 | End Sub |
9 | |
10 | Private Sub HScrollBar2_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar2.Scroll |
11 | |
12 | If SerialPort1.IsOpen = True Then |
13 | SerialPort1.Write(HScrollBar1.Value, " ", HScrollBar2.Value, " ", HScrollBar3.Value, ) |
14 | End If |
15 | End Sub |
16 | |
17 | Private Sub HScrollBar3_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar3.Scroll |
18 | |
19 | If SerialPort1.IsOpen = True Then |
20 | SerialPort1.Write(HScrollBar1.Value, " ", HScrollBar2.Value, " ", HScrollBar3.Value, ) |
21 | End If |
22 | |
23 | End Sub |
24 | |
25 | End Class |