Mostrar se um valor é positivo negativo ou nulo

[yurimilesi]

Galera, seguinte. Tenho um trabalho pra fazer de escola mas não sei como fazer, sei bem pouco de VB, vale ponto o trabalho, se puderem me ajudar agradeço!

É o seguinte, A Professora pediu pra criar um textbox e um button, SÓ ISSO no form, mas acontece que ela pediu pra mostrar se o numero digitado no textbox é positivo, negativo ou nulo quando apertado o botão. Mas a mensagem para dizer se é positivo, negativo ou nulo ela pediu pra aparecer numa msgbox. tem como me ajudarem? desde já agradeço!

se puderem mandar o projeto vai ser melhor ainda pra eu estudar!

[car4321]

Já criaste o form e o botão?

[Gnrtuga]

se puderem mandar o projeto vai ser melhor ainda pra eu estudar!

LOOL

É melhor esperares sentado....

Esse projecto é do mais simples que há, só precisas de um IF (ou de um SELECT CASE, o que for mais simples para ti), é só pesquisares um bocadinho.

P.s tens a certeza que estás a frequentar essa disciplina? Se sim já devias saber fazer isto (a não ser que a disciplina tenha começado na segunda-feira).

[bids]

Poe isso no botão.

Talvez ele funcione

if textbox1.text = "0" then
msgbox("Numero Nulo")
end if
if textbox1.first("-") then
msgbox("Numero Negativo")
end if
if textbox1.text = >1 then
msgbox("Numero Positivo")
end if

[nelsonr]

bids, testaste isso?

[bids]

Testei e se era o que eu penso que ele queria. aqui está o codigo

correto.

o outro tinha alguns erros

 Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
	If IDTextBox.Text = "0" Then
		MsgBox("Numero Nulo")
	End If
	If IDTextBox.Text.First = "-" Then
		MsgBox("Numero Negativo")
	End If
	If IDTextBox.Text >= 1 Then
		MsgBox("Numero Positivo")
	End If
End Sub
End Class

Edited April 11, 2014 by bids

[car4321]

Testei e se era o que eu penso que ele queria. aqui está o codigo

correto.

o outro tinha alguns erros

 Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
	If IDTextBox.Text = "0" Then
		MsgBox("Numero Nulo")
	End If
	If IDTextBox.Text.First = "-" Then
		MsgBox("Numero Negativo")
	End If
	If IDTextBox.Text >= 1 Then
		MsgBox("Numero Positivo")
	End If
End Sub
End Class

Então o número 0.7 não é nada?

[PMSF]

já aprendi muito no fórum ...

mas não devemos promover a preguiça intelectual ...

de qualquer forma não se esqueçam de pensar:

se o conteúdo da textbox é um numero válido?!

e que tem que conferir todos os números possíveis e imagináveis ...

e a construção do IF ... podem simplificar ...

IF ... Then

ElseIf ... Then

ElseIf ... then

...

End if

[nelsonr]

Em principio bastará tentar converter o número para decimal (se o objectivo é aceitar decimais) e mostrar mensagem em caso de erro.

Caso não dê erro, verifica se é positivo/negativo para mostrar mensagem correspondente

[bids]

eu sou novato alguem poderia me construir o seguinte código?:

Se textbox1 = numero decimal então

msgbox("numero decimal")

😁

Agradeço

Então o número 0.7 não é nada?

Acho que este código resolve o teu problema

If TextBox1.Text >= 0.1 Then
		MsgBox("Numero Positivo")
	End If

[car4321]

Acho que este código resolve o teu problema

If TextBox1.Text >= 0.1 Then
		MsgBox("Numero Positivo")
	End If

O problema não é meu.

Mas foi pior a emenda que o soneto... 😄

Edited April 11, 2014 by car4321

[bids]

Porem se eu puser o numero 0,0004 nao apresenta nada alguem me explique?

[vikcch]

metes só maior que zero em vez de >= que 0.1

podes usar a função isnumeric para ver se é um numero válido

If IsNumeric(TextBox1.Text) Then

[bids]

metes só maior que zero em vez de >= que 0.1

podes usar a função isnumeric para ver se é um numero válido

If IsNumeric(TextBox1.Text) Then

Tentei o seu código.

O isnumeric significa "é numero"

Traduzido a português" Se texbox1 é numerico então

[car4321]

If Isnumeric(Textbox1.text) then
If TextBox1.Text > 0 Then
		MsgBox("Numero Positivo")
End If
End If

Edited April 12, 2014 by car4321

[Gnrtuga]

É impressão minha, ou o interessado na matéria ainda não se pronunciou?

Na minha opinião, o utilizador só queria que alguém lhe fizesse o trabalho, deve ter ido a todos os fóruns de programação (que encontrou) fazer o mesmo pedido. Tenho dúvidas que volte.

Fica a vossa boa intenção de ajudar, mas concordo com aquela velha máxima, "Não lhe dês peixe, ensina-o a pescar".

P.s se alguém quiser aprender a empatar um anzol (é esta a expressão), eu ensino.(literalmente).

Fiquem bem.

[bids]

É impressão minha, ou o interessado na matéria ainda não se pronunciou?

Na minha opinião, o utilizador só queria que alguém lhe fizesse o trabalho, deve ter ido a todos os fóruns de programação (que encontrou) fazer o mesmo pedido. Tenho dúvidas que volte.

Fica a vossa boa intenção de ajudar, mas concordo com aquela velha máxima, "Não lhe dês peixe, ensina-o a pescar".

P.s se alguém quiser aprender a empatar um anzol (é esta a expressão), eu ensino.(literalmente).

Fiquem bem.

Acho que tens razão.

Ele não vai voltar.

Mais aproveitando que eu sou um novato prefiro fazer codigos.

Assim eu ganho mais experiencias

[Gnrtuga]

Mais aproveitando que eu sou um novato prefiro fazer codigos.

Assim eu ganho mais experiencias

É a melhor opção, ao vermos os problemas dos outros descobrimos e aprendemos coisas novas. 🙂

[bids]

Porque não fecham logo este tópico?

[thoga31]

Porque não fecham logo este tópico?

Porque no P@P nenhum tópico é fechado a não ser que viole as Regras do Fórum.

Um vez que este tópico não violou nenhuma Regra, não há motivos para ser fechado.

Edited April 13, 2014 by thoga31