Olá pessoal, esse foi o meu primeiro video, espero que gostem, meu nome é Kayck, mais mim Intitulo como Obscurity.Se vc fez a calculadora IMC, e quiser adicionar mais coisa, aqui está o quadro dizendo o resultado de como vc está:
Abaixo de 17------------ Muito abaixo do peso
Entre 17 e 18,49------- Abaixo do peso
Entre 18,5 e 24,99---- Peso normal
Entre 25 e 29,99------ Acima do peso
Entre 30 e 34,99------ Obesidade I
Entre 35 e 39,99------ Obesidade II (severa)
Acima de 40 ------ Obesidade III (Morbida)
aqui o script (apague tudo que tiver escrito na aba de script da calculadora e copie este):
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox("Adicione Peso e Altura")
Else TextBox3.Text = TextBox1.Text * TextBox1.Text
TextBox4.Text = TextBox2.Text / TextBox3.Text
End If
End Sub
End Class