AJUDA CONDI?ÃO IF

MARCOSILVERIO 15/09/2016 20:18:57
#466986
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
ADILSOO 15/09/2016 21:10:34
#466988
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

MARCOSILVERIO 16/09/2016 09:22:25
#467006
Esqueci que tem outra condição para colocar ai :

Se for acima de 1.5 = REPROVADO
KERPLUNK 16/09/2016 09:54:55
#467009
Isto está me parecendo questão de cursinho... é o caso?
JCM0867 16/09/2016 11:34:19
#467011
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
NILSONTRES 16/09/2016 12:13:08
#467013
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ê.
MARCELO.TREZE 16/09/2016 14:35:55
#467014
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
PERCIFILHO 16/09/2016 15:27:23
#467018
Citação:


Isto está me parecendo questão de cursinho... é o caso?


kkkkkk!!
JCM0867 16/09/2016 18:56:59
#467034
Citação:

:
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



Não complique o rapaz
MARCOSILVERIO 17/09/2016 21:15:18
#467062
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
KERPLUNK 17/09/2016 22:27:00
#467065
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
Página 1 de 3 [23 registro(s)]
Faça seu login para responder