B4X FEED End If error

اطلاعات موضوع

درباره موضوع در تاریخ, در دسته b4xfeed ایجاد شده و آغاز کننده آن practicalsoftمی باشد و موضوع آن: End If error است. این موضوع تا کنون 17 بازدید کننده و, 0 پاسخ داشته و 0 بار پسندیده شده...
نام دسته b4xfeed
نام موضوع End If error
آغاز کننده موضوع practicalsoft
تاریخ شروع
پاسخ‌ها
0
بازدیدها
17
پسندها
0
آخرین ارسال توسط PracticalSoft
Jun 6, 2020
11,559
4,422
I keep having a return if error and or should i use Switch statement?

Sub btnCalcBMI_Click
edtDisBMI.Text = ( edtb1.Text / (edtb2.Text * edtb2.Text))
If (edtb1.Text == "" Or edtb2.Text == "") Then
edtDisBMI.Text = "Enter the Values for Weight/Length"
Else


If edtDisBMI.Text <= 119 Then
edtDisplayBMI.Text = "Normal" & edtDisBMI.Text

If edtDisBMI.Text >=120 And edtDisBMI.Text <=139 Then
edtDisBMI.Text = "Prehypertension" & edtDisBMI.Text
If edtDisBMI.Text >=140 And edtDisBMI.Text <=159 Then
edtDisBMI.Text = "High Blood Pressure (Hypertension Stage 1)"& edtDisBMI.Text
If edtDisBMI.Text >=160 And edtDisBMI.Text <=179 Then
edtDisBMI.Text = "High Blood Pressure (Hypertension Stage 2)"& edtDisBMI.Text
If edtDisBMI.Text >= 180 Then
edtDisBMI.Text ="Hypertensive Crisis (EMERGENCY CARE NEEDED)"& edtDisBMI.Text

End If
End Sub

 

عقب
بالا