Kilo İndeksi Hesaplama VBS Kodu

TRWE_2012 · 29 Kas 2024

Merhabalar

Kod İçeriği :

Kod:

' Kilo İndeksi Hesaplama VBS Kodu

' Kullanıcıdan boy ve kilo bilgilerini al
Dim boy, kilo, bmi, durum

boy = InputBox("Lütfen boyunuzu (metre cinsinden) girin:", "Boy Girişi")
kilo = InputBox("Lütfen kilonuzu (kilogram cinsinden) girin:", "Kilo Girişi")

' Kilo indeksini hesapla
If IsNumeric(boy) And IsNumeric(kilo) And boy > 0 Then
    bmi = kilo / (boy * boy)
   
    ' BMI değerine göre durumu belirle
    If bmi < 18.5 Then
        durum = "Zayıf"
    ElseIf bmi >= 18.5 And bmi < 24.9 Then
        durum = "İdeal"
    ElseIf bmi >= 25 And bmi < 29.9 Then
        durum = "Fazla Kilolu"
    Else
        durum = "Obez"
    End If
   
    ' Sonucu göster
    MsgBox "Kilo İndeksiniz: " & Round(bmi, 2) & vbCrLf & "Durum: " & durum, vbInformation, "Sonuç"
Else
    MsgBox "Lütfen geçerli bir boy ve kilo değeri girin.", vbExclamation, "Hata"
End If

Kodun Sözel Açıklaması :

Yukarıda, bir kişinin kilo indeksini (BMI - Body Mass Index) hesaplamak için kullanılabilecek basit bir .vbs kodu örneği bulunmaktadır. Bu kod, kullanıcıdan boy ve kilo bilgilerini alır ve BMI değerini hesaplayarak bir mesaj kutusunda gösterir.BMI değerine göre "zayıf", "ideal", "fazla kilolu" veya "obez" olarak sınıflandırılır.Kod, BMI değerini hesapladıktan sonra durumu belirler ve kullanıcıya hem BMI değerini hem de durumunu gösterir. Kilo indeksinin sınıflandırılması şu şekildedir:

Zayıf: BMI < 18.5
İdeal: 18.5 ≤ BMI < 24.9
Fazla Kilolu: 25 ≤ BMI < 29.9
Obez: BMI ≥ 30

Bu kodu bir metin dosyasına yapıştırıp .vbs uzantısıyla kaydettikten sonra çalıştırabilirsiniz.

EKRAN GÖRÜNTÜSÜ :

Kodun tasarımı ve kodlaması bana ait olup yüzde yüz orjinaldir.(ne çalıntı ne de alıntıdır.) Güle güle kullanmanız dileğiyle...

Arama Yap

Arama Yap

Kilo İndeksi Hesaplama VBS Kodu

TRWE_2012

لِيَغْفِرَ لَكَ اللّٰهُ مَا تَقَدَّمَ مِنْ ذَنْبِك