Visual Basic 2010 - IndexBMI - nefunguje Select Case – .NET – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

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

 

stif+1
Stálý člen
29. 6. 2012   #1
-
0
-

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!

Nahlásit jako SPAM
IP: 178.41.187.–
Autor programuje v programovacích jazykoch C++ a VB. Je tvorcom e-zinu http://www.programujte.6f.sk/, na ktorom sa nachádzaju info pre začínajúcich prog. a webdesignerov. Stránka zahrňuje aj fórum.
liborb
~ Redaktor
+18
Guru
29. 6. 2012   #2
-
0
-

 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
Nahlásit jako SPAM
IP: 78.80.52.–
stif+1
Stálý člen
29. 6. 2012   #3
-
0
-

#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!


Nahlásit jako SPAM
IP: 178.41.187.–
Autor programuje v programovacích jazykoch C++ a VB. Je tvorcom e-zinu http://www.programujte.6f.sk/, na ktorom sa nachádzaju info pre začínajúcich prog. a webdesignerov. Stránka zahrňuje aj fórum.
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 10 hostů

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032024 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý