Visal Basic Problem

Bonjour, visiteur, bienvenue sur les forums Aqua Computer Forum. Si c’est votre première visite, nous vous invitons à consulter l’Aide. Elle vous expliquera le fonctionnement de cette page. Pour avoir accès à toutes les fonctionnalités, vous devez vous inscrire. Pour cela, veuillez utiliser le formulaire d’enregistrement, ou bien lisez plus d’informations sur la procédure d’enregistrement. Si vous êtes déjà enregistré, veuillez vous connecter.

TrOuble

God

Visal Basic Problem

mardi 17 août 2004, 02:03

Moin,

Also ich Programiere grade einen Body-Maß-Index Rechner...
eigentlich ne sehr einfache sache ...

Allerdings rechnet er Falsch - wieso weiß ich leider nicht ... :-/

Hier das Programm Klick

Quellcode ist folgender :

Citation

Private Sub Command1_Click()
Text3 = Val(gewicht) / Val((groeße) * (groeße))
If Val(rat) > 15 Then Text4 = "Dies ist ein Normaler Wert."
If Val(rat) < 30 Then Text4 = "Dies ist ein Normaler Wert."
If Val(rat) < 15 Then Text4 = "Dieser Wert ist zu niedrig - sie sollten zum Arzt."
If Val(rat) > 30 Then Text4 = "Dieser Wert ist zu hoch - sie sollten zum Arzt."
End Sub

Wenn ich zb von einer 50Kg schweren und 1,60m Großen Person ausgehe MÜSSTE 19,53125 rauskommen ...

Bei meinem Rechner kommt aber 25 raus ???

Formel für BMI :
(Gewicht in KG) / (Größe in m²)

Kann mir jemand helfen ? :-[

mfG TrOuble

JGFerdi

Senior Member

Re: Visal Basic Problem

mardi 17 août 2004, 02:12

Citation de "TrOuble"

Private Sub Command1_Click()
Text3 = Val(gewicht) / Val((groeße) * (groeße))
If Val(rat) > 15 Then Text4 = "Dies ist ein Normaler Wert."
If Val(rat) < 30 Then Text4 = "Dies ist ein Normaler Wert."
If Val(rat) < 15 Then Text4 = "Dieser Wert ist zu niedrig - sie sollten zum Arzt."
If Val(rat) > 30 Then Text4 = "Dieser Wert ist zu hoch - sie sollten zum Arzt."
End Sub

Probiers damit:

Citation

Private Sub Command1_Click()
Text3 = Val(gewicht) / (groeße * groeße)
If Val(rat) > 15 Then Text4 = "Dies ist ein Normaler Wert."
If Val(rat) < 30 Then Text4 = "Dies ist ein Normaler Wert."
If Val(rat) < 15 Then Text4 = "Dieser Wert ist zu niedrig - sie sollten zum Arzt."
If Val(rat) > 30 Then Text4 = "Dieser Wert ist zu hoch - sie sollten zum Arzt."
End Sub

Kannst mich auch per ICQ ansprechen wenn du noch probleme hast!

TrOuble

God

Re: Visal Basic Problem

mardi 17 août 2004, 02:19

Ok vielen Dank

Jetzt noch ein Probleme ...

1. Wie schaffe ich, dass die Ratschläge jedes mal neu berechnet werden?

JGFerdi

Senior Member

Re: Visal Basic Problem

mardi 17 août 2004, 02:45

sry versteh ich jetzt überhaupt nicht :-/

TrOuble

God

Re: Visal Basic Problem

mardi 17 août 2004, 02:51

Also die if werte ...

wenn zb. der BMI unter 15 soll er sagen :

"Dieser Wert ist zu niedrig - sie sollten zum Arzt"

...

Das macht er ja auch ...

allerdings bleibt diese nachricht stehen - auch wenn ich nun neue werte eintippe und der BMI über 45 geht ...

JGFerdi

Senior Member

Re: Visal Basic Problem

mardi 17 août 2004, 02:54

probiers mal damit:

Citation

Private Sub Command1_Click()
Text3 = Val(gewicht) / (groeße * groeße)
If text3 > 15 Then Text4 = "Dies ist ein Normaler Wert."
If text3 < 30 Then Text4 = "Dies ist ein Normaler Wert."
If text3 < 15 Then Text4 = "Dieser Wert ist zu niedrig - sie sollten zum Arzt."
If text3 > 30 Then Text4 = "Dieser Wert ist zu hoch - sie sollten zum Arzt."
End Sub

TheJoker

God

Re: Visal Basic Problem

mardi 17 août 2004, 10:30

hm mal ganz davon abgesehen:
also meines wissen liegen normale werte zwischen 18 und 25, nicht zwischen 15 und 30. 30 ist afaik ganz schön viel... also ich würde mich da nochmal informieren, damit das auch einigermaßen stimmt.
es gibt auch noch unterschiede bei der bewertung zwischen männern und frauen soweit ich weiss.

C programmers never die. They are just cast into void.

Neues moddingtech.de Portal online!

Eumel

God

Re: Visal Basic Problem

mardi 17 août 2004, 10:35

	Code source
1	Text3 = Val(gewicht) / (groeße * groeße)

Ähm... das is imo quatsch. Speichere das Ergebnis erstmal in einer vernünftigen Variablen (numerisch versteht sich

).

Dann kannste ja folgendes schreiben:

	Code source
1	Text3 = erg

So bleibt die Sache übersichtlicher (aus meiner Sicht) und man hat auch nicht so viele Probleme mit VAL

MfG

"I've always said, the Web is the sum of all human knowledge plus porn.", Ron Gilbert
UltraStar Manager 1.7.2 | Infos zu meinem PC | .o0 DeathSpank 0o.

DAP

God

Re: Visal Basic Problem

mardi 17 août 2004, 11:44

@trouble.. hilfe.. bitte gewöhn dir garnet erst an so zu "coden"

was sind 'groeße' und 'gewicht'? textfelder? variablen? (warum sind die nicht deklariert?

)

ich geh jetzt mal von textfeldern aus und hab mal die namen entsprechend geändert (auch den namen des commandbuttons)

Code source

Private Sub cmdCalcBMI_Click()
    Dim dBMI As Double
    dBMI = txtWeight.Text / (txtSize.Text * txtSize.Text)
    If dBMI > 30 Then
        txtstatus.Text = "Dieser Wert ist zu hoch - Sie sollten zum Arzt."
    ElseIf dBMI > 15 Then
        txtstatus.Text = "Dies ist ein Normaler Wert."
    Else
        txtstatus.Text = "Dieser Wert ist zu niedrig - Sie sollten zum Arzt."
    End If
End Sub

JGFerdi

Senior Member

Re: Visal Basic Problem

mardi 17 août 2004, 16:56

So hätte ich das jetzt auch gemacht (ob ihrs glaubt oder nicht :-* )

Aber nach ner Zeit hat man sowas auch rauß

Ferdi