Visual Basic 2010 - IndexBMI - nefunguje Select Case – .NET – Fórum – Programujte.com

Vážený kolegovia! Dnes ráno som sa rozhodol vytvoriť jednoduchý index BMI. Program vypočita indexBMI a potom podľa výsledku ho jednou vetou ohodnotí:

Module Module1

    Sub Main()

        Dim hmotnost As Integer
        Dim vyska As Single
        Dim indexBMI As Single
        Console.Write("Zadajte prosím vašu váhu pre výpočet vášho indexu BMI (v kg): ")
        hmotnost = Convert.ToInt32(Console.ReadLine())
        Console.Write("Zadajte prosím svoju výšku (v m): ")
        vyska = Convert.ToSingle(Console.ReadLine())
        indexBMI = hmotnost / (vyska * vyska)
        Console.Write("Váš index BMI je " & indexBMI & " .")

        Select Case indexBMI
            Case indexBMI <= 17.5
                Console.Write("Máte anorexiu!")
            Case indexBMI <= 18.5
                Console.Write("Váš Index BMI hovorí, že trpíte podvýživou!")
            Case 18.5 <= indexBMI <= 24.9
                Console.Write("Váš Index BMI je v normále!")
            Case 25.0 <= indexBMI <= 29.9
                Console.Write("Váš Index BMI hovorí, že trpíte nadváhou!")
            Case 30.0 <= indexBMI <= 34.9
                Console.Write("Trpíte obezitou!")
            Case 35.0 <= indexBMI <= 39.9
                Console.Write("Trpíte ťažkou obezitou!")
            Case 40.0 <= indexBMI
                Console.Write("Trpíte veľmi ťažkou obezitou!")
            Case Else
                Console.WriteLine("Nedokážem zistiť tvoj index BMI.")
        End Select

        Console.WriteLine("Ďakujeme za používanie nášho programu!")
        Console.ReadLine()

    End Sub

End Module

Avšak keď ma Select Case vyhodnotiť index BMI neviberie ani jednú možnosť a vypíše mi obsah Case Else. Ako to mám vyriešiť? Mám skúsiť vypočítať indexBMI ceočíselným delením? Za odpoveď vopred ďakujem!

 Co takhle MSDN .... znáš?

Select Case indexBMI
	Case Is <= 17.5
		Console.Write("Máte anorexiu!")
	Case Is <= 18.5
		Console.Write("Váš Index BMI hovorí, že trpíte podvýživou!")
	Case Is <= 24.9
                Console.Write("Váš Index BMI je v normále!")
	Case Is <= 29.9
                Console.Write("Váš Index BMI hovorí, že trpíte nadváhou!")
	Case Is <= 34.9
                Console.Write("Trpíte obezitou!")
	Case Is <= 39.9
                Console.Write("Trpíte ťažkou obezitou!")
	Case Is >= 40.0
                Console.Write("Trpíte veľmi ťažkou obezitou!")
	Case Else
                Console.WriteLine("Nedokážem zistiť tvoj index BMI.")
End Select

#2 liborb

Diki, MSDN poznám len z príručok zdarma, o tých návodoch som nevedel (aj kvôli mojej slabšej angličtine). VB sa učím z knihy Programováni v jazyce Visual Basic 2010 od Jána Hanáka. Ešte raz ďakujem za radu!