Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: Bazooka en Junio 20, 2014, 10:44:18 am
-
Hola amigos, estoy intentando emular el movimiento de una ruleta que gira y me gustaria que se vea lo mas real posible en cuanto se refiere a fisica . O sea que se produsca una acelaracion y desaseleracion convincente.
Les subo el proyectito para que vean si me pueden ayudar !!
https://mega.co.nz/#!kwUS2YKI!M1MMQS8QUKtWQfoX6zXRJoX-xlB3zbLA4d2CB88-970 (https://mega.co.nz/#!kwUS2YKI!M1MMQS8QUKtWQfoX6zXRJoX-xlB3zbLA4d2CB88-970)
Muchas gracias
-
ninguna ayudita??
-
Hola Pibe Bazoka ;) , mira a mi me gusto asi
Dim r As Integer
Dim d As Long
Private Sub Command1_Click()
d = GetRND(45, 135)
Timer1.Interval = 50
End Sub
Private Sub Timer1_Timer()
r = r + d
If r >= 360 Then r = 0
uc.Angle = r
d = d - 1
If d = 0 Then
Timer1.Interval = 0
Debug.Print uc.Angle
End If
End Sub
Private Function GetRND(Min As Integer, Max As Integer)
GetRND = CInt(Int((Max - Min + 1) * RND())) + Min
End Function
lo que si tenes que sacar el calculo de los grados para obtener el resultado osea con un select case por ejemplo de 0 a 22 un valor de 23 a 45 otro etc, no hice bien la cuenta pero creo que 22 esta bien porque son 16 casilleros divididos 360 grados es un intervalo de 22 y chirolas
-
muchas gracias Leandro!!!
Me esta dando un error de desbordamiento pero ya lo estudio para corregir!!