SELECT CASE
gostaria de saber o que há de errado, já que quando txt_result.text é menor que 19 não abre o outro form e assim acontece com os outros tbm...
Select Case txt_result.Text
Case 0
txt_result.Text = txt_result.Text < 19
Me.Hide()
frm_abaixo.Show()
Case 1
txt_result.Text = txt_result.Text > 20 < 24.9
Me.Hide()
frm_normal.Show()
Case 2
txt_result.Text = txt_result.Text > 25
Me.Hide()
frm_acima.Show()
End Select
Obrigado por enquanto.
Select Case txt_result.Text
Case 0
txt_result.Text = txt_result.Text < 19
Me.Hide()
frm_abaixo.Show()
Case 1
txt_result.Text = txt_result.Text > 20 < 24.9
Me.Hide()
frm_normal.Show()
Case 2
txt_result.Text = txt_result.Text > 25
Me.Hide()
frm_acima.Show()
End Select
Obrigado por enquanto.
Caro MARCELOO10
Esta lógica para Select Case não esta correta em sua estrutura............
Dim numero As Integer
numero =12
Select Case numero
Case 5
Console.WriteLine([Ô]você digitou 5!!!!![Ô])
Case 10
Console.WriteLine([Ô]você digitou 10!!!!![Ô])
Case 12
Console.WriteLine([Ô]você digitou 12!!!!![Ô])
Case Else
Console.WriteLine([Ô]valor não encontrado[Ô])
End Select
fiz um exemplo bem básico do que esta fazendo mas não coloquei o numero decimal comparado no SELECT CASE pois para fazer essa comparação dentro do case teria que montar uma lista de faixas de decimal..........
No exemplo que enviei substitua a texbox na select case colocando a variável NUMERO
Select Case NUMERO
Case 0 To 19
MessageBox.Show([Ô]RESULTADO [Ô] & TextBox1.Text, [Ô]0 ate 19[Ô], MessageBoxButtons.OK)
Case 20 To 24
MessageBox.Show([Ô]RESULTADO [Ô] & TextBox1.Text, [Ô]20 ate 24[Ô], MessageBoxButtons.OK)
Case Is > 25
MessageBox.Show([Ô]RESULTADO [Ô] & TextBox1.Text, [Ô]Acima de 25[Ô], MessageBoxButtons.OK)
Case Else
MessageBox.Show([Ô]RESULTADO [Ô] & TextBox1.Text, [Ô]Erro de numeração[Ô], MessageBoxButtons.OK)
End Select
E faça seus testes..........
Boa sorte
Esta lógica para Select Case não esta correta em sua estrutura............
Dim numero As Integer
numero =12
Select Case numero
Case 5
Console.WriteLine([Ô]você digitou 5!!!!![Ô])
Case 10
Console.WriteLine([Ô]você digitou 10!!!!![Ô])
Case 12
Console.WriteLine([Ô]você digitou 12!!!!![Ô])
Case Else
Console.WriteLine([Ô]valor não encontrado[Ô])
End Select
fiz um exemplo bem básico do que esta fazendo mas não coloquei o numero decimal comparado no SELECT CASE pois para fazer essa comparação dentro do case teria que montar uma lista de faixas de decimal..........
No exemplo que enviei substitua a texbox na select case colocando a variável NUMERO
Select Case NUMERO
Case 0 To 19
MessageBox.Show([Ô]RESULTADO [Ô] & TextBox1.Text, [Ô]0 ate 19[Ô], MessageBoxButtons.OK)
Case 20 To 24
MessageBox.Show([Ô]RESULTADO [Ô] & TextBox1.Text, [Ô]20 ate 24[Ô], MessageBoxButtons.OK)
Case Is > 25
MessageBox.Show([Ô]RESULTADO [Ô] & TextBox1.Text, [Ô]Acima de 25[Ô], MessageBoxButtons.OK)
Case Else
MessageBox.Show([Ô]RESULTADO [Ô] & TextBox1.Text, [Ô]Erro de numeração[Ô], MessageBoxButtons.OK)
End Select
E faça seus testes..........
Boa sorte
Tópico encerrado , respostas não são mais permitidas