Visal Basic Problem

Dear visitor, welcome to Aqua Computer Forum. If this is your first visit here, please read the Help. It explains how this page works. You must be registered before you can use all the page's features. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.

TrOuble

God

Visal Basic Problem

Tuesday, August 17th 2004, 2:03am

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 :

Quoted

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

Tuesday, August 17th 2004, 2:12am

Quoted from "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:

Quoted

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

Tuesday, August 17th 2004, 2:19am

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

Tuesday, August 17th 2004, 2:45am

sry versteh ich jetzt überhaupt nicht :-/

TrOuble

God

Re: Visal Basic Problem

Tuesday, August 17th 2004, 2:51am

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

Tuesday, August 17th 2004, 2:54am

probiers mal damit:

Quoted

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

Tuesday, August 17th 2004, 10:30am

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

Tuesday, August 17th 2004, 10:35am

	Source code
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:

	Source code
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

Tuesday, August 17th 2004, 11:44am

@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)

Source code

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

Tuesday, August 17th 2004, 4:56pm

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

Aber nach ner Zeit hat man sowas auch rauß

Ferdi