Vb.Net Dersleri – İdeal Kilo Hesaplama Programı

Visual Basic .Net ile kullanıcının girmiş olduğu bilgilere göre ideal kilosunu hesaplayan ve sonuç bölümünde kaç kilo fazlası olduğunu yazan programı yapabilmek için ilk olarak aşağıdaki form tasarımını yapıyoruz. ideal kilo hesaplamasında kullanılacak olan formül bayanlar için BOY – ((BOY – 140) / 4 + 100), erkekler için BOY- ((BOY – 150) / 4 + 100) olacak..

Dim BOY, KILO As Integer
        Dim HESAP1, SONUC As Integer
        BOY = Val(TextBox4.Text)
        KILO = Val(TextBox3.Text)
        If ComboBox1.Text = "ERKEK" Then
            HESAP1 = (BOY - 150) / 4 + 100
            SONUC = BOY - HESAP1
        Else
            HESAP1 = (BOY - 140) / 4 + 100
            SONUC = BOY - HESAP1
        End If

        If (TextBox3.Text) > SONUC * 1.1 Then
            TextBox5.Text = "ŞİŞMANSINIZ " & (KILO - SONUC) & "KG FAZLALIK VAR"
        Else
            TextBox5.Text = "İDEALSİN" & (KILO - SONUC) & "KG FAZLALIK VAR"
        End If