Autorisation : Membre
Nb de messages : 46
Inscrit le : Lun 02 Juil 2012, 11:40
Posté le : Lun 02 Juil 2012, 11:45
Bonjour à tous, je viens de m'inscrire sur le site pour poster mes programmes de sorte à ne pas les perdre lors d'un bug calculette, d'une blague ou d'un manque de pile.
Donc je poste ici mon tout premier programme sur ce site.
Code
For(A,1,12
For(B,1,18
0=>[A](A,B
End
End
Input "NIVEAU?",A
For(B,1,18
1=>[A](1,B
1=>[A](12,B
End
For(B,1,12
1=>[A](B,1
1=>[A](B,18
End
If A=1
Then
prgmLABY1
End
If A=2
Then
prgmLABY2
End
.
.
.
EffDessin
AxesNAff
Fonct
FonctOff
For(A,1,18
For(B,1,12
If[A](B,A)=1
Then
For(C,1,5
For(D,1,5
Pxl-On(5(B-1)+C,5(A-1)+D
End
End
End
End
End
Pxl-On(5C-3,5D-3
Pxl-On(5C-3,5D-1
Pxl-On(5C-2,5D-2
Pxl-On(5C-1,5D-3
Pxl-On(5C-1,5D-1
2=>C
2=>D
While C=/=11 ou D=/=17
0=>X
codeTouche=>X
If X=25 ou X=24 ou X=26 ou X=34
Then
Pxl-Off(5C-3,5D-3
Pxl-Off(5C-3,5D-1
Pxl-Off(5C-2,5D-2
Pxl-Off(5C-1,5D-3
Pxl-Off(5C-1,5D-1
End
If X=25 et [A](C-1,D)=0:C-1=>C
If X=24 et [A](C,D-1)=0:D-1=>D
If X=34 et [A](C+1,D)=0:C+1=>C
If X=26 et [A](C,D+1)=0:D+1=>D
If X=/=0
Then
Pxl-On(5C-3,5D-3
Pxl-On(5C-3,5D-1
Pxl-On(5C-2,5D-2
Pxl-On(5C-1,5D-3
Pxl-On(5C-1,5D-1
End
End
Ceci est le code pour un programme de labyrinthe.
De plus, j'ai ajouté à l'intérieur une fonctionnalité servant à ajouté les labyrinthes de vôtre choix (zone espacée avec 3 points).
De base, il n'y a que des murs!
Je vous expliquerais par la suite comment créer vôtre labyrinthe
---------------------- En attente des résultats du bac!
Programmeur TI-82 fou
Prêt à aider ceux qui en ont besoin
Autorisation : Membre
Nb de messages : 46
Inscrit le : Lun 02 Juil 2012, 11:40
Posté le : Lun 02 Juil 2012, 11:56
Voici le niveau 1
A mettre dans un nouveau programme LABY1
Code
1=>[A](9,11
1=>[A](9,15
1=>[A](8,13
1=>[A](8,17
For(B,1,3
1=>[A](3,9+B
1=>[A](5+B,5
1=>[A](6+B,7
1=>[A](5,10+B
End
For(B,1,4
1=>[A](5,4+B
1=>[A](1+B,14
1=>[A](2+B,16
End
For(B,1,5
1=>[A](3,2+B)
End
For(B,1,6
1=>[A](2+B,9
End
For(B,1,7
1=>[A](7,9+B
End
For(B,1,8
1=>[A](2+B,3
End
For(B,1,14
1=>[A](10,2+B
End
1=>[A](11,16
Bon actuellement il est finit et je le testerais si besoin
Je vais commencer à vous expliquer comment créer vôtre labyrinthe
---------------------- En attente des résultats du bac!
Programmeur TI-82 fou
Prêt à aider ceux qui en ont besoin
Autorisation : Membre
Nb de messages : 46
Inscrit le : Lun 02 Juil 2012, 11:40
Posté le : Lun 02 Juil 2012, 12:29
Alors c'est parti, on attache sa ceinture et on tient bien fort son siège,
vous allez créer votre labyrinthe
Mon, mon , mon labyrinthe
Oui j'ai bien dit vôtre labyrinthe
Donc tout d'abord, dans le programme principal
Il y a une zone avec 3 points
Cette zone, et j’espère que vous n'avez pas écrit bêtement les 3 points, va servir a donner un ID à votre labyrinthe.
Par exemple pour un labyrinthe nommé LABYTEST d'ID 3.14, on écrira:
Code
If A=3.14
Then
prgmLABYTEST
End
Maintenant, vôtre labyrinthe et déjà accessible!
Il ne reste plus qu'à l'éditer
Pour cela rien de plus simple,
Il faut déjà remarquer que le labyrinthe et stocker dans la matrice notée [A] et que les cases sont considérées pleines lorsque la valeur est différente de 0 et que par défaut on a des murs pour bloquer la sortie du joueur du labyrinthe.
Alors par défaut, le labyrinthe fait 12X18
Si vous n'avez pas déjà la matrice de régler, suivez les instructions ci-dessous
Je vous conseille d'ouvrir un tableur-grapheur pour le labyrinthe tel que Excel ou OpenOffice Graph.
Étape 1:
Dimensionner les case , on clique en haut à gauche du tableur normalement à gauche de A et on règle les largeurs et hauteurs à un même valeur.
Étape 2:
On prend comme couleur d'arrière plan le noir.
On sélectionne de A1 à A12 et on remplit
On sélectionne de A1 à R1 et on remplit
On sélectionne de R1 à R12 et on remplit
On sélectionne de A12 à A12 et on remplit
Étape 3:
On trace son labyrinthe en laissant les cases B2 et Q17 blanches.
Vôtre labyrinthe est prêt?
Oui!!
Eh bien on finit le travail avec le code alors.
Si vous aviez mit la case B3 en noir, tapez ce code dans le programme du labyrinthe choisit
Code
1=>[A](3,2
Si vous aviez mit les case C4 à C9 en noir tapez un des deux codes aux choix :
Code 1
Code
For(B,1,6
1=>[A](3+B,3
End
Code 2
Code
For(B,0,5
1=>[A](4+B,3
End
Réalisez cela pour tout vôtre tableur sans placer les murs extrêmes.
Et voilà vôtre labyrinthe est terminé!
Si vous avez des problèmes ou réalisé un labyrinthe je vous laisse régir.
Si un programmeur passe par-là, peut-il vérifier mon code car je n'ait pas ma calculette sous la main.
Merci d'avance.
---------------------- En attente des résultats du bac!
Programmeur TI-82 fou
Prêt à aider ceux qui en ont besoin
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Mar 03 Juil 2012, 19:05
J'ai pus faire ceci il y a un bout de temps maintenant, mais voici pour toi si çà peut t'inspirer pour la suite de ton prgm. Je trouve le tien pas mal je l’essaierai sûrement
