KULLANICI ADI : ŞİFRE Şifremi Unuttum*

Anasayfa İLLEG4L BANK KREDİ SATIN AL İLLEG4LİZM RAP Sub Domain Bulucu Arama Yap Yeni Konular Bugünki Konular

Konuyu Oyla:
  • Derecelendirme: 1/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Beden kitle indexsi programı yapımı
Konu : Beden kitle indexsi programı yapımı - 29.04.2014, 00:42
Mesaj: #1
İmage
<font color="#FFFFFF">Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TxtVki.Text = TxtKilo.Text / (TxtBoy.Text * TxtBoy.Text)
‘Vücut kitle indeksi=ağırlık (kg) / boyun (m) karesi.
If TxtVki.Text <= 19 Then
TxtSonuc.Text = "Zayıf"
PictureBox1.ImageLocation = "zayif.jpg"

End If

If TxtVki.Text >= 20 And TxtVki.Text < 25 Then
TxtSonuc.Text = "İdeal sınırlarda"
PictureBox1.ImageLocation = "ideal.jpg"
End If
If TxtVki.Text >= 25 And TxtVki.Text < 30 Then
TxtSonuc.Text = "Hafif şişman"
PictureBox1.ImageLocation = "hafif_sisman.jpg"
End If
If TxtVki.Text >= 30 And TxtVki.Text < 35 Then
TxtSonuc.Text = "Şişman"
PictureBox1.ImageLocation = "sisman.jpg"
End If
If TxtVki.Text >= 35 And TxtVki.Text < 45 Then
TxtSonuc.Text = "Sağlık açısından önemli"
PictureBox1.ImageLocation = "saglik_acisindan_tehlike.jpg"
End If
If TxtVki.Text >= 45 And TxtVki.Text < 50 Then
TxtSonuc.Text = "Aşırı şişman"
PictureBox1.ImageLocation = "cok_sisman.jpg"
End If
If TxtVki.Text >= 50 Then
TxtSonuc.Text = "Morbid (ölümcül) şişman"
PictureBox1.ImageLocation = "morbid.jpg"
End If
End Sub
End Class
 

</font>

Alıntı ile Cevapla
Konu : Beden kitle indexsi programı yapımı - 29.04.2014, 17:40
Mesaj: #2
İmage

Alıntı ile Cevapla


Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi
hd porno antalya escort türk ifşa porno izle türk ifşa porno samsun escort izmir escort ataşehir escort türk ifşa hd porno