Kalkulator BMI: 6 Langkah

2024 Pengarang: John Day | [email protected]. Terakhir diubah: 2024-01-30 09:56

Nama saya Umair Bin Asim. Saya seorang mahasiswa Perspektif Global, melakukan level O saya. Proyek ini adalah bagian dari kampanye kesadaran yang saya dan teman-teman sekelas saya lakukan saat ini. Kami menyadari obesitas sebagai masalah yang meningkat di seluruh dunia dan mendorong orang untuk memerangi obesitas sebelum mengarah ke bencana sosial yang besar. Proyek ini adalah salah satu dari banyak kampanye kesadaran kami.

Kalkulator BMI, adalah untuk memungkinkan orang lebih mudah dalam menghitung indeks massa tubuh mereka dan menentukan apakah mereka mengalami obesitas atau tidak. Kalkulator yang kami buat diatur dalam standar asosiasi kesehatan Amerika. Tujuan dari posting ini adalah untuk memungkinkan orang tidak hanya membuat kalkulator tetapi juga memungkinkan orang untuk memodifikasi kalkulator mereka sesuai standar nasional mereka.

Langkah 1: Membuat Proyek Visual Studio Baru

1. buka studio visual
2. klik pada proyek baru
3. pilih formulir aplikasi janda
4. ganti nama proyek menjadi "kalkulator BMI"
5. simpan proyek dan ingat lokasinya (saya telah menyimpannya di drive terpisah)

Langkah 2: Dua Bagian

ada dua bagian dalam aplikasi formulir Visual studio windows

1) Form1.vb [Desain]

di sini Anda membuat GUI

2) Formulir1.vb

di sini Anda menulis pemrograman Anda

Anda dapat memilih tab dengan memilihnya

Langkah 3: Rancang Antarmuka (label dan Kotak Teks)

dalam langkah ini Anda perlu merancang antarmuka pengguna grafis.

1. pilih label dari kotak alat yang tersedia (jika Anda tidak dapat menemukan kotak alat, tekan Ctrl+Alt+x)
2. seret label ke formulir dan atur di sebelah kanan. kita membutuhkan tiga label
3. atur label di sepanjang kiri
4. klik pada label dan di properti ubah Autosize menjadi FALSE, ini akan memungkinkan Anda untuk mengubah ukuran label.

5. klik pada label dan di properti ubah teks menjadi "tinggi", "berat", "BMI Anda", masing-masing.

6. Anda juga dapat mengubah pengaturan lain di properti seperti warna dan efek 3D.
7. seret tiga kotak teks dari kotak alat dan sejajarkan di sepanjang kiri sejajar dengan label
8. klik pada kotak teks dan di properti ubah pengaturan nama menjadi "txtheight", "txtweight", "txtresults"
9. Anda juga dapat mengubah pengaturan lain di properti seperti warna dan efek 3D.
10. buat kotak teks terakhir dan ratakan di bagian bawah, beri nama kotak teks ini "txtcomment", ini akan memberikan hasil berdasarkan BMI orang karena memahami dari angka saja mungkin sulit.
11. mengubah nama sangat penting karena kami harus memanggil kotak teks ini di program kami, jika Anda lebih suka memasukkan nama lain, Anda juga harus mengubah nama tombol yang dirujuk dalam program. (namanya sesuai dengan program saya)

Langkah 4: Desain Antarmuka (tombol)

tempatkan tombol dengan menyeretnya dari kotak alat dan menyelaraskannya seperti yang ditunjukkan pada gambar

saat tombol dipilih, ubah nama pada tombol di properti, dan Anda juga dapat mengubah pengaturan teks.

• buat nama tombol "btncalc", dengan teks "hitung BMI"
• buat nama tombol "btnclear", dengan teks "clear"
• buat nama tombol "btnexit", dengan teks "keluar"
• buat nama tombol "btnabout", dengan teks "belajar tentang kami"
• buat nama tombol "btnhlp", dengan teks "butuh bantuan?" (Saya belum pernah menggunakan ini dan dibiarkan gratis jika Anda ingin menambahkan tombol bantuan)

sejajarkan tombol dalam bentuk GUI sesuai keinginan Anda

mengubah nama sangat penting karena kami harus memanggil tombol-tombol ini di program kami, jika Anda lebih suka memasukkan nama lain, Anda juga harus mengubah nama tombol yang dirujuk dalam program. (namanya sesuai dengan program saya)

Langkah 5: Memprogram Kalkulator Anda

Formulir Kelas Umum1

Private Sub btncalc_Click(sender As System. Object, e As System. EventArgs) Menangani btncalc. Click

Dim height As Double = 0 'membuat variabel bernama height Dim weight As Double = 0 'membuat variabel bernama weight Dim BMI As Double = 0 'membuat variabel bernama BMI

txtresults. Teks = ""

height = Double. Parse(txtheight. Text) 'membaca angka dari kotak teks txtheight dan menyimpannya ke dalam variabel masing-masing weight = Double. Parse(txtweight. Text) 'membaca angka dari kotak teks txtweight dan menyimpannya ke dalam variabel masing-masing height = height * 0.0254 'mengubah tinggi menjadi meter berat = berat * 0.4535924 'mengubah berat menjadi kilogram tinggi = tinggi * tinggi 'kuadrat helght dan menyimpannya ke dalam variabel tinggi

If ((height <= 0) Atau (weight <= 0)) Kemudian 'pemeriksaan validitas untuk memastikan data yang tidak wajar tidak dimasukkan cleanup() MsgBox("please insert real values") Exit Sub End If

BMI = berat / tinggi 'perhitungan BMI

BMI = Format(BMI, "0,00") 'menulis BMI ke dua desimal txtresults. Text = BMI 'menulis BMI di kotak teks txtresults txtcomment. Text = "" 'mengosongkan komentar kotak teks untuk memungkinkan entri data

'menghitung kondisi menurut BMI

Jika BMI < 18.5 Maka 'kondisi dapat bervariasi di negara Anda

txtcomment. Text = "berat badan Anda kurang"

ElseIf ((BMI >= 18,5) Dan (BMI 24,9) Dan (BMI 29,9 Kemudian txtcomment. Text = "Anda obesitas, harap berhati-hati" End If

Akhir Sub

Private Sub btnexit_Click(sender As System. Object, e As System. EventArgs) Menangani btnexit. Click

Close() 'fungsi untuk keluar End SubPrivate Sub btnclear_Click(sender As System. Object, e As System. EventArgs) Menangani btnclear. Click cleanup() 'memanggil pembersihan sub rutin End Sub cleanup() 'menghapus setiap kotak teks txtcomment. Text = "" txtheight. Clear() txtweight. Clear() txtresults. Text = "" txtheight. Focus() End Sub

Private Sub btnabout_Click(sender As System. Object, e As System. EventArgs) Menangani btnabout. Click

'ini adalah pesan yang ditampilkan di kotak pesan terpisah

'Anda dapat menambahkan apa pun yang Anda inginkan setelah tanda "=" di bawah tetapi harus di antara koma ganda ("")

Pesan Dim As String = "Software Ini Dibuat Oleh Umair Bin Asim Demi Kepedulian Sosial Terhadap Kesehatan." & vbNewLine & "Peningkatan Jumlah Orang Obesitas di Seluruh Dunia Telah Menimbulkan Kepanikan Kesehatan Karena Jumlah Kasus Penyakit Jantung Dan Diabetes Yang Meningkat." & vbNewLine & "Meskipun Semua Ini Banyak Orang Tidak Tahu Apakah Mereka Kegemukan Atau Bagaimana Cara Mengatasinya." & vbNewLine & "Menanggapi Itu Kami Telah Membuat Kalkulator Untuk Menentukan BMI Anda Dan Apakah Anda Kegemukan Atau Tidak." & vbNewLine & "Standar Ini Menurut The American Heart Association."

MsgBox(pesan)

End Sub Private Sub btnhlp_Click(sender As System. Object, e As System. EventArgs) Menangani btnhlp. Click 'add any message you want to write in between the "" ' kosong untuk saat ini Dim urgent_message As String = ""

MsgBox(urgent_message)

Akhir SubKelas Akhir

Langkah 6: Selamat Pemrograman Anda Selesai

sekarang Anda dapat menghitung BMI Anda dan Anda tahu cara mengedit perangkat lunak sesuai keinginan Anda

untuk memainkan perangkat lunak tekan panah hijau di bilah atas atau cukup tekan F5 enjoy!

untuk kenyamanan Anda, kami telah memposting kalkulator kami sendiri (siap pakai) serta pemrograman (dalam file.txt)