Neler yeni
MEGAForum - Teknoloji Forumu

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

TRWE_2012

لِيَغْفِرَ لَكَ اللّٰهُ مَا تَقَدَّمَ مِنْ ذَنْبِك
Moderatör
Konum
BERTUNA
  • Üyelik Tarihi
    2 Haz 2020
  • Mesajlar
    5,338
  • MFC Puanı
    16,230
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Ü :

CP0XPxG.jpeg


k3RcqTx.jpeg


DvtOkm5.jpeg


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...
 
Üst Alt