VERIFICAR SE VALOR DE TEXTBOX E MAIOR

CCRISANEVB 22/12/2009 16:23:49
#330319
Boa Tarde! Alguém poderia me ajudar pois tenho
que verificar se o valor de textbox por exemplo 2.5 ou 2,5 ñ são maiores que 10
se for informar temperatura muito alta....e coloco 2.5 ele informa que o valor é maior q 10...

Agradeço desde já.
NICOLASCARMELLO 22/12/2009 16:27:23
#330320 Resposta escolhida
Não sei como está fazendo, mas converte ele pra número antes de comparar:

if CDbl(text1.text) > 10 then [ô]sem aspas.
[ô]é maior que 10
end if
DANIKULL 22/12/2009 16:30:14
#330321
CCRISANEVB, boa tarde.

Você precisa tomar cuidades com pontos e virgulas no VB. Ele identifica a virguala como ponto decimal e ponto separados de casas deimais como virgula, por isso para você fazer uma verficação com casas decimas sempre use o ponto, ok??
Agoa me diz uma coisa, este valor 2,5 está sendo informado por parâmetro em uma TextBox??
CCRISANEVB 22/12/2009 16:51:53
#330325
Obrigado pela ajuda o campo é informado pelo usuário por exemplo a temperatura 2.5 ° e tenho q verificar se é maior q 10 se for e toda forma q coloco 2.5 ele diz q é maior q 10
DANIKULL 22/12/2009 17:18:27
#330327
Citação:

CCRISANEVB escreveu:
Obrigado pela ajuda o campo é informado pelo usuário por exemplo a temperatura 2.5 ° e tenho q verificar se é maior q 10 se for e toda forma q coloco 2.5 ele diz q é maior q 10



Veja sobre o caso da formatação que te falei, se você digitar com ponto vai ser maior, porque o VB vai entender que é casa de milhar, se você digitar com virgula ele vai entender que ali tem uma virgula, mais para isso você tem que fazer o tratamento da entrada conforme dito pelo nosso amigo NICOLASCARMELLO.
Exemplo

Isira em um novo projeto um textbox e um commandbutton. o Evento Click do CommandButton insira o código abaix:


Private Sub Command1_Click()
If CDbl(Text1.Text) > 10 Then
    MsgBox [Ô]é maior[Ô]
ElseIf CDbl(Text1.Text) = 10 Then
    MsgBox [Ô]é igual[Ô]
ElseIf CDbl(Text1.Text) < 10 Then
    MsgBox [Ô]é menor[Ô]
End If
End Sub


O texto em negrito é o tratamento, a funcção CDBL transforma todo texto informado como numero Real.
Há mais uma coisa, você vai ter que travar a digitação do usuário para não digitar o ponto ao invez da vírgula ok???

Testa ai de pois vc fala.
Tópico encerrado , respostas não são mais permitidas
Voltar