Quiero usar VB para hacer un carrusel tipo lotería.
Este es un carrusel. La ubicación a la que vas es aleatoria. Debes establecer los premios específicos tú mismo. No te ayudaré... Esta frase Si c > 95 Entonces Timer1.Interval = 0 95 Cuanto menor sea el cambio, más rápida será la parada y mayor será la posibilidad de ir a una posición repetida. Lea atentamente el código, estos valores están activos y se pueden cambiar según sus necesidades.
'Agregar temporizador de control1 comando1 línea1
Atenuar x1%, y1%
Atenuar una cadena
Subcomando privado1_Click()
a = 0
Temporizador1.>Línea 1.x1 = x1: BorderColor = QBColor(14)
End Sub
Sub privado Timer1_Timer()
Aleatorio
c = Int((100) * Rnd + 1)
a = a + 1
Si a > 24 Entonces Timer1.Interval = 100
Si a > 40 Entonces Timer1.Interval = 200
Si a > 48 Entonces
Timer1.Interval = 300
Si c > 95 Entonces Temporizador1 .Intervalo = 0
Fin si
b = (3.14 / 8) * a
Línea1 .X2 = Línea1.x1 + (3000 * Sin(b))
Línea1.Y2 = Línea1.y1 - (3000 * Cos(b))
End Sub