VBNET

End Sub
End Class
VB.Net Örnek Uygulamalar
2 Kasım 2011
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
Tolga GÜYER Sayfa 6