AJUDA CONDI?ÃO IF

MARCOSILVERIO 18/09/2016 07:10:19
#467069
Pode me ajudar replicando o código pronto ??
KERPLUNK 18/09/2016 19:25:38
#467075
Amigo, deixa eu te explicar: Aqui é um fórum, compartilhamos conhecimento enriquecendo um ao outro com ele. Podemos te mostrar como fazer, auxiliar em todas as suas dúvidas, mas dar código pronto, vai contra as regras. Nesse tópico já foram dadas várias dicas e vários exemplos de como você deve proceder, mas fazer seu trabalho por você não é o objetivo aqui. Se quer aprender, com todo o prazer iremos auxiliar nisso.
MARCOSILVERIO 18/09/2016 20:51:01
#467080
JCM0867 , PERCIFILHO e NILSONTRES ....

Com toda essa experiência juntos poderiam me ajudar ???
KERPLUNK 18/09/2016 21:03:57
#467081
Citação:

:
JCM0867 , PERCIFILHO e NILSONTRES ....

Com toda essa experiência juntos poderiam me ajudar ???


Eles com certeza pensam algo parecido com o que eu disse...
PERCIFILHO 19/09/2016 08:34:32
#467093
Com certeza, Kerplunk, eu penso igual, porém queremos ajudar o nosso amigo aí.

Citação:

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



Realmente, como o Kerplunk já disse (e, se ele disse, tá dito), você já tem a sua estrutura pronta, só falta você especificar corretamente as suas condições e corrigi-las dentro do If...Else.
OMAR2011 19/09/2016 08:53:00
#467094
Acredito o que está precisando é rever o que tem em mente de Matemática.
Escala, positivo e negativo.
SILVER 19/09/2016 09:10:36
#467095
Pessoal :

O que estou precisando é :

Text1.Text > -1 até 1 = APROVADO
Text1.Text = -1 até -1.5 = TESTE
Text1.Text = 1 até 1.5 = TESTE

Text1.Text > 1.5 = REPROVADO
Text1.Text > -1.5 = REPROVADO

Não consegui colocar isso no código

Por favor pessoal colaborem com um principiante !!!!




PERCIFILHO 19/09/2016 10:48:36
#467097
Deve ser mais ou menos isso:
Testa aí e depois diz se deu certo.

If text1 > -1 And text1 <= 1 Then
Aprovado
ElseIf text1 > -1.5 And text1 <= -1 Then
TESTE
ElseIf text1 > 1 And text1 <= 1.5 Then
TESTE
EndIf

SILVER 19/09/2016 11:13:14
#467100
PERCIFILHO ....Você é o cara mano : Agradecido !!!!! Funcionou ...grande abraço ...

Private Sub Command1_Click()
If Text1 >= -1 And Text1 <= 1 Then
MsgBox [Ô]APROVADO[Ô]

ElseIf Text1 >= -1.5 And Text1 <= -1 Then
MsgBox [Ô]TESTE[Ô]
ElseIf Text1 > 1 And Text1 <= 1.5 Then
MsgBox [Ô]TESTE[Ô]

Else
MsgBox [Ô]REPROVADO[Ô]

End If
End Sub
PERCIFILHO 19/09/2016 12:41:49
#467105
Valeu, Silver, não sou nada, não. Apenas gosto de compartilhar o pouquíssimo que eu sei.
Espero que o Kerplunk não fique bravo comigo, rsrsrs.
Mas eu só quis ajudar.
Página 2 de 3 [23 registro(s)]
Faça seu login para responder