Option Strict On
Public Class Form1

    Private Sub cmd_berechne_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_berechne.Click
        Dim brutto, seminarpreis, fahrtkosten, verpflegungskosten, arbeitsausfall, gesamtkosten As Double
        Dim tage As Integer
        Dim index As Integer = cmb_seminar.SelectedIndex
        '''''''Eingabe'''''''
        Select Case index
            Case 0
                lsb_ausgabe.Items.Clear()
                tage = 5
                seminarpreis = 750
            Case 1
                lsb_ausgabe.Items.Clear()
                tage = 2
                seminarpreis = 260
            Case 2
                lsb_ausgabe.Items.Clear()
                tage = 3
                seminarpreis = 420
            Case Else
                MsgBox("Bitte Seminar auswählen!")
        End Select

        brutto = Convert.ToDouble(txt_bruttogehalt.Text)

        '''''''Verarbeitung'''''''

        If brutto < 1000 Then
            MsgBox("Bitte Bruttogehalt überprüfen!")
        ElseIf brutto > 10000 Then
            MsgBox("Bitte Bruttogehalt überprüfen!")
        Else
            arbeitsausfall = brutto / 20 * tage
            gesamtkosten = seminarpreis + arbeitsausfall

            If chk_fahrtkosten.Checked = True Then
                fahrtkosten = 35 * tage
            End If

            If chk_verpflegung.Checked = True Then
                verpflegungskosten = 20 * tage
            End If

            '''''''Ausgabe'''''''
            lsb_ausgabe.Items.Add("Seminarkostenübersicht:")
            lsb_ausgabe.Items.Add("Seminarpreis: " & Format(seminarpreis, "0.00 €"))
            lsb_ausgabe.Items.Add("Fahrtkostenzuschuss: " & Format(fahrtkosten, "0.00 €"))
            lsb_ausgabe.Items.Add("Verpflegungskostenzuschuss: " & Format(verpflegungskosten, "0.00 €"))
            lsb_ausgabe.Items.Add("Arbeitsausfall: " & Format(arbeitsausfall, "0.00 €"))
            lsb_ausgabe.Items.Add("Gesamtkosten: " & Format(gesamtkosten, "0.00 €"))
        End If
    End Sub

    Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
        Close()
    End Sub

    Private Sub cmd_löschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_löschen.Click
        cmb_seminar.Text = "Bitte wählen ..."
        txt_bruttogehalt.Clear()
        lsb_ausgabe.Items.Clear()
        rdb_extern.Checked = False
        rdb_intern.Checked = False
        chk_fahrtkosten.Checked = False
        chk_verpflegung.Checked = False
    End Sub

    Private Sub rdb_extern_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdb_extern.Click
        If rdb_extern.Checked = True Then
            chk_fahrtkosten.Visible = True
            chk_verpflegung.Visible = True
        End If
    End Sub

    Private Sub rdb_intern_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdb_intern.Click
        If rdb_intern.Checked = True Then
            chk_fahrtkosten.Visible = False
            chk_verpflegung.Visible = False
        End If
    End Sub
End Class