Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: rapbyone en 14 Abril 2016, 16:47 pm

Título: Comprobar rango de números
Publicado por: rapbyone en 14 Abril 2016, 16:47 pm

Estimados, acudo a ustedes una ves más, el tema es el siguiente tengo un label que tendrá valores del 50 al 99 y quiero cambiar el color del fondo segun el rango en el que se encuentre ese valor.

Algo así

If label1.caption = 10 al 20 then
Label1.backcolor = &FFFFFF
end if

If label1.caption = 21 al 30 then
Label1.backcolor = &000000
end if

Pero no logro dar con el codigo para comprobar por rangos.

Espero su ayuda amigos
Muchas gracias

Enviado desde mi LG-D805 mediante Tapatalk

Título: Re: Comprobar rango de números
Publicado por: Shell Root en 14 Abril 2016, 20:58 pm

Código

Private Sub CommandButton1_Click()
    If CInt(Me.Label1.Caption) >= 50 And CInt(Me.Label1.Caption) <= 60 Then
        Me.Label1.BackColor = RGB(255, 255, 0)
    End If
End Sub

Título: Re: Comprobar rango de números
Publicado por: rapbyone en 14 Abril 2016, 21:30 pm

Cita de: .Alex. en 14 Abril 2016, 20:58 pm

Código

Private Sub CommandButton1_Click()
    If CInt(Me.Label1.Caption) >= 50 And CInt(Me.Label1.Caption) <= 60 Then
        Me.Label1.BackColor = RGB(255, 255, 0)
    End If
End Sub

estimado, muchas gracias por tu código, pero me da el error de "No coinciden los tipos"

Título: Re: Comprobar rango de números
Publicado por: HdM en 15 Abril 2016, 11:28 am

Comprueba 1º si el valor es correcto o no.

Código

If Not IsNumeric(Label1) Then
        Exit Sub
End If
 
Select Case CInt(Label1)
        Case 10 To 20
             Label1.BackColor = &HFFFFFF
        Case 21 To 30
            Label1.BackColor = &O0
       'Case ...
       'Case Else
End Select

Título: Re: Comprobar rango de números
Publicado por: rapbyone en 15 Abril 2016, 19:12 pm

Gracias por la respuesta amigo, dejo el código con el que logré hacerlo por si a alguien más le funciona

Código

For i = 75 To 79
If TECH.Text = Val(i) Then
TECH.BackColor = RGB(183, 255, 0)
End If
Next

Saludos

Título: Re: Comprobar rango de números
Publicado por: pkj en 16 Abril 2016, 09:36 am

Para eso no hacen falta bucles:

If val(TECH.Text) > 74 and val(TECH.Text) < 80 Then TECH.BackColor = RGB(183, 255, 0)

Saludos