ayudenme en estoi urgente
como rayos ago para que las imagenes de mi juego de memoria
se vean mas espaciadas
que es lo que tienen mis codigos que no me deja ordenarlas como debe ser
Static Sub BOTON_Click(Index As Integer)
Dim vector(30)
If Command1.Cancel = True Then
ACIERTO = 0
DESAC = 0
Command1.Cancel = False
End If
If Antes = 0 Then
BOTON(Index).Visible = False
Antes = Index
GoTo 60
End If
If Index < 16 And Antes < 16 Then GoTo 60
If Index > 16 And Antes > 16 Then GoTo 60
BOTON(Index).Visible = False
For i = 1 To 30
If IMAGEN(i).Top = BOTON(Index).Top And IMAGEN(i).Left = BOTON(Index).Left Then C1 = i
If IMAGEN(i).Top = BOTON(Antes).Top And IMAGEN(i).Left = BOTON(Antes).Left Then C2 = i
Next i
If C1 = (C2 - 15) Or C2 = (C1 - 15) Then
Beep ' ACERTÓ!!
ACIERTO = ACIERTO + 1
If ACIERTO = 15 Then GoTo 50
Else 'no acerto
retardo = Timer
While Timer < retardo + 1
DoEvents
Wend
DESAC = DESAC + 1
BOTON(Antes).Visible = True
BOTON(Index).Visible = True
End If
Antes = 0
GoTo 60
50 ' GANADOR !!
titulo = "Terminaste: ¡ Aleluya !"
T = DESAC + 15
RESP = T / 15
mens2 = "Acertaste una de cada" + Str(Round(RESP)) + " jugadas." + Chr(13)
If DESAC > 0 Then mens3 = " ¡¡¡EXCELENTEEEE!!!..¡LA BOTASTE MAN! FELICIDADES "
If DESAC > 10 Then mens3 = " ESTUVO PASABLE "
If DESAC > 20 Then mens3 = " PON A TRABAJAR MAS TU CEREBRO.. "
If DESAC > 30 Then mens3 = " ¡¡¡ERES ANCIANO? PORQUE PARECES UNO... MI ABUELA LO HACE MEJOR!!! "
Mensaje = mens1 + mens2 + mens3
mensaje3 = MsgBox(Mensaje, vbOKOnly, titulo)
60
Text1(0).Text = Str(ACIERTO)
Text1(1).Text = Str(DESAC)
End Sub
Private Sub Command1_Click()
Form_Initialize
Command1.Cancel = True
End Sub
Private Sub Form_Initialize()
Dim vector(30)
Unload Juego
Load Juego
Juego.Visible = True
For r = 2 To 30
Load BOTON(r)
If r > 15 Then
Load IMAGEN(r)
IMAGEN(r).Picture = IMAGEN(r - 15).Picture
End If
Next r
3
For x = 0 To 2
For y = 1 To 5
kk = (x * 5 + y) + f1
BOTON(kk).Left = x * 480 + 120 + F2
BOTON(kk).Top = (y - 1) * 480 + 120
BOTON(kk).Visible = True
Next y
Next x
If F2 = 0 Then f1 = 15: F2 = 1560: GoTo 3
Beep
For A = 1 To 2
For i = 1 To 15
Randomize Timer
vector(i) = Int(15 * Rnd) + 1
For d = 1 To (i - 1)
If vector(d) = vector(i) Then i = i - 1: GoTo 10
Next d
If A = 1 Then inc = 0
If A = 2 Then inc = 15
IMAGEN(vector(d) + inc).Left = BOTON(i + inc).Left
IMAGEN(vector(d) + inc).Top = BOTON(i + inc).Top
IMAGEN(vector(d) + inc).Visible = True
10 Next i
Next A
Close #6
End Sub
Private Sub Nuevo_Click()
Command1_Click
End Sub
Private Sub salir_Click()
End
End Sub
Private Sub Text1_Change(Index As Integer)
End Sub
Crear cuenta