Visual Basic - color aleatorio

Life is soft - evento anual de software empresarial
   
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

color aleatorio

Publicado por LUI EMERSON (5 intervenciones) el 04/04/2013 23:09:30
PUES BIEN FACIL:

CREAR UN TIMER EN EL FORM ,UN LABEL Y EN EL CODIGO PON LO SIGUIENTE:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim A(5) As Variant, B
Private Sub Form_Load()
B = 0
Timer1.Interval = 10
Label1 = "SOY UN CAMALEON"
A(0) = vbRed
A(1) = vbWhite
A(2) = vbBlack
A(3) = vbGreen
A(4) = vbYellow
A(5) = vbMagenta
End Sub
 
Private Sub Timer1_Timer() 'PONLE EL INTERVALO AL TIMER SEGUN LO QUE QUIERAS
COLORES = Int(Rnd * 6) 'DA UN NUMERO ALEATORIO DEL 1-5
If B = 10 Then Label1.ForeColor = A(COLORES)
If B = 20 Then Label1.ForeColor = A(COLORES)
If B = 30 Then Label1.ForeColor = A(COLORES)
If B = 40 Then Label1.ForeColor = A(COLORES)
If B = 50 Then Label1.ForeColor = A(COLORES)
If B = 60 Then Label1.ForeColor = A(COLORES): B = 0
B = B + 1
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar