1. sayfa (Toplam 1 sayfa)

VBS Kodu : Kilo İndeksi Hesaplama

Gönderilme zamanı: 03 Ara 2024 15:07
gönderen TRWE_2012
Merhabalar

Ö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

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Ü :

Resim
Resim
Resim

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...

Re: VBS Kodu : Kilo İndeksi Hesaplama

Gönderilme zamanı: 03 Ara 2024 15:49
gönderen admin
Eline sağlık abi. İyi sardın bu işe sen. Başarılar

Re: VBS Kodu : Kilo İndeksi Hesaplama

Gönderilme zamanı: 03 Ara 2024 15:54
gönderen TRWE_2012
admin yazdı: 03 Ara 2024 15:49 Eline sağlık abi. İyi sardın bu işe sen. Başarılar
Benim zaten bireysel, Microsoft Visual Basıc v6.0 - Q-Basıc 3,4,5 ve Microsoft Visual Scprits 2-3-4-5 kodlama geçmişimiz var ta...!!! Sivas-Cumhuriyet Üniversitesinden, (dersimizin adı: Informasyon idi)

Sadece bu zaman'a kadar uzak kalmıştım.

Re: VBS Kodu : Kilo İndeksi Hesaplama

Gönderilme zamanı: 19 Oca 2025 18:01
gönderen TRWE_2012
TRWE_2012, ister Microsoft Windows olsun, ister GNU/Linux olsun, kodlamada kendine göre mahir (becerikli) bir PC kullanıcısıdır.

İşte yukarıdaki kodlamanın "Bash Shell" karşılığı :

Kilo Endeksi Hesaplama
https://forum.debian.org.tr/index.php?t ... n#msg29884

Re: VBS Kodu : Kilo İndeksi Hesaplama

Gönderilme zamanı: 19 Oca 2025 19:32
gönderen mehoaga
admin yazdı: 03 Ara 2024 15:49 Eline sağlık abi. İyi sardın bu işe sen. Başarılar
Bir başarı da benden kardeşime. :arrow: