Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: c5c59215a7
Fetching contributors…

Cannot retrieve contributors at this time

file 254 lines (200 sloc) 8.79 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254
Public Class frm_Main

#Region "Variablen"
    ' Variablen für das Ergebnis erzeugen;
    ' haben als Wert true oder false
    Dim Ergebnis_1 As Boolean
    Dim Ergebnis_2 As Boolean
    Dim Ergebnis_3 As Boolean
    Dim Ergebnis_4 As Boolean
    Dim Ergebnis_5 As Boolean

    'Variable für den Countdown erzeugen
    Dim Timer_Zeit As Integer

#End Region

#Region "Ereignisse"
    Private Sub frm_Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Aufrufen der Zusammenfassung Laden
        Laden()

    End Sub

    Private Sub frm_Main_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        ' Anwendung ganz schließen/beenden
        frm_Info.Close()

    End Sub

    Private Sub cmd_Überprüfen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_Überprüfen.Click
        ' Aufrufen der Zusammenfassung Überprüfen
        Überprüfen()

    End Sub

    Private Sub cmd_Abbrechen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_Abbrechen.Click
        ' Anwendung schließen/beenden
        Me.Close()
        frm_Info.Close()

    End Sub

    Private Sub cmd_Neustart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_Neustart.Click
        ' Aufrufen der Zusammenfassung Aktivieren
        Aktivieren()

        ' Aufrufen der Zusammenfassung Laden
        Laden()

    End Sub

    Private Sub tmr_Countdown_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr_Countdown.Tick
        ' Überprüfen, ob keine Zeit mehr verfügbar ist;
        ' wenn ja dann Zusammenfassung Überprüfen aufrufen;
        ' wenn nein dann die Zeit um eine 1s verringern und die Anzeige anpassen
        If Timer_Zeit = 0 Then
            ' Aufrufen der Zusammenfassung Überprüfen
            Überprüfen()
        Else
            Timer_Zeit = Timer_Zeit - 1
            lbl_Zeit.Text = Timer_Zeit & "s"
        End If

    End Sub

#End Region

#Region "Sub"
    Sub Laden()
        ' Text der Ergebnis_Label auf "offen" setzen
        lbl_Ergebnis_1.Text = "offen"
        lbl_Ergebnis_2.Text = "offen"
        lbl_Ergebnis_3.Text = "offen"
        lbl_Ergebnis_4.Text = "offen"
        lbl_Ergebnis_5.Text = "offen"

        ' Anzeige der verbleibenden zeit auf 30s setzen
        lbl_Zeit.Text = "30s"

        ' Inhalt der Ergebnis_Textboxen auf null/nichts setzen
        txt_Eingabe_1.Text = Nothing
        txt_Eingabe_2.Text = Nothing
        txt_Eingabe_3.Text = Nothing
        txt_Eingabe_4.Text = Nothing
        txt_Eingabe_5.Text = Nothing

        ' BackgroundImage der Ergebnis_Pictureboxen auf pic_Info.png setzen
        pic_Ergebnis_1.BackgroundImage = Eignungstest.My.Resources.pic_Info
        pic_Ergebnis_2.BackgroundImage = Eignungstest.My.Resources.pic_Info
        pic_Ergebnis_3.BackgroundImage = Eignungstest.My.Resources.pic_Info
        pic_Ergebnis_4.BackgroundImage = Eignungstest.My.Resources.pic_Info
        pic_Ergebnis_5.BackgroundImage = Eignungstest.My.Resources.pic_Info

        ' Variable für Coutdown auf 30 Sekunden setzen
        Timer_Zeit = 30

        ' Neustartbutton deaktivieren
        cmd_Neustart.Enabled = False

        ' Countdown starten
        tmr_Countdown.Start()

    End Sub

    Sub Ergebnis()
        ' Überprüfen ob die Zahl 28 eingegeben wurde;
        ' wenn ja dann die Ergebnis_Variable auf true setzen;
        ' wenn nein dann die Ergebnis_Variable auf false setzen;
        If txt_Eingabe_1.Text = "28" Then
            Ergebnis_1 = True
        Else : Ergebnis_1 = False
        End If

        ' Überprüfen ob die Zahl 22 eingegeben wurde;
        ' wenn ja dann die Ergebnis_Variable auf true setzen;
        ' wenn nein dann die Ergebnis_Variable auf false setzen;
        If txt_Eingabe_2.Text = "22" Then
            Ergebnis_2 = True
        Else : Ergebnis_2 = False
        End If

        ' Überprüfen ob die Zahl 22 eingegeben wurde;
        ' wenn ja dann die Ergebnis_Variable auf true setzen;
        ' wenn nein dann die Ergebnis_Variable auf false setzen;
        If txt_Eingabe_3.Text = "22" Then
            Ergebnis_3 = True
        Else : Ergebnis_3 = False
        End If

        ' Überprüfen ob die Zahl 12 eingegeben wurde;
        ' wenn ja dann die Ergebnis_Variable auf true setzen;
        ' wenn nein dann die Ergebnis_Variable auf false setzen;
        If txt_Eingabe_4.Text = "13" Then
            Ergebnis_4 = True
        Else : Ergebnis_4 = False
        End If

        ' Überprüfen ob die Zahl 58 eingegeben wurde;
        ' wenn ja dann die Ergebnis_Variable auf true setzen;
        ' wenn nein dann die Ergebnis_Variable auf false setzen;
        If txt_Eingabe_5.Text = "58" Then
            Ergebnis_5 = True
        Else : Ergebnis_5 = False
        End If

    End Sub

    Sub Anzeige()
        ' Überprüfen des Wertes der Ergebnis_Variable;
        ' anpassen des Ergebnis_Labels und der Ergebnis_Picturebox;
        ' wenn true dann den Text des Ergebnis_Labels auf richtig setzen und Bild pic_true.png zeigen;
        ' wenn false dann den Text des Ergebnis_Labels auf falsch setzen und Bild pic_false zeigen

        If Ergebnis_1 = True Then
            lbl_Ergebnis_1.Text = "richtig"
            pic_Ergebnis_1.BackgroundImage = Eignungstest.My.Resources.Resources.pic_true
        Else
            lbl_Ergebnis_1.Text = "falsch"
            pic_Ergebnis_1.BackgroundImage = Eignungstest.My.Resources.Resources.pic_false
        End If

        If Ergebnis_2 = True Then
            lbl_Ergebnis_2.Text = "richtig"
            pic_Ergebnis_2.BackgroundImage = Eignungstest.My.Resources.Resources.pic_true
        Else
            lbl_Ergebnis_2.Text = "falsch"
            pic_Ergebnis_2.BackgroundImage = Eignungstest.My.Resources.Resources.pic_false
        End If

        If Ergebnis_3 = True Then
            lbl_Ergebnis_3.Text = "richtig"
            pic_Ergebnis_3.BackgroundImage = Eignungstest.My.Resources.Resources.pic_true
        Else
            lbl_Ergebnis_3.Text = "falsch"
            pic_Ergebnis_3.BackgroundImage = Eignungstest.My.Resources.Resources.pic_false
        End If

        If Ergebnis_4 = True Then
            lbl_Ergebnis_4.Text = "richtig"
            pic_Ergebnis_4.BackgroundImage = Eignungstest.My.Resources.Resources.pic_true
        Else
            lbl_Ergebnis_4.Text = "falsch"
            pic_Ergebnis_4.BackgroundImage = Eignungstest.My.Resources.Resources.pic_false
        End If

        If Ergebnis_5 = True Then
            lbl_Ergebnis_5.Text = "richtig"
            pic_Ergebnis_5.BackgroundImage = Eignungstest.My.Resources.Resources.pic_true
        Else
            lbl_Ergebnis_5.Text = "falsch"
            pic_Ergebnis_5.BackgroundImage = Eignungstest.My.Resources.Resources.pic_false
        End If

    End Sub

    Sub Überprüfen()
        ' Countdown_Timer stoppen
        tmr_Countdown.Stop()

        ' Aufrufen der Zusammenfassung Ergebnis
        Ergebnis()

        ' Aufrufen der Zusammenfassung Anzeige
        Anzeige()

        ' Überprüfen, ob alle Ergebnisse richtig; wenn alles richtig ist, eine Info-Messagebox ausgeben;
        ' wenn EIN Ergebnis falsch ist, eine Error-Messagebox ausgeben
        If Ergebnis_1 = True And Ergebnis_2 = True And Ergebnis_3 = True _
        And Ergebnis_4 = True And Ergebnis_5 = True Then
            MsgBox(frm_Info.Benutzername & "! Sie haben den Eignungstest erfolgreich abgeschlossen.", MsgBoxStyle.Information, "Ergebnis: Erfolgreich")
        Else
            MsgBox(frm_Info.Benutzername & "! Sie haben leider den Eignungstest nicht erfolgreich abgeschlossen.", MsgBoxStyle.Critical, "Ergebnis: Nicht erfolgreich")
        End If

        ' Aufrugen der Zusammenfassung Deaktivieren
        Deaktivieren()

    End Sub

    Sub Deaktivieren()
        ' Angezeigte Zeit auf 0s setzen
        lbl_Zeit.Text = "0s"

        ' Überprüfen_Button deaktivieren
        cmd_Überprüfen.Enabled = False

        ' Eingabe_Textboxen deaktivieren
        txt_Eingabe_1.Enabled = False
        txt_Eingabe_2.Enabled = False
        txt_Eingabe_3.Enabled = False
        txt_Eingabe_4.Enabled = False
        txt_Eingabe_5.Enabled = False

        ' Neustart-/Resetbutton aktivieren
        cmd_Neustart.Enabled = True

    End Sub

    Sub Aktivieren()
        ' Überprüfen_Button aktivieren
        cmd_Überprüfen.Enabled = True

        ' Eingabe_Textboxen aktivieren
        txt_Eingabe_1.Enabled = True
        txt_Eingabe_2.Enabled = True
        txt_Eingabe_3.Enabled = True
        txt_Eingabe_4.Enabled = True
        txt_Eingabe_5.Enabled = True

    End Sub

#End Region

End Class
Something went wrong with that request. Please try again.