BMI

Met Visual Studio .NET kan je programma's maken voor Pocket PC. Bij wijze van voorbeeld dit programma om de body mass index te berekenen. De body mass index is het resultaat van de deling van het gewicht (in kg) door het kwadraat van de lengte (in meter). Als het resultaat lager is dan 21 is de persoon in kwestie te mager, boven 25 is hij/zij te dik.

• We plaatsen twee tekstvakken (één voor het gewicht en één voor de lengte), een knop voor de berekening en een label voor de uitvoer.
• We maken een procedure voor het tonen van het resultaat, voorzien een hint van het invullen vand e tekstvakken en proberen foute invoer op te vangen.
• De code ziet er zo uit:
  Sub toon()
  If txtGewicht.Text = "" Or txtLengte.Text = "" Then
  Button1.Enabled = False
  Else
  Button1.Enabled = True
  End If
  End Sub
  Private Sub txtGewicht_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtGewicht.TextChanged
  If Not IsNumeric(txtGewicht.Text) Then
  txtGewicht.Text = buffer
  Exit Sub
  End If
  buffer = txtGewicht.Text
  toon()
  End Sub
  
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  InputPanel1.Enabled = True
  End Sub
  
  Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
  lblExpl.Text = ""
  End Sub
  
  Private Sub txtLengte_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtLengte.TextChanged
  If Not IsNumeric(txtLengte.Text) Then
  txtLengte.Text = buffer
  Exit Sub
  End If
  buffer = txtLengte.Text
  toon()
  End Sub
  
  Private Sub txtGewicht_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles txtGewicht.MouseMove
  lblExpl.Text = "Vul hier je gewicht in in kilo"
  End Sub
  
  Private Sub txtLengte_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles txtLengte.MouseMove
  lblExpl.Text = "Vul hier je lengte in in meter"
  End Sub
  
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim bmi As Double
  Dim result As String
  bmi = txtGewicht.Text / (txtLengte.Text * txtLengte.Text)
  Label1.Text = bmi
  Select Case bmi
  Case Is < 21
  Me.Label1.Text &= "Te mager"
  Case Is > 25
  Me.Label1.Text &= "Te dik"
  Case Else
  Me.Label1.Text &= "OK"
  End Select
  End Sub
   
• Je kan het project bekijken.

[VB Web] - [hlrnet] - [copyright]