Calculadora de IMC: 6 etapas

2025 Autor: John Day | [email protected]. Última modificação: 2025-01-23 15:03

Meu nome é Umair Bin Asim. Eu sou um estudante de Perspectiva Global, fazendo meus O níveis. Este projeto faz parte de uma campanha de conscientização que eu e meus colegas estamos conduzindo atualmente. Reconhecemos a obesidade como um problema crescente em todo o mundo e estamos incentivando as pessoas a combater a obesidade antes que ela leve a uma grande catástrofe social. Este projeto é uma de nossas muitas campanhas de conscientização.

A calculadora de IMC permite que as pessoas tenham mais facilidade em calcular seu índice de massa corporal e determinar se são ou não obesas. A calculadora que fizemos segue os padrões da associação americana de saúde. O objetivo dessa postagem é permitir que as pessoas não apenas façam uma calculadora, mas também modifiquem suas calculadoras para qualquer que seja seu padrão nacional.

Etapa 1: Criando um novo projeto do Visual Studio

1. estúdio visual aberto
2. clique no novo projeto
3. selecione o formulário de candidatura para viúvas
4. renomeie o projeto para "Calculadora de IMC"
5. salve o projeto e lembre-se do local (salvei em uma unidade separada)

Etapa 2: Duas Seções

há duas seções no aplicativo de formulário do Windows Visual Studio

1) Form1.vb [Design]

aqui você cria a GUI

2) Form1.vb

aqui você escreve sua programação

você pode escolher as guias selecionando-as

Etapa 3: Projete a interface (rótulos e caixas de texto)

nesta etapa, você precisa projetar a interface gráfica do usuário.

1. selecione os rótulos da caixa de ferramentas disponível (se você não conseguir encontrar a caixa de ferramentas, pressione Ctrl + Alt + x)
2. arraste o rótulo para o formulário e organize-os à direita. precisamos de três rótulos
3. organize os rótulos à esquerda
4. clique nos rótulos e nas propriedades altere Autosize para FALSE, isso permitirá que você redimensione o rótulo.

5. clique nos rótulos e nas propriedades altere o texto para "altura", "peso", "seu IMC", respectivamente.

6. você também pode alterar outras configurações nas propriedades, como cor e efeito 3D.
7. arraste três caixas de texto da caixa de ferramentas e alinhe-as paralelamente à esquerda dos rótulos
8. clique na caixa de texto e nas propriedades altere as configurações de nome para "txtheight", "txtweight", "txtresults"
9. você também pode alterar outras configurações nas propriedades, como cor e efeito 3D.
10. crie uma última caixa de texto e alinhe-a na parte inferior, nomeie essa caixa de texto "txtcomment", isso dará um resultado com base no IMC da pessoa, pois pode ser difícil entender apenas a partir dos números.
11. alterar o nome é essencial, pois teremos de chamar estas caixas de texto no nosso programa, se preferir colocar qualquer outro nome deverá alterar também o nome do referido botão no programa. (os nomes estão de acordo com meu programa)

Etapa 4: Projete a interface (botões)

coloque os botões arrastando-os da caixa de ferramentas e alinhando-os como mostrado na imagem

enquanto o botão estiver selecionado, altere o nome do botão nas propriedades e também poderá alterar a configuração do texto.

• crie um botão com o nome "btncalc", com o texto "calcular IMC"
• crie um botão com o nome "btnclear", com o texto "clear"
• crie um botão com o nome "btnexit", com o texto "sair"
• crie um botão com o nome "btnabout", com o texto "saiba mais sobre nós"
• crie um botão com o nome "btnhlp", com o texto "precisa de ajuda?" (não usei isso e está disponível para o caso de você querer adicionar um botão de ajuda)

alinhe os botões no formulário da GUI como achar necessário

alterar o nome é essencial, pois teremos de chamar estes botões no nosso programa, se preferir colocar qualquer outro nome deverá alterar também o nome do referido botão no programa. (os nomes estão de acordo com meu programa)

Etapa 5: Programando sua calculadora

Public Class Form1

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

Dim height As Double = 0 'cria variável chamada altura Dim weight As Double = 0' cria variável chamada peso Dim BMI As Double = 0 'cria variável chamada IMC

txtresults. Text = ""

height = Double. Parse (txtheight. Text) 'lê numerais da caixa de texto txtheight e salva na respectiva variável weight = Double. Parse (txtweight. Text)' lê numerais da caixa de texto txtweight e salva na respectiva variável height = height * 0,0254 'converte a altura em metros de peso = peso * 0,4535924' converte o peso em quilogramas de altura = altura * altura 'quadrados de peso e salva em altura variável

If ((height <= 0) Or (weight <= 0)) Then 'verificação de validade para garantir que dados não naturais não sejam inseridos cleanup () MsgBox ("insira valores realistas") Exit Sub End If

IMC = peso / altura 'cálculo do IMC

IMC = Formato (IMC, "0,00") 'grava o IMC em duas casas decimais txtresults. Text = BMI' grava o IMC na caixa de texto txtresults txtcomment. Text = "" 'esvazia o comentário da caixa de texto para permitir a entrada de dados

'calcula a condição de acordo com o IMC

Se o IMC for <18,5, a condição pode variar em seu país

txtcomment. Text = "você está abaixo do peso"

ElseIf ((IMC> = 18,5) And (IMC 24,9) And (IMC 29,9 Then txtcomment. Text = "você é obeso, tome precauções" End If

End Sub

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

Função Close () 'para sair End SubPrivate Sub btnclear_Click (sender As System. Object, e As System. EventArgs) Manipula btnclear. Click cleanup () 'chama sub rotina cleanup End Sub Sub cleanup ()' limpa cada caixa de texto txtcomment. Text = "" txtheight. Clear () txtweight. Clear () txtresults. Text = "" txtheight. Focus () End Sub

Sub privado btnabout_Click (remetente como System. Object, e As System. EventArgs) Manipula btnabout. Click

'esta é a mensagem mostrada em uma msgbox separada

'você pode adicionar qualquer coisa que quiser após o sinal "=" abaixo, mas deve estar entre vírgulas duplas ("")

Dim message As String = "Este software foi feito por Umair Bin Asim em prol da conscientização social sobre saúde." & vbNewLine & "Um aumento mundial no número de pessoas obesas causou um pânico na saúde, visto que o número de casos de doenças cardíacas e diabetes está aumentando." & vbNewLine & "Apesar de tudo isso, um grande número de pessoas não sabe se é ou não obeso ou como combatê-lo." & vbNewLine & "Em resposta a isso, fizemos uma calculadora para determinar seu IMC e se você é obeso ou não." & vbNewLine & "Estas normas estão de acordo com a American Heart Association."

MsgBox (mensagem)

End Sub Private Sub btnhlp_Click (sender As System. Object, e As System. EventArgs) Manipula btnhlp. Click 'adiciona qualquer mensagem que você deseja escrever entre ""', ela está vazia por enquanto Dim Emergency_message As String = ""

MsgBox (urgente_mensagem)

End SubFim da aula

Etapa 6: Parabéns, sua programação foi concluída

agora você pode calcular seu IMC e você sabe como editar seu software ao seu gosto

para jogar o software pressione a seta verde na barra superior ou simplesmente pressione F5 divirta-se!

para sua conveniência, postamos nossa própria calculadora (pronta), bem como a programação (em um arquivo.txt)