Problem mit einem Programm

NigHT · 18. März 2008

Hi ich hab nen kleines Programm und hoffe ma das um die Uhrzeit noch Jemand on ist der mir kurz helfen kann.
Also es dreht sich um folgendes ich will nen Programm schreiben was den Bodymassindex ausrechnet.

------------------------------------------------------------------------
Option Explicit
Dim gewicht As Integer
Dim groesse As Integer
Dim bmi As Integer
Private Sub cmd_start_Click()

gewicht = txt_gewicht.Text
groesse = txt_groesse.Text
bmi = lbl_bmi.Caption

bmi = gewicht / (groesse) ^ 2

End Sub

Private Sub cmd_ende_Click()
End
End Sub

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

aber wenn ich das Programm ausfrühre und auf Start bzw Ausrechnen klicke dann sagt er immer bei bmi = lbl_bmi.Caption "Typen unverträglich"
nun weiß ich nicht mehr weiter was ich machen kann damit es funktioniert.

Spacerat · 18. März 2008

Sieht mir nach VB6 aus..
die Caption aus lbl_bmi.Caption scheint kein integer-Wert zu sein, den du vorher bestimmt hast. Danach berechnest du ja gewicht / groesse ^2 und übergibst den Wert an die Variable bmi.
Ich schätze, du willst danach lbl_bmi.caption die Variable bmi übergeben?
Versuchs mal so:
Code:
Option Explicit
Dim gewicht As Integer
Dim groesse As Integer
Dim bmi As Integer
Private Sub cmd_start_Click()



gewicht = txt_gewicht.Text
groesse = txt_groesse.Text
bmi = gewicht / (groesse) ^ 2

lbl_bmi.Caption = bmi

End Sub

Private Sub cmd_ende_Click()
End
End Sub

NigHT · 18. März 2008

ok thx funkst musste aber das integer in double ändern sonst kommen falsche werte raus aber sonst geht es thx

Problem mit einem Programm

Problem mit einem Programm

SysProfile Windows Foren

Hardware Foren