En este grupo En todos

Foro de Lenguaje basic



Cómo Hacer Titilar una imagen en VB 6.0

jacquihg
Venezuela
Escrito por Jacquihg
el 27/11/2006

Hola Jose!

Me es grato saludarte nuevamente, ahora se me plantea otra duda y quisiera saber si me puedes ayudar?

Cómo puedo hacer titilar una imagen en visual? Te explico:

Es que yo coloque un Shape que simula un "Led" y lo que yo quiero es que titile para que simule que esta encendido y apagado, es decir que funcione como un bombillito de luces navideñas que se encienden y se apagan simultaneamente.

Cómo puedo hacerlo me puedes ayudar?

Gracias.

Saludos Cordiales,

Atte.

Jacqueline Hernández

Jose Sanchez Carvajal
Barcelona, España
Escrito por Jose Sanchez Carvajal
el 27/11/2006

Hola Jacqueline,

   Para simular un led que se enciende y apaga, especialmente si el led tiene que alternar inerminentemente entre encedido y apagado, te recomiendo utilizar dos images, uno encima del otro.

Uno tendrá la imagen del led encendido y el otro la del led apagado.

Con Vb6 puedes hacer un array de images de forma que el imgled(0) sería el apagado y el ImgLed(1) sería el encendido de esa forma puedes hacer visible el imgled(n) según el estado cero o uno siendo n el estado.

Espero haberme explicado bien.

Jose Sanchez Carvajal

Jacquihg
Venezuela
Escrito por Jacquihg
el 28/11/2006

Hola jose! Muchas gracias por responderme.

He realizado lo que me sugeriste pero no me funciona es q no se como colocar el codigo, supongo que debe haber un loop o halgo asi como una condicion que haga q se active una image o la otra para poder obtener  la intermitencia de los leds?

Si pudieras enviarme un codigo de ejemplo seria mejor ya que este led debe funcionar automaticamente cuando se carga un formulario

Si puedes ayudarme con un codigo de ejemplo de verdad mil gracias!

Jose Sanchez Carvajal
Barcelona, España
Escrito por Jose Sanchez Carvajal
el 28/11/2006

Hola Jacqui,

Coloca dos image en un formulario, image1(0) y image1(1), una justo encima de la otra

Asigna un picture a cada una de ellas (led rojo y led verde, semaforo rojo y semaforo verde....)

Pon un checkbox con el texto ON

La image de semaforo verde ponle visible=false

Pon este code en check_click:

Private Sub Check1_Click()
If Me.Check1.Value = 1 Then
  Me. Image1(0). Visible = False
  Me. Image1(1). Visible = True
Else
  Me. Image1(0). Visible = True
  Me. Image1(1). Visible = False
End If
End Sub

Haciendo click en el checkbox se activará una u otra imagen

Jose Sanchez Carvajal

Jacquihg
Venezuela
Escrito por Jacquihg
el 04/12/2006

Hola Jose!

Nuevamente yo espero que mis preguntas no te fastidien mucho jeje...

Bueno es que el codigo q me enviaste funciona perfectamente gracias, pero lo que sucede es que yo quiero que ese led se encienda y apague solo automaticamente sin que tenga que ocurrir el evento del CheckBox , es decir lo que yo quiero que haga es que una vez que el formulario se cargue el se cambie solo de estado sin que yo lo haga cambiar si no que funcione solo se encienda y apague con tan solo cargar el formulario...

... Cómo hago para que funcione de esta manera?

Mil gracias y disculpa todas las molestias ocasionadas!

Besos!... Te quiero Mucho!

Saludos Cordiales!


Jacqui
Venezuela
Escrito por Jacqui
el 12/12/2006

Hola Jose!

Nuevamente yo espero que mis preguntas no te fastidien mucho jeje...

Bueno es que el codigo q me enviaste funciona perfectamente gracias, pero lo que sucede es que yo quiero que ese led se encienda y apague solo automaticamente sin que tenga que ocurrir el evento del CheckBox , es decir lo que yo quiero que haga es que una vez que el formulario se cargue el se cambie solo de estado sin que yo lo haga cambiar si no que funcione solo se encienda y apague con tan solo cargar el formulario...

... Cómo hago para que funcione de esta manera?

Mil gracias y disculpa todas las molestias ocasionadas!

Besos!... Te quiero Mucho!

Saludos Cordiales!

Escrito por Jose
el 11/06/2007

Men entonces a tus shapes

Pon les el control timer

Dos timer timer 1 , timer 2

Y en el  interval del los timer le pones el tiempo que deseas que aparescan

Y programas

Timer1 _timer

If image1. Visible = true then

Image2. Visible = true

Image1. Visible = false

End if

End sub

Timer2 _timer

If image2. Visible = true then

Image1. Visible = true

Image2. Visible = false

End if

End sub

Escrito por Leandro
el 21/05/2008
Bueno miren tengo q realizar un semaforo en visual basic 6 bueno y quiero q utilzando 3 shape con el mismo nombre cambie de color cada uno por un tiempo
Alan Cano
Perú, Perú
Escrito por Alan Cano
el 22/09/2008

Hola
Bueno es que el codigo q lo enviaste funciona perfectamente gracias, pero lo que sucede es que yo quiero que ese led se encienda y apague solo automaticamente sin que tenga que ocurrir el evento del CheckBox , es decir lo que yo quiero que haga es que una vez que el formulario se cargue el se cambie solo de estado sin que yo lo haga cambiar si no que funcione solo se encienda y apague con tan solo cargar el formulario...

bueno cuiadte   saludos 

Bye.....

Escrito por Rigo Tovar
el 20/05/2009
"men entonces a tus shapes
pon les el control timer
dos timer timer 1 , timer 2
y en el interval del los timer le pones el tiempo que deseas que aparescan
y programas
timer1 _timer
if image1. Visible = true then
image2. Visible = true
image1. Visible = false
end if
end sub
timer2 _timer
if image2. Visible = true then
image1. Visible = true
image2. Visible = false
end if
end sub

"

por jose (Junio 2007)



Escrito por Rigo Tovar
el 20/05/2009
"
"men entonces a tus shapes
pon les el control timer
dos timer timer 1 , timer 2
y en el interval del los timer le pones el tiempo que deseas que aparescan
y programas
timer1 _timer
if image1. Visible = true then
image2. Visible = true
image1. Visible = false
end if
end sub
timer2 _timer
if image2. Visible = true then
image1. Visible = true
image2. Visible = false
end if
end sub

"

por jose (Junio 2007)




"

por Rigo Tovar (Mayo 2009)




chingen asu madre

Escrito por Rigo Tovar
el 20/05/2009
chingue su reputa madre los que ponen esta #! @##@ att. Beto
y tavio y