Visual Basic - ayudenme en estoi urgente

Life is soft - evento anual de software empresarial
   
Vista:

ayudenme en estoi urgente

Publicado por victor (7 intervenciones) el 29/09/2007 02:49:52
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
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:ayudenme en estoi urgente

Publicado por yo (8 intervenciones) el 30/09/2007 00:10:46
No lo jures, eres argentino. Solo con ver lo mal que escribes y lo mal que programas no hace falta que nos des mas pistas.

Una pregunta.. sin ánimo de ofender...
¿Fuiste a la escuela? No me refiero a la primaria que eso ya se ve por las faltas de ortografía (cosa que os enseñan desde pequeños) me refiero a la de programación.
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