Jump to content
DDTRON

Condição com IF

Recommended Posts

DDTRON

Senhores , alguem pode me ajudar ... não estou conseguindo inserir no meu projeto uma condição :

Quero que a cor de a Label1 fique vermelha quando o valor da Text1 for maior ou = 1,5 e menor ou = -1,5

Quero que  a cor da Label1 fique Amarela quando o valor da Text1 estiver entre 1 e 1,5 e entre  -1 e -1,5  

Quero que a cor da Label1 fique Verde quando o valor da Text1 for menor ou =1,0 e maior ou = -1

Share this post


Link to post
Share on other sites
miglaranjeira

Boa tarde

Utiliza este código

Dim valor As Double
valor = -0.9 'valor para teste
If valor <= -1.5 Or valor >= 1.5 Then
    Label1.ForeColor = &HFF&
ElseIf (valor > -1.5 And valor < -1) Or (valor > 1 And valor < 1.5) Then
    Label1.ForeColor = &HFFFF&
ElseIf (valor >= -1 And valor <= 1) Then
    Label1.ForeColor = &HFF00&

Um abraço

Edited by miglaranjeira

Share this post


Link to post
Share on other sites
DDTRON
Em 27/08/2017 às 09:55, miglaranjeira disse:

Boa tarde

Utiliza este código


Dim valor As Double
valor = -0.9 'valor para teste
If valor <= -1.5 Or valor >= 1.5 Then
    Label1.ForeColor = &HFF&
ElseIf (valor > -1.5 And valor < -1) Or (valor > 1 And valor < 1.5) Then
    Label1.ForeColor = &HFFFF&
ElseIf (valor >= -1 And valor <= 1) Then
    Label1.ForeColor = &HFF00&

Um abraço

Muito bom MIGLA ... Agradeço muito pela sua ajuda .. seu código funciona mesmo , mas antes de vc responder tinha feito esse código abaixo  :

'Ativando Alarme conforme condição - Vazão
'------------------------------------------------------------------------------

If FrmAnima_2T.TextDesvio.Text >= 1.5 Or FrmAnima_2T.TextDesvio.Text <= -1.5 Then

FrmAnima_2T.LabelVazao_AL.BackColor = &HFF&

ElseIf FrmAnima_2T.TextDesvio.Text < 1.5 And FrmAnima_2T.TextDesvio.Text > 1 Or FrmAnima_2T.TextDesvio.Text > -1.5 And FrmAnima_2T.TextDesvio.Text < -1 Then

FrmAnima_2T.LabelVazao_AL.BackColor = &HFFFF&

Else

FrmAnima_2T.LabelVazao_AL.BackColor = &HFF00&

Abraços 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.