Snake(le jeu du nokia

Soyez le premier à donner votre avis sur cette source.

Vue 8 514 fois - Téléchargée 389 fois

Description

j'aimerais que vous m'aidiez a corriger queque bugs comme comment faire disparaitre le 2iem serpent pour jouer tous seul en appuyant sur une touche
ou le moment ou le moment ou le 2iem serpent passe sur le 1ier ca fait disparaitre un bout du 1ier ,quelque truc comme ca.

merci d'avance!!

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_pfft
Messages postés
18
Date d'inscription
vendredi 22 août 2003
Statut
Membre
Dernière intervention
30 janvier 2004
-
et bien, ça serait sympa tout d'abord que tu joignes le fichier record.txt à ton zip car c'est plutot désagréable de commencer par le rajouter nous même....en plus, quand tu ouvres ce fichier, n'indique pas de chemin et tape Open "record.txt" For Input As #1. ça évite de travailler dans un dossier spécial et puis, si tu fais un package, tu vas être emmerdé !! Maintenant, deuxième bug, dans un timer , t'as un score.caption = score.caption - 70 ???? il me semble quand même que .caption est un string et non un nombre !! ça nous balance forcément un type mismatch !! pour ton score, travaille plutot sur une variable score (type integer) et fait : score = score - 70 et affecte cette valeur au caption en faisant score.caption = cstr(score)...
pour ton changement du nombre de joueurs par frappe d'une touche, tu peux utiliser l'API suivante :
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal uAction As Long) As Long

et tu balances ça dans un timer :

If (GetAsyncKeyState(code ascii de la touche pressée And 32768) <> 0 Then faire action
DocteurVB
Messages postés
211
Date d'inscription
lundi 19 août 2002
Statut
Membre
Dernière intervention
20 mai 2005
-
sinon ce que je ferais c'est de crée une varible de type booléenne dans la procédure pic_KeyDown :

[...]
Case vbKeyP 'pour activer ou désactiver le mode 2 joueurs
MultiPlayer = not MultiPlayer 'MultiPlayer est la fameuse variable
[...]

et dans les procédures qui affiche et font se déplacer le deuxième serpent tu mets un test :

if MultiPlayer=True then
[...] ' faire afficher le 2e serpent
end if

[...] 'affichage du serpent qui est toujours présent


voila comment je ferais

bon coding !!!


DocteurVB

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.