none
color aleatorio RRS feed

  • Pregunta

  • hola, estoy realizando un ejercicio donde tengo que entrar caracteres por pantalla i deben aparecer con colores aleatories es decir cada caracter introducido de un color diferente.

    Tengo el programa empezado, pero no funciona, si alguien me pudiera dar una ayuda de como crear colores aleatorios..

    GRACIAS!!

    las palabras subrayadas son errores.
    no estoy seguro de que este metodo sea el mas  eficiente si alguien tiene a mano otro, seria de gran ayuda

    Module Module1

        Sub Main()

            Dim var As Integer
            Dim coloraleatori As Long
            var = 1

            While var = 1
                [u]coloraleatorio = CInt(Int((10 * Rnd())(+1)))[/u]
                Console.ForegroundColor =[u] coloraleatorio[/u]
                Console.Read()

            End While

            Console.Read()
        End Sub

    End Module
    jueves, 4 de abril de 2013 17:30

Respuestas

  • Public Function RandomRGBColor() As Long
        RandomRGBColor = RGB( _
            Int(Rnd() * 256), _
            Int(Rnd() * 256), _
            Int(Rnd() * 256))
    End Function

    Esta función te devuelve colores aleatorios...

    Si se solucionó tu consulta no olvides marcar la respuesta. Saludos

    jueves, 4 de abril de 2013 18:17

Todas las respuestas

  • Public Function RandomRGBColor() As Long
        RandomRGBColor = RGB( _
            Int(Rnd() * 256), _
            Int(Rnd() * 256), _
            Int(Rnd() * 256))
    End Function

    Esta función te devuelve colores aleatorios...

    Si se solucionó tu consulta no olvides marcar la respuesta. Saludos

    jueves, 4 de abril de 2013 18:17
  • Hola, te sirvió el código??

    Si se solucionó tu consulta no olvides marcar la respuesta. Saludos

    viernes, 5 de abril de 2013 15:07