Visal Basic Problem

Lieber Besucher, herzlich willkommen bei: Aqua Computer Forum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.

TrOuble

God

Beiträge: 9 461

Visal Basic Problem

Dienstag, 17. August 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 :

Zitat

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

Beiträge: 910

Re: Visal Basic Problem

Dienstag, 17. August 2004, 02:12

Zitat von »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:

Zitat

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

Beiträge: 9 461

Re: Visal Basic Problem

Dienstag, 17. August 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

Beiträge: 910

Re: Visal Basic Problem

Dienstag, 17. August 2004, 02:45

sry versteh ich jetzt überhaupt nicht :-/

TrOuble

God

Beiträge: 9 461

Re: Visal Basic Problem

Dienstag, 17. August 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

Beiträge: 910

Re: Visal Basic Problem

Dienstag, 17. August 2004, 02:54

probiers mal damit:

Zitat

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

Beiträge: 4 210

Re: Visal Basic Problem

Dienstag, 17. August 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

Beiträge: 9 164

Re: Visal Basic Problem

Dienstag, 17. August 2004, 10:35

	Quellcode
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:

	Quellcode
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

Beiträge: 3 281

Re: Visal Basic Problem

Dienstag, 17. August 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)

Quellcode

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

Beiträge: 910

Re: Visal Basic Problem

Dienstag, 17. August 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