Visual Basic - AYUDA JACKPOT

Life is soft - evento anual de software empresarial
   
Vista:

AYUDA JACKPOT

Publicado por deivid (1 intervención) el 31/05/2008 15:45:27
Hola necesito ayuda para hacer un jackpot.por ahora tengo realizado lo siguiente,mediante 3 timer me van saliendo aleatorios,ahora quiero ayuda sobre como poner las imagenes correspondientes(cereza,pera,melon) dependiendo el numero q salgan.gracias

Private Sub salir_Click()
End
End Sub

Private Sub Form_Load()
Randomize
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
End Sub

Private Sub jugar_Click()
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
End Sub

Private Sub salir_Click()
End
End Sub

Private Sub stop_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label2 = Int(10 * Rnd) + 1
End Sub

Private Sub Timer2_Timer()
Label3 = Int(10 * Rnd) + 1
End Sub

Private Sub Timer3_Timer()
Label4 = Int(10 * Rnd) + 1
End Sub
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 JACKPOT

Publicado por Matias Freire (421 intervenciones) el 04/06/2008 19:17:48
Private Sub Label2_Change()
Dim Imagen as String

Imagen = SeleccionarImagen (Val(Label2.Caption))
Picture2.Picture = LoadPicture(Imagen)

End Sub

Private Sub Label3_Change()
Dim Imagen as String

Imagen = SeleccionarImagen (Val(Label3.Caption))
Picture3.Picture = LoadPicture(Imagen)

End Sub

Private Sub Label4_Change()
Dim Imagen as String

Imagen = SeleccionarImagen (Val(Label4.Caption))
Picture4.Picture = LoadPicture(Imagen)

End Sub

Private Function SeleccionarImagen (Numero As Integer) As String
Select Case Numero
Case 1
SeleccionarImagen = "c:cereza.bmp"
Case 2
SeleccionarImagen = "c:anana.bmp"
Case 3
SeleccionarImagen = "c:manzana.bmp"
Case 4
SeleccionarImagen = "c:uva.bmp"
Case 5
SeleccionarImagen = "c: aranja.bmp"
Case 6
SeleccionarImagen = "c:durazno.bmp"
Case 7
SeleccionarImagen = "c:pera.bmp"
Case 8
SeleccionarImagen = "c:kiwi.bmp"
Case 9
SeleccionarImagen = "c:limon.bmp"
Case 10
SeleccionarImagen = "c:frutilla.bmp"
End Select
End Function

Saludos!
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