AJUDA CONDI?ÃO IF
Pode me ajudar replicando o código pronto ??
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.
JCM0867 , PERCIFILHO e NILSONTRES ....
Com toda essa experiência juntos poderiam me ajudar ???
Com toda essa experiência juntos poderiam me ajudar ???
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...
Com certeza, Kerplunk, eu penso igual, porém queremos ajudar o nosso amigo aÃ.
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.
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.
Acredito o que está precisando é rever o que tem em mente de Matemática.
Escala, positivo e negativo.
Escala, positivo e negativo.
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 !!!!
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 !!!!
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
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
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
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
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.
Espero que o Kerplunk não fique bravo comigo, rsrsrs.
Mas eu só quis ajudar.
Faça seu login para responder