Imports System.Windows.Forms.Application
Imports System.Security.Principal
Imports System.Text
Imports System.IO.Ports
Imports System.Timers
Imports System.IO
 
Public Class Hauptfenster
    Inherits System.Windows.Forms.Form
 
    Dim objDateiMacher As New System.IO.StreamWriter("data.txt")
    Dim WithEvents SerialPort As New System.IO.Ports.SerialPort("COM3", 38400, _
      Parity.None, 8, StopBits.One)
    Private Delegate Sub DelegateSub()
    Dim buf As String
    Dim Programm As String
    Dim StateConnection As Boolean
    Dim Connecting As New System.Threading.Thread(AddressOf CommStart)
    Private TextboxAktualisieren As New DelegateSub(AddressOf Wertübergabe)
 
    Public Sub Me_Closed(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        objDateiMacher.Close()
    End Sub
 
    Public Sub CommStart()
        With SerialPort
            Do Until .IsOpen
                DoEvents()
                Try
                    .Open()
                Catch ex As Exception : StateConnection = True
                End Try
                If StateConnection Then
                    ProgressBar1.Visible = True
                End If
            Loop
        End With
        StateConnection = False
        ProgressBar1.Visible = False
    End Sub
    Public Sub CommStop()
        With SerialPort
            .Close()
        End With
    End Sub
 
    Public Sub SerialPort_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      SerialPort.DataReceived
 
        For i As Int32 = 0 To SerialPort.BytesToRead   ' Alle Bytes einzel 
        ' lesen und anzeigen
            Try
 
                Dim buf As Byte() = {SerialPort.BaseStream.ReadByte}
                Dim enc As New System.Text.ASCIIEncoding()
                Programm = enc.GetString(buf)
                Programm = Programm.Replace(Chr(13), Nothing)
                objDateiMacher.Writeline(Programm)
                Me.Invoke(TextboxAktualisieren)
 
            Catch ex As Exception
                MessageBox.Show("Ein Übertragungsfehler ist aufgetreten.", _
                  "Fehler", MessageBoxButtons.OK)
            End Try
        Next i
    End Sub
 
    Private Sub DataStart()
        With SerialPort
            Dim FomTest As Byte() = {85, 255, 5, 1, 0}
            If .IsOpen Then
                .BaseStream.Write(FomTest, 0, 5)
                Return
            End If
        End With
    End Sub
 
    Private Sub NamenStart()
        With SerialPort
            Dim FomTest As Byte() = {85, 32, 5, 21, 0}
            If .IsOpen Then
                .BaseStream.Write(FomTest, 0, 5)
                Return
            End If
        End With
    End Sub
 
    Private Sub Wertübergabe()
        TextBox1.AppendText(Programm)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        CommStart()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        CommStop()
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        DataStart()
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
        NamenStart()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        If SerialPort.IsOpen And Not StateConnection Then
            Me.Label1.Text = "Schnittstelle geöffnet: " + SerialPort.PortName
        Else
            Me.Label1.Text = "Schnittstelle geschlossen: " + SerialPort.PortName
        End If
        If StateConnection Then
            Me.Label1.Text = "InfoPortTry"
        End If
        If Timer1.Enabled And StateConnection Then
            Timer2.Start()
        End If
    End Sub
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer2.Tick
        Me.Label1.Text = "InfoPortBemerkung"
    End Sub
 
End Class