Kalkulator BMI: 6 Langkah

2024 Pengarang: John Day | [email protected]. Diubah suai terakhir: 2024-01-30 11:10

Nama saya Umair Bin Asim. Saya pelajar Perspektif Global, mencapai tahap O saya. Projek ini adalah sebahagian daripada kempen kesedaran yang saya dan rakan sekelas saya buat sekarang. Kami menyedari kegemukan sebagai masalah yang semakin meningkat di seluruh dunia dan mendorong orang untuk memerangi kegemukan sebelum membawa kepada bencana sosial yang besar. Projek ini adalah salah satu daripada kempen kesedaran kami.

Kalkulator BMI, adalah untuk membolehkan orang lebih mudah dalam mengira indeks jisim badan mereka dan menentukan sama ada mereka gemuk atau tidak. Kalkulator yang kami buat ditetapkan dalam standard persatuan kesihatan Amerika. Tujuan penyiaran ini adalah untuk membolehkan orang bukan sahaja membuat kalkulator tetapi juga membolehkan orang mengubah kalkulator mereka mengikut apa sahaja standard kebangsaan mereka.

Langkah 1: Membuat Projek Visual Studio Baru

1. studio visual terbuka
2. klik pada projek baru
3. pilih borang permohonan janda
4. ganti nama projek menjadi "kalkulator BMI"
5. simpan projek dan ingat lokasinya (saya telah menyimpannya dalam pemacu berasingan)

Langkah 2: Dua Bahagian

terdapat dua bahagian dalam aplikasi bentuk tingkap Visual studio

1) Form1.vb [Reka bentuk]

di sini anda membuat GUI

2) Borang1.vb

di sini anda menulis pengaturcaraan anda

anda boleh memilih tab dengan memilihnya

Langkah 3: Reka Bentuk Antaramuka (label dan Kotak Teks)

dalam langkah ini, anda perlu merancang antara muka pengguna grafik.

1. pilih label dari kotak alat yang tersedia (jika anda tidak dapat mencari kotak alat tekan Ctrl + Alt + x)
2. seret label ke borang dan susun label di sebelah kanan. kita memerlukan tiga label
3. susun label di sebelah kiri
4. klik pada label dan pada sifat menukar Autosize menjadi FALSE, ini akan membolehkan anda mengubah saiz label.

5. klik pada label dan pada sifat menukar teks menjadi "tinggi", "berat", "BMI anda", masing-masing.

6. anda juga boleh mengubah tetapan lain dalam sifat seperti warna dan kesan 3D.
7. seret tiga kotak teks dari kotak alat dan sejajarkan di sebelah kiri selari dengan label
8. klik pada kotak teks dan di sifat menukar tetapan nama menjadi "txtheight", "txtweight", "txtresults"
9. anda juga boleh mengubah tetapan lain dalam sifat seperti warna dan kesan 3D.
10. buat kotak teks terakhir dan sejajarkan di bahagian bawah, beri nama kotak teks ini "txtcomment", ini akan memberikan hasil berdasarkan BMI orang kerana pemahaman dari angka sahaja mungkin sukar.
11. menukar nama adalah mustahak kerana kita harus memanggil kotak teks ini dalam program kita, jika anda lebih suka meletakkan nama lain, anda juga mesti menukar nama butang yang disebut dalam program ini. (nama-nama mengikut program saya)

Langkah 4: Reka Bentuk Antaramuka (butang)

butang tempat dengan menyeretnya dari kotak alat dan menyelaraskannya seperti yang ditunjukkan dalam gambar

semasa butang dipilih ubah nama pada butang di sifat, dan anda juga boleh mengubah pengaturan teks.

• buat nama butang "btncalc", dengan teks "hitung BMI"
• buat nama butang "btnclear", dengan teks "jelas"
• buat nama butang "btnexit", dengan teks "exit"
• buat nama butang "btnabout", dengan teks "pelajari tentang kami"
• buat nama butang "btnhlp", dengan teks "memerlukan bantuan?" (saya belum menggunakan ini dan dibiarkan percuma sekiranya anda mahu menambah butang bantuan)

sejajarkan butang dalam bentuk GUI yang anda mahu

menukar nama adalah mustahak kerana kita harus memanggil butang ini ke dalam program kita, jika anda lebih suka meletakkan nama lain, anda juga mesti menukar nama butang yang disebut dalam program ini. (nama-nama mengikut program saya)

Langkah 5: Memprogram Kalkulator Anda

Borang Kelas Awam1

Subtanah peribadi btncalc_Click (pengirim Sebagai Sistem. Objek, e Sebagai Sistem. EventArgs) Mengendalikan btncalc. Klik

Dim tinggi As Double = 0 'mencipta pemboleh ubah bernama tinggi Dim berat As Double = 0' mencipta pemboleh ubah bernama berat Dim BMI Sebagai Double = 0 'mencipta pemboleh ubah bernama BMI

txtresults. Text = ""

tinggi = Double. Parse (txtheight. Text) 'membaca angka dari kotak teks txtheight dan menyimpannya ke dalam berat berubah masing-masing = Double. Parse (txtweight. Text)' membaca angka dari kotak teks txtweight dan menyimpannya ke pemboleh ubah masing-masing tinggi = tinggi * 0,0254 'menukar ketinggian menjadi meter berat = berat * 0,4535924' menukar berat menjadi kilogram tinggi = tinggi * tinggi 'kotak helght dan menyimpannya ke ketinggian berubah-ubah

Jika ((tinggi <= 0) Atau (berat <= 0)) Kemudian 'periksa kesahan untuk memastikan data tidak wajar tidak dimasukkan pembersihan () MsgBox ("sila masukkan nilai realistik") Keluar Sub Akhir Jika

Pengiraan BMI = berat / tinggi 'BMI

BMI = Format (BMI, "0.00") 'menulis BMI hingga dua titik perpuluhan txtresults. Text = BMI' menulis BMI dalam kotak teks txtresults txtcomment. Text = "" 'mengosongkan komen kotak teks untuk membenarkan kemasukan data

'mengira keadaan mengikut BMI

Sekiranya BMI <18.5 Maka keadaan 'mungkin berbeza di negara anda

txtcomment. Text = "anda kurang berat badan"

ElseIf ((BMI> = 18.5) Dan (BMI 24.9) Dan (BMI 29.9 Kemudian txtcomment. Text = "anda gemuk, sila ambil langkah berjaga-jaga"

Sub Akhir

Subtanah peribadi btnexit_Click (pengirim Sebagai Sistem. Objek, e Sebagai Sistem. EventArgs) Mengendalikan btnexit. Klik

Fungsi Tutup () untuk keluar Sub SubPrivate Sub btnclear_Click (sender As System. Object, e As System. EventArgs) Mengendalikan btnclear. Click cleanup () 'panggilan sub pembersihan rutin End Sub Sub cleanup ()' membersihkan setiap kotak teks txtcomment. Text = "" txtheight. Clear () txtweight. Clear () txtresults. Text = "" txtheight. Focus () End Sub

Subtanah peribadi btnabout_Click (pengirim Sebagai Sistem. Objek, e Sebagai Sistem. EventArgs) Mengendalikan btnabout. Klik

'ini adalah mesej yang ditunjukkan dalam kotak msg yang terpisah

'anda boleh menambahkan apa sahaja yang anda mahukan selepas tanda "=" di bawah tetapi mestilah antara koma berganda ("")

Mesej redup As String = "Perisian ini Dibuat Oleh Umair Bin Asim Untuk Kepentingan Kesedaran Sosial Mengenai Kesihatan." & vbNewLine & "Peningkatan Seluruh Dunia Dalam Bilangan Orang Yang Berat Badan Menghidupkan Panik Kerana Jumlah Kes Penyakit Jantung Dan Diabetes Sedang Meningkat." & vbNewLine & "Walaupun begitu, sebilangan besar orang tidak tahu sama ada mereka gemuk atau tidak, atau bagaimana untuk mengatasinya." & vbNewLine & "Sebagai tindak balas terhadap itu, kami telah membuat kalkulator untuk menentukan BMI anda dan sama ada anda gemuk atau tidak." & vbNewLine & "Piawaian Ini Menurut Persatuan Jantung Amerika."

Kotak Mesej (mesej)

End Sub Private Sub btnhlp_Click (pengirim Sebagai System. Object, e As System. EventArgs) Mengendalikan btnhlp. Klik 'tambahkan sebarang mesej yang ingin anda tulis di antara ""' ia kosong buat masa ini Dim urgent_message As String = ""

Kotak Mesej (urgent_message)

Sub AkhirKelas Tamat

Langkah 6: Tahniah Progamming Anda Selesai

sekarang anda boleh mengira BMI anda dan anda tahu bagaimana mengedit perisian anda mengikut keinginan anda

untuk memainkan perisian tekan anak panah hijau di bar atas atau tekan F5 nikmati!

untuk kemudahan anda, kami telah menghantar kalkulator kami sendiri (siap pakai) dan juga pengaturcaraannya (dalam fail.txt)