Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 5921
Réponses : 31
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Puissance4 v0.1

coc5 le 06/09/2007 à 16:41
Un petit puissance 4 à deux joueurs happy.gif

*** VOICI LE LIEN v0.2 ***

ET VOICI LE LIEN de la v0.1

Screen winkle.gif


Prochainement: 2 joueurs réseaux, puis Ai disponible (en fait pas tout de suite hein^^).
Code
12->dim([LISTE]P4
Radian:AxesOff
FnOff :LabelOff
Lbl M:1->F
Menu("PUISOC","CONTINUER",L,"NOUV. PARTIE",C,"OPTIONS",P,"QUITTER",Z
Lbl P
If [LISTE]P4(1
Then
Disp "ABANDONNER
1->O:7->N
Input "PARTIE EN COURS?",Str1
If Str1="OUI
Then
DelVar [LISTE]P4
13->dim([LISTE]P4
Else
Disp "MODIFS","IMPOSSIBLES
Pause
Goto M
End
End
ClrHome
Disp "OPTIONS","","*JOUEUR"," NIV. A.I"," MOTIFS
For(I,4,5
Output(I,16,1+[LISTE]P4(I-2
End
[LISTE]P4(1->O
If O=0:"  J/J
If O=1:" AI/J
If O=2:"AI/AI
Output(3,12,Ans
1->A
Repeat K=105
getKey->K
If K:Then
Output(A+2,1,"
(K=34)+A-(K=25->A
min(3,max(1,A->A
Output(A+2,1,"*
[LISTE]P4(A)+(K=26)-(K=24->[LISTE]P4(A
min(2,max(0,Ans->[LISTE]P4(A
Ans->O
If A-1:Then
Output(A+2,16,Ans+1
Else
If O=0:"  J/J
If O=1:" AI/J
If O=2:"AI/AI
Output(3,12,Ans
End
End
End
Goto M
Lbl C
0->F
DelVar [LISTE]P4
12->dim([LISTE]P4
Lbl L
ClrDraw
-.4->Xmin:0->Ymin
13->Xmax:7.75->Ymax
Ymax/62->W
7ñ->R
Text(1,0,"PUISOC4
For(I,0,15W,W
Line(Xmin,6.8-I,4,6.8
Line(Xmin,1.6+I,4,1.6
End
Text(57,0,"(C)2007
Text(50,0,"PAR COC5
For(J,0,8,7W
For(B,4,Xmax
If F and J<7 and B-13:Then
J8/7->I
int(10fPart(10^(B-4)[LISTE]P4(12-round(I,0->T
If Ans:prgmPS4DES
End
Pt-On(B,J,[LISTE]P4(3
End
End
9->B
Text(25,0,"JOUEUR
Lbl 0
Line(B+R,Ymax,B+R,7
B+1-R
Line(Ans,7,Ans,Ymax
Text(25,25,1+[LISTE]P4(4
Repeat (K=21 or K=23) and not(int(10fPart(10^(B-4)[LISTE]P4(5
getKey->K
B->C
B-(K=24 and B>4)+(K=26 and B<12->B
If B-C:Then
For(J,C,B,B-C
J+1-R
Line(J+R,Ymax,J+R,7,J-C
Line(Ans,Ymax,Ans,7,J-C
Line(J+R,0,Ans,0,J-C
End
End
If K=22:Then
Lbl Z
AxesOn:FnOn
LabelOn:Degree
ClrHome
Stop
End
End
For(I,0,7
If not(int(10fPart([LISTE]P4(12-I)10^(B-4
Goto B
End
Lbl B
not([LISTE]P4(4->[LISTE]P4(4
Ans+1->T
[LISTE]P4(12-I)+10^(3-B)T->[LISTE]P4(12-I
prgmPS4DES
Goto 0


/!\ ATTENTION, le nom de ce programme doit impértivement être : PS4DES
Code

7I/8ü ( ) G
G+3W->M
B+3R
If T:Then
Line(B+R,M,Ans,G+W
Line(B+R,M+W,Ans,G+6W
Line(Ans+R,G+W,B+6R,M
Line(Ans+R,G+6W,B+6R,M+W
If T=2:Then
Pt-On(Ans,M,3
Pt-On(Ans,M+W,3
Pt-On(Ans+R,M,3
Pt-On(Ans+R,M+W,3
End
End
Return
Stupid le 06/09/2007 à 18:41
plgaieur^^ (je deconne)
ratuss le 06/09/2007 à 20:07
je serais toi je rajouterais fnon / fnoff au cas ou ;-)

+
coc5 le 06/09/2007 à 20:56
Merci.

@Baby : Tu as fait dans le même genre ?

(La version 0.2 presque terminée!)
Stupid le 07/09/2007 à 17:32
ouias mais encore une fois exclu sur mon forum
coc5 le 08/09/2007 à 14:22
Beuh, j'ai supprimé mon programme en voulant supprimer son sous-programme cry.gif Pas doué moi crazy.gif
mad67 le 12/09/2007 à 13:45
mais comment tu fais pour kil soit en ligne?
coc5 le 12/09/2007 à 18:38
(ça avance, bientôt la v0.2^^)
=> Pour qu'il soit en ligne, j'utilise get(variable), avec le cable. Mais ça je vais le faire en dernier en fait^^. Je crois que je vais plutôt m'occuper de passer de la matrice à la liste condensée happy.gif
Stupid le 12/09/2007 à 20:35
ce qui m'ettonne c'est la longueur du prog, il est super court, rien que le miens prenait qqchose comme 500 octets de conditions a la fin d'un tour...
coc5 le 13/09/2007 à 16:59
C'est qu'en ce moment je m'efforce de faire des petits programmes donc il fallait mieux éviter ça^^

La v0.2 est terminée bigmouth.gif minied.gif

Donc, L'Ai n'est pas encore fonctionnelle, j'ai juste amélioré l'ensemble et diminué la place prise, plus de matrice à 700 octets, mais juste une liste à 118 octets !

(juste un mini problème, en cas de mémoire faible, il faut relancer le programme au boût d’un certain temps)
Stupid le 13/09/2007 à 18:31
Citation
L'AI n'est pas fonctionelle.


tu m'etonnes, tu crois vraiment que faire une AI qui a un bon niveau ça tient sur une TI sans completement lagger jusqua a bug boucle?
coc5 le 13/09/2007 à 20:09
de bon niveau, je ne dis pas, mais correct je vais essayer^^
Stupid le 13/09/2007 à 20:19
honnetement pour faire une ai déjà faut etre un pro du puissance 4, ensuite faut appliquer sur toute les probabilités de placement etc... donc vraiment si t'y arrives avec 26ko t'es un bon
the_bolos le 27/09/2007 à 16:49
Bonjour a tous excusez moi
je ne trouve pas la commande
"fPart" sur une TI82-stats.fr
quelqun pourait-il mindiquer merci
ratuss le 27/09/2007 à 16:51
Salut, va dans [math] puis [gauche], tu devrais trouver facilement...

(sinon tu fais 2nde 0 et la t'as toutes les instructions winkle.gif)
the_bolos le 28/09/2007 à 22:21
merci beaucoup ratus ++
mick
the_bolos le 28/09/2007 à 22:32
Re bonne soirée premierement
Et je voudrai dsl abuser de tas gentillesse pourrai tu me dire comment creer
je pense qu'il faut en creer ce que tu appelle [liste]p4
Comment puije le faire merci d'avance de ta gentillesse (dsl pour l'hortographe)
mick
Sangohan38 le 28/09/2007 à 22:41
Tu fais 1->dim(LP1 .
Le nom de la liste est P1.

Sangohan38
coc5 le 28/09/2007 à 22:59
Je pense qu'il veut plutôt parler du caractère L spécial, qui se trouve dans catalogue, à la lettre L ( catalogue = [2nd] + 0 )
dan le 29/09/2007 à 19:00
slt jariv pa a trouver Str1 cry.gif
Sangohan38 le 29/09/2007 à 19:17
Tu va dans Vars puis dans STRING puis tu choisis ta chaine.

Sangohan38
ratuss le 29/09/2007 à 19:19
(sinon pour éviter d'être bloqué tu peux jeter un coup d'œil ici winkle.gif https://tout82.pages-perso.fre[...]t.php?sujet=104 )
baby le 29/09/2007 à 21:14
il est un petit peu plus beau que le miens

et tu peux dégager le truc "a venir AI"
ratuss le 29/09/2007 à 21:43
Slovak est ce que tu peux te loguer pour poster s'il te plait... :/ (ou au moins évite de changer ton pseudo à chaque post ;] ).

Merci.
Stupid le 30/09/2007 à 13:05
c'es juste que ça amrchait pas la connection
ratuss le 30/09/2007 à 14:38
Oui ça doit être encore un coup du bug free ou t'es obligé d'écrire 6000 le fois le même post maxiangry.gif maxiangry.gif
coc5 le 30/09/2007 à 14:44
Vous ne sauriez pas cment on peut éviter la saturation de la mémoire, car même avec return, l'appelle du sous-programme sature la mémoire karate.gif
ratuss le 30/09/2007 à 14:51
il y a une astuce : lorsque le joueur termine une partie ou quelque chose du genre, on indique le score et on affiche

"APPUYER SUR ENTER POUR CONTINUER"

le programme se termine, le joueur relance le prog (en appuyant sur enter) et le tour est joué :]

(sinon je vois pas trop comment faire :°)
Sangohan38 le 30/09/2007 à 15:53
User et abuser des For et While, je vois que ça comme solution.

Sangohan38
Kid64 le 29/04/2008 à 15:11
Bonjour,
D'abord bravo au concepteur du prgm
J'ai juste un petit probleme, a quoi correspond le ñ du programme SVP

merci happy.gif
coc5 le 29/04/2008 à 19:51
https://tout82.pages-perso.fre[...]t.php?sujet=799

Il y a tout.

Mais je vais pour cette fois t'épargner la recherche : Ce signe correspond à l'exposant [-1] (à gauche sur le clavier de ta Ti).
Kid64 le 30/04/2008 à 09:31
Merci beaucoup!
Et félicitation pour ton programme il marche très bien!
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.