Önce Kod İçeriğini Verelim :
Kod: Tümünü seç
' 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
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...
