program aplikasi menentukan indeks massa tubuh menggunakan visual basic 2008
inilah source code nya,,,,
dan selamat mencoba.....

Dim tinggibdn As Decimal
    Dim beratbdn As Decimal

    Private Sub Pbcek_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pbcek.Click
        If Txttnggibdn.Text = "" Then
            MessageBox.Show("anda belum memasukkan nilai anda", "error pengisian", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End If
        If Txtberatbdn.Text = "" Then
            MessageBox.Show("anda belum memasukkan nilai anda", "error pengisian", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End If
        If Not IsNumeric(Txttnggibdn.Text) Then
            MessageBox.Show("pengisian anda salah ", "error pengisian", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End If
        If Not IsNumeric(Txtberatbdn.Text) Then
            MessageBox.Show("pengisian anda salah ", "error pengisian", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End If

        If Txttnggibdn.Text < 0.0 Then

            MessageBox.Show("nilai yang anda masukkan tidak terdaftar", "error pengisian", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End If
        If Txttnggibdn.Text < 0.0 Then

            MessageBox.Show("nilai yang anda masukkan tidak terdaftar", "error pengisian", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End If

        tinggibdn = CDec(Txttnggibdn.Text)
        beratbdn = CDec(Txtberatbdn.Text)

        Txtidealbdn.Text = ((tinggibdn / 100 * tinggibdn / 100) * 21.34)
        Txtidealbdn.Text = FormatNumber(Txtidealbdn.Text, 1)

        Txtkategori.Text = (beratbdn / (tinggibdn / 100 * tinggibdn / 100))
        If Txtkategori.Text >= 30 Then
            Txtkategori.Text = "obesitas 2"
        ElseIf Txtkategori.Text >= 25 And Txtkategori.Text < 30 Then
            Txtkategori.Text = " obesitas 1"
        ElseIf Txtkategori.Text > 22 And Txtkategori.Text < 25 Then
            Txtkategori.Text = " beresiko obesitas"
        ElseIf Txtkategori.Text >= 18.5 And Txtkategori.Text <= 22 Then
            Txtkategori.Text = " berat badan ideal "
        Else
            Txtkategori.Text = " kurus"
        End If

    End Sub

    Private Sub Pbreset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pbreset.Click
        Txtberatbdn.Text = ""
        Txttnggibdn.Text = ""
        Txtkategori.Text = ""
        Txtidealbdn.Text = ""


    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Close()

    End Sub