VALORES EM TEXTBOX
GALERA, BOA TARDE!
ESTOU PRECISANDO DE UMA AJUDA EM RELACAO A VALORES NUM TEXTBOX
POSSUO 3 TEXTBOX E UM BOTÃO
PesoTextBox, AlturaTextBox, BTNCALCULAR, IMCTextBox
ESTOU USANDO O CODIGO ABAIXO PARA CALCULAR O IMC - ATRAVéS DO BOTÃO.
Try
If Me.PesoTextBox.Text.Trim = [Ô][Ô] And Me.AlturaTextBox.Text.Trim = [Ô][Ô] Then
MsgBox([Ô]Preencha os campos para obter o resultado![Ô], MsgBoxStyle.Information, [Ô]::CAMPO VAZIO::[Ô])
Me.PesoTextBox.Focus()
ElseIf IsNumeric(PesoTextBox.Text) And IsNumeric(AlturaTextBox.Text) Then
decPeso = Me.PesoTextBox.Text
decAltura = Me.AlturaTextBox.Text
decPeso /= decAltura ^ 2
decIMC = decPeso
Me.IMCTextBox.Text = Math.Round(decIMC, 2)
End If
Catch ex As Exception
MsgBox(ex.Message, , [Ô]::ERRO::[Ô])
End Try
O PROBLEMA é QUE NÃO CONSIGO COLOCAR VALORES COMO 1,90 NO CAMPO ALTURATEXTBOX, ELE PERMITE APENAS NUMEROS INTEIROS.
NO BANCO DE DADOS EU JA ALTEREI O CAMPO ALTURA PARA TEXTO OU NÚMERICO E O ERRO PERSISTE
ALGUEM PODERIA ME DIZER ONDE ESTOU ERRANDO?
GRATO
ESTOU PRECISANDO DE UMA AJUDA EM RELACAO A VALORES NUM TEXTBOX
POSSUO 3 TEXTBOX E UM BOTÃO
PesoTextBox, AlturaTextBox, BTNCALCULAR, IMCTextBox
ESTOU USANDO O CODIGO ABAIXO PARA CALCULAR O IMC - ATRAVéS DO BOTÃO.
Try
If Me.PesoTextBox.Text.Trim = [Ô][Ô] And Me.AlturaTextBox.Text.Trim = [Ô][Ô] Then
MsgBox([Ô]Preencha os campos para obter o resultado![Ô], MsgBoxStyle.Information, [Ô]::CAMPO VAZIO::[Ô])
Me.PesoTextBox.Focus()
ElseIf IsNumeric(PesoTextBox.Text) And IsNumeric(AlturaTextBox.Text) Then
decPeso = Me.PesoTextBox.Text
decAltura = Me.AlturaTextBox.Text
decPeso /= decAltura ^ 2
decIMC = decPeso
Me.IMCTextBox.Text = Math.Round(decIMC, 2)
End If
Catch ex As Exception
MsgBox(ex.Message, , [Ô]::ERRO::[Ô])
End Try
O PROBLEMA é QUE NÃO CONSIGO COLOCAR VALORES COMO 1,90 NO CAMPO ALTURATEXTBOX, ELE PERMITE APENAS NUMEROS INTEIROS.
NO BANCO DE DADOS EU JA ALTEREI O CAMPO ALTURA PARA TEXTO OU NÚMERICO E O ERRO PERSISTE
ALGUEM PODERIA ME DIZER ONDE ESTOU ERRANDO?
GRATO
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
TextBox1.Text = FormatNumber(TextBox1.Text)
If TextBox1.Text = [Ô][Ô] Then
TextBox1.Text = 0
End If
End Sub
Onde textbox1.text é o nome do meu textbox
consigo gravar na tabela nutricao, porém ao vincluar o campo altura com o databindings(text), aparece o erro:
Private Sub Nutricao_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
[ô]TODO: This line of code loads data into the [ô]TodoDiaDataSet.nutricao[ô] table. You can move, or remove it, as needed.
Me.NutricaoTableAdapter.Fill(Me.TodoDiaDataSet.nutricao)
* Seqüência de entrada não estava em um formato incorreto.Não foi possÃvel armazenar <2,10> na coluna Altura. O tipo esperado é Int32
ja tentei alterar o formato do campo para texto e numero e o erro persiste
o que pode estar acontecendo?
Private Sub Nutricao_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
[ô]TODO: This line of code loads data into the [ô]TodoDiaDataSet.nutricao[ô] table. You can move, or remove it, as needed.
Me.NutricaoTableAdapter.Fill(Me.TodoDiaDataSet.nutricao)
* Seqüência de entrada não estava em um formato incorreto.Não foi possÃvel armazenar <2,10> na coluna Altura. O tipo esperado é Int32
ja tentei alterar o formato do campo para texto e numero e o erro persiste
o que pode estar acontecendo?
Tópico encerrado , respostas não são mais permitidas