Public Class Form_TECS_Display

    Dim str_TestPattern(20) As String

    Dim str_TestDummy As String



    Public Sub New()

        Dim i_EyeEye As Integer



        ' This call is required by the designer.

        InitializeComponent()



        ' Add any initialization after the InitializeComponent() call.  

        'Me.Text &= "  Version 13319a"

        'Me.Text &= "  Version 13323a"   ' changing name from TECS-Display to TECS_Display

        'Me.Text &= "  Version 13330a"   ' adding strfctn_FillinTemperatureTextBox(i_Number, str_Text)

        '                                   adding strfctn_FillinPumpExtraTextBox(i_Number, str_Text)

        'Me.Text &= "  Version 13402a"   ' adding txt_SollSekundärVorlauf

        'Me.Text &= "  Version 13511a"   ' setting default to "*"

        'Me.Text &= "  Version 14401a"   ' Switch to Visual Studio Express 2013

        'Me.Text &= "  Version 14429a"   ' redo because other files had >My.Application.DoEvents()< removed

        'Me.Text &= "  Version 14a01a"   ' new BallValveController with txt_BallValve.Text

        Me.Text &= "  Version 14a14a"   ' new txt_MinSollPufferTempr.Text



        'str_TestPattern(1) = "145,7"

        str_TestPattern(1) = "*"

        txt_AußenTemperatur.Font = New System.Drawing.Font("Courier New", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))



        'str_TestPattern(2) = "66,7"

        str_TestPattern(2) = "*"

        txt_PufferTop.Font = New System.Drawing.Font("Courier New", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))



        'str_TestPattern(3) = "55,5"

        str_TestPattern(3) = "*"

        txt_PufferMitte.Font = New System.Drawing.Font("Courier New", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))



        'str_TestPattern(4) = "45,5"

        str_TestPattern(4) = "*"

        txt_PufferUnten.Font = New System.Drawing.Font("Courier New", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))



        'str_TestPattern(5) = "35,5"

        str_TestPattern(5) = "*"

        txt_PufferRücklauf.Font = New System.Drawing.Font("Courier New", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))



        'str_TestPattern(6) = "110.3"

        str_TestPattern(6) = "*"

        txt_SolarHot.Font = New System.Drawing.Font("Courier New", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))



        'str_TestPattern(7) = "70.9"

        str_TestPattern(7) = "*"

        txt_SolarCold.Font = New System.Drawing.Font("Courier New", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))



        'str_TestPattern(8) = "34.8"

        str_TestPattern(8) = "*"

        txt_GeothermieRücklauf.Font = New System.Drawing.Font("Courier New", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))



        'str_TestPattern(9) = "23,5"

        str_TestPattern(9) = "*"

        txt_PrimRücklauf.Font = New System.Drawing.Font("Courier New", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))



        'str_TestPattern(10) = "30,5"

        str_TestPattern(10) = "*"

        txt_IstSekundärVorlauf.Font = New System.Drawing.Font("Courier New", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))



        'str_TestPattern(11) = "20,5"

        str_TestPattern(11) = "*"

        txt_SekundärRücklauf.Font = New System.Drawing.Font("Courier New", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))



        'str_TestPattern(12) = "109,1"   ' 

        str_TestPattern(12) = "*"   ' 

        txt_GeothermieVorlauf.Font = New System.Drawing.Font("Courier New", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))



        'str_TestPattern(13) = "45"

        str_TestPattern(13) = "*"

        txt_SolarPumpe.Font = New System.Drawing.Font("Courier New", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))



        'str_TestPattern(14) = "40"

        str_TestPattern(14) = "*"

        txt_PrimärPumpe.Font = New System.Drawing.Font("Courier New", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))



        'str_TestPattern(15) = "37"   '

        str_TestPattern(15) = "*"   '

        txt_SekundärPumpe.Font = New System.Drawing.Font("Courier New", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))



        'str_TestPattern(16) = "31"

        str_TestPattern(16) = "*"

        txt_GeoPumpe.Font = New System.Drawing.Font("Courier New", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))



        'str_TestPattern(17) = "Aus"

        str_TestPattern(17) = "*"

        txt_Brenner.Font = New System.Drawing.Font("Courier New", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        txt_Brenner.BackColor = Color.Red

        txt_Brenner.ForeColor = Color.Yellow



        str_TestPattern(18) = "Null"

        txt_GeothermieFluß.Font = New System.Drawing.Font("Courier New", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))



        'str_TestPattern(19) = "71,9"

        str_TestPattern(19) = "*"

        txt_SollSekundärVorlauf.Font = New System.Drawing.Font("Courier New", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        ' 

        txt_BallValve.Font = New System.Drawing.Font("Courier New", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        txt_MinSollPufferTempr.Font = New System.Drawing.Font("Courier New", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))



        For i_EyeEye = 1 To 12 Step 1

            str_TestDummy = strfctn_FillinTemperatureTextBox(i_EyeEye, str_TestPattern(i_EyeEye))

        Next i_EyeEye



        For i_EyeEye = 13 To 19 Step 1

            str_TestDummy = strfctn_FillinPumpExtraTextBox(i_EyeEye, str_TestPattern(i_EyeEye))

        Next i_EyeEye



        txt_BallValve.Text = "*"

        txt_MinSollPufferTempr.Text = "* *"



    End Sub

    ' ####################################################################################################

    Private Sub btn_Try_Click(sender As System.Object, e As System.EventArgs) Handles btn_Try.Click

        If txt_Brenner.Text = "Aus" Then

            txt_Brenner.Text = "An"

            txt_Brenner.BackColor = Color.Green

            txt_Brenner.ForeColor = Color.White

        Else

            txt_Brenner.Text = "Aus"

            txt_Brenner.BackColor = Color.Red

            txt_Brenner.ForeColor = Color.Yellow

        End If

    End Sub

    ' ####################################################################################################

    Public Function strfctn_FillinTemperatureTextBox(ByVal i_BoxNumber As Integer, ByVal str_Text As String)



        Select Case i_BoxNumber

            Case 1

                txt_AußenTemperatur.Text = str_Text & "C"



            Case 2

                txt_PufferTop.Text = str_Text & "C"



            Case 3

                txt_PufferMitte.Text = str_Text & "C"



            Case 4

                txt_PufferUnten.Text = str_Text & "C"



            Case 5

                txt_PufferRücklauf.Text = str_Text & "C"



            Case 6

                txt_PrimRücklauf.Text = str_Text & "C"



            Case 7

                txt_IstSekundärVorlauf.Text = str_Text & "C"



            Case 8

                txt_SekundärRücklauf.Text = str_Text & "C"



            Case 9

                txt_SolarHot.Text = str_Text & "C"



            Case 10

                txt_SolarCold.Text = str_Text & "C"



            Case 11

                txt_GeothermieVorlauf.Text = str_Text & "C"



            Case 12

                txt_GeothermieRücklauf.Text = str_Text & "C"



            Case Else

                MessageBox.Show("Incorrect TemperatureTextBoxNumber", "Warning")



        End Select



        strfctn_FillinTemperatureTextBox = "Finished Filling in Text"

    End Function

    ' ####################################################################################################

    ' ####################################################################################################

    Public Function strfctn_FillinPumpExtraTextBox(ByVal i_BoxNumber As Integer, ByVal str_Text As String)



        Select Case i_BoxNumber

            Case 13

                txt_SolarPumpe.Text = str_Text



            Case 14

                txt_PrimärPumpe.Text = str_Text



            Case 15

                txt_SekundärPumpe.Text = str_Text



            Case 16

                txt_GeoPumpe.Text = str_Text



            Case 17

                txt_Brenner.Text = str_Text



            Case 18

                txt_GeothermieFluß.Text = str_Text



            Case 19

                txt_SollSekundärVorlauf.Text = str_Text



            Case Else

                MessageBox.Show("Incorrect PumpTextBoxNumber", "Warning")



        End Select



        strfctn_FillinPumpExtraTextBox = "Finished Filling in Text"

    End Function

    ' ####################################################################################################

End Class