Shuttle simulator 2004 v1.01

Soyez le premier à donner votre avis sur cette source.

Vue 3 384 fois - Téléchargée 326 fois

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 / Exemple :


'Tout est dans le zip

Conclusion :


j'attends vos remarques pour mofifier mon prog !

@+

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
86
Date d'inscription
vendredi 14 mars 2003
Statut
Membre
Dernière intervention
26 mars 2007

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
Messages postés
164
Date d'inscription
jeudi 6 mars 2003
Statut
Membre
Dernière intervention
9 octobre 2006

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
Messages postés
207
Date d'inscription
jeudi 21 novembre 2002
Statut
Membre
Dernière intervention
29 mars 2006

n'est-ce pas ?
Messages postés
171
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
20 juillet 2008

Tres constructif vos remarques....
Messages postés
13
Date d'inscription
samedi 11 janvier 2003
Statut
Membre
Dernière intervention
21 mai 2004

La conneri non plus
Afficher les 6 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.