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..
ideal

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

Pin It on Pinterest