JEU DE SERPENT AVEC PICTUREBOX

Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 - 13 mai 2010 à 18:28
raffika Messages postés 269 Date d'inscription dimanche 31 mai 2009 Statut Membre Dernière intervention 12 mars 2011 - 17 mai 2010 à 14:33
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/51751-jeu-de-serpent-avec-picturebox

raffika Messages postés 269 Date d'inscription dimanche 31 mai 2009 Statut Membre Dernière intervention 12 mars 2011
17 mai 2010 à 14:33
Salut,
j'ai posté une toute nouvelle version de
mon jeu, qui a maintenant une option pour
jouer à deux joueurs, comme le jeu Tron...

http://www.vbfrance.com/codes/JEU-SERPENT-TRON-AVEC-PICTUREBOX_51771.aspx
raffika Messages postés 269 Date d'inscription dimanche 31 mai 2009 Statut Membre Dernière intervention 12 mars 2011
16 mai 2010 à 11:23
Merci pour vos remarques,
j'ai remplacé mes 10 lignes par un rectange plein (en carré)
c'est plus rapide et ça ne tient qu'en 1 ligne au lieu de 10...
Le trackbar je l'ai laissé tel quel pour des raisons de praticité.
Quand à la form d'options, je l'ouvre maintenant en showdialog
plutot que show, et donc au lieu de faire me.hide() quand
on clique sur le bouton enregistrer j'ai mis : me.close()
Quand au bug du rond noir je l'avais déjà constaté
je vais voir si il est possible de résoudre ça, je serais surement obligé
de changer mes noms de variable pour y voir plus clair.

Salutations
l informatiquepourtous Messages postés 1064 Date d'inscription lundi 19 mars 2007 Statut Membre Dernière intervention 23 avril 2018
13 mai 2010 à 23:33
Bonsoir,
Moi j'ai remarqué que le petit rond noir disparait soudainement... et apparait pas toujours dans chaque nouvelle partie.
Ensuite je trouve que les commentaires ne sont pas asse clair il faudrait les metrent plus prêt de ce qu'il explique pas tout en groupe...
Nome tes variables de façon plus explicite même si c'est plus long à écris des fois...
Sinon : Bon courage pour la suite !
Utilisateur anonyme
13 mai 2010 à 22:33
bonsoir,
Juste une petite remarque pour commencer, le serpent peut descendre plus bas que la partie visible.
Pour raccourcir le code, dans les fonction p et pp qui dessine un carré gris et couleur, il aurait suffit d'utiliser :
Dim NewGraphic As Graphics = PictureBox1.CreateGraphics()
NewGraphic.FillRectangle(New SolidBrush(Color.FromArgb(255, 120, 120, 120)), New Rectangle(x, y, 10, 10))

La sub TrackBar1_Scroll aurait pu etre remplacée par une seule ligne :
Timer2.Interval = Convert.ToInt32((200 - (Form2.TrackBar1.Value) * 33))

La Form2 devrait etre affichée en ShowDialog() pour obliger l'utilisateur a repondre (car la mienne a disparu derriere Form1 et lorsque j'ai voulu réafficher les options elle ne voulait plus s'afficher).

Sinon c'est bien comme jeu et bien pensé.
Bonne continuation.
raffika Messages postés 269 Date d'inscription dimanche 31 mai 2009 Statut Membre Dernière intervention 12 mars 2011
13 mai 2010 à 19:15
Je n'utilise pas trop les case et je ne sais pas trop comment les faire non plus.

Je ne connaissais pas la méthode Me.text &= "m" ...

Ca sert en théorie a ne pas pouvoir éditer le texte à l'intérieur du
fichier exe, mais je ne sais pas concretement si ça marche...

Pour ce qui est de for i = 0 to 50*50 je trouve cela plus
pratique pour comprendre que ça correspond à un tableau de 50 * 50...

Pour ce qui est de cint je ne connaissais pas cette méthode de conversion
mais si on tape une autre touche ça va bugger...

Pour le Me.close(), je ne sais pas si c'est mieux que End...

Salut
Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 1
13 mai 2010 à 18:28
Salut, petites remarques :
8. Form1.Timer1.Interval = 1
9. If TrackBar1.Value 0 Then Form1.Timer1.Interval 200
10. If TrackBar1.Value 1 Then Form1.Timer1.Interval 125
11. If TrackBar1.Value 2 Then Form1.Timer1.Interval 90
12. If TrackBar1.Value 3 Then Form1.Timer1.Interval 50
13. If TrackBar1.Value 4 Then Form1.Timer1.Interval 25
14. If TrackBar1.Value 5 Then Form1.Timer1.Interval 10
une équation ou un case serai plus joli, non ?

Me.Text Me.Text + "m"> stringbuilder ou au moins Me.text &= "m"
je ne vois pas à quoi cela sert d'ailleurs ;)
Me.text = "Small snake V1.0" suffit non ?
Idem pour le MsgBox(id533)


Je vois un peu partout dans le code des for i=0 To 50 * 50 pourquoi ?
for i as integer = 0 to 250 suffit non ?

Sur le Key_press du bp3 un d=cint(e.keychar) 'en plaçant D=5 au lieu de 2 ou un truc du style suffirai non ?
en tout cas le oki ne sert à rien.


Evite le END, remplace par ME.close() de mémoire le END est un peu brutal ^^

Pour finir c'est un peu le bazard dans tes subs, essaye de les regrouper par théme.
Conclusion ne méritte pas le niveau INITIE car je débute et j'ai tout compris lol
bonne prog ++
Rejoignez-nous