color aleatorio
Publicado por rik (1 intervención) el 04/04/2013 19:25:22
hola, estoy realizando un ejercicio donde tenga que entrar caracteres por pantalla i deben aparecer de 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
coloraleatorio = CInt(Int((10 * Rnd())(+1)))
Console.ForegroundColor = coloraleatorio
Console.Read()
End While
Console.Read()
End Sub
End Module
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
coloraleatorio = CInt(Int((10 * Rnd())(+1)))
Console.ForegroundColor = coloraleatorio
Console.Read()
End While
Console.Read()
End Sub
End Module
Valora esta pregunta
0
