BMI Hesaplayıcı: 6 Adım

2024 Yazar: John Day | [email protected]. Son düzenleme: 2024-01-30 13:19

Benim adım Umair Bin Asım. Global Perspective öğrencisiyim, O seviyelerimi yapıyorum. Bu proje, benim ve sınıf arkadaşlarımın şu anda yürüttüğü bir farkındalık kampanyasının parçası. Obezitenin tüm dünyada yükselen bir sorun olduğunu kabul ediyor ve insanları büyük bir sosyal felakete yol açmadan obeziteyle mücadele etmeye teşvik ediyoruz. Bu proje, birçok bilinçlendirme kampanyamızdan biridir.

BMI hesaplayıcısı, kişilerin vücut kitle indekslerini hesaplamada ve obez olup olmadıklarını belirlemede daha kolay olmasını sağlamak içindir. Yaptığımız hesap makinesi amerikan sağlık derneği standartlarına göre ayarlanmıştır. Bunu yayınlamanın amacı, insanların sadece bir hesap makinesi yapmalarına değil, aynı zamanda insanların hesap makinelerini ulusal standartları ne olursa olsun değiştirmelerine izin vermektir.

Adım 1: Yeni Bir Visual Studio Projesi Oluşturma

1. açık görsel stüdyo
2. yeni projeye tıklayın
3. dullar formu başvurusunu seçin
4. projeyi "BMI hesaplayıcısı" olarak yeniden adlandırın
5. projeyi kaydedin ve konumu hatırlayın (ayrı bir sürücüye kaydettim)

Adım 2: İki Bölüm

Visual studio windows form uygulamasında iki bölüm var

1) Form1.vb [Tasarım]

burada GUI'yi yaratırsınız

2) Form1.vb

buraya programlamanı yazıyorsun

üzerlerinden seçerek sekmeleri seçebilirsiniz

3. Adım: Arayüzü Tasarlayın (etiketler ve Metin Kutuları)

bu adımda grafik kullanıcı arayüzünü tasarlamanız gerekir.

1. mevcut araç kutusundan etiketleri seçin (araç kutusunu bulamıyorsanız Ctrl+Alt+x tuşlarına basın)
2. etiketi formun üzerine sürükleyin ve sağ tarafta düzenleyin. üç etikete ihtiyacımız var
3. etiketleri sol tarafa yerleştirin
4. etiketlere tıklayın ve özelliklerde Otomatik Boyutlandır'ı YANLIŞ olarak değiştirin, bu, etiketi yeniden boyutlandırmanıza izin verecektir.

5. etiketlere tıklayın ve özelliklerde metni sırasıyla "boy", "ağırlık", "BMI'niz" olarak değiştirin.

6. renk ve 3D efekti gibi özelliklerdeki diğer ayarları da değiştirebilirsiniz.
7. araç kutusundan üç metin kutusunu sürükleyin ve bunları etiketlere paralel sol boyunca hizalayın
8. metin kutusuna tıklayın ve özelliklerde ad ayarlarını "txtheight", "txtweight", "txtresults" olarak değiştirin
9. renk ve 3D efekti gibi özelliklerdeki diğer ayarları da değiştirebilirsiniz.
10. son bir metin kutusu oluşturun ve altta hizalayın, bu metin kutusuna "txtcomment" adını verin, bu, yalnızca rakamlardan anlamak zor olabileceğinden, kişilerin BMI'si bazında bir sonuç verecektir.
11. Programımızda bu metin kutularını çağırmamız gerekeceğinden, adın değiştirilmesi esastır, başka bir ad koymak isterseniz, programda atıfta bulunulan düğmenin adını da değiştirmelisiniz. (isimler programıma göredir)

Adım 4: Arayüzü Tasarlayın (düğmeler)

düğmeleri araç kutusundan sürükleyerek ve resimde gösterildiği gibi hizalayarak yerleştirin

buton seçiliyken özelliklerde butonun üzerindeki ismi değiştirin ve metin ayarını da değiştirebilirsiniz.

• "BMI hesapla" metniyle "btncalc" düğme adı oluşturun
• "clear" metinli bir "btnclear" düğme adı oluşturun
• "exit" metinli bir "btnexit" düğme adı oluşturun
• "hakkında bilgi edinin" metniyle birlikte "btnabout" adlı bir düğme adı oluşturun
• "yardıma mı ihtiyacınız var?" metniyle birlikte "btnhlp" adlı bir düğme adı oluşturun. (bunu kullanmadım ve yardım düğmesi eklemek istemeniz durumunda serbest bırakıldı)

GUI formundaki düğmeleri uygun gördüğünüz şekilde hizalayın

adın değiştirilmesi esastır çünkü bu butonları programımızda çağırmamız gerekecek, başka bir isim koymak isterseniz, programda atıfta bulunulan butonun adını da değiştirmelisiniz. (isimler programıma göredir)

Adım 5: Hesap Makinenizi Programlayın

Genel Sınıf Formu1

Özel Alt btncalc_Click(sender As System. Object, e As System. EventArgs) btncalc. Click'i işler

Dim yüksekliği As Double = 0 'yükseklik adında bir değişken oluşturur Dim ağırlık As Double = 0 'ağırlık adında bir değişken oluşturur Dim BMI As Double = 0 'BMI adında bir değişken oluşturur

txtresults. Text = ""

yükseklik = Double. Parse(txtheight. Text) 'txtheight metin kutusundaki sayıları okur ve ilgili değişkene kaydeder ağırlık = Double. Parse(txtweight. Text) 'metin kutusundaki sayıları okur txtweight ve ilgili değişkene kaydeder yükseklik = yükseklik * 0.0254 'boyu metreye dönüştürür ağırlık = ağırlık * 0.4535924 'ağırlığı kilograma dönüştürür boy = boy * boy 'yüksekliğin karesini alır ve değişken yüksekliğe kaydeder

If ((yükseklik <= 0) Veya (ağırlık <= 0)) Sonra 'doğal olmayan verilerin girilmediğinden emin olmak için geçerlilik kontrolü cleanup() MsgBox("lütfen gerçekçi değerler girin") Exit Sub End If

BMI = ağırlık / boy 'BMI hesaplaması

BMI = Format(BMI, "0.00") 'BMI'yi iki ondalık basamağa yazar txtresults. Text = BMI 'metin kutusuna BMI yazar txtresults txtcomment. Text = "" 'metin kutusu yorumunu veri girişine izin vermek için boşaltır

'VKİ'ye göre durumu hesaplar

BMI < 18,5 ise O zaman 'durum ülkenize göre değişebilir

txtcomment. Text = "ağırlığın altındasın"

ElseIf ((BMI >= 18.5) Ve (BMI 24.9) Ve (BMI 29.9 O zaman txtcomment. Text = "obezsiniz, lütfen önlem alın" End If

Alt Bitiş

Private Sub btnexit_Click(sender As System. Object, e As System. EventArgs) btnexit. Click'i işler

End Sub'dan çıkmak için Close() 'işleviPrivate Sub btnclear_Click(sender As System. Object, e As System. EventArgs) btnclear. Click cleanup()'u işler. Clear() txtresults. Text = "" txtheight. Focus() End Sub

Private Sub btnabout_Click(sender As System. Object, e As System. EventArgs) btnabout. Click'i işler

'bu, ayrı bir mesaj kutusunda gösterilen mesajdır

'Aşağıdaki "=" işaretinden sonra istediğiniz herhangi bir şeyi ekleyebilirsiniz ancak çift virgül ("") arasında olmalıdır.

Dim message As String = "Bu Yazılım Umair Bin Asım Tarafından Sağlık Konusunda Toplumsal Farkındalık Uğruna Yapılmıştır." & vbNewLine & "Dünya Çapında Obez Kişilerin Sayısındaki Artış, Kalp Hastalıkları ve Diyabet Vakalarının Artmasıyla Sağlık Paniğine Yol Açtı." & vbNewLine & "Bütün bunlara rağmen çok sayıda insan obez olup olmadığını ya da buna nasıl karşı koyacağını bilmiyor." & vbNewLine & "Buna Cevap Olarak BMI'nizi ve Obez Olup Olmadığınızı Belirlemek İçin Bir Hesap Makinesi Yaptık." & vbNewLine & "Bu Standartlar Amerikan Kalp Derneğine Göredir."

MsgBox(mesaj)

End Sub Private Sub btnhlp_Click(sender As System. Object, e As System. EventArgs) btnhlp'yi işler. '" arasına yazmak istediğiniz herhangi bir mesajı ekleyin ' ' şimdilik boş, Dim acil_message As String = ""

MsgBox(acil_mesaj)

Alt BitişSınıfı Bitir

Adım 6: Tebrikler Programlamanız Tamamlandı

artık BMI'nizi hesaplayabilirsiniz ve yazılımınızı beğeninize göre nasıl düzenleyeceğinizi bilirsiniz.

yazılımı oynamak için üst çubuktaki yeşil oka basın veya sadece F5'e basın keyfini çıkarın!

Size kolaylık sağlamak için kendi hesap makinemizi (hazır) ve programlamayı (bir.txt dosyasında) yayınladık