https://foro.gambas-es.org/viewtopic.php?f=1&t=2775&p=15753#p15753
-----------------------------------
Dani26
Miercoles, 19 Diciembre 2012, 02:03

Re: Efecto Persiana
-----------------------------------
Julio, me he tomado el atrevimiento de hacerle una pequeña modificación a tu código que hace que baje un poco más lento de acuerdo al coeficiente por el que multiplicas al divisor, el movimiento se ve bastante fluido y no "cae" tan de golpe.
La línea modificada es    Me.y = (tiempo ^ 2) / (Slider1.value [b]* 25[/b])
[code linenumbers=false syntax=gambas]
Public Sub Timer1_Timer()
  
  tiempo += Timer1.Delay
  
  Me.y = (tiempo ^ 2) / (Slider1.value * 25)
  If Me.y > Screen.Height Then Timer1.Stop
  
End
[/code]

Quizá ayude al compañero Guadafan a conseguir el efecto deseado,jugando con dicho factor.
Saludos ;-)


