VB.NET vraagje

[Verwijderd]

Hoi,

Ik probeer een BMI calculator te maken die aangeeft wat je bmi is en daarbij ook of je ondergewicht, normaal gewicht, enz hebt

Screenshot:


Ik zou graag dus de optie willen toevoegen dat mensen ook gelijk te weten krijgen of ze een over of ondergewicht etc hebben. mijn code tot nu toe is

Visual Basic:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim height, weight, bmi As Single
        height = TextBox1.Text
        weight = TextBox2.Text
        bmi = (weight) / (height ^ 2)
        Label4.Text = bmi
        
    End Sub
End Class

Code kan tussen [code=vb][/code] tags
weet iemand wat ik toe moet voegen om te laten zien wat diegene heeft (overgewicht/ondergewicht)

Dacht zelf aan een Label maar hoe moet ik instellen dat het programma dit in het label zet bij bijvoorbeeld een BMI waarde van onder de 18.5


Alvast heel erg bedankt!

[ Voor 4% gewijzigd door BtM909 op 17-01-2010 18:52 ]

[Verwijderd]

met een label inderdaad, en met een if-statement of select case kom je er wel. De parameter is in jouw geval "bmi".

[Verwijderd]

bedankt maar dan zit ik nog met 1 probleem en dat is dat ik waardes moet hebben zoals

geef aan ondergewicht als bmi = <18,5

en

geef aan normaal gewicht als bmi = tussen 18.5 en 24.9

hoe voer je dit dan in?

[Sibert]

Ik weet niet hoe VB.NET werkt maar in C# (en andere talen)
Ziet het er een beetje alsvolgt uit:
Belangerijk: Dit is C# geen VB.NET, het is dus gewoon een indicatie van hou het er ongeveer zal uit zien!
We veronderstellen dat u het in Label5 zet

C#:

if(bmi <= 18.5)
{
    Label5.Text = "U heeft ondergewicht";
}
else if(bmi >= 18.5 && bmi <= 24.9)
{
   Label.Text = "U heeft een normaal gewicht";
}
else if(bmi >= 24.9 && <= 29.9)
{
    Label5.Text = "U bent te zwaar";
}
else
{
    Label5.Text = "U bent veel te zwaar";
}

[Verwijderd]

ik heb nu dit:

Visual Basic:

Dim height, weight As Single
        Dim bmi As Double
        height = TextBox1.Text
        weight = TextBox2.Text
        bmi = (weight) / (height ^ 2)
        Label4.Text = bmi

        Dim output As String


        output = Label11.Text

        Select Case bmi

            Case "0 To 18.5"
                output = "u heeft ondergewicht"
            Case "18.5 To 24.9"
                output = "u heeft een normaal gewicht"
            Case "25 To 29.9"
                output = "u heeft overgewicht"
            Case "29.9 To 99999"
                output = "u heeft een veel te hoog gewicht"

        End Select

maar Visual Studio geeft aan: InvalidCastExeption was unhandled
De conversie van tekenreeks 0 To 18.5 is ongeldig.

[ Voor 0% gewijzigd door BtM909 op 17-01-2010 18:52 ]

[ID-College]

Zou je er niet: "Wat houdt u BMI in?" van maken?

[Soggney]

bmi double en ge compared met strings...

[BtM909]

Nibor081, wil je voortaan iets meer zelfinzet tonen. Je krijgt bepaalde errors, dus we verwachten wel dat je die errors even door Google al en zelf aangeeft wat je hebt geprobeerd en waarom je denkt dat het mis gaat

---

Daarnaast kan je RML code gebruiken in je post. Zie ook: Overzicht van UBB-codes

[ Voor 18% gewijzigd door BtM909 op 17-01-2010 18:54 ]

[Verwijderd]

Hee ik heb wat,

ik heb met deze code idd wat aan t werk gekregen, ondergewicht en normaal gewicht werkt alleen bij een bmi hoger dan 24.9 geeft het programma nog steeds aan dat de persoon een normaal gewicht heeft...

CODE:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim height, weight As Single
Dim bmi As Double
height = TextBox1.Text
weight = TextBox2.Text
bmi = (weight) / (height ^ 2)
Label4.Text = bmi

If (bmi <= 18.5) Then
Label11.Text = "U heeft ondergewicht"
ElseIf (bmi >= 18.5 <= 24.9) Then
Label11.Text = "U heeft een normaal gewicht"
ElseIf (bmi >= 24.9 <= 29.9) Then
Label11.Text = "U bent te zwaar"
Else
Label11.Text = "U bent veel te zwaar"
End If


Reageer later want ik ga even eten!

End Sub

End Class

[Verwijderd]

Verwijderd schreef op zondag 17 januari 2010 @ 18:56:
If (bmi <= 18.5) Then
Label11.Text = "U heeft ondergewicht"
ElseIf (bmi >= 18.5 <= 24.9) Then
Label11.Text = "U heeft een normaal gewicht"
ElseIf (bmi >= 24.9 <= 29.9) Then
Label11.Text = "U bent te zwaar"
Else
Label11.Text = "U bent veel te zwaar"
End If

if ((BMI >=18.5) <=24.9)

je bedoelt vast ((BMI >= 18.5) && (BMI <=24.9)), welke trouwens geoptimaliseerd kan worden naar (bmi < 25), kleiner dan 18.5 heb je immers al gecheckt

[Verwijderd]

Je moet je condities nog maar een keer nagaan....

[ Voor 79% gewijzigd door Verwijderd op 17-01-2010 19:05 ]

[ShitHappens]

Volgens mij werkt ElseIf (bmi >= 18.5 <= 24.9) niet, zou moeten zijn
Elseif (bmi >= 18.5 AND <=24.9)

Bij die andere ook AND ertussen.. maar VB is alweer lang geleden voor mij

[ Voor 13% gewijzigd door ShitHappens op 17-01-2010 19:07 ]

[Sibert]

AND kan normaal gezien worden vervangen door && (In PHP en C# toch)

[Verwijderd]

@Darkstone:

Heb nergens een dubbele ( voor gezet dus snap niet wat je bedoelt..

@ShitHappens:

Volgens mij moet je dan nog meer doen want bij alleen die AND geeft ie een foutmelding

-----------------------------------------------

Maar alsnog heel erg bedankt voor jullie hulp, ik weet nu wat de code moet zijn, namelijk:


CODE:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim height, weight As Single
Dim bmi As Double
height = TextBox1.Text
weight = TextBox2.Text
bmi = (weight) / (height ^ 2)
Label4.Text = bmi

If (bmi <= 18.5) Then
Label11.Text = "U heeft ondergewicht"
ElseIf (bmi <= 25) Then
Label11.Text = "U heeft een normaal gewicht"
ElseIf (bmi <= 30) Then
Label11.Text = "U bent te zwaar"
Else
Label11.Text = "U bent veel te zwaar"
End If

End Sub

End Class

[RobIII]

Zo moeilijk zijn code tags toch niet?

Anyhow; als je even je lesboek/cursusmateriaal of een willekeurige tutorial op internet er even op had nageslage had dit topic niet bestaan. Dit is toch wel redelijk basis programmeerwerk. Wil je voortaan ook een topictitel kiezen die de lading dekt? "VB.Net vraagje" zegt zo weinig.