Option Explicit On
Option Strict On

Imports System.Console

Module Module1

    Sub Main()

        '----------DEKLARATION
        Const aktionsmonat As Byte = 11
        Const mwst As Single = 0.19
        Const gebühr_halbv_verpackung As Single = 3.5

        Const preis_stift_grün As Single = 0.79
        Const preis_stift_blau As Single = 0.89
        Const preis_stift_gelb As Single = 0.59

        Const rabatt_2_stifte As Single = 0.1
        Const rabatt_3_stifte As Single = 0.3
        Const rabatt_aktionsmonat As Single = 0.1

        Const preis_plz_00bis20 As Single = 6.5
        Const preis_plz_21bis60 As Single = 5.5
        Const preis_plz_61bis70 As Single = 8.5
        Const preis_plz_sonst As Single = 7.0

        Dim stift_grün As Integer
        Dim stift_blau As Integer
        Dim stift_gelb As Integer

        Dim monat As Boolean = False
        Dim plz As Byte
        Dim premium As Boolean
        Dim verpackungseinheit_anzahl As Single
        Dim verpackungseinheit_rest As Single

        Dim preis_rabatt_anzahl As Single
        Dim preis_rabatt_aktionsmonat As Single
        Dim preis_netto As Single
        Dim preis_brutto As Single
        Dim preis_paket As Single


        '----------EINGABE
        Write("Geben Sie bitte den aktuellen Monat ein (mm): ")
        If CByte(ReadLine()) = aktionsmonat Then
            monat = True
        End If

        Write("Wie viele GRÜNE Stifte wollen Sie kaufen? (max. 200): ")
        stift_grün = CInt(ReadLine())

        Write("Wie viele BLAUE Stifte wollen Sie kaufen? (max. 200): ")
        stift_blau = CInt(ReadLine())

        Write("Wie viele GELBE Stifte wollen Sie kaufen? (max. 200): ")
        stift_gelb = CInt(ReadLine())

        Write("Geben Sie bitte die ersten beiden Ziffern ihrer PLZ ein (xx345): ")
        plz = CByte(ReadLine())

        Write("Sind Sie ein Premium-Kunde? (ja=j / nein=anykey): ")
        If ReadLine() = "j" Then
            premium = True
        Else
            premium = False
        End If

        '----------BERECHNUNG
        preis_netto = (stift_grün * preis_stift_grün) + (stift_blau * preis_stift_blau) + (stift_gelb * preis_stift_gelb)

        WriteLine(" ")
        WriteLine("Info's zu Ihrer Bestellung:")

        If (stift_grün <> 0 And stift_blau <> 0 And stift_gelb <> 0) Then

            preis_rabatt_anzahl = preis_netto * rabatt_3_stifte
            WriteLine("Rabatt {0}% für 3 Farben: {1} Euro", rabatt_3_stifte * 100, preis_rabatt_anzahl)

            preis_netto = preis_netto - preis_rabatt_anzahl

        ElseIf ((stift_grün <> 0 And stift_blau <> 0) Or (stift_grün <> 0 And stift_gelb <> 0) Or (stift_blau <> 0 And stift_gelb <> 0)) Then

            preis_rabatt_anzahl = preis_netto * rabatt_2_stifte
            WriteLine("Rabatt {0}% für 2 Farben: {1} Euro", rabatt_2_stifte * 100, preis_rabatt_anzahl)

            preis_netto = preis_netto - preis_rabatt_anzahl

        End If

        If monat Then

            preis_rabatt_aktionsmonat = preis_netto * rabatt_aktionsmonat
            preis_netto = preis_netto - preis_rabatt_aktionsmonat
            WriteLine("Rabatt {0}% für Kauf im Aktionsmonat: {1} Euro", rabatt_aktionsmonat * 100, preis_rabatt_aktionsmonat)

        End If

        verpackungseinheit_anzahl = (stift_grün + stift_blau + stift_gelb) \ 50

        verpackungseinheit_rest = (stift_grün + stift_blau + stift_gelb) Mod 50

        If Not verpackungseinheit_rest = 0 Then

            verpackungseinheit_anzahl += 1

        End If

        WriteLine("Anzahl der Verpackungseinheiten: {0}", verpackungseinheit_anzahl)

        Select Case plz
            Case 0 To 20

                preis_paket = CSng(verpackungseinheit_anzahl * preis_plz_00bis20)
                WriteLine("Versandkosten an die PLZ pro Paket: {0} Euro", preis_plz_00bis20)
                WriteLine("Kosten für den Versand: {0} Euro", preis_paket)
                preis_netto = preis_netto + preis_paket

            Case 21 To 60

                preis_paket = CSng(verpackungseinheit_anzahl * preis_plz_21bis60)
                WriteLine("Versandkosten an die PLZ pro Paket: {0} Euro", preis_plz_21bis60)
                WriteLine("Kosten für den Versand: {0} Euro", preis_paket)
                preis_netto = preis_netto + preis_paket

            Case 61 To 70

                preis_paket = CSng(verpackungseinheit_anzahl * preis_plz_61bis70)
                WriteLine("Versandkosten an die PLZ pro Paket: {0} Euro", preis_plz_61bis70)
                WriteLine("Kosten für den Versand: {0} Euro", preis_paket)
                preis_netto = preis_netto + preis_paket

            Case 70 To 99

                preis_paket = CSng(verpackungseinheit_anzahl * preis_plz_sonst)
                WriteLine("Versandkosten an die PLZ pro Paket: {0} Euro", preis_plz_sonst)
                WriteLine("Kosten für den Versand: {0} Euro", preis_paket)
                preis_netto = preis_netto + preis_paket

        End Select

        If Not verpackungseinheit_rest = 0 And Not premium = True Then

            preis_netto = CSng(preis_netto + gebühr_halbv_verpackung)

        End If

        WriteLine(" ")
        WriteLine("---------------------------------------")
        WriteLine("Der Preis wird berechnet...")

        preis_brutto = preis_netto * (1 + mwst)
        WriteLine("Nettopreis: {0} Euro", preis_netto)
        WriteLine("Bruttopreis: {0} Euro", preis_brutto)
        WriteLine("---------------------------------------")
        WriteLine(" ")

        ReadLine()

    End Sub

End Module