Hallo und schönen Abend!
Mein Glück im folgenden Code liegt darin das ich wenn ich die einzelnen
Buttons (Button1001 oder Button1002... ) nacheinander drücke das Program funkt.
Ich will mir aber einen Button schaffen der mir alle max 8 Buttons nacheinander drückt.
Dies habe ich mit :
dargestellt.
Problem: Nach Button1004 ist Schluss.
Deshalb habe ich das klicken auf die 8 Buttons in 2 Sub's geteilt mit je einem Auslöser-Button. 1-4 und 5-29
Also Button1001 bis 1004 und 1005 bis 1029.
Aber warum funkt das nicht für alle 8 Buttons ?
Danke für Eure unterstützung
Lennart
Mein Glück im folgenden Code liegt darin das ich wenn ich die einzelnen
Buttons (Button1001 oder Button1002... ) nacheinander drücke das Program funkt.
Ich will mir aber einen Button schaffen der mir alle max 8 Buttons nacheinander drückt.
Dies habe ich mit :
VB.NET-Quellcode
dargestellt.
Problem: Nach Button1004 ist Schluss.
Deshalb habe ich das klicken auf die 8 Buttons in 2 Sub's geteilt mit je einem Auslöser-Button. 1-4 und 5-29
Also Button1001 bis 1004 und 1005 bis 1029.
Aber warum funkt das nicht für alle 8 Buttons ?
Danke für Eure unterstützung
Lennart
VB.NET-Quellcode
- Imports System.IO.Ports
- Public Class Form1
- Dim RxData As String = ""
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- SerialPort101.PortName = "com101"
- SerialPort101.BaudRate = 115200
- SerialPort101.DataBits = 8
- SerialPort101.Parity = Parity.None
- SerialPort101.StopBits = StopBits.One
- SerialPort101.Handshake = Handshake.None
- SerialPort101.Encoding = System.Text.Encoding.Default
- SerialPort101.Open()
- SerialPort101.Write("<1>") 'ein
- Timer1.Start()
- End Sub
- #Region "Lok ansprechen"
- Private Sub Button1001_Click(sender As Object, e As EventArgs) Handles Button1001.Click
- sendenCV1001()
- End Sub
- Sub sendenCV1001()
- SerialPort101.Write("<R 1 11111 22222>")
- End Sub
- Private Sub Button1002_Click(sender As Object, e As EventArgs) Handles Button1002.Click
- sendenCV1002()
- End Sub
- Sub sendenCV1002()
- SerialPort101.Write("<R 2 11111 22222>")
- End Sub
- Private Sub Button1003_Click(sender As Object, e As EventArgs) Handles Button1003.Click
- sendenCV1003()
- End Sub
- Sub sendenCV1003()
- SerialPort101.Write("<R 3 11111 22222>")
- End Sub
- Private Sub Button1004_Click(sender As Object, e As EventArgs) Handles Button1004.Click
- sendenCV1004()
- End Sub
- Sub sendenCV1004()
- SerialPort101.Write("<R 4 11111 22222>")
- End Sub
- Private Sub Button1005_Click(sender As Object, e As EventArgs) Handles Button1005.Click
- sendenCV1005()
- End Sub
- Sub sendenCV1005()
- SerialPort101.Write("<R 5 11111 22222>")
- End Sub
- Private Sub Button1006_Click(sender As Object, e As EventArgs) Handles Button1006.Click
- sendenCV1006()
- End Sub
- Sub sendenCV1006()
- SerialPort101.Write("<R 6 11111 22222>")
- End Sub
- Private Sub Button1008_Click(sender As Object, e As EventArgs) Handles Button1008.Click
- sendenCV1008()
- End Sub
- Sub sendenCV1008()
- SerialPort101.Write("<R 8 11111 22222>")
- End Sub
- Private Sub Button1029_Click(sender As Object, e As EventArgs) Handles Button1029.Click
- sendenCV1029()
- End Sub
- Sub sendenCV1029()
- SerialPort101.Write("<R 29 11111 22222>")
- End Sub
- #End Region
- '---------------------------------------------------------------------------------------------------------------------------------------------------
- '---------------------------------------------------------------------------------------------------------------------------------------------------
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- Try
- RxData = ReceiveSerialData()
- Dim rxpacket As String() = RxData.Split(",") 'Ende der übertragenen Zeichenkette
- Dim rxprams As String() = rxpacket(0).Split(":") 'Zeichenkette teilen bei :
- RichTextBox1.AppendText(Environment.NewLine & "CV:" & rxprams(0) & " = " & rxprams(1))
- If rxprams(0).Contains("-1-") Then
- Label1.Text = rxprams(1)
- End If
- If rxprams(0).Contains("-2-") Then
- Label2.Text = rxprams(1)
- End If
- If rxprams(0).Contains("-3-") Then
- Label3.Text = rxprams(1)
- End If
- If rxprams(0).Contains("-4-") Then
- Label4.Text = rxprams(1)
- End If
- If rxprams(0).Contains("-5-") Then
- Label5.Text = rxprams(1)
- End If
- If rxprams(0).Contains("-6-") Then
- Label6.Text = rxprams(1)
- End If
- If rxprams(0).Contains("-8-") Then
- Label7.Text = rxprams(1)
- End If
- If rxprams(0).Contains("-29-") Then
- Label8.Text = rxprams(1)
- End If
- Catch ex As Exception
- End Try
- End Sub
- Function ReceiveSerialData() As String
- Dim Incoming As String
- Try
- Incoming = SerialPort101.ReadExisting()
- If Incoming Is Nothing Then
- Return "no-data" & vbCrLf
- Else
- Return Incoming
- End If
- Catch ex As TimeoutException
- Return "Error: Serial Port timeout."
- End Try
- End Function
- '---------------------------------------------------------------------------------------------------------------------------------------------------
- '---------------------------------------------------------------------------------------------------------------------------------------------------
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Button1001.PerformClick()
- Button1002.PerformClick()
- Button1003.PerformClick()
- Button1004.PerformClick()
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- Button1005.PerformClick()
- Button1006.PerformClick()
- Button1008.PerformClick()
- Button1029.PerformClick()
- End Sub
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
- Button1001.PerformClick()
- Button1002.PerformClick()
- Button1003.PerformClick()
- Button1004.PerformClick()
- Button1005.PerformClick()
- Button1006.PerformClick()
- Button1008.PerformClick()
- Button1029.PerformClick()
- End Sub
- End Class
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „EaranMaleasi“ ()