Dim Var As Variant
Dim Recorrido, Corredor As Integer
Private Sub CmdStart_Click()
'Comprueba que los valores introducidos para la apuesta sean correctos
If CmbNum.Text = "" Then MsgBox "Debes elegir un número.": Exit Sub
Var = TxtApuesta.Text
If Not IsNumeric(Var) Then MsgBox "Debes apostar correctamente.": Exit Sub
If Var < 1 Then MsgBox "Elige una apuesta superior a 1.": Exit Sub
'Comienza la carrera
CmbNum.Enabled = False: TxtApuesta.Enabled = False: CmdStart.Enabled = False
TmrM.Enabled = True
End Sub
Private Sub Form_Load()
'Inicializa posiciones y números aleatorios, activa botones
Randomize Timer
CmbNum.Enabled = True: TxtApuesta.Enabled = True: TxtApuesta.Text = ""
ImgCorredor(0).Left = 360
ImgCorredor(1).Left = 360
ImgCorredor(2).Left = 360
End Sub
Private Sub TmrM_Timer()
Recorrido = Int((Rnd * 100) + 20)
Corredor = Int((Rnd * 3) + 0)
ImgCorredor(Corredor).Left = ImgCorredor(Corredor).Left + Recorrido
'Comprobación de que corredor llega a la meta primero
If ImgCorredor(Corredor).Left >= 6960 Then
If CmbNum.Text = Corredor + 1 Then
MsgBox "GANADOR" + Chr(13) + " " + Str(Corredor + 1) + Chr(13) _
+ "Has ganado: " + Str(Var * 3), vbInformation, "CARRERA"
Else
MsgBox "GANADOR" + Chr(13) + " " + Str(Corredor + 1) + Chr(13) _
+ "Has perdido: " + Str(Var), vbInformation, "CARRERA"
End If
TmrM.Enabled = False
If MsgBox("¿Desea realizar otra carrera?", vbYesNo, "CARRERA") = vbNo Then End
Form_Load
'Comienza una carrera nueva
End If
End Sub
Private Sub TxtApuesta_Change()
CmdStart.Enabled = True
End Sub
