Error but everything ist right

[KurtS]

Hi, i have got a problem.

I got an error message, but i dont know what could be wrong!

Can you please help me?

The error message:

Compiling code. Error
Error compiling program.
Error description: Missing parameter.
Occurred on line: 55
Select bmx
Word: select

The coding:

Sub btnRechner_Click

   Dim gewicht As Double
   Dim groesse As Double
   Dim bmi As Double
   Dim bmx As Int
   
   'Sind auch genügend Felder ausgefüllt?
   If txtGewicht.Text = "" Then OR txtGroesse.Text = "" Then
      Msgbox("Bitte füllen Sie Gewicht und Größe aus!","Fehler!")
      Return
   End If
   
   gewicht = txtGewicht.Text
   groesse = txtGroesse.Text / 100
   bmi = Round2(gewicht / (groesse * groesse), 2)
   bmx = Abs(bmi)
   lblPlakat2.Text = "Ihr BMI liegt bei " & bmx & " !"
   
   'Auswertung
   
   Select bmx
         Case < 16   
            lblPlakat3.Text = "Sie haben starkes Untergewicht!" 
         Case 16
            lblPlakat3.Text = "Sie haben mäßiges Untergewicht!"
         Case 17 - 18
            lblPlakat3.Text = "Sie haben leichtes Untergewicht!" 
         Case 19 - 24
            lblPlakat3.Text = "Sie haben Normalgewicht! "
         Case 25 - 30
            lblPlakat3.Text = "Sie haben leichtes Übergewicht" 
         Case 31 - 35
            lblPlakat3.Text = "Sie haben Adipositas Stufe I!"
         Case 36 - 40
            lblPlakat3.Text = "Sie haben Adipositas Stufe II!"
         Case > 40
            lblPlakat3.Text = "Sie haben Adipositas Stufe III!"  
   End Select

End Sub

That is a body mass index calculation with some german statements.

Thank you!

 

[NJDude]

In B4A this doesn't work:

Case < 16 
...

Case > 40

But you can try THIS

Documentation about SELECT

 

[KurtS]

Thank you very much NJDude!

That was the failure!

i used "Case 1 - 15" instead of "Case < 16" and it works!

Great support, thanks!

KurtS