begin process at 2008 09 05 20:39:03
1 237 505 membres
445 nouveaux aujourd'hui
14 313 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

SHUTTLE SIMULATOR 2004 V1.01


Information sur la source

Catégorie :Jeux Niveau : Débutant Date de création : 29/10/2003 Date de mise à jour : 29/10/2003 11:23:34 Vu / téléchargé: 1 968 / 223

Note :
Aucune note

Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

Description

Salut ! J'ai fabriqué un petit prog , c'est un petit simulateur tout simple . Vous devez utilisez les touches de direction . la fleche du haut por avancer , du bas pour arreter de gauche ....
J'ai essaye de recreeer l'univers et le shuttle .
Ne croyez pas que vous alez trouver une source magnifique parce que jen n'ai que 13 ans et je suis un débutant .

Source

  • 'Tout est dans le zip
'Tout est dans le zip

Conclusion

j'attends vos remarques pour mofifier mon prog !

                 @+
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

  • signaler à un administrateur
    Commentaire de spy166 le 29/10/2003 12:36:24

    L'âge n'est pas un argument.

  • signaler à un administrateur
    Commentaire de AHp33 le 29/10/2003 12:58:28

    La conneri non plus

  • signaler à un administrateur
    Commentaire de JoePatent le 29/10/2003 22:00:49

    Tres constructif vos remarques....

  • signaler à un administrateur
    Commentaire de spy166 le 30/10/2003 00:04:31

    n'est-ce pas ?

  • signaler à un administrateur
    Commentaire de vr3h le 30/10/2003 09:50:01

    Salut, bon alors j'ai jeté un rapide coup d'oeil à ton source (je suis au taf dc je px passer bcp de tps dessus pr le moment), cela dit ya 2 ou 3 petites choses ke je px te dire : la 1ere, c'est que si ton environnement parait 3D (c'est plutot pas mal fait pr un debutant), il vaut mieux voir l'arriere de ton shuttle et non pas le dessus, ensuite, l'image de ton shuttle est un peu petite, et tu pourrais l'agrandir, enfin, pour eviter qq pb graphiques comme les etoiles qui clignotent je ne saurai ke te conseiller de passer à DirectX 7 ou 8 si VB5 les gère. Après a toi de voir ce que tu vx faire :) A bientot ss doute

  • signaler à un administrateur
    Commentaire de Drgn13 le 30/10/2003 23:02:33

    j'ai trouvé une technique pas mal pour accélérer la réaction des touches :

    Dim X(100), Y(100), Z(100) As Integer
    Dim tmpX(100), tmpY(100), tmpZ(100) As Integer
    Dim K As Integer
    Dim Zoom As Integer
    Dim Speed As Integer
    Dim droite As Boolean
    Dim gauche As Boolean
    Private Sub Form_Activate()
    K = 2038
    Speed = 0
        Zoom = 256
        Timer1.Interval = 1
      For i = 0 To 100
            X(i) = Int(Rnd * 1024) - 512
            Y(i) = Int(Rnd * 1024) - 512
            Z(i) = Int(Rnd * 512) - 256
        Next i
    End Sub
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyUp Then Speed = Speed - 1
    If Speed = -7 Then Speed = -6
    If KeyCode = vbKeyDown Then Speed = Speed + 1
    If Speed = 1 Then Speed = 0

    If KeyCode = vbKeyRight Then droite = True: gauche = False
    If KeyCode = vbKeyLeft Then gauche = True: droite = False
    End Sub

    Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyRight Then droite = False
    If KeyCode = vbKeyLeft Then gauche = False
    End Sub

    Private Sub mnuQuitter_Click()
    End
    End Sub

    Private Sub Timer1_Timer()
    For i = 0 To 100
            Circle (tmpX(i), tmpY(i)), 5, BackColor
            Z(i) = Z(i) + Speed
            If Z(i) > 255 Then Z(i) = -255
            If Z(i) < -255 Then Z(i) = 255
            tmpZ(i) = Z(i) + Zoom
            tmpX(i) = (X(i) * K / tmpZ(i)) + (Simulator.Width / 2)
            tmpY(i) = (Y(i) * K / tmpZ(i)) + (Simulator.Height / 2)
            Radius = 1
            StarColor = 256 - Z(i)
            Circle (tmpX(i), tmpY(i)), 5, RGB(StarColor, StarColor, StarColor)
        Next i
        
    If droite Then Image1.Left = Image1.Left + 120
    If gauche Then Image1.Left = Image1.Left - 120
    End Sub

Ajouter un commentaire

Pub



Appels d'offres

CalendriCode

Septembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
2930     

Boutique

Boutique de goodies CodeS-SourceS