'Option Explicit

'Lawinenkunde - Einmal anders!
'Nütze deine Software!

Sub Lawinenkunde_einmal_anders()

Dim Lawinenstufe As Integer
Dim Hangneigung As Double
' StayAtHome

Lawinenstufe = InputBox("Trage bitte die Lawinenstufe ein:", "Lawinenstufe", 1)
    If Lawinenstufe = vbCancel Then
        Exit Sub
    End If
Hangneigung = InputBox("Trage bitte die Hangneigung ein:", "Hangneigung", 25)
    If Hangneigung = vbCancel Then
        Exit Sub
    End If


    If Lawinenstufe >= 4 Then
        StayAtHome
    Else
        GoTo summit
    End If


    If Lawinenstufe <= 2 Then
        BeHappy
    Else
        GoTo cinema
    End If


    If Hangneigung >= 30 Then       ' "30°"
        MsgBox "Aufstieg:   Entlastungsabstände von 15m anordnen (gleich bei Überprüfung der LVS-Geräte)" & vbCr & _
                            "--> unabhängig von der Lawinenstufe!", vbInformation + vbYesNoCancel, "Lawinen-Info"
    Else
        GoTo summit
    End If


    If Hangneigung >= 30 And Hangneigung < 35 Then
        MsgBox "Abfahrt:    Normabstände von 50m anordnen (Hangneigungsbereich zw. 30° und 35°)" & vbCr & _
                            "--> unabhängig von der Lawinenstufe!", vbInformation + vbYesNoCancel, "Lawinen-Info"
    Else
        GoTo down
    End If


    If Hangneigung > 35 Then
        MsgBox "Abfahrt:    Einzelfahrten anordnen (ab 35°: Selbstauslösung möglich)", vbInformation + vbYesNoCancel, "Lawinen-Info"
    Else
        GoTo down
    End If


    Exit Sub

summit:
    MsgBox "Berg Heil!", vbInformation + vbYesNoCancel, "Lawinen-Info"
    Exit Sub

down:
    MsgBox "Puuuuuuiiiiivaaaa!!!", vbInformation + vbYesNoCancel, "Lawinen-Info"
    Exit Sub

cinema:
    MsgBox "www.moviemento.at", vbInformation + vbYesNoCancel, "Lawinen-Info"

End Sub

Sub StayAtHome()

MsgBox "Sauna, Jacuzzi, Wine, ...", vbInformation + vbOKOnly, "Info-StayAtHome"

End Sub

Sub BeHappy()

MsgBox "Enyoy nature, the snow, the day!", vbInformation + vbOKOnly, "Info-BeHappy"

End Sub