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