Jeu, Aidez-moi!

Question

Bonjour, je dois faire un programme ou je dois tirer des vaisseaux ennemis tombant du ciel. &#192; l'aide d'un Timer, je fais descendre 30 vaisseaux et avec un autre timer je fais monter mon missile vers les vaisseaux ennemis. L&#224;, &#231;a va bien mais lorsque vient le temps de faire disparaitre les vaisseaux enemis touch&#233;s &#231;a bloque. Que devons-nous consid&#233;rer comme propri&#233;t&#233;s? Il est certain que vaisseau_ennemi.left et .top doit etre eviron identique &#224; missile.left et .top mais &#231;a ne fonctionne toujours pas. J'aimerais savoir si j'oublie quelque chose???? Car &#224; date, &#231;a ne fonctionne pas du tout. Je crois que je doit consid&#233;rer les bonds que font faire mes timer a mes shapes. ?? Aidez-moi!

        For j = 1 To x
                    
            If shpMissile.Top = shpVaisseau1(j).Top Then
                If shpMissile.Left >= shpVaisseau1(j).Left - 255 And shpMissile.Left <= shpVaisseau1(j).Left + 255 Then
                           
                    shpVaisseau1(j).Visible = False

                End If
            Else
                    shpMissile.Visible = True
                    shpMissile.Top = shpMissile.Top - 700
            End If

      Next

Renfield · Answer

un fois que le missile dépasse ton vaisseau, ce dernier redeviens visible :

For j = 1 To x                  
    If shpMissile.Top = shpVaisseau1(j).Top Then
        If shpMissile.Left >= shpVaisseau1(j).Left - 255 And shpMissile.Left <= shpVaisseau1(j).Left + 255 Then                 
            shpVaisseau1(j).Visible = False
        End If
    Else
        'shpMissile.Visible = True    # A SUPPRIMER
        shpMissile.Top = shpMissile.Top - 700
    End If
Next

Jeu, Aidez-moi!

1 réponse

Discussions similaires