1. Ana Sayfa
  2. Visual Studio Vb.net
  3. Vb.Net Dersleri – İdeal Kilo Hesaplama Programı

Vb.Net Dersleri – İdeal Kilo Hesaplama Programı

ideal

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
Yorum Yap
Subscribe
Bildir
guest

This site uses Akismet to reduce spam. Learn how your comment data is processed.

0 Yorum
Inline Feedbacks
View all comments