none
Timer y Colores en visual basic

    Question

  • Hola a todos, soy nueva en VB y quiero realizar un programa el cual cambie los colores de un Label a medida que pasan los segundos, para esto utlice un Timer. Los colores me toca programarlos con BQColor y los colores de este llegan hasta 16. Cuando  ejecuto el programa me funciona pero solo hasta 15 segundos, como hago para que cuando llegue a los 16 segundos inicie nueva mente con el primer color. 

    No se si sea posible hacerlo asi, solo es una idea que se me ocurrio y ojala funcione. Gracias.

    Sunday, May 19, 2013 8:03 PM

Answers

  • Create una variable contador que cuando llegue a 16 se reinicie dicha variable a la hora de establecer el color...

    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos

    • Marked as answer by Alma Jaleth Sunday, May 19, 2013 9:18 PM
    Sunday, May 19, 2013 8:08 PM
  • Static contador As integer
    
    blHora.Text = Now.Hour
             LblMinutos.Text = Now.Minute
             LblSegundo.Text = Now.Second
     contador= contador + 1
    If contador = 16 Then contador =1
            color = contador
             PnlPizarra.BackColor = ColorTranslator.FromOle(QBColor(color)) 


    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos

    • Marked as answer by Alma Jaleth Monday, May 20, 2013 3:30 AM
    Sunday, May 19, 2013 10:12 PM

All replies

  • Create una variable contador que cuando llegue a 16 se reinicie dicha variable a la hora de establecer el color...

    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos

    • Marked as answer by Alma Jaleth Sunday, May 19, 2013 9:18 PM
    Sunday, May 19, 2013 8:08 PM
  • Mira el codigo

            LblHora.Text = Now.Hour
            LblMinutos.Text = Now.Minute
            LblSegundo.Text = Now.Second

            color = Val(LblSegundo.Text)
            PnlPizarra.BackColor = ColorTranslator.FromOle(QBColor(color))

     

    Como coloco el contador ???

    Sunday, May 19, 2013 9:17 PM
  • Static contador As integer
    
    blHora.Text = Now.Hour
             LblMinutos.Text = Now.Minute
             LblSegundo.Text = Now.Second
     contador= contador + 1
    If contador = 16 Then contador =1
            color = contador
             PnlPizarra.BackColor = ColorTranslator.FromOle(QBColor(color)) 


    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos

    • Marked as answer by Alma Jaleth Monday, May 20, 2013 3:30 AM
    Sunday, May 19, 2013 10:12 PM
  • Gracias me funciono........
    Monday, May 20, 2013 3:30 AM