Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: resultaat en risico in select case  (gelezen 1977 keer)

0 leden en 1 gast bekijken dit topic.

Offline Diezel

  • Oplosser
  • ****
  • Berichten: 508
  • Geslacht: Man
  • Meedenker - Initiatief nemen - Helpen oplossen...
resultaat en risico in select case
« Gepost op: 08 augustus 2017, 14:24:36 »
Hoi Oplossers,

Ik ben 76,6kg en 177 cm groot. De berekening van het Body Mass Index cijfer doet zijn werk maar de seclect case niet. Als ikbvb 120 kg zou ingeven geeft die normaal weer en dat kan niet.

Option Compare Database
Option Explicit
Private Sub btnUitslag_Click()

Dim OmrekLichaamslengte As Double
OmrekLichaamslengte = txtLichaamslengte / 100

Dim MijnBMI As Double
MijnBMI = Format(txtLichaamsgewicht / OmrekLichaamslengte / OmrekLichaamslengte, "##.##")


Me.txtBMI = MijnBMI

'Resultaat en het risico bepalen

Select Case Format(Me.txtBMI, "##.##")

Case Is < 18.5

Me.txtResultaat = "Ondergewicht"
txtRisico = "Gestegen"
Exit Sub

Case Is >= 18.5 < 25

Me.txtResultaat = "Normaal"
Me.txtRisico = "Normaal"
Exit Sub

Case Is >= 25 < 26

Me.txtResultaat = "Overgewicht"
Me.txtRisico = "Gestegen"
Exit Sub

Case Is >= 30 < 35

Me.txtResultaat = "Obesitas type 1"
Me.txtRisico = "Hoog"
Exit Sub

Case Is >= 34.99 < 40

Me.txtResultaat = "Obesitas type 2"
Me.txtRisico = "Zeer Hoog"
Exit Sub

Case Is >= 39

Me.txtResultaat = "Obesitas type 3"
Me.txtRisico = "Extreem Hoog"
Exit Sub

End Select

End Sub


In bijlage een voorbeeldje uitgewerkt.

Vriendelijke groeten Diezl
OS: Windows 10 Home - 64 bit
Processor:  Intel(R) Core(TM) I7 - 4770 CPU 3,40 GHZ
SSD - RAM: 500 GB, 16 GB
SOFTWAREPAKKET: Office 2007

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: resultaat en risico in select case
« Reactie #1 Gepost op: 08 augustus 2017, 19:55:36 »
Private Sub btnUitslag_Click()

Dim OmrekLichaamslengte As Double
OmrekLichaamslengte = txtLichaamslengte / 100

Dim MijnBMI As Double
MijnBMI = Format(txtLichaamsgewicht / OmrekLichaamslengte / OmrekLichaamslengte)


Select Case MijnBMI
   
    Case Is < 18.5
            Me.txtResultaat = "Ondergewicht"
            txtRisico = "Gestegen"
            Exit Sub
    Case Is < 25
            Me.txtResultaat = "Normaal"
            Me.txtRisico = "Normaal"
            Exit Sub
    Case Is < 26
            Me.txtResultaat = "Overgewicht"
            Me.txtRisico = "Gestegen"
            Exit Sub
    Case Is < 30
            Me.txtResultaat = "Geen idee"
            Me.txtRisico = "Gestegen"
            Exit Sub
    Case Is < 35
            Me.txtResultaat = "Obesitas type 2"
            Me.txtRisico = "Zeer Hoog"
            Exit Sub
    Case Is < 40
            Me.txtResultaat = "geen idee"
            Me.txtRisico = "Zeer Hoog"
            Exit Sub
    Case Else
            Me.txtResultaat = "Obesitas type 3"
            Me.txtRisico = "Extreem Hoog"
            Exit Sub

End Select

End Sub
Er zijn wat gaps in je Case? Diezel.
Tussen 26 en 30 is er niets?
34.99 is mogelijk in 2 gevallen (Cases)
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Diezel

  • Oplosser
  • ****
  • Berichten: 508
  • Geslacht: Man
  • Meedenker - Initiatief nemen - Helpen oplossen...
Re: resultaat en risico in select case
« Reactie #2 Gepost op: 08 augustus 2017, 20:47:54 »
Hoi Dizzl,

Heb het zo opgelost en dit werkt dan wel:

De select case broncode verwijderen en de broncode vervangen met onderstaande:

'Resultaat en het risico bepalen

If Format(MijnBMI, "00.00") < 18.5 Then txtResultaat = "Ondergewicht"
If Format(MijnBMI, "00.00") < 18.5 Then txtRisico = "Gestegen"

If Format(MijnBMI, "00.00") > 18.5 Then txtResultaat = "Normaal"
If Format(MijnBMI, "00.00") > 18.5 Then txtRisico = "Normaal"

If Format(MijnBMI, "00.00") > 24.99 Then txtResultaat = "Overgewicht"
If Format(MijnBMI, "00.00") > 24.99 Then txtRisico = "Gestegen"

If Format(MijnBMI, "00.00") > 29.99 Then txtResultaat = "Obesitas type 1"
If Format(MijnBMI, "00.00") > 29.99 Then txtRisico = "Hoog"

If Format(MijnBMI, "00.00") > 34.99 Then txtResultaat = "Obesitas type 2"
If Format(MijnBMI, "00.00") > 34.99 Then txtRisico = "Zeer Hoog"

If Format(MijnBMI, "00.00") > 39.99 Then txtResultaat = "Obesitas type 3"
If Format(MijnBMI, "00.00") > 39.99 Then txtRisico = "Extreem Hoog"

Voor Datum tekstbox:
txtDatum = Date +Time

Hoe zou dan de oplossing kunnen zijn binnen select case dan?

Vriendelijke groeten,

Diezel
OS: Windows 10 Home - 64 bit
Processor:  Intel(R) Core(TM) I7 - 4770 CPU 3,40 GHZ
SSD - RAM: 500 GB, 16 GB
SOFTWAREPAKKET: Office 2007

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: resultaat en risico in select case
« Reactie #3 Gepost op: 08 augustus 2017, 21:24:27 »
opgelost is ok ;-)
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

 


www.combell.com