hlmod.hu

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub cmdKilepes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKilepes.Click
        End
    End Sub
 
    Private Sub cmdTorles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTorles.Click
        txtKg.Text = ""
        txtM.Text = ""
        txtIndex.Text = ""
 
    End Sub
 
    Private Sub cmdSzamitas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSzamitas.Click
        Dim kg, m, index As Single
        Dim valasz As VariantType
        kg = txtKg.Text
        m = txtM.Text
        index = kg / (m * m)
        txtIndex.Text = index
        If index <= 18.5 Then
            valasz = MsgBox("Sovány vagy, egyél többet!", MsgBoxStyle.OkOnly, "Testtömegindexed: " & index)
        ElseIf (index > 18.5 And index <= 24.5) Then
            valasz = MsgBox("A testsúlyod ideális!", MsgBoxStyle.OkOnly, "Testtömegindexed: " & index)
        Else
            valasz = MsgBox("Túlsúlyos vagy! Mozogj többet és egyél kevesebbet! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_e_smile.gif\" alt=\":)\" title=\"mosoly\" /><!-- s:) -->", MsgBoxStyle.OkOnly, "Testtömegindexed: " & index)
        End If
    End Sub
End Class