| Ver tema anterior :: Ver siguiente tema |
| Autor |
Mensaje |
DploiD
Yo soy el foro
Registrado: 26 Ene 2006
Mensajes: 4370
Ubicación: Argentina
|
 Publicado: Mie Feb 13, 2008 6:02 am Título del mensaje: |
 |
|
Bueno, yo ya estoy bajando el VB despues de una perdida de datos total accidental xDD
Asi que ni bien puedas subir el codigo, lo miro, un saludo.
_________________
Avisame del spam
O postealo acá
|
|
| Volver arriba |
|
 |
jor
Yo soy el foro
Registrado: 07 Jul 2006
Mensajes: 6879
Ubicación: Lucus Augusti
|
| Publicado: Mie Feb 13, 2008 9:38 am Título del mensaje: |
|
|
| DploiD escribió: |
| Asi que ni bien puedas subir el codigo, lo miro, un saludo. |
Allá voy:
Código:
| Código: |
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Timer1.Interval = 200 - Val(Timer1.Interval
End Sub
Private Sub Command4_Click()
Timer1.Interval = Val(Timer1.Interval) + 200
End Sub
Private Sub HScroll1_Change()
Shape1.Left = HScroll1.Value
End Sub
Private Sub HScroll1_Scroll()
Shape1.Left = HScroll1.Value
End Sub
Private Sub Timer1_Timer()
If Image1.Top < 4000 Then
Image1.Top = Image1.Top + 100
Else
If Image1.Left < Shape1.Left - 10 Or Image1.Left > Shape1.Left + 400 Then
Label1.Caption = Val(Label1.Caption) + 1
Else
Label2.Caption = Val(Label2.Caption) + 1
End If
Randomize
Image1.Top = 120
Image1.Left = Int(Rnd * 3600) + 360
End If
End Sub |
Donde:
Command1 es un botón que inicia el juego.
Command2 es un botón que para el juego.
Timer1 es el que controla la frecuencia de caída del avión.
Command3 es un botón que aumenta la velocidad de caída.
Command4 es un botón que disminuye la velocidad de caída.
Label1 es un label donde cuento los aciertos que tengo.
Label2 es un label donde cuento los fallos que tengo.
Image1 es el avioncito.
Shape1 es la cajita donde cae el avión.
Finalmente:
HScroll1 es la barra de desplazamiento con la que muevo la cajita.
Creo que no me olvido de nada. A ver si me ayudáis, y perdonad la tardanza. 
_________________
Quien encuentra un amigo, encuentra un tesoro.
Chi trova un amico, trova un tesoro.
Firma hecha por un tesoro (<TheDarkMan>)
|
|
| Volver arriba |
|
|
DploiD
Yo soy el foro
Registrado: 26 Ene 2006
Mensajes: 4370
Ubicación: Argentina
|
| Publicado: Mie Feb 13, 2008 2:51 pm Título del mensaje: |
|
|
Jor, el problema está en la comprobación de si es un acierto o un fallo, mira en el Timer, la comprobación del left.
Si el avion (Image) cae justo donde empieza el Shape, le da el acierto. Es esa la línea que está mal, tantos lefts marean xDD Cuando hablemos te lo explico mejor, pero anda pensando una posible solución.
Un saludo.
_________________
Avisame del spam
O postealo acá
|
|
| Volver arriba |
|
|
jor
Yo soy el foro
Registrado: 07 Jul 2006
Mensajes: 6879
Ubicación: Lucus Augusti
|
| Publicado: Mie Feb 13, 2008 4:52 pm Título del mensaje: |
|
|
Pues luego me conectaré al MSN, y allí me lo explicas (si estás). Y si no, a la noche, ¿vale? 
Saludos 
_________________
Quien encuentra un amigo, encuentra un tesoro.
Chi trova un amico, trova un tesoro.
Firma hecha por un tesoro (<TheDarkMan>)
|
|
| Volver arriba |
|
|
|
|
|
