RETORNANDO NUMERO

REIDARK 27/03/2012 23:58:20
#398450
Fala galera, tudo bom?
Então, eu quero aprender uma coisa simples.
Quero o seguinte:
Tenho uma TextBox e um Button.
Se eu colocar um numero maior que 5 na textbox o botão é liberado, e se o numero for menor que 5 o botão fica inativo.

Tentei isso:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Enabled = False
If TextBox1.Text > 4 Then
Button1.Enabled = False
End If
If TextBox1.Text < 4 Then
Button1.Enabled = True
End If
End Sub

Mas não deu certo
Alguem poderia me ensinar? Valeu.
NILSONTRES 28/03/2012 00:14:58
#398453
Button1.Enabled = False
If TextBox1.Text > 4 Then
Button1.Enabled = False
Exit Sub
End If
If TextBox1.Text < 4 Then
Button1.Enabled = True
End If
JRAFAEEL 28/03/2012 01:00:16
#398455
Bom, fiz o código considerando:
Nome do Formulário: UserForm1
Nome do text box: TextBox1
Nome do botão: Button1

Código:
Citação:


Private Sub TextBox1_Change()
On Error Resume Next
Dim temp As Integer
temp = TextBox1.Value

If temp > 4 Then
Button1.Enabled = True
Exit Sub
End If
If temp < 4 Then
Button1.Enabled = False
End If
End Sub

Private Sub UserForm_Initialize()
TextBox1 = [Ô][Ô]
Button1.Enabled = False
Button1.Caption = [Ô]Validar[Ô]
End Sub
ROBIU 28/03/2012 08:02:30
#398460
Eu faria assim no evento TextChaged da Textbox: 

 Button1.Enabled = False
Button1.Enabled = IIf(IsNumeric(TextBox1.Text) AndAlso TextBox1.Text > 4, True, False)


AndAlso = somente se TextBox1.Text for numerico verifica se o valor é maior que 4.
REIDARK 28/03/2012 13:46:11
#398536
Galera, valeu, era certinho o que queria, as dicas do ROBIU e JRAFAEEL deram certo.
Só que agora vou avançar um pouco mais e fazero seguinte:
Quero pegar as informações desse site: http://beans.itcarlow.ie/prices-loyalty.html
Como vocês podem ver o site apresenta um preço que muda a cada 15 minutos.

Eu queria fazer a mesma aplicação so que com o valor que estiver presente naquele site.
Exemplo: Se no site o preço estiver maior 4$ então meu botão vai ficar ativado (Enabled = True) e se tiver menor que 4$ o botão inativo (Enabled = False).

Valeu galera.
ALTAIR148 28/03/2012 14:28:50
#398551
Muito simples, basta apenas Parsear o HTML e extrair o valor. No tópico abaixo ajudei um camarada a fazer isso, basta adaptar.

http://vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=373550&varWorld=
REIDARK 28/03/2012 14:44:25
#398567
Altair, não teria como simplificar?
Esse tópico que você passou é mais ou menos o que eu queria, mas tem muitas mensagems, não consigo identificar qual delas resolveria meu problema.
ALTAIR148 28/03/2012 14:49:48
#398569
Assim vc extrai o valor para a string variavel.

Dim Spans As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName([Ô]strong[Ô])
        For B = 0 To Spans.Count - 1
            Dim Variavel As String
            Dim final As Double
            Variavel = Spans.Item(B).InnerText : B += 0
Next
REIDARK 28/03/2012 15:18:31
#398575
Ok, mas aonde entraria o endereço do meu site? (http://beans.itcarlow.ie/prices-loyalty.html)
ALTAIR148 28/03/2012 15:19:56
#398576
vc tem que criar um webbrowser e direciona-lo para esse endereço.
REIDARK 28/03/2012 15:44:34
#398585
Altair, eu me esforcei aqui mas só deu erros :(
Sou muiti iniciante, eu só consigo aprender analisando os códigos, se for pra mim [Ô]escrever[Ô] eles, não sai nada.
Tentei por aquele método do WebBrowser.Navigate mas não sei.
Também não sei aplicar esses códigos no meu antigo código.

é ruim ser noob :(
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar