AJUDA CONDI?ÃO IF
Estou precisando de ajuda : como faço para colocar isso na condição if ???
Se Text1 <= 1 então APROVADO
Se Text1 > 1 e < que 1.5 efetuar TESTE
Se Text1 <= 1 então APROVADO
Se Text1 > 1 e < que 1.5 efetuar TESTE
Tenta isso amigo..
If Text1.text <= 1 then
MsgBox [Ô]Aprovado[Ô]
elseif Text1.text > 1 and Text1.text < 1,5 then
MsgBox [Ô]Fazer Teste[Ô]
end if
Esqueci que tem outra condição para colocar ai :
Se for acima de 1.5 = REPROVADO
Se for acima de 1.5 = REPROVADO
Isto está me parecendo questão de cursinho... é o caso?
Citação::
Isto está me parecendo questão de cursinho... é o caso?
Desculpe, fui obrigado a rir agora
MARCOSILVERIO
Só colocar mais um ElseIf
elseif Text1.text > 1,5 then
MsgBox([Ô]REPROVADO[Ô])
[txt-color=#0000f0]Precisando de um Sistema de Gestão Educacional?[/txt-color]
Desenvolvido em VB.NET + SQL Server + Crystal Reports
Conheça nossa Solução: www.cjsystem.com.br
Então, é complicado, agente pode fazer algum comentário e a pessoa até não aceitar, mas alguma coisa esta errada, a questão if ou else if, é a primeira coisa que vc aprende quando esta aprendendo sozinho, pelo menos na minha época, 2000.
Eu peguei uma apostila impressa de vb6 e fiz um pequeno projeto do tipo. if 1 < 2 then msgbox [Ô]Alo Mundo[Ô].
Comecei a me empolgar por ver que tinha entendi como funcionava a condição if e else if. Achei incrÃvel aquela caixa de mensagem que consegui construir.
Mas a partir do momento que vc começa a pergunta como funciona isso, esta na hora de pensar se programar esta em você.
Eu peguei uma apostila impressa de vb6 e fiz um pequeno projeto do tipo. if 1 < 2 then msgbox [Ô]Alo Mundo[Ô].
Comecei a me empolgar por ver que tinha entendi como funcionava a condição if e else if. Achei incrÃvel aquela caixa de mensagem que consegui construir.
Mas a partir do momento que vc começa a pergunta como funciona isso, esta na hora de pensar se programar esta em você.
varias condições use um select case, veja
Select Case CCur(Text1.Text)
Case Is < 1
MsgBox [Ô]aprovado[Ô]
Case 1 To 1.5
MsgBox [Ô]fazer o teste[Ô]
Case Is > 1.5
MsgBox [Ô]reprovado[Ô]
End Select
Citação:
Isto está me parecendo questão de cursinho... é o caso?
kkkkkk!!
Citação::
varias condições use um select case, vejaSelect Case CCur(Text1.Text)
Case Is < 1
MsgBox [Ô]aprovado[Ô]
Case 1 To 1.5
MsgBox [Ô]fazer o teste[Ô]
Case Is > 1.5
MsgBox [Ô]reprovado[Ô]
End Select
Não complique o rapaz
Acho que não me expressei direito :
Preciso que Aprove de -1 a 1
Teste com -1 até -1,5 e 1 até 1,5
Reprove abaixo de -1,5 e acima de 1,5
[ô] Lógica de decisão para Aprovado, Reprovado ou Teste de SPIN
If TextERRO_2T.Text <= 1 Then
MsgBox [Ô]APROVADO[Ô], vbOKOnly, [Ô]COMPARATURB_2T[Ô]
TextSITUAÇÃO.Text = [Ô]APRO[Ô]
ElseIf TextERRO_2T.Text > 1 And TextERRO_2T.Text <= 1.5 Then
MsgBox [Ô]Efetuar Teste de SPIN conforme procedimento[Ô], vbOKOnly, [Ô]COMPARATURB_2T[Ô]
Else
MsgBox [Ô]REPOVADO[Ô], vbOKOnly, [Ô]COMPARATURB_2T[Ô]
TextSITUAÇÃO.Text = [Ô]REPR[Ô]
End If
End Sub
Preciso que Aprove de -1 a 1
Teste com -1 até -1,5 e 1 até 1,5
Reprove abaixo de -1,5 e acima de 1,5
[ô] Lógica de decisão para Aprovado, Reprovado ou Teste de SPIN
If TextERRO_2T.Text <= 1 Then
MsgBox [Ô]APROVADO[Ô], vbOKOnly, [Ô]COMPARATURB_2T[Ô]
TextSITUAÇÃO.Text = [Ô]APRO[Ô]
ElseIf TextERRO_2T.Text > 1 And TextERRO_2T.Text <= 1.5 Then
MsgBox [Ô]Efetuar Teste de SPIN conforme procedimento[Ô], vbOKOnly, [Ô]COMPARATURB_2T[Ô]
Else
MsgBox [Ô]REPOVADO[Ô], vbOKOnly, [Ô]COMPARATURB_2T[Ô]
TextSITUAÇÃO.Text = [Ô]REPR[Ô]
End If
End Sub
Dica: Use identação no código para ver melhor o que está dentro do que.
Você já tem toda a estrutura do que você quer prontinha, basta ajustar os condicionais para os valores que você quer
Você já tem toda a estrutura do que você quer prontinha, basta ajustar os condicionais para os valores que você quer
Faça seu login para responder