´
Module StartCondMod_KM
    Public aStartCond As New ConditionsWindowClass_KM
    Public StartConditionsTrue As Boolean = False
    'Zeigt den Dialog
    Sub show()
        aStartCond.Button1BTN.Visible = True
        If Language_KM.English = True Then
            aStartCond.Text = "Record Start Conditions"
            aStartCond.Button1BTN.Text = "Stop Conditions"
            aStartCond.Button2BTN.Text = "OK"
            aStartCond.Button3BTN.Text = "Reset"
            aStartCond.Button4BTN.Text = "Cancel"
        Else
            aStartCond.Text = "Aufzeichnungs Start Bedingungen"
            aStartCond.Button1BTN.Text = "Stopp Bedingungen"
            aStartCond.Button2BTN.Text = "OK"
            aStartCond.Button3BTN.Text = "Reset"
            aStartCond.Button4BTN.Text = "Abbrechen"
        End If
        'Erstellen der Handler zum Auswerten der Buttonclicks
        AddHandler aStopCond.Button1BTN.Click, AddressOf OKBTN_Click
        AddHandler aStopCond.Button2BTN.Click, AddressOf OKBTN_Click
        AddHandler aStopCond.Button3BTN.Click, AddressOf ResetBTN_Click
        AddHandler aStopCond.Button4BTN.Click, AddressOf CancelBTN_Click
 
        aStartCond.Item1GR1CB.Items.Clear()
        For i As Integer = 0 To RecordItems_KM.ItemList.Count - 1
            If RecordItems_KM.ItemList.Item(i).Description <> "" Then
                aStartCond.Item1GR1CB.Items.Add(RecordItems_KM.ItemList.Item( _
                  i).Description)
            Else
                aStartCond.Item1GR1CB.Items.Add(RecordItems_KM.ItemList.Item( _
                  i).ItemID)
            End If
 
        Next
        If aStartCond.ShowConditionsTC.TabPages.Count = 0 Then
            Dim anAND As TabPage = New TabPage_KM
            anAND.Text = "AND" & aStartCond.ShowConditionsTC.TabPages.Count + 1
            aStartCond.ShowConditionsTC.Controls.Add(anAND)
        End If
        If RecordItems_KM.Mode <> RecordItems_KM.RecordMode.TimeBetweenEvents Then
            RecordItems_KM.CreateArray()
        End If
        aStartCond.ShowDialog()
    End Sub
 
    'Überprüft ob die Aufzeichnungs Startbedingungen erfüllt sind 
    Sub CheckStartConditions()
        Dim Result As Boolean
        Result = CheckConditions(aStartCond.TermList, _
          aStartCond.ShowConditionsTC.TabPages.Count)
        If Result = True Then
            StartConditionsTrue = True
            StopCondMod_KM.StopConditionsTrue = False
        Else
            StartConditionsTrue = False
        End If
    End Sub
 
    'Übernimmt die Start und Stopeinstellungen und schließt das Sub 
    'legt den Aufzeichnungsmodus fest
    Private Sub OKBTN_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) 'Handles aStartCond.Button2BTN.Click
        aStartCond.Close()
        If RecordItems_KM.Mode = RecordItems_KM.RecordMode.TimeBetweenEvents _
          Then
            RecordTime_KM.Show()
        ElseIf aStartCond.TermList.Count > 0 And RecordItems_KM.Mode = _
          RecordItems_KM.RecordMode.NoRecord Then
            RecordItems_KM.Mode = RecordItems_KM.RecordMode.WithConditions
            RecordItems_KM.ShowDialog()
        ElseIf RecordItems_KM.Mode = RecordItems_KM.RecordMode.NoRecord Then
            RecordItems_KM.Mode = RecordItems_KM.RecordMode.Unconditioned
            RecordItems_KM.ShowDialog()
        End If
        MainForm.MangaeStatusBar(MainForm.StatusBarText.ReadyToRecord, _
          "Nothing")
    End Sub
    'Löscht die Starteinstellungen 
    Private Sub ResetBTN_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) 'Handles aStartCond.Button3BTN.Click
        aStartCond.Reset()
    End Sub
 
    'Löscht die StopEinstellungen und Starteinstellungen sowie die Stop und 
    ' Start Termlisten und schließt das Sub
    Private Sub CancelBTN_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) 'Handles aStartCond.Button4BTN.Click
        aStartCond.Reset()
        StopCondMod_KM.aStopCond.Reset()
        RecordItems_KM.Mode = RecordItems_KM.RecordMode.NoRecord
        aStartCond.Close()
    End Sub
    'Zeigt das Fenster zur Auswahl der Stoppbedingungen 
    Private Sub ShowConditionsBTN_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs)
        StopCondMod_KM.Show()
    End Sub
End Module