Visual Basic - ayuda con TIMERS

Life is soft - evento anual de software empresarial
   
Vista:

ayuda con TIMERS

Publicado por alejandro (2 intervenciones) el 08/02/2011 20:41:11
necesito ayuda con el sigiuente codigo q estoy realizando es un programa donde el usuario puede ingrear cualquier numero desde el 0 al 255 en una caja de texto y el resultado se vera visualizado en otra caja de texto pero tambien seran visualizado en 8 shape que hacen el papel de ocho leds.

ahora lo que quiero hacer y no encuentro la forma es lo siguiente

si el usuario ingresa 4 quiero que de alguna manera el programa guarde ese numero para que cuando el usuario ingrese otro numero primero aparezca de forma intermitente el numero anterior mas el nuevo numero marcado. deben aparacer intermitentemente en los shape . se que se debe hacer con un timmer o a algo parecido pero no tengo idea

espero me ayuden saludos


b = Text2.Text
Text3.Text = b
Text2.Text = Clear

If b = "" Then

MsgBox ("Debe Ingresar Un Numero de 0-255")

Shape1.BackColor = vbWhite
Shape2.BackColor = vbWhite
Shape3.BackColor = vbWhite
Shape4.BackColor = vbWhite
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite


ElseIf b = 1 Then
Shape1.BackColor = vbBlue
Shape2.BackColor = vbWhite
Shape3.BackColor = vbWhite
Shape4.BackColor = vbWhite
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite
Label15.Caption = b


ElseIf b = 2 Then

Shape1.BackColor = vbWhite
Shape2.BackColor = vbBlue
Shape3.BackColor = vbWhite
Shape4.BackColor = vbWhite
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite
Label15.Caption = b



ElseIf b = 3 Then

Shape1.BackColor = vbBlue
Shape2.BackColor = vbBlue
Shape3.BackColor = vbWhite
Shape4.BackColor = vbWhite
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite
Label15.Caption = b


ElseIf b = 4 Then

Shape1.BackColor = vbWhite
Shape2.BackColor = vbWhite
Shape3.BackColor = vbBlue
Shape4.BackColor = vbWhite
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite
Label15.Caption = b


ElseIf b = 5 Then

Shape1.BackColor = vbBlue
Shape2.BackColor = vbWhite
Shape3.BackColor = vbBlue
Shape4.BackColor = vbWhite
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite
Label15.Caption = b



ElseIf b = 6 Then

Shape1.BackColor = vbWhite
Shape2.BackColor = vbBlue
Shape3.BackColor = vbBlue
Shape4.BackColor = vbWhite
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite
Label15.Caption = b




ElseIf b = 7 Then

Shape1.BackColor = vbBlue
Shape2.BackColor = vbBlue
Shape3.BackColor = vbBlue
Shape4.BackColor = vbWhite
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite
Label15.Caption = b


ElseIf b = 8 Then

Shape1.BackColor = vbWhite
Shape2.BackColor = vbWhite
Shape3.BackColor = vbWhite
Shape4.BackColor = vbBlue
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite

Label15.Caption = b


ElseIf b = 9 Then

Shape1.BackColor = vbBlue
Shape2.BackColor = vbWhite
Shape3.BackColor = vbWhite
Shape4.BackColor = vbBlue
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite


Label15.Caption = b




ElseIf b = 10 Then

Shape1.BackColor = vbWhite
Shape2.BackColor = vbBlue
Shape3.BackColor = vbWhite
Shape4.BackColor = vbBlue
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite


Label15.Caption = b


ElseIf b = 11 Then

Shape1.BackColor = vbBlue
Shape2.BackColor = vbBlue
Shape3.BackColor = vbWhite
Shape4.BackColor = vbBlue
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite


Label15.Caption = b


ElseIf b = 12 Then

Shape1.BackColor = vbWhite
Shape2.BackColor = vbWhite
Shape3.BackColor = vbBlue
Shape4.BackColor = vbBlue
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite


Label15.Caption = b


ElseIf b = 13 Then

Shape1.BackColor = vbBlue
Shape2.BackColor = vbWhite
Shape3.BackColor = vbBlue
Shape4.BackColor = vbBlue
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite


Label15.Caption = b


ElseIf b = 14 Then

Shape1.BackColor = vbWhite
Shape2.BackColor = vbBlue
Shape3.BackColor = vbBlue
Shape4.BackColor = vbBlue
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite


Label15.Caption = b


ElseIf b = 15 Then

Shape1.BackColor = vbBlue
Shape2.BackColor = vbBlue
Shape3.BackColor = vbBlue
Shape4.BackColor = vbBlue
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite


Label15.Caption = b


ElseIf b = 16 Then

Shape1.BackColor = vbWhite
Shape2.BackColor = vbWhite
Shape3.BackColor = vbWhite
Shape4.BackColor = vbWhite
Shape5.BackColor = vbBlue
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite


Label15.Caption = b


ElseIf b = 17 Then

Shape1.BackColor = vbBlue
Shape2.BackColor = vbWhite
Shape3.BackColor = vbWhite
Shape4.BackColor = vbWhite
Shape5.BackColor = vbBlue
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite


Label15.Caption = b




ElseIf b = 18 Then

Shape1.BackColor = vbWhite
Shape2.BackColor = vbBlue
Shape3.BackColor = vbWhite
Shape4.BackColor = vbWhite
Shape5.BackColor = vbBlue
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite


Label15.Caption = b





ElseIf b = 19 Then

Shape1.BackColor = vbBlue
Shape2.BackColor = vbBlue
Shape3.BackColor = vbWhite
Shape4.BackColor = vbWhite
Shape5.BackColor = vbBlue
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite


Label15.Caption = b





ElseIf b = 20 Then

Shape1.BackColor = vbWhite
Shape2.BackColor = vbWhite
Shape3.BackColor = vbBlue
Shape4.BackColor = vbWhite
Shape5.BackColor = vbBlue
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite
Label15.Caption = b
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

RE:ayuda con TIMERS

Publicado por Christian (666 intervenciones) el 09/02/2011 00:19:04
no se entendio mucho pero si lo que queres hacer es un efecto de intermitencia en un shape hace asi

pone un control timer, dentro de las propiedades pone interval en 1000

y despues dentro del evento timer esto

Private Sub Timer1_Timer()
If Shape1.BackColor = vbWhite Then
Shape1.BackColor = vbBlue
Else
Shape1.BackColor = vbWhite
End If
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

RE:ayuda con TIMERS

Publicado por alejandro (2 intervenciones) el 09/02/2011 00:35:21
gracias por responder amigo

pero es que es dificil explicarme bien por q solo me permite 10000 caracteres

y no puedo mostrarte bien el programa .... si puedes me das un correo para mandarte el programa y asi me ayudar mejor ..

de todas formas lo q quiero hacer es por ejemplo en la caja de texto escribo 23

quiero que unos shape que tengo en mi programa me hagan la forma del 23 eso ya lo tengo hecho , pero ahora quiero que si yo mando 45 se muestre primero 23 y luego 45 de forma intercalada , me entiende ?

seria de gran ayuda

muchas gracias de antemano
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
Imágen de perfil de Antoni Masana

RE:ayuda con TIMERS

Publicado por Antoni Masana (88 intervenciones) el 09/02/2011 08:20:18
Te envio mi correo para ver si te puedo ayudar

amasana@hotmail.com

Pon en el asunto LWP para saber de donde biene el correo.
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

RE:ayuda con TIMERS

Publicado por Christian (666 intervenciones) el 14/02/2011 16:02:33
Si no hay problema enviame a este correo
cmc1476@hotmail.com
Poneme en el asunto Timers o algo que haga referencia asi me doy cuenta
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