BMI: Body Mass Index ausrechnen

    • VB.NET

    Es gibt 15 Antworten in diesem Thema. Der letzte Beitrag () ist von Load-soft.ch.vu.

      BMI: Body Mass Index ausrechnen

      Hallo Leute,
      Ich will euch zeigen wie ihr in einer Konsolen-Anwendung den BMI (Body Mass Index) eines Menschen ausrechnen könnt.
      Erstellt einfach ein neues Projekt als Konsolen-Anwendung.
      Fügt diesen Code ein:

      VB.NET-Quellcode

      1. Option Strict On
      2. Option Explicit On
      4. Module Module1
      6. Dim gewicht As Integer
      7. Dim körpergröße As Integer
      8. Dim alter As Integer
      9. Dim bmi As Short
      10. Dim strGewicht As String
      11. Dim strGröße As String
      12. Dim strAlter As String
      14. Sub Main()
      15. Console.BackgroundColor = ConsoleColor.Black
      16. Console.ForegroundColor = ConsoleColor.White
      17. Console.Clear()
      18. Console.Title = "Berechnung Ihres BMI"
      19. Console.WriteLine("Willkommen zu der Berechnung Ihres BMI (Body Mass Index)" & vbNewLine)
      20. Console.WriteLine("Dieser Test ist nur für Personen über 18 Jahre gedacht!" & vbNewLine)
      22. Console.WriteLine("Bitte geben Sie Ihr Körpergewicht in kg ein!")
      24. Do While (IsNumeric(strGewicht) = False)
      25. strGewicht = Console.ReadLine()
      26. Loop
      27. gewicht = CInt(strGewicht)
      29. Console.WriteLine("Nun geben Sie bitte Ihre Körpergröße in cm ein!")
      31. Do While (IsNumeric(strGröße) = False)
      32. strGröße = Console.ReadLine()
      33. Loop
      34. körpergröße = CInt(strGröße)
      36. Console.WriteLine("Zum Schluss geben Sie bitte Ihr Alter ein!")
      38. Do While (IsNumeric(strAlter) = False)
      39. strAlter = Console.ReadLine()
      40. Loop
      41. alter = CInt(strAlter)
      44. Console.WriteLine("Ihr BMI beträgt:")
      45. Try
      46. bmi = CShort(gewicht / ((körpergröße / 100) ^ 2))
      47. Console.WriteLine(CStr(bmi) & vbNewLine)
      48. Select Case alter
      49. Case 18 To 24
      50. Select Case bmi
      51. Case 19 To 24
      52. Console.WriteLine("Ihr BMI-Wert ist im normalen Bereich!")
      53. Case Is < 19
      54. Console.WriteLine("Sie neigen zur Untergewichtigkeit!!")
      55. Case Is > 24
      56. Console.WriteLine("Sie neigen zur Übergewichtigkeit!")
      57. End Select
      58. Case 25 To 34
      59. Select Case bmi
      60. Case 20 To 25
      61. Console.WriteLine("Ihr BMI-Wert ist im normalen Bereich!")
      62. Case Is < 20
      63. Console.WriteLine("Sie neigen zur Untergewichtigkeit!!")
      64. Case Is > 25
      65. Console.WriteLine("Sie neigen zur Übergewichtigkeit!")
      66. End Select
      67. Case 35 To 44
      68. Select Case bmi
      69. Case 21 To 26
      70. Console.WriteLine("Ihr BMI-Wert ist im normalen Bereich!")
      71. Case Is < 21
      72. Console.WriteLine("Sie neigen zur Untergewichtigkeit!!")
      73. Case Is > 26
      74. Console.WriteLine("Sie neigen zur Übergewichtigkeit!")
      75. End Select
      76. Case 45 To 54
      77. Select Case bmi
      78. Case 22 To 27
      79. Console.WriteLine("Ihr BMI-Wert ist im normalen Bereich!")
      80. Case Is < 22
      81. Console.WriteLine("Sie neigen zur Untergewichtigkeit!!")
      82. Case Is > 27
      83. Console.WriteLine("Sie neigen zur Übergewichtigkeit!")
      84. End Select
      85. Case 55 To 64
      86. Select Case bmi
      87. Case 23 To 28
      88. Console.WriteLine("Ihr BMI-Wert ist im normalen Bereich!")
      89. Case Is < 23
      90. Console.WriteLine("Sie neigen zur Untergewichtigkeit!!")
      91. Case Is > 28
      92. Console.WriteLine("Sie neigen zur Übergewichtigkeit!")
      93. End Select
      94. Case Is > 64
      95. Select Case bmi
      96. Case 24 To 29
      97. Console.WriteLine("Ihr BMI-Wert ist im normalen Bereich!")
      98. Case Is < 24
      99. Console.WriteLine("Sie neigen zur Untergewichtigkeit!!")
      100. Case Is > 29
      101. Console.WriteLine("Sie neigen zur Übergewichtigkeit!")
      102. End Select
      103. Case Is < 18
      104. Console.WriteLine("Sie müssen volljährig sein um diesen BMI-Test durchzuführen!")
      105. Case Else
      106. Console.WriteLine("Es ist ein Fehler aufgetreten!")
      107. End Select
      109. Console.WriteLine(vbNewLine)
      110. Console.WriteLine("Vielen Dank für Ihren BMI-Test!")
      112. Catch ex As Exception
      113. Console.WriteLine("Ihr BMI konnte NICHT berechnet werden! Bitte starten sie das Programm neu!")
      114. End Try
      116. Console.ReadLine()
      117. Console.Read()
      118. End Sub
      120. End Module


      //EDIT:
      - Überprüfung von Zahlen-Eingaben durch Do/Loop Schleife
      - Titel der Konsole
      - Auswertung und Berechnung des BMI mit Try/Catch Block

      Weitere Ideen:
      - Veränderung der Font
      - BMI-Berechnung für Kinder

      Ich hoffe ich konnte euch helfen!
      Viel Spaß! :)

      Verbesserungen des Codes sind erwünscht


      Edit by LaMa5:
      - passt hier besser rein
      -->*moved* (Tipps&Tricks => SourceCodeAustausch)

      Download des Projektes:
      Dateien

      • BMI.zip

        (56,87 kB, 414 mal heruntergeladen, zuletzt: )

      Dieser Beitrag wurde bereits 9 mal editiert, zuletzt von „Mouse-Maze“ ()

      Wenn ich da noch meinen Senf dazu geben darf:


      VB.NET-Quellcode

      1. Option Strict On
      2. Option Explicit On
      4. Module Module1
      6. Dim gewicht As Integer
      7. Dim körpergröße As Integer
      9. Sub Main()
      10. Console.WriteLine("Willkommen zu der Berechnung Ihres BMI (Body Mass Index)" & vbNewLine)
      13. Console.WriteLine("Bitte geben Sie Ihr Körpergewicht in kg ein!")
      14. Gewicht:
      15. Try
      16. gewicht = CInt(Console.ReadLine())
      17. Catch ex As Exception
      18. Console.WriteLine("Nur Zahlen erlaubt...")
      19. GoTo Gewicht
      20. End Try
      23. Console.WriteLine("Nun geben Sie bitte Ihre Körpergröße in cm ein!")
      24. Größe:
      25. Try
      26. körpergröße = CInt(Console.ReadLine())
      27. Catch ex As Exception
      28. Console.WriteLine("Nur Zahlen erlaubt...")
      29. GoTo Größe
      30. End Try
      33. Console.WriteLine("Ihr BMI beträgt:")
      34. Console.WriteLine(CStr(gewicht / ((körpergröße / 100) ^ 2)))
      35. Console.ReadLine()
      36. End Sub
      38. End Module



      MFG

      Hmm.

      Man könnte vielleicht noch das Textdesign ein wenig verschönern, wobei das nur eine Nebensache ist.
      Ich würde noch eine Auswerung des errechneten Betrags einfügen. Also in welchem Gewichtsbereich man liegt.



      MFG

      Das mit der Auswertung werd ich noch machen!
      Weiß jemand wie man die Farbe der Console verändern kann?
      Mit ForegroundColor und Backgroundcolor kann man ja nur die Schriftfarbe verändern.
      Oder macht man das mit ConsoleColor und wenn ja wie?

      Also ich habe jetzt mal meine Vorschläge selbst umgesetzt:

      VB.NET-Quellcode

      1. Module Module1
      3. Dim gewicht As Integer
      4. Dim körpergröße As Integer
      5. Dim BMI As Short
      6. Dim BMIBereich As String
      8. Sub Main()
      9. Console.Title = "BMI - Rechner"
      10. Console.ForegroundColor = ConsoleColor.White
      11. Console.WriteLine("╔══════════════════════════════════════════════════════════╗")
      12. Console.WriteLine("║ Willkommen zu der Berechnung Ihres BMI (Body Mass Index) ║")
      13. Console.WriteLine("╚══════════════════════════════════════════════════════════╝" & vbNewLine)
      15. Console.WriteLine("Bitte geben Sie Ihr Körpergewicht in kg ein!")
      16. Gewicht:
      17. Try
      18. gewicht = CInt(Console.ReadLine())
      19. Console.WriteLine(vbNewLine)
      20. Catch ex As Exception
      21. Console.WriteLine("Nur Zahlen erlaubt...")
      22. GoTo Gewicht
      23. End Try
      26. Console.WriteLine("Nun geben Sie bitte Ihre Körpergröße in cm ein!")
      27. Größe:
      28. Try
      29. körpergröße = CInt(Console.ReadLine())
      30. Console.WriteLine(vbNewLine)
      31. Catch ex As Exception
      32. Console.WriteLine("Nur Zahlen erlaubt...")
      33. GoTo Größe
      34. End Try
      37. BMI = CUShort(gewicht / ((körpergröße / 100) ^ 2))
      39. Select Case BMI
      41. Case Is < 20
      42. BMIBereich = "Untergewicht"
      43. Case 20 To 25
      44. BMIBereich = "Normalgewicht"
      45. Case 25 To 30
      46. BMIBereich = "Übergewicht"
      47. Case Is > 30
      48. BMIBereich = "Extremes Übergewicht"
      49. Case Else
      50. MsgBox("Schwerwiegender Fehler")
      51. End
      52. End Select
      54. Console.Beep()
      55. Console.WriteLine(vbNewLine)
      56. Console.WriteLine("Ihr BMI beträgt: " & CStr(BMI))
      57. Console.WriteLine("Das heißt Sie haben " & BMIBereich & vbNewLine)
      58. Console.WriteLine("Zum Beenden Taste drücken...")
      59. Console.ReadLine()
      60. End Sub
      62. End Module




      MFG

      Aua..
      GoTo ist total veraltet und unsauber! Man kann sowas fast immer anders Lösen!

      Hier zB mit einer Schleife:

      VB.NET-Quellcode

      1. Do
      2. Dim strGewicht As String
      3. strGewicht = Console.ReadLine()
      4. Loop While IsNumeric(strGewicht) = False
      5. gewicht = CInt(strGewicht)


      Das selbe noch mit der Größe.

      Ja fällt mir auch gerade ein.

      Habe sowas nur vor paar Tagen in Batch gemacht.

      Und da ist Goto halt oft vorhanden ^^

      MFG

      Hast du dir die Source gedownloadet?
      Ich glaube da ist noch ne ältere Version, auf jeden Fall ist im gezeigten Code die Abfrage mit IsNummeric!
      Ich werde auch noch den BMI-Rechner für Kinder posten, bin nur noch nicht dazu gekommen.

      @Carl
      Du kannst ja ein Programm machen, dass das Gewicht berechnet wird, wenn man seine Körpergröße angiebt!

      Außerdem ist der BMI dazu da zu schauen "wie man so mit seiner Gewichtslage steht" und ob man übergewichtig ist etc.
      Wagen geben nur das Gewicht an und nicht ob man zu dick oder zu dünn ist! :P

    Facebook
    Telefonspende