Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Lun 20 Jui 2011, 18:19
Message de trotithuthur:
Je vous propose aujourd'hui mon jeu du pendu, fraichement fini ce week-end =)
Il a pour particularité de proposer un mode 2 joueurs: un joueur choisi le mot qui doit être deviner, mais il comporte aussi un générateur de mot (de 3 à 10 lettres, pouvant être complété au fil du temps), il tient sa particularité d'utiliser le mode Horiz, généralement peu utiliser, et respecter bien les espaces en recopiant (notamment dans la partie du générateur de mots! =) )
Le programme PENDU non optimisé:
Code
:ZStandard
:ClrHome
:Disp "","","****************"," LE PENDU!","****************
:Pause
:AxesOff
:11->R:0->T
:Zoom Out
:ClrDraw
:Degree
:Text(50,25,"CHARGEMENT...
:While T[DIFFERENT DE]2
:For(W,0,200,30
:Rcos(W->A
:Rsin(W->B
:Line(A,B,-A,-B
:End
:For(W,0,270,30
:Rcos(W->A
:Rsin(W->B
:Line(A,B,-A,-B,0
:End
:T+1->T
:End
:ClrHome
:Lbl T
:Menu(" PENDU ","2 JOUEURS",1,"ALEATOIRE",3,"QUITTER",2
:Lbl 3
:Menu("NB DE LETTRES?","3",C,"4",D,"5",E,"6",F,"PLUS",X
:Lbl X:
:Menu("NB DE LETTRES?","7",G,"8",H,"9",I,"10",J,"RETOUR",T
:Lbl C
:" SACSIXETEFOUNULTOIMOILUIOUINONAIESURMAL"->Chaîne2
:sousChaîne(Chaîne2,1+3entAléat(1,longueur(Chaîne2)/3),3)->Chaîne3
:Goto M
:Lbl D
:" AVECSANSDENTDANSSANGDONCCHATPRIXFOOTROSEELLEBANC
BIENSEULNOUS"->Chaîne2
:sousChaîne(Chaîne2,1+4entAléat(1,longueur(Chaîne2)/4),4)->Chaîne3
:Goto M
:Lbl E
:" CHIENTEMPSDINERBOITEJETONPOKERGITANBIDONPIQUEWAGON"->Chaîne2
:sousChaîne(Chaîne2,1+5entAléat(1,longueur(Chaîne2)/5),5)->Chaîne3
:Goto M
:Lbl F
:" MANGERTENNISMAISONDORMIRJAMBONCANCERPATATE
BONBONMANGUESACHETENDIVECASQUEEXPOSECHACAL"->Chaîne2
:sousChaîne(Chaîne2,1+6entAléat(1,longueur(Chaîne2)/6),6)->Chaîne3
:Goto M
:Lbl G
:" AMUSANTBONJOURPOISSONFICHIERCHAPEAUDRAPEAURIGOLERCAROTTEENLACERMALADIE
SUCETTEFOURCHEROULEAUMISSILEECHELLEEXPLOITIMOTHEPTROUSSE"->Chaîne2
:sousChaîne(Chaîne2,1+7entAléat(1,longueur(Chaîne2)/7),7)->Chaîne3
:Goto M
:Lbl H
:" PORTABLEENSEMBLEPROUESSEOFFRANDEARTISTESSTUPIDES
DOSSIERSCHAUSSONPOMMIERSCLASSEURECOUTEURPANTALONMAMMOUTH
COUCHAGEALLUMAGECHOCOLAT"->Chaîne2:
:sousChaîne(Chaîne2,1+8entAléat(1,longueur(Chaîne2)/8),8)->Chaîne3
:Goto M:
:Lbl I
:" TROMPETTEAFFRONTERAGRIPANTEMOUSTIQUEFRAMBOISE
BAIGNOIRECONNIFEREBROUILLONCHAUSSUREPARAMETREMENOPAUSE
FULGURANTEXPLOSIONRDIATEUR"->Chaîne2
:sousChaîne(Chaîne2,1+9entAléat(1,longueur(Chaîne2)/9),9)->Chaîne3
:Goto M
:Lbl J
:" CALCULETTEINSTRUMENTSINGULIERECHAUSSETTE
EXPOSITIONTROTINETTEPROTECTIONCOMBUSTIONCALENDRIERTELEVISION"->Chaîne2
:sousChaîne(Chaîne(2,1+10entAléat(1,longueur(Chaîne2)/10),10)->Chaîne3
:Lbl 1:
:EffEcr:EffDessin:CoordNaff:
:Input "MOT? ",Chaîne3
:Lbl M
:2->W:0->T:11->V:8->Z:0->T:0->C
:EffEcr
:Chaîne3->Chaîne2
:Horiz
:longueur(Chaîne2)->L
:While T[DIFFERENT DE]L
:Z+7->Z
:For(X,Z,Z+5
:Pxl-On(29,X
:End
:T+1->T
:End
:Texte(2,65,"VIES:
:Texte(2,2,"UTILISEES:
:Repeat V=0 ou Chaîne1=Chaîne3 ou T=L
:Texte(2,85,V
:If V<10
:Texte(2,88," ")
:Disp MOT OU
:Input "LETTRE?",Chaîne1
:EffEcr
:Texte(8,W,Chaîne1
:W+4->W
:carChaîne(Chaîne2,Chaîne1)->P
:If P=0
:Then
:V-1->V
:Disp "ELLE N'Y EST PAS!
:Pause
:End
:If P[DIFFERENT DE]0
:Then
:T+1->T
:Disp "ELLE Y EST!
:Pause
:End
:If P[DIFFERENT DE]1 et P[DIFFERENT DE]L et P[DIFFERENT DE]0
:sousChaîne(Chaîne2,1,P-1)+" "+sousChaîne(Chaîne2,P+1,L-P)->Chaîne2
:EffEcr
:If P=L
:sousChaîne(Chaîne2,1,P-1)+" "->Chaîne2
:If P=1
:Then
:Texte(23,16,Chaîne1
:" "+sousChaîne(Chaîne2,P+1,L-P)->Chaîne2
:End
:If P=2
:Texte(23,23,Chaîne1
:If P=3
:Texte(23,30,Chaîne1
:If P=4
:Texte(23,37,Chaîne1
:If P=5
:Texte(23,44,Chaîne1
:If P=6
:Texte(23,51,Chaîne1
:If P=7
:Texte(23,58,Chaîne1
:If P=8
:Texte(23,65,Chaîne1
:If P=9
:Texte(23,72,Chaîne1
:If P=10:
:Texte(23,79,Chaîne1
:C+1->C:
:End
:EffEcr
:PleinEcr
:If Chaîne1=Chaîne3 ou T=L
:Then
:Disp "BRAVO!","VOUS AVEZ","TROUVE LE MOT",Chaîne3,"EN:"," COUPS!
:Output(6,1,C
:Pause
:End
:""->Chaîne1
:""->Chaîne2
:If V=0:
:Then
:-7->Xmin
:3->Xmax
:10->Ymax
:-2->Ymin
:Ligne(-10,-2,-3,-2
:Ligne(-5,8,-4,9
:Ligne(-5,9,-5,-2
:Ligne(0,9,-5,9
:Ligne(0,7,0,9
:Ligne(-1,0,0,2
:Ligne(1,0,0,2
:Ligne(0,2,0,5
:Ligne(-1.2,3,1.2,3
:Cercle(0,6,1
:Texte(50,25,"PENDU...
:Pause
:Disp "","****************","OH,"," C'EST PERDU!","SOLUTION:",Chaîne3,"****************:
:Pause
:End
:""->Chaîne3
:Menu(" PENDU ","REJOUER",T,"QUITTER",2
:Lbl 2
:EffEcr
:EffDessin
:AxesAff
:CoordAff
:Output(1,1,"
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Lun 20 Jui 2011, 18:20
Message de Sandro:
Non optimisé, tu exagère :44 octés si j'ai bien compté, c'est assez optimisé pour un programme "non optimisé" de cette taille. Enfin, il y a néanmoins encore 107 autre d'un coup pour le passage ou tu détermine la position d'affichage avec des iff en fonction de p.
Code
:ZStandard
:ClrHome
:Disp "","","****************"," LE PENDU!","****************
:Pause
:AxesOff
:11->R:EffVar TZoom Out //ici *1
:ClrDraw
:Degree
:Text(50,25,"CHARGEMENT...
:While T[DIFFERENT DE]2
:For(W,0,200,30
:Rcos(W->A
:Rsin(W->B
:Line(A,B,-A,-B
:End
:For(W,0,270,30
:Rcos(W->A
:Rsin(W->B
:Line(A,B,-A,-B,0
:End
:T+1->T
:End
:ClrHome
:Lbl T
:Menu(" PENDU","2 JOUEURS",1,"ALEATOIRE",3,"QUITTER",2 //ici *6
:Lbl 3
:Menu("NB DE LETTRES?","3",C,"4",D,"5",E,"6",F,"PLUS",X
:Lbl X:
:Menu("NB DE LETTRES?","7",G,"8",H,"9",I,"10",J,"RETOUR",T
:Lbl C
:" SACSIXETEFOUNULTOIMOILUIOUINONAIESURMAL->Chaîne2 //ici *1
:sousChaîne(Chaîne2,1+3entAléat(1,longueur(Chaîne2)/3),3->Chaîne3 //ici *1
:Goto M
:Lbl D
:" AVECSANSDENTDANSSANGDONCCHATPRIXFOOTROSEELLEBANC
BIENSEULNOUS->Chaîne2 //ici *1
:sousChaîne(Chaîne2,1+4entAléat(1,longueur(Chaîne2)/4),4->Chaîne3 //ici *1
:Goto M
:Lbl E
:" CHIENTEMPSDINERBOITEJETONPOKERGITANBIDONPIQUEWAGON->Chaîne2 //ici *1
:sousChaîne(Chaîne2,1+5entAléat(1,longueur(Chaîne2)/5),5->Chaîne3 //ici *1
:Goto M
:Lbl F
:" MANGERTENNISMAISONDORMIRJAMBONCANCERPATATE
BONBONMANGUESACHETENDIVECASQUEEXPOSECHACAL->Chaîne2 //ici *1
:sousChaîne(Chaîne2,1+6entAléat(1,longueur(Chaîne2)/6),6->Chaîne3 //ici *1
:Goto M
:Lbl G
:" AMUSANTBONJOURPOISSONFICHIERCHAPEAUDRAPEAURIGOLERCAROTTEENLACERMALADIE
SUCETTEFOURCHEROULEAUMISSILEECHELLEEXPLOITIMOTHEPTROUSSE->Chaîne2 //ici *1
:sousChaîne(Chaîne2,1+7entAléat(1,longueur(Chaîne2)/7),7->Chaîne3 //ici *1
:Goto M
:Lbl H
:" PORTABLEENSEMBLEPROUESSEOFFRANDEARTISTESSTUPIDES
DOSSIERSCHAUSSONPOMMIERSCLASSEURECOUTEURPANTALONMAMMOUTH
COUCHAGEALLUMAGECHOCOLAT->Chaîne2 //ici *2
:sousChaîne(Chaîne2,1+8entAléat(1,longueur(Chaîne2)/8),8->Chaîne3 //ici *1
:Goto M:
:Lbl I
:" TROMPETTEAFFRONTERAGRIPANTEMOUSTIQUEFRAMBOISE
BAIGNOIRECONNIFEREBROUILLONCHAUSSUREPARAMETREMENOPAUSE
FULGURANTEXPLOSIONRDIATEUR->Chaîne2 //ici *1
:sousChaîne(Chaîne2,1+9entAléat(1,longueur(Chaîne2)/9),9->Chaîne3 //ici *1
:Goto M
:Lbl J
:" CALCULETTEINSTRUMENTSINGULIERECHAUSSETTE
EXPOSITIONTROTINETTEPROTECTIONCOMBUSTIONCALENDRIERTELEVISION->Chaîne2 //ici *1
:sousChaîne(Chaîne(2,1+10entAléat(1,longueur(Chaîne2)/10),10->Chaîne3 //ici *1
:Lbl 1:
:EffEcr:EffDessin:CoordNaff:
:Input "MOT? ",Chaîne3
:Lbl M
:2->W:EffVar TEffVar C11->V:8->Z //ici *6
:EffEcr
:Chaîne3->Chaîne2
:Horiz
:longueur(Chaîne2->L //ici *1
:While T[DIFFERENT DE]L
:Z+7->Z
:For(X,Z,Z+5
:Pxl-On(29,X
:End
:T+1->T
:End
:Texte(2,65,"VIES:
:Texte(2,2,"UTILISEES:
:Repeat Chaîne1=Chaîne3 ou T=L ou non(V //ici *1
:Texte(2,85,V
:If V<10
:Texte(2,88," " //ici *1
:Disp "MOT OU //oublie du guillemet *-1
:Input "LETTRE?",Chaîne1
:EffEcr
:Texte(8,W,Chaîne1
:W+4->W
:carChaîne(Chaîne2,Chaîne1->P //ici *1
:If non(P //ici *1
:Then
:V-1->V
:Disp "ELLE N'Y EST PAS!
:Pause
:End
:If P //ici *2
:Then
:T+1->T
:Disp "ELLE Y EST!
:Pause
:End
:If P[DIFFERENT DE]1 et P[DIFFERENT DE]L et P //ici *2
:sousChaîne(Chaîne2,1,P-1)+" "+sousChaîne(Chaîne2,P+1,L-P->Chaîne2 //ici *1
:EffEcr
:If P=L
:sousChaîne(Chaîne2,1,P-1)+" "->Chaîne2
:If P=1
:Then
:Texte(23,16,Chaîne1
:" "+sousChaîne(Chaîne2,P+1,L-P->Chaîne2 //ici *1
:End
:If P[supérieur ou égal]2 et P[inférieur ou égal]10 //ICI 107 !!!
:Texte(23,9+7P,Chaîne1
:C+1->C //ici *1
:End
:EffEcr
:PleinEcr
:If Chaîne1=Chaîne3 ou T=L
:Then
:Disp "BRAVO!","VOUS AVEZ","TROUVE LE MOT",Chaîne3,"EN:"," COUPS!
:Output(6,1,C
:Pause
:End
:""->Chaîne1
:""->Chaîne2
:If non(V //ici *2
:Then
:-7->Xmin
:3->Xmax
:10->Ymax
:-2->Ymin
:Ligne(-10,-2,-3,-2
:Ligne(-5,8,-4,9
:Ligne(-5,9,-5,-2
:Ligne(0,9,-5,9
:Ligne(0,7,0,9
:Ligne(-1,0,0,2
:Ligne(1,0,0,2
:Ligne(0,2,0,5
:Ligne(-1.2,3,1.2,3
:Cercle(0,6,1
:Texte(50,25,"PENDU...
:Pause
:Disp "","****************","OH,"," C'EST PERDU!","SOLUTION:",Chaîne3,"****************:
:Pause
:End
:""->Chaîne3
:Menu(" PENDU ","REJOUER",T,"QUITTER",2
:Lbl 2
:EffEcr
:EffDessin
:AxesAff
:CoordAff
:Output(1,1,"
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Lun 20 Jui 2011, 18:22
Message de trotithuthur:
Effectivement au niveau des conditions au niveau des If, il y avait à faire! =) Merci
Sinon, j'ai marqué non optimisé, parce que je n'est pas pris le soin de le faire à part, j'ai codé directement comme ça =)
Sinon, tu l'as testé? =
Message de sandro:
Non désolé, vu que c'est pas en version téléchargeable et que j'ai le Bac de français, ça me laisse pas trop le temps de recopier de gros programmes (de toute façon, je ne serrais pas un très bon juje, les jeux de réflexes pur ne sont pas mes préférés mais bon chacun ces gouts).
Sandro
Message de coc5:
Ton programme est sympathique, mais tu n'as pas envisagé de mettre le "dictionnaire" de mot pour le mode SOLO à l'extérieur du programme (dans une chaîne de caractère) ?
Ça permet beaucoup plus de souplesse et la possibilité de renouveler l'entièreté des mots sans modifier le programme ! D'avoir plusieurs dico etc c'est vraiment plus ergonomique.
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Lun 20 Jui 2011, 18:25
Message de trotithuthur:
effectivement, j'aurais pu faire cela =)
Mais même contenant le générateur de mots directement dans le programme, il est assez fluide donc je pense que je vais tout laisser dans le même prm, on peut tout de même le completer en ajoutant des mots dans la chaîne correspondante à leur nombre de lettres. =)
Message de programaths:
J'ai moi même un pendu ( qui n'est pas de moi !! :/ )
Mais j'y ai bien travaillé dessus, j'ai fais quelque rajout et, j'ai quelque ptite chose que je voudrai changer mais je ne sais pas comment faire sans faire 3 fois le programmes :
Voici le code, pour moi c'est le meilleur pendu que j'ai jamais vu en basic !!
Code
SauveBDG 0
0üXmin
0üYmin
94üXmax
62üYmax
QuadNAff
AxesNAff
FonctNAff
GraphNAff
EffEcr
EffDessin
Lbl 0
Menu(" PENDU ","JOUER",1,"MENU",M
Lbl M
PleinEcr
Texte(
Lbl 1
EffDessin
EffEcr
EffVar L
Horiz
0üXmin
94üXmax
0üYmin
31üYmax
0üA
0üB
1üC
AffGraph
Disp "Generer: (6-16)
Disp "16 lettres Max
Input "MOT: ",Cha ne0
"CHAISEBATEAUCAHIERTENNISBOUTONREVEILLEZARDCHIMIEDOMINOBANANEMANGERTETRISDESSIN
OUTILSMEMBRETAQUINMOURIRESPACECONTRECHRONOEDITERBALISEGAVIALSIGNAL
If Cha ne0="6
sous-Cha ne(Rep,6entAl–at(0,23)+1,6üCha ne0
"LEXIQUEGENERERPRESENTEFFACERLUMIEREMESSAGEENERGIEGALAXIESOUPCONOCULTERPOISSON
REPTILECORDAGEBRANCHESYSTEME
If Cha ne0="7
sous-Cha ne(Rep,7entAl–at(0,14)+1,7üCha ne0
"NAVIGUERFONCTIONAILLEURSPHYSIQUECREATIONPOSSEDERHUMILITETRIOMPHEFRAGMENT
PAVILLONALIGATORSHOPPINGAVENTURE
If Cha ne0="8
sous-Cha ne(Rep,8entAl–at(0,12)+1,8üCha ne0
"PROGRAMMEWEBMASTERPARADOXALSITUATIONCOMPROMISPERSUADERCONNAITRESUPERNOVA
PROCESSUSEFFONDRERORIGINALETRIMESTREAMBULANCEENQUETEURARACHNIDEGRIGNOTER
HAMBURGERPROTOCOLELOBOTOMIEPORTUAIRE
If Cha ne0="9
sous-Cha ne(Rep,9entAl–at(0,19)+1,9üCha ne0
"VULNERABLEDISTINGUERPARTICIPERHUMOURISTEABANDONNERIMPOSSIBLECOMPRENDRERE
CYCLABLECANDELABRECALCULETTESUGGESTIONTRAITEMENTSUBTERFUGEMULTIMEDIASTRATAGEME
SIMULATIONASTRONAUTEASTRONOMIEDESARIMAGE
If Cha ne0="10
sous-Cha ne(Rep,10entAl–at(0,18)+1,10üCha ne0
"SYNTHETISERTEMPERATUREUTILISATEURINTERACTIONPERPETUELLEINTERPELLERTRANSMETTRE
NEGOCIATIONBOULEVERSERMICRO-ONDESPSYCHOLOGUEHIBERNATIONCONJUGAISONINTEGRATIONTOURISTIQUEPRESSURISER
If Cha ne0="11
sous-Cha ne(Rep,11entAl–at(0,16)+1,11üCha ne0
"IMPLANTATIONSYSTEMATIQUEPHOTOGRAPHIERESSEMBLANCEPOISSON-CHATALPHABETIQUE
If Cha ne0="12
sous-Cha ne(Rep,12entAl–at(0,5)+1,12üCha ne0
"REGURGITATIONENVIRONNEMENTANTI-CALCAIRE
If Cha ne0="13
sous-Cha ne(Rep,13entAl–at(0,2)+1,13üCha ne0
"CRYPTOZOOLOGIE
If Cha ne0="14
sous-Cha ne(Rep,14entAl–at(0,1)+1,14üCha ne0
If Cha ne0="15
sous-Cha ne(Rep,15entAl–at(0,1)+1,15üCha ne0
"TEXAS INSTRUMENT
If Cha ne0="16
sous-Cha ne(Rep,16entAl–at(0,0)+1,16üCha ne0
longueur(Cha ne0üD
Düdim(L
Lbl 2
EffEcr
1üE
For(F,1,D
If L(F
Then
Texte(0,E,sous-Cha ne(Cha ne0,F,1
Else
Texte(0,E,"-
End
E+4üE
End
If A=9
Goto 3
Input "LETTRE: ",Cha ne1
0üA
For(F,1,D
If sous-Cha ne(Cha ne1,1,1)=sous-Cha ne(Cha ne0,F,1
Then
1üL(F
1üA
End
End
If A
Then
0üG
For(F,1,D
If L(F
G+1üG
End
If D=G
9üA
Else
Texte(24,C,sous-Cha ne(Cha ne1,1,1
C+4üC
B+1üB
If B=1
Ligne(73,1,93,1
If B=2
Ligne(75,1,75,30
If B=3
Ligne(75,30,85,30
If B=4
Ligne(75,25,80,30
If B=5
Ligne(85,30,85,25
If B=6
Cercle(85,22,2,{à
If B=7
Ligne(85,20,85,12
If B=8
Ligne(85,12,81,5
If B=9
Ligne(85,12,89,5
If B=10
Ligne(85,19,82,12
If B=11
Then
Ligne(85,19,88,12
Goto 4
End
End
Goto 2
Lbl 3
EffEcr
Output(2,6,"GAGNE !
Pause
Goto 0
Lbl 4
Texte(0,0,Cha ne0
EffEcr
Output(2,6,"PERDU !
Pause
Goto 0
voila, assez chiant le mode 2 écran car un bug arrive vite !
Voici ce que je voudrai modifier :
rajouter un mode facile/normal/difficile
A la fin, quand ya "if B= ..." le mode dificile serais :
Code
If B=1
Ligne(73,1,93,1
Ligne(75,1,75,30
Ligne(75,30,85,30
If B=2
Ligne(75,25,80,30
Ligne(85,30,85,25
If B=3
Cercle(85,22,2,{à
If B=4
Ligne(85,20,85,12
Ligne(85,12,81,5
Ligne(85,12,89,5
If B=5
Ligne(85,19,82,12
Ligne(85,19,88,12
Goto 4
Voila, le moe facile serais de 11 essai, moyen de 7-8esai et difficile de 5 essai. (ces 3 mode serais valable pour la génération de mots OU pour le mots a entrer/trouver)
2ème chose a changer : (facultatif): quand dans le mots il y a un espace, et qu'on entre l'espace le tiret où se trouve l'espace devrai desparaitre, la il n'y a qu'un pixel sur les 3 de la barre qui s'enlève.
3eme chose : comment du programme verrouiller la lettre alpha ?
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Lun 20 Jui 2011, 18:31
Message de Sandro:
T'a oublié un entré, ton texte sort donc de l'écran.
Pour la touche alpha, tu met
Code
:Envoi(9prgmALPHA
avec dans ALPHA :
Code
:FDCB12E6FDCB12F6
:End
:0000
:End
Attention, la moindre faute de recopiage dans ALPHA peu provoquer un Ram Clear
Sandro
Message de programaths:
"Voila, le mode facile serais de 11 essai, moyen de 7-8esai et difficile de
5 essai. (ces 3 mode serais valable pour la génération de mots
OU pour le mots a entrer/trouver)
2ème chose a changer : (facultatif): quand dans le mots il y a un espace,
et qu'on entre l'espace le tiret où se trouve l'espace devrai desparaitre,
la il n'y a qu'un pixel sur les 3 de la barre qui s'enlève."
encore dsl pour la fenêtre et merci pour le programme alpha.
Sinon j'espère la que mes 2 autre questions sont lisibles.
Bon voila, j'ai essayé de mettre des niveaux de difficulté mais ça ne marche pas, mais je dois etre ( je pense ) proche de la vérité :
Code
SauveBDG 0
0üXmin
0üYmin
94üXmax
62üYmax
QuadNAff
AxesNAff
FonctNAff
GraphNAff
EffEcr
EffDessin
Lbl 0
Menu(" PENDU ","JOUER",1,"MENU",M
Lbl M
PleinEcr
Texte(
Lbl 1
EffEcr
Menu(" MODE ","FACILE",S,"MOYEN",T,"DIFFICILE",U //
Lbl S //
W+1üW //
Lbl T //
W+1üW //
Lbl U //
W+1üW //
EffDessin
EffEcr
EffVar L
Horiz
0üXmin
94üXmax
0üYmin
31üYmax
0üA
0üB
1üC
AffGraph
Disp "Generer: (6-16)
Disp "16 lettres Max
Input "MOT: ",Cha ne0
"CHAISEBATEAU ......
If Cha ne0="6
sous-Cha ne(Rep,6entAl–at(0,23)+1,6üCha ne0
"LEXIQUEGENERER......
If Cha ne0="7
sous-Cha ne(Rep,7entAl–at(0,14)+1,7üCha ne0
"NAVIGUERFONCTION.....
If Cha ne0="8
sous-Cha ne(Rep,8entAl–at(0,12)+1,8üCha ne0
"PROGRAMMEWE.....
If Cha ne0="9
sous-Cha ne(Rep,9entAl–at(0,19)+1,9üCha ne0
"VULNERABLE.....
If Cha ne0="10
sous-Cha ne(Rep,10entAl–at(0,18)+1,10üCha ne0
"SYNTHETISERTEMPERATURE.....
If Cha ne0="11
sous-Cha ne(Rep,11entAl–at(0,16)+1,11üCha ne0
"IMPLANTATIONSY....
If Cha ne0="12
sous-Cha ne(Rep,12entAl–at(0,5)+1,12üCha ne0
"REGURGITATI......
If Cha ne0="13
sous-Cha ne(Rep,13entAl–at(0,2)+1,13üCha ne0
"CRYPTOZOOLOGIE
If Cha ne0="14
sous-Cha ne(Rep,14entAl–at(0,1)+1,14üCha ne0
If Cha ne0="15
sous-Cha ne(Rep,15entAl–at(0,1)+1,15üCha ne0
"TEXAS INSTRUMENT
If Cha ne0="16
sous-Cha ne(Rep,16entAl–at(0,0)+1,16üCha ne0
longueur(Cha ne0üD
Düdim(L
Lbl 2
EffEcr
1üE
For(F,1,D
If L(F
Then
Texte(0,E,sous-Cha ne(Cha ne0,F,1
Else
Texte(0,E,"-
End
E+4üE
End
If A=9
Goto 3
Input "LETTRE: ",Cha ne1
0üA
For(F,1,D
If sous-Cha ne(Cha ne1,1,1)=sous-Cha ne(Cha ne0,F,1
Then
1üL(F
1üA
End
End
If A
Then
0üG
For(F,1,D
If L(F
G+1üG
End
If D=G
9üA
Else
Texte(24,C,sous-Cha ne(Cha ne1,1,1
C+4üC
B+1üB
If W=1 //
Goto 11 //
If W=2 //
Goto 22 //
If W=3 //
Goto 33 //
Lbl 11 //
If B=1 //
Ligne(73,1,93,1
If B=2 //
Ligne(75,1,75,30
If B=3 //
Ligne(75,30,85,30
If B=4
Ligne(75,25,80,30
If B=5 //
Ligne(85,30,85,25
If B=6
Cercle(85,22,2,{à
If B=7
Ligne(85,20,85,12
If B=8
Ligne(85,12,81,5
If B=9
Ligne(85,12,89,5
If B=10
Ligne(85,19,82,12
If B=11 //
Then
Ligne(85,19,88,12
Goto 4
End
End
Goto 2
Lbl 22 //
If B=1
Ligne(73,1,93,1
Ligne(75,1,75,30
If B=2
Ligne(75,30,85,30
Ligne(75,25,80,30
If B=3
Ligne(85,30,85,25
If B=4
Cercle(85,22,2,{à
If B=5
Ligne(85,20,85,12
If B=6
Ligne(85,12,81,5
Ligne(85,12,89,5
If B=7
Then
Ligne(85,19,82,12
Ligne(85,19,88,12
Goto 4
Lbl 33 //
If B=1
Ligne(73,1,93,1
Ligne(75,1,75,30
Ligne(75,30,85,30
If B=2
Ligne(75,25,80,30
Ligne(85,30,85,25
If B=3
Cercle(85,22,2,{à
If B=4
Ligne(85,20,85,12
Ligne(85,12,81,5
Ligne(85,12,89,5
If B=5
Then
Ligne(85,19,82,12
Ligne(85,19,88,12
Goto 4
Lbl 3
EffEcr
Output(2,6,"GAGNE !
Pause
Goto 0
Lbl 4
Texte(0,0,Cha ne0
EffEcr
Output(2,6,"PERDU !
Pause
Goto 0
Voila j'ai marqué les endoits a peux près
Message de trotithuthur:
Ton texte sort toujours... coupe ces grandes lignes! Sinon, je crois que
tu n'a meme pas défini W au début, donc W+1->W peut donner ,n'importe
quoi non? Sinon je n'ai pas encore regardé le reste..
Merci Sandro pour le prgm Alpha! Je cherchais je cherchais, sans trouver,
merci! =)
Message de programaths:
comment je coupe les grande ligne ?
Je ne peux pas modifier mes messages.
Pour le programme ALPHA, on le met au tout debut du programme
"envoi(9prgmALPHA" ?
ça me met err syntaxe sur "9"
Aujourd'hui j'ai fais que travailler sur
Ce pendu et mes niveau e ifficulté mais
sans succes
Message de Sango:
C'est le dernier message que je met car les suivants s'éloignent vraiment du sujet initial.
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Lun 20 Jui 2011, 18:59
Là tu as raison, ce serrait une bonne amélioration d'instanrer le retours à la ligne automatique dans les balises codes, ou alors de rajouter une barre de défilement horizontale. Mais des codes héxa, il n'y en à pas tant que ça.
sandro
PS : c'était une blague avec les messages (d'où le LOL) et c'est vraie que tu fait partit de ceux dont les messages sont généralement soit utiles soit constructifs.
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Mar 21 Jui 2011, 0:04
Voila j'ai finis !!!! Bien sur il est lourd, ( 3200 octets en comptant les mots ) mais il est cool !!!
Je suis certain de pouvoir le simplifier, mais comme personne ne m'a aidé je n'ai pas pu trouver comment tout faire en 1 seul lbl, enfin passont voici le code ! :
Code
:"progrm:PENDU >by UGO<
SauveBDG 0
0üXmin
0üYmin
94üXmax
62üYmax
QuadNAff
AxesNAff
FonctNAff
GraphNAff
EffEcr
EffDessin
Lbl 0
Menu(" PENDU ","JOUER",1,"MENU",M
Lbl M
EffDessin
EffEcr
PleinEcr
Texte(
Lbl 1
0üW
EffEcr
Pause
Menu(" MODE ","FACILE",S,"MOYEN",T,"DIFFICILE",U
Lbl S
W+1üW
Lbl T
W+1üW
Lbl U
W+1üW
EffDessin
EffEcr
EffVar L
Horiz
0üXmin
94üXmax
0üYmin
31üYmax
0üA
0üB
1üC
AffGraph
Disp "Generer: (6-16)
Disp "16 lettres Max
Input "MOT: ",Cha ne0
"CHAISEBATEAUCAHIER......
If Cha ne0="6
sous-Cha ne(Rep,6entAl–at(0,23)+1,6üCha ne0
"LEXIQUEGENERERPRESENT......
If Cha ne0="7
sous-Cha ne(Rep,7entAl–at(0,14)+1,7üCha ne0
"NAVIGUERFONCTION......
If Cha ne0="8
sous-Cha ne(Rep,8entAl–at(0,12)+1,8üCha ne0
"PROGRAMMEWEBMASTER........
If Cha ne0="9
sous-Cha ne(Rep,9entAl–at(0,19)+1,9üCha ne0
"VULNERABLEDISTINGUER.......
If Cha ne0="10
sous-Cha ne(Rep,10entAl–at(0,18)+1,10üCha ne0
"SYNTHETISERTEMPERATURE.......
If Cha ne0="11
sous-Cha ne(Rep,11entAl–at(0,16)+1,11üCha ne0
"IMPLANTATIONSYSTEMATIQUE.......
If Cha ne0="12
sous-Cha ne(Rep,12entAl–at(0,5)+1,12üCha ne0
"REGURGITATIONENVIRONNEMENTANTI-CALCAIRE
If Cha ne0="13
sous-Cha ne(Rep,13entAl–at(0,2)+1,13üCha ne0
"CRYPTOZOOLOGIE
If Cha ne0="14
sous-Cha ne(Rep,14entAl–at(0,1)+1,14üCha ne0
If Cha ne0="15
sous-Cha ne(Rep,15entAl–at(0,1)+1,15üCha ne0
"TEXAS INSTRUMENT
If Cha ne0="16
sous-Cha ne(Rep,16entAl–at(0,0)+1,16üCha ne0
longueur(Cha ne0üD
Düdim(L
Texte(7,45,"Essais:
If W=1
Goto 8
If W=2
Goto 7
If W=3
Lbl 2
EffEcr
1üE
For(F,1,D
If L(F
Then
Texte(0,E,sous-Cha ne(Cha ne0,F,1
Else
Texte(0,E,"-
End
E+4üE
End
If A=9
Goto 3
Input "LETTRE: ",Cha ne1
0üA
For(F,1,D
If sous-Cha ne(Cha ne1,1,1)=sous-Cha ne(Cha ne0,F,1
Then
1üL(F
1üA
End
End
If A
Then
0üG
For(F,1,D
If L(F
G+1üG
End
If D=G
9üA
Else
Texte(24,C,sous-Cha ne(Cha ne1,1,1
C+4üC
B+1üB
If B=1
Then
Ligne(73,1,93,1
Texte(13,50,"10
End
If B=2
Then
Ligne(75,1,75,30
Texte(13,50,"9
End
If B=3
Then
Ligne(75,30,85,30
Texte(13,50,"8
End
If B=4
Then
Ligne(75,25,80,30
Texte(13,50,"7
End
If B=5
Then
Ligne(85,30,85,25
Texte(13,50,"6
End
If B=6
Then
Cercle(85,22,2,{à
Texte(13,50,"5
End
If B=7
Then
Ligne(85,20,85,12
Texte(13,50,"4
End
If B=8
Then
Ligne(85,12,81,5
Texte(13,50,"3
End
If B=9
Then
Ligne(85,12,89,5
Texte(13,50,"2
End
If B=10
Then
Ligne(85,19,82,12
Texte(13,50,"1
End
If B=11
Then
Ligne(85,19,88,12
Texte(13,50,"0
Goto 4
End
End
Goto 2
Lbl 7
EffEcr
1üE
For(F,1,D
If L(F
Then
Texte(0,E,sous-Cha ne(Cha ne0,F,1
Else
Texte(0,E,"-
End
E+4üE
End
If A=9
Goto 3
Input "LETTRE: ",Cha ne1
0üA
For(F,1,D
If sous-Cha ne(Cha ne1,1,1)=sous-Cha ne(Cha ne0,F,1
Then
1üL(F
1üA
End
End
If A
Then
0üG
For(F,1,D
If L(F
G+1üG
End
If D=G
9üA
Else
Texte(24,C,sous-Cha ne(Cha ne1,1,1
C+4üC
B+1üB
If B=1
Then
Ligne(73,1,93,1
Ligne(75,1,75,30
Texte(13,50,"6
End
If B=2
Then
Ligne(75,30,85,30
Ligne(75,25,80,30
Texte(13,50,"5
End
If B=3
Then
Ligne(85,30,85,25
Texte(13,50,"4
End
If B=4
Then
Cercle(85,22,2,{à
Texte(13,50,"3
End
If B=5
Then
Ligne(85,20,85,12
Texte(13,50,"2
End
If B=6
Then
Ligne(85,12,81,5
Ligne(85,12,89,5
Texte(13,50,"1
End
If B=7
Then
Ligne(85,19,82,12
Ligne(85,19,88,12
Texte(13,50,"0
Goto 4
End
End
Goto 7
Lbl 8
EffEcr
1üE
For(F,1,D
If L(F
Then
Texte(0,E,sous-Cha ne(Cha ne0,F,1
Else
Texte(0,E,"-
End
E+4->E
End
If A=9
Goto 3
Input "LETTRE: ",Cha ne1
0üA
For(F,1,D
If sous-Cha ne(Cha ne1,1,1)=sous-Cha ne(Cha ne0,F,1
Then
1üL(F
1üA
End
End
If A
Then
0üG
For(F,1,D
If L(F
G+1üG
End
If D=G
9üA
Else
Texte(24,C,sous-Cha ne(Cha ne1,1,1
C+4üC
B+1üB
If B=1
Then
Ligne(73,1,93,1
Ligne(75,1,75,30
Ligne(75,30,85,30
Texte(13,50,"4
End
If B=2
Then
Ligne(75,25,80,30
Ligne(85,30,85,25
Texte(13,50,"3
End
If B=3
Then
Cercle(85,22,2,{à
Texte(13,50,"2
End
If B=4
Then
Ligne(85,20,85,12
Ligne(85,12,81,5
Ligne(85,12,89,5
Texte(13,50,"1
End
If B=5
Then
Ligne(85,19,82,12
Ligne(85,19,88,12
Texte(13,50,"0
Goto 4
End
End
Goto 8
Lbl 3
EffEcr
Output(2,6,"GAGNE !
Pause
Goto 0
Lbl 4
Texte(0,0,Cha ne0
EffEcr
Output(2,6,"PENDU !
Pause
Goto 0
Voila ! tout ces efforts pour un bon résultats ça fais du bien ^^'
le code est actualisé !
Pour ma part, 3000 octet ce n'est pas grand chose, en plus ma calto étant assez rapide 1000 octet de plus ne la ralentie pas ou presque, mais c'est vrai que si tu trouve la solution ce programme serais mieux
Je voudrai savoir faire maintenant c'est, si on entre un lettre deja joué que ça le dise... Les autres pendu se servent du getkey pour ne pas avoir a bloque la touche alpha, et penvent s'en servir pour mon problème mais je trouve ( quel ironie^^) que ça prend de la place et du temps (1.5 seconde pour ma calto) la lettre...
Voila
---------------------- "Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi ."
"L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
"
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Mar 21 Jui 2011, 9:21
Tu pourrait pas s'il te plaît effectuer ces modif sur ton code (l'éditer(ça éviterra aussi les doubles posts)). A près, je veut bien t'aider à l'optimiser, mais avec un code incomplet, c'est dure, donc je préfère faire tout d'un saul coup quand tu aurra poster un code en 1 seul et unique morceau.
Sandro
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mar 21 Jui 2011, 18:46
Tu peux remplir une chaîne avec "ABCDEFGHIJKLMNOPQRSTUVWXYZ".
Puis pratiquer des tests dessus avec carChaîne(Chaîne#,lettre) pour associer une valeur à chaque lettre.
Et tu peux stocker les lettres déjà jouées dans une chaîne et tester carChaîne pour savoir si la lettre est présente dans la chaîne.
Je n'ai ni le temps ni l'envie de lire tout le programme, mais je suis persuadé qu'on peut simplifier des boucles et remplacer certaines sous-chaînes par un carChaîne(mot,lettre,début recherche).
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Jeu 23 Jui 2011, 23:51
Voila, la touche final a mon pendu ! avec 3 niveaux de difficulté, sauvegarde scores (gagné/perdu) sur les 3 niveau, un magnifique menu graphique by ugo ;p
(4XXX octet )
EDIT: Nouveau mot inclu, et une ptite amélioration...
Toujours pas de carchaine
Je voudrai, verrouiller la touche alpha
( dites moi commnt utilié le code assembleur posé précedemment)
Sinon,, quand une lettre est déja joué que ça le dise ! toujours pas fait
quand il y a un mots avec un espace, quand on entre l'espace je voudrai que
TOUT le tiret a l'emplacement de l'espace du mot disparaisse...
(il ne disparait pas entièrement...)
Code
:"progrm:PENDU >by UGO<
SauveBDG 0
Lbl 0
6üdim(áPD
0üXmin
0üYmin
94üXmax
62üYmax
QuadNAff
AxesNAff
FonctNAff
GraphNAff
EffEcr
EffDessin
PleinEcr
Ligne(56,8,94,8
Texte(47,62,"Copyright
Texte(55,53,"-> by UGO <-
Ligne(45,0,94,0
Ligne(30,50,55,50
Texte(13,32,"pendu
Ligne(30,42,70,42
Texte(1,6,"menu
Ligne(2,61,26,61
Ligne(27,60,27,18
Ligne(26,17,2,17
Ligne(1,18,1,60
Ligne(2,54,26,54
Texte(22,29,"<**>
For(X,0,4
Texte(7X+9,6,sous-Cha ne("play rule resetscorequit ",5X+1,5
End
EffVar X
2üP
codeTouch(üK
Repeat max(Rep={105
If Rep
Then
If Rep=25 ou Rep=34
Then
Ligne(3,52-7X,3,47-7X,0
Ligne(25,52-7X,25,47-7X,0
X+(Rep=34)-(Rep=25
Rep+5((Rep<0)-(Rep>4üX
Else
P+(Rep=26)-(Rep=24
Rep+3((Rep<1)-(Rep>3üP
Texte(ú1,22,36+6P,"
Texte(22,29,sous-Cha ne("<***",1,Rep+1),">
End
End
Ligne(3,52-7X,3,47-7X
Ligne(25,52-7X,25,47-7X
codeTouch(
End
If non(X
Then
Goto 1
End
If X=1
Then
Goto T
End
If X=2
Then
Goto V
End
If X=3
Then
Goto S
End
If X=4
Then
Goto M
End
Lbl M
EffDessin
EffEcr
PleinEcr
Texte(
Lbl T
EffDessin
Texte(0,0,"ENTREZ [6] A [16] POUR
Texte(6,0,"GENERER UN MOT.
Texte(15,0,"LETTRE: [ALPHA]+ [ABC..]
Texte(30,0,"MULTIJOUEUR: ENTREZ UN
Texte(36,0,"MOT.
Pause
EffDessin
Goto 0
Lbl V
EffEcr
Disp "RESET","SCORE
Disp ""
Disp "Loading...
For(A,0,700
End
EffListe áPD
Goto 0
Lbl S
EffDessin
Texte(0,20,"SCORE:
Texte(10,0,"Level:
Texte(20,0,"1: win: ",áPD(1
Texte(26,0,"1: lose: ",áPD(2
Texte(34,0,"2: win: ",áPD(3
Texte(40,0,"2: lose: ",áPD(4
Texte(48,0,"3: win: ",áPD(5
Texte(54,0,"3: lose: ",áPD(6
Pause
Goto 0
Lbl 1
0üW
EffEcr
If P=1
Then
W+3üW
End
If P=2
Then
W+2üW
End
If P=3
Then
W+1üW
End
EffDessin
EffEcr
EffVar L
Horiz
0üXmin
94üXmax
0üYmin
31üYmax
0üA
0üB
1üC
AffGraph
Disp "Generer: (6-16)
Disp "16 lettres Max
Input "MOT: ",Cha ne0
"CHAISEBATEAUCAHIERTENNISBOUTONREVEILLEZARDCHIMIEDOMINOBANANE
MANGERTETRISDESSINOUTILSMEMBRETAQUINMOURIR
ESPACECONTRECHRONOEDITERBALISEGAVIALSIGNAL
If Cha ne0="6
sous-Cha ne(Rep,6entAl–at(0,23)+1,6üCha ne0
"LEXIQUEGENERERPRESENTEFFACERLUMIEREMESSAGEENERGIEGALAXIESOUPCON
OCULTERPOISSONREPTILECORDAGEBRANCHESYSTEME
If Cha ne0="7
sous-Cha ne(Rep,7entAl–at(0,14)+1,7üCha ne0
"NAVIGUERFONCTIONAILLEURSPHYSIQUECREATIONPOSSEDERHUMILITE
TRIOMPHEFRAGMENTPAVILLONALIGATORSHOPPINGAVENTURE
If Cha ne0="8
sous-Cha ne(Rep,8entAl–at(0,12)+1,8üCha ne0
"PROGRAMMEWEBMASTERPARADOXALSITUATIONCOMPROMISPERSUADER
CONNAITRESUPERNOVAPROCESSUSEFFONDRERORIGINALETRIMESTRE
AMBULANCEENQUETEURARACHNIDEGRIGNOTERHAMBURGERPROTOCOLELOBOTOMIEPORTUAIRE
If Cha ne0="9
sous-Cha ne(Rep,9entAl–at(0,19)+1,9üCha ne0
"VULNERABLEDISTINGUERPARTICIPERHUMOURISTEABANDONNER
IMPOSSIBLECOMPRENDRERECYCLABLECANDELABRECALCULETTESUGGESTION
TRAITEMENTSUBTERFUGEMULTIMEDIASTRATAGEMESIMULATIONASTRONAUTEASTRONOMIE
DESARIMAGE
If Cha ne0="10
sous-Cha ne(Rep,10entAl–at(0,18)+1,10üCha ne0
"SYNTHETISERTEMPERATUREUTILISATEURINTERACTIONPERPETUELLEINTERPELLER
TRANSMETTRENEGOCIATIONBOULEVERSERMICRO-ONDESPSYCHOLOGUEHIBERNATION
CONJUGAISONINTEGRATIONTOURISTIQUEPRESSURISERVACCINATION
If Cha ne0="11
sous-Cha ne(Rep,11entAl–at(0,17)+1,11üCha ne0
"IMPLANTATIONSYSTEMATIQUEPHOTOGRAPHIERESSEMBLANCEPOISSON-CHATALPHABETIQUE
RESSURECTIONINSUFFISANCE
If Cha ne0="12
sous-Cha ne(Rep,12entAl–at(0,5)+1,12üCha ne0
"REGURGITATIONENVIRONNEMENTANTI-CALCAIRE
If Cha ne0="13
sous-Cha ne(Rep,13entAl–at(0,2)+1,13üCha ne0
"CRYPTOZOOLOGIEAFFRANCHISSANTDANGEREUSEMENTDEMOBILISATION
HOLLYWOODIENNEVALEUREUSEMENTVOLCANOLOGIQUEVOLONTAIREMENT
IMMATERIALISERINCOMPREHENSIFINDESTRUCTIBLEINTERNATIONALE
ASTROPHYSICIEN
If Cha ne0="14
sous-Cha ne(Rep,14entAl–at(0,9)+1,14üCha ne0
"BACTERIOLOGIQUELEXICOGRAPHIQUEHORIZONTALEMENT
GEOMETRIQUEMENTUNILATERALEMENTCHROMATOGRAPHIE
DIFFERENCIATION
If Cha ne0="15
sous-Cha ne(Rep,15entAl–at(0,5)+1,15üCha ne0
"TEXAS-INSTRUMENT
If Cha ne0="16
sous-Cha ne(Rep,16entAl–at(0,0)+1,16üCha ne0
longueur(Cha ne0üD
Düdim(L
Texte(7,45,"Essais:
If W=1
Then
Texte(13,50,"5
Goto 8
End
If W=2
Then
Texte(13,50,"7
Goto 7
End
If W=3
Then
Texte(13,50,"11
Goto 2
End
Lbl 2
EffEcr
1üE
For(F,1,D
If L(F
Then
Texte(0,E,sous-Cha ne(Cha ne0,F,1
Else
Texte(0,E,"-
End
E+4üE
End
If A=9
Goto 3
Input "LETTRE: ",Cha ne1
0üA
For(F,1,D
If sous-Cha ne(Cha ne1,1,1)=sous-Cha ne(Cha ne0,F,1
Then
1üL(F
1üA
End
End
If A
Then
0üG
For(F,1,D
If L(F
G+1üG
End
If D=G
9üA
Else
Texte(24,C,sous-Cha ne(Cha ne1,1,1
C+4üC
B+1üB
If B=1
Then
Ligne(73,1,93,1
Texte(13,50,"10
End
If B=2
Then
Ligne(75,1,75,30
Texte(13,50,"9
End
If B=3
Then
Ligne(75,30,85,30
Texte(13,50,"8
End
If B=4
Then
Ligne(75,25,80,30
Texte(13,50,"7
End
If B=5
Then
Ligne(85,30,85,25
Texte(13,50,"6
End
If B=6
Then
Cercle(85,22,2,{à
Texte(13,50,"5
End
If B=7
Then
Ligne(85,20,85,12
Texte(13,50,"4
End
If B=8
Then
Ligne(85,12,81,5
Texte(13,50,"3
End
If B=9
Then
Ligne(85,12,89,5
Texte(13,50,"2
End
If B=10
Then
Ligne(85,19,82,12
Texte(13,50,"1
End
If B=11
Then
Ligne(85,19,88,12
Texte(13,50,"0
Goto 4
End
End
Goto 2
Lbl 7
EffEcr
1üE
For(F,1,D
If L(F
Then
Texte(0,E,sous-Cha ne(Cha ne0,F,1
Else
Texte(0,E,"-
End
E+4üE
End
If A=9
Goto 3
Input "LETTRE: ",Cha ne1
0üA
For(F,1,D
If sous-Cha ne(Cha ne1,1,1)=sous-Cha ne(Cha ne0,F,1
Then
1üL(F
1üA
End
End
If A
Then
0üG
For(F,1,D
If L(F
G+1üG
End
If D=G
9üA
Else
Texte(24,C,sous-Cha ne(Cha ne1,1,1
C+4üC
B+1üB
If B=1
Then
Ligne(73,1,93,1
Ligne(75,1,75,30
Texte(13,50,"6
End
If B=2
Then
Ligne(75,30,85,30
Ligne(75,25,80,30
Texte(13,50,"5
End
If B=3
Then
Ligne(85,30,85,25
Texte(13,50,"4
End
If B=4
Then
Cercle(85,22,2,{à
Texte(13,50,"3
End
If B=5
Then
Ligne(85,20,85,12
Texte(13,50,"2
End
If B=6
Then
Ligne(85,12,81,5
Ligne(85,12,89,5
Texte(13,50,"1
End
If B=7
Then
Ligne(85,19,82,12
Ligne(85,19,88,12
Texte(13,50,"0
Goto 4
End
End
Goto 7
Lbl 8
EffEcr
1üE
For(F,1,D
If L(F
Then
Texte(0,E,sous-Cha ne(Cha ne0,F,1
Else
Texte(0,E,"-
End
E+4üE
End
If A=9
Goto 3
Input "LETTRE: ",Cha ne1
0üA
For(F,1,D
If sous-Cha ne(Cha ne1,1,1)=sous-Cha ne(Cha ne0,F,1
Then
1üL(F
1üA
End
End
If A
Then
0üG
For(F,1,D
If L(F
G+1üG
End
If D=G
9üA
Else
Texte(24,C,sous-Cha ne(Cha ne1,1,1
C+4üC
B+1üB
If B=1
Then
Ligne(73,1,93,1
Ligne(75,1,75,30
Ligne(75,30,85,30
Texte(13,50,"4
End
If B=2
Then
Ligne(75,25,80,30
Ligne(85,30,85,25
Texte(13,50,"3
End
If B=3
Then
Cercle(85,22,2,{à
Texte(13,50,"2
End
If B=4
Then
Ligne(85,20,85,12
Ligne(85,12,81,5
Ligne(85,12,89,5
Texte(13,50,"1
End
If B=5
Then
Ligne(85,19,82,12
Ligne(85,19,88,12
Texte(13,50,"0
Goto 4
End
End
Goto 8
Lbl 3
EffEcr
Output(2,6,"GAGNE !
If W=3
Then
1+áPD(1üáPD(1
End
If W=2
Then
1+áPD(3üáPD(3
End
If W=1
Then
1+áPD(5üáPD(5
End
Pause
Goto 0
Lbl 4
Texte(0,0,Cha ne0
EffEcr
Output(2,6,"PENDU !
If W=3
Then
1+áPD(2üáPD(2
End
If W=2
Then
1+áPD(4üáPD(4
End
If W=1
Then
1+áPD(6üáPD(6
End
Pause
Goto 0
Voila !
Le système de score n'est pas magnifique mais bon
EDIT: voici un site ou vous pouvez avoir des mots avec x LETTRES ! j'ai un peu la flemme de les mettre ^^' : http://jeuxmots.com/by-length/
---------------------- "Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi ."
"L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
"
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Ven 24 Jui 2011, 0:15
Tu as réussi à nous faire un copier/coller avec les caractères spéciaux donc tu as le fichier 8XP sous la main.
Il ne te reste plus qu'à l'héberger. Exemple : Médiafire
Une fois le fichier hébergé postes-en le lien ici.
Toutefois comme tu n'as pas éliminé les caractères spéciaux, nous pouvons copier le code directement dans un éditeur et sauvegarder le fichier.
Le bac est passé alors j'ai maintenant le temps d'examiner ton code.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Ven 24 Jui 2011, 13:44
Merci Linka ! Quand l'épreuve est passé il y a un grand soulagement après le stress profites bien :p
---------------------- "Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi ."
"L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
"
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Ven 24 Jui 2011, 17:48
Je viens de remarquer par hasard que trothitur a déjà utilisé carChaîne.
Alors je ne comprends pas pourquoi cela n'a pas été conservé dans la dernière version.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Ven 24 Jui 2011, 17:57
car ce n'est pas le même pendu!
---------------------- "Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi ."
"L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
"
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 25 Jui 2011, 21:44
Ah. Ok. Mal suivi.
J'ai quasiment fini le pendu de la mort qui tue.
Mais des mots ont été perdus d'un sujet à l'autre.
Si programath repostait (en éditant) les mots de 14,15 et 16 lettres ce serait chouette.
J'ai tout monté sur le pendu de programath.
Mais plus tard je regarderai sûrement celui de trothitur.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Dim 26 Jui 2011, 22:06
j'ai que 10 min d'internet, alors demain apres-midi promis je l'édit avec les nouveau mots :p
J'ai surement changé quelque truk depuis, je vous donne tout demain
---------------------- "Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi ."
"L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
"
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 27 Jui 2011, 23:39
Voici le pendu le plus puissant de tous les temps.
J'ai même inclus tous les mots de ce sujet, corrigé une faute et ajoûté quelques mots de mon cru. Plus de 250 mots au final.
Les espaces ne sont pas prévus. Les tirets sont éliminés automatiquement lors de l'affichage.
Donc un espace au milieu du mot inconnu doit être interprété comme un tiret.
J'ai volontairement enlevé le menu graphique car il est vraiment très long.
Mais on peut le remettre facilement en remplaçant tout ce qui se trouve avant "Lbl T".
J'ai enlevé les {i pour que le prog soit compatible avec les 83/82.
Si vous avez une 83+, vous avez tout intérêt à les y replacer.
Circle(X,Y,R,{i
AxesOff
Normal
Float
Lbl 0
6->dim(LPD
ClrHome
ClrDraw
Full
Menu("PENDU","PLAY",J,"RULE",T,"RESET",V,"SCORE",S,"QUIT",M
Lbl T
Text(0,0,"UN SEUL JOUEUR :
Text(10,0,"ENTREZ [3] A [16] POUR
Text(16,0,"GENERER UN MOT DE [X] LETTRE
Text(30,0,"MULTIJOUEUR :
Text(40,0,"ENTREZ UN MOT.
Text(46,0,"LETTRE : [ALPHA]+ [ABC..]
Pause
Goto 0
Lbl V
ClrList L1
DelVar LPD
Goto 0
Lbl S
Text(0,20,"SCORES :
Text(10,0,"NIVEAUX 1,2,3
Text(20,0,"1: WIN:
Text(26,7,"LOSE:
Text(34,0,"2: WIN:
Text(40,7,"LOSE:
Text(48,0,"3: WIN:
Text(54,7,"LOSE:
For(P,1,6
Text(14+6P+2int(P/2-.5),26,LPD(P
End
Pause
Goto 0
Lbl J
Input "NIVEAU(1-3)=",P
ClrHome
0->Xmin
94->Xmax
0->Ymin
31->Ymax
DelVar BDelVar E
DispGraph
Disp "GENERER: 3-16
Disp "OU MOT
Input "MOT: ",Str0
ClrHome
Horiz
2+.5inString("03040506070809010111213141516",Str0->D
{12,14,9,39,32,29,35,37,18,8,4,19,9,2->L1
If D=3
"SACSIXETEFOUNULTOIMOILUIOUINONAIESURMAL
If D=4
"AVECSANSDENTDANSSANGDONCCHATPRIXFOOTROSEELLEBANCBIENSEULNOUS
If D=5
"CHIENTEMPSDINERBOITEJETONPOKERGITANBIDONPIQUEWAGON
If D=6
"CHAISEBATEAUCAHIERTENNISBOUTONREVEILLEZARDCHIMIEDOMINOBANANEMANGERTETRISDESSIN
OUTILSMEMBRETAQUINMOURIRESPACECONTRECHRONOEDITERBALISEGAVIALSIGNALMANGERTENNIS
MAISONDORMIRJAMBONCANCERPATATEBONBONMANGUESACHETENDIVECASQUEEXPOSECHACALWHISKY
POULPE
If D=7
"LEXIQUEGENERERPRESENTEFFACERLUMIEREMESSAGEENERGIEGALAXIESOUPCONOCULTERPOISSON
REPTILECORDAGEBRANCHESYSTEMEAMUSANTBONJOURPOISSONFICHIERCHAPEAUDRAPEAURIGOLER
CAROTTEENLACERMALADIESUCETTEFOURCHEROULEAUMISSILEECHELLEEXPLOITIMOTHEPTROUSSE
If D=8
"NAVIGUERFONCTIONAILLEURSPHYSIQUECREATIONPOSSEDERHUMILITETRIOMPHEFRAGMENT
PAVILLONALIGATORSHOPPINGAVENTUREPORTABLEENSEMBLEPROUESSEOFFRANDEARTISTES
STUPIDESDOSSIERSCHAUSSONPOMMIERSCLASSEURECOUTEURPANTALONMAMMOUTHCOUCHAGE
ALLUMAGECHOCOLATHEXAGONE
If D=9
"PROGRAMMEWEBMASTERPARADOXALSITUATIONCOMPROMISPERSUADERCONNAITRESUPERNOVA
PROCESSUSEFFONDRERORIGINALETRIMESTREAMBULANCEENQUETEURARACHNIDEGRIGNOTER
HAMBURGERPROTOCOLELOBOTOMIEPORTUAIRETROMPETTEAFFRONTERAGRIPANTEMOUSTIQUE
FRAMBOISEBAIGNOIRECONNIFEREBROUILLONCHAUSSUREPARAMETREMENOPAUSEFULGURANT
EXPLOSIONRADIATEURXILOPHONEALAMBIQUE
If D=10
"VULNERABLEDISTINGUERPARTICIPERHUMOURISTEABANDONNERIMPOSSIBLECOMPRENDRE
RECYCLABLECANDELABRECALCULETTESUGGESTIONTRAITEMENTSUBTERFUGEMULTIMEDIASTRATAGEME
SIMULATIONASTRONAUTEASTRONOMIEDESARIMAGECALCULETTEINSTRUMENTSINGULIERECHAUSSETTE
EXPOSITIONTROTINETTEPROTECTIONCOMBUSTIONCALENDRIERTELEVISIONLABYRINTHEALEXANDRIN
LAMPADAIREMULTICOLORPHILATELIESIMULATIONASTRONAUTEASTRONOMIEDESARIMAGE
If D=11
"SYNTHETISERTEMPERATUREUTILISATEURINTERACTIONPERPETUELLEINTERPELLERTRANSMETTRE
NEGOCIATIONBOULEVERSERMICRO-ONDESPSYCHOLOGUEHIBERNATIONCONJUGAISONINTEGRATION
TOURISTIQUEPRESSURISERHYPOTHEQUERHIEROGLYPHEVACCINATION
If D=12
"IMPLANTATIONSYSTEMATIQUEPHOTOGRAPHIERESSEMBLANCEPOISSON-CHATALPHABETIQUE
METAMORPHOSERESURRECTIONINSUFFISANCE
If D=13
"REGURGITATIONENVIRONNEMENTANTI-CALCAIREANTHROPOPHAGETETRAPLEGIQUE
If D=14
"CRYPTOZOOLOGIEMULTIPLICATIONCONTRADICTOIREDEPARTEMENTALESAPERLIPOPETTE
TRANQUILLEMENTULTERIEUREMENTMULTINATIONALEAFFRANCHISSANTDANGEREUSEMENT
DEMOBILISATIONHOLLYWOODIENNEVALEUREUSEMENTVOLCANOLOGIQUEVOLONTAIREMENT
IMMATERIALISERINCOMPREHENSIFINDESTRUCTIBLEINTERNATIONALEASTROPHYSICIEN
If D=15
"BACTERIOLOGIQUELEXICOGRAPHIQUEPROCRASTINATIONPERPENDICULAIREPARALLELEPIPEDE
HORIZONTALEMENTGEOMETRIQUEMENTUNILATERALEMENTCHROMATOGRAPHIEDIFFERENCIATION
If D=16
"TEXAS-INSTRUMENTBIOBIBLIOGRAPHIEPRESTIDIGITATION
If D-2
sub(Ans,DrandInt(0,L1(D-2))+1,D->Str0
length(Str0->D
Text(7,45,"ESSAIS:
5->G
If P=2
7->G
If P=1
11->G
For(F,1,D
"-"=sub(Str0,F,1->A
If not(A
Text(0,4F-3,"-
If A
E+1->E
End
"-"->Str2
Lbl 1
Text(13,54," "
Text(13,50,G-B
If B=G
Goto P
ClrHome
Send(9prgmALPHA
Input "LETTRE: ",Str1
If inString(Str2,Str1
Goto 1
Str2+Str1->Str2
DelVar F
Repeat not(F
inString(Str0+" ",Str1,F+1->F
If F
Text(0,4F-3,Str1
If F
E+1->E
End
If E=D
Goto G
If inString(Str0+" ",Str1
Goto 1
Text(24,4B,Str1
B+1->B
Text(13,50,G-B
If P=2
Goto 2
If P=3
Goto 3
If B=1
Line(73,1,93,1
If B=2
Line(75,1,75,30
If B=3
Line(75,30,85,30
If B=4
Line(75,25,80,30
If B=5
Line(85,30,85,25
If B=6
Circle(85,22,2 // ajoûtez ,{i pour les 83+
If B=7
Line(85,20,85,12
If B=8
Line(85,12,81,5
If B=9
Line(85,12,89,5
If B=10
Line(85,19,82,12
If B=11
Line(85,19,88,12
Goto 1
Lbl 2
If B=1
Then
Line(73,1,93,1
Line(75,1,75,30
End
If B=2
Then
Line(75,30,85,30
Line(75,25,80,30
End
If B=3
Line(85,30,85,25
If B=4
Circle(85,22,2 // ajoûtez ,{i pour les 83+
If B=5
Line(85,20,85,12
If B=6
Then
Line(85,12,81,5
Line(85,12,89,5
End
If B=7
Then
Line(85,19,82,12
Line(85,19,88,12
End
Goto 1
Lbl 3
If B=1
Then
Line(73,1,93,1
Line(75,1,75,30
Line(75,30,85,30
End
If B=2
Then
Line(75,25,80,30
Line(85,30,85,25
End
If B=3
Circle(85,22,2 // ajoûtez ,{i pour les 83+
If B=4
Then
Line(85,20,85,12
Line(85,12,81,5
Line(85,12,89,5
End
If B=5
Then
Line(85,19,82,12
Line(85,19,88,12
End
Goto 1
Lbl G
ClrHome
Output(2,6,"GAGNE !
1+LPD(2P-1->LPD(2P-1
Pause
Goto 0
Lbl P
Text(0,1,Str0
ClrHome
Output(2,6,"PENDU !
1+LPD(2P->LPD(2P
Pause
Goto 0
Lbl M
Output(1,1,"
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Mar 28 Jui 2011, 9:15
LDP est bien la liste de nom DP ???
Il serrait plus rapide (mais à peine) de mettre :
Code
Text(14+6P+2int(.5P-.5),26,LPD(P
à la place de
Code
Text(14+6P+2int(P/2-.5),26,LPD(P
Code
If P=1
11->G
For(F,1,D
"-"=sub(Str0,F,1->A
If not(A
Text(0,4F-3,"-
If A
E+1->E
End
"-"->Str2 //le second quillemet est superflu
Lbl 1
Text(13,54," " //le second quillemet est superflu
Text(13,50,G-B
Suprime les retours à la lignes inutiles.
Sandro
PS : il faudrait peut-être créer un article pour rassembler tous les codes héxa
qui marchent sur TI82stats, les codes héxa étant bien utiles et commençant apparament de devenir à la mode,...
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Mar 28 Jui 2011, 21:13
Bravo ! :p
Ah toi aussi tu as chercher des mots sur cet page ^^'
Pour le menu graphique je le remettrai
Il estplus rapide que la version précédente pour l affichage des lettres
Pour ajouter des mots, on rajoute le mots et +1 dans la liste 1 apparemment.
C'est plus pratique
Cependant il y a quelque problème:
Invalid DIM avec les mot de plus de 10 lettres :/
Le code Alpha ne fonctionne pas avec moi ^^' err:sntaxe sur le "9" de send(9prgmALPHA... j'ai essay"é de mettre que le "prgmALPHA" mais non plus, j'ai même essayé de mettre asm(prgmALPHA mais toujours rien.
Quand on entre la lettre "E" (dans une generation de mot), elle se met a la fin du mot ( et a son emplacement si elle y est ! (par exemple manger : ----E-E resultat: MANGERE)
Quand on entre un mots (mode multijoueur) il accepte 16 lettres max... mais le mots tout entier est décalé de un tiret.
Voila, a part ça, c'est effectivement un super pendu. je vais l'étudier ce soir pour essayer de regler ces petits problemes.
---------------------- "Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi ."
"L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
"
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mar 28 Jui 2011, 21:51
Pour ALPHA, apprends à utiliser ta ti83+ (compile le programme) (je n'en sais pas plus)
Mais je ne crois pas qu'il s'agisse de compatibilité car cela aurait probablement planté la mémoire.
En plus le shell que tu utilises foire souvent.
J'ai dû modifier un truc qu'il ne fallait pas à la dernière minute... Car je n'ai eu aucun problème lors de mes tests.
Je recommence les tests et je me relis.
EDIT : C'est corrigé ! Il y avait bien quelques erreurs d'étourderie.
Il fallait remplacer 1+4F par 4F-3
et modifier le inString du début.
J'ai édité l'autre message.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Mer 29 Jui 2011, 16:29
J'ai utilisé le cable pour recevoir les programmes pendu et alpha... ( il ne devrai plus y avoir de problème dans ce cas si ?)
Tout marche remarquablement bien maintenant
Comme calculette j'ai la TI-83+, 84+ et Nspire CX CAS ^^' qui est terriblement compliqué...
J'ai test le programme alpha ( recopier a la main et ET recu par cable sur mes 2 TI 8x+ et sur aucun ça marche :/
Toujours un problème syntaxe au niveau du "9"
Merci quand même pour vos réponse
Ps: Attention Linka a ne pas oublier "ClrDraw" ! quand on veut voir les scores et la regle ça fais tout drole
---------------------- "Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi ."
"L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
"
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Mer 29 Jui 2011, 22:10
falait le dire dessuite que tu utilise une calculatrice avec une mémoire flash, elles ont une commande spéciale (je crois que c'est "Asm(prgmALPHA", mais peut-être qu'il faut aussi un entête spécial dans le progamme alpha). Deplus, ce n'est même pas garenti que le code fonctionne sur cette calculette (l'ASM est différent, mais dans ce sens, ça peu marcher).
Sandro
PS : désoler si c'est pas très précis, mais je n'ai que la TI82stats.fr et la 89tita, donc je ne relateque des infos que j'ai cru lire quelque part.
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Jeu 30 Jui 2011, 15:45
Ok merci désolé de posé mes problème qui sont hors sujet de ce forum... je devrai m'acheter une 83 ^^' mais il est bien ce fofo
je me suis lancé un peu dans l'asm je trouverais peut-être le bon code
---------------------- "Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi ."
"L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
"
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Jeu 30 Jui 2011, 20:15
Essaye toujours avec le code ALPHA, je me demande si un code héxa pour TI82stats ne peut pas aussi fonctionner sur TI83+, à condition d'utiliser les commandes réservées à l'asm.
Sandro
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Dim 10 Juil 2011, 16:09
j'ai (un tout ptit peu) amélioré le pendu, j'y ai mis une petite modification du score , j'ai mis des regles et un système pour que, quand on appui sur "X" dans la generation de mots, que le nombre de lettre du mots soit aléatoir (3-16)
EDIT: le 'a' c'est bien le petit L des listes perso, et je met le code en entier pour que cela soit plus simple, mais ceux qui aime les petits programme avec peut d'octet vont pas aimer
Code
:"progrm:PENDU
AxesNAff
Normal
Flottant
Lbl 0
9üdim(áPD
0üE
EffEcr
EffDessin
PleinEcr
0üXmin
0üYmin
94üXmax
62üYmax
FonctNAff
AxesNAff
PleinEcr
Texte(1,62,"29/06/11
Texte(13,50,"pendu
Texte(22,50,"<**>
Texte(13,17,"play
Texte(20,17,"rule
Texte(27,16,"reset
Texte(34,15,"score
Texte(41,18,"quit
EffVar X
2üP
codeTouch(üK
Repeat max(Rep={105
If Rep
Then
If Rep=45:Goto M
If Rep=25 ou Rep=34
Then
Texte(13+7X,3,"
Texte(13+7X,40,"
X+(Rep=34)-(Rep=25
Rep+5((Rep<0)-(Rep>4üX
Else
P+(Rep=26)-(Rep=24
Rep+3((Rep<1)-(Rep>3üP
Texte(ú1,22,56+6P,"
Texte(22,50,sous-Cha ne("<***",1,Rep+1),">
End
End
Texte(13+7X,3,"H
Texte(13+7X,42,"H
Pt-Aff(41,46-7X,3
Pt-Aff(6,46-7X,3
codeTouch(
End
If non(XGoto J
If X=1:Goto T
If X=2:Goto V
If X=3:Goto S
If X=4:Goto M
Lbl T //: regles
EffDessin
Horizontale 62
Horizontale 54
Texte(1,20,"regles du jeux
Texte(10,1,"MODE: 3 niv. de difficultee:
Texte(16,0,"en 11, 7 ou 5 essais.
For(B,0,18
For(A,10,16
Pxl-Change(A,B
End:End
Texte(23,1,"JEUX: - solo: taper [3]-[16]
Texte(29,0,"ou [X] pour generer un mot.
Texte(35,20,"- multi: taper un mot.
For(B,0,18
For(A,23,29
Pxl-Change(A,B
End:End
Texte(41,1,"BUT: trouver le mot avant
Texte(47,0,"d'etre pendu
For(B,0,14
For(A,41,47
Pxl-Change(A,B
End:End
Horizontale 0
Horizontale 8
Texte(55,0,"[ALPHA]+[ABC..], puis [ENTER]
Pause
Goto 0
Lbl V //: reset
EffEcr
Disp "RESET","SCORE
Disp "
Disp "loading...
For(A,1,200:End
EffListe L,L‚ //: Liste1 et liste 2
EffVar áPD
Goto 0
Lbl S //: scores
EffDessin
Horizontale 62
Texte(1,31,"difficultee
Texte(9,1,"11 essais 7 essais 5 essais
Ligne(29,54,29,25
Ligne(64,54,64,25
Ligne(0,24,94,24
Texte(18,1,"Win: ",áPD(1
Texte(24,1,"Lose:",áPD(2
Texte(30,1,"essai:",áPD(7
Texte(18,31,"Win: ",áPD(3
Texte(24,31,"Lose:",áPD(4
Texte(30,31,"essai:",áPD(8
Texte(18,66,"Win: ",áPD(5
Texte(24,66,"Lose:",áPD(6
Texte(30,66,"essai:",áPD(9
For(B,8,15
For(A,0,94
Pxl-Change(B,A
End:End
áPD(7üâ //: APPS>Finance>VARS> â = N
áPD(8üI% //: I% = I%
áPD(9üValAct //: ValAct = PV
If âùI% et âùValAct:âüU
If I%ùâ et I%ùValAct:I%üU
If ValActùâ et ValActùI%:ValActüU
Texte(40,1,"min essai: ",U
Horizontale 0
Pause
Goto 0
Lbl J
EffEcr
0üXmin
94üXmax
0üYmin
31üYmax
EffVar BEffVar E
GÞT
Horiz
Disp "Generer: [3-16]
Disp "16 lettres max
Input "MOT: ",Cha ne0
EffEcr
EffDessin
2+.5carCha ne("03040506070809010111213141516",Cha ne0üD
If Cha ne0="X //: le "X" pour le nombre de lettre aléatoire
entAl–at(3,16üD //
{12,14,9,39,32,29,35,37,18,8,4,19,9,2üL
If D=3
"SACSIXETEFOUNULTOIMOILUIOUINONAIESURMAL
If D=4
"AVECSANSDENTDANSSANGDONCCHATPRIXFOOTROSEELLEBANCBIENSEULNOUS
If D=5
"CHIENTEMPSDINERBOITEJETONPOKERGITANBIDONPIQUEWAGON
If D=6
"CHAISEBATEAUCAHIERTENNISBOUTONREVEILLEZARDCHIMIEDOMINO
BANANEMANGERTETRISDESSINOUTILSMEMBRETAQUINMOURIRESPACE
CONTRECHRONOEDITERBALISEGAVIALSIGNALMANGERTENNISMAISON
DORMIRJAMBONCANCERPATATEBONBONMANGUESACHETENDIVECASQUE
EXPOSECHACALWHISKYPOULPE
If D=7
"LEXIQUEGENERERPRESENTEFFACERLUMIEREMESSAGEENERGIE
GALAXIESOUPCONOCULTERPOISSONREPTILECORDAGEBRANCHE
SYSTEMEAMUSANTBONJOURPOISSONFICHIERCHAPEAUDRAPEAU
RIGOLERCAROTTEENLACERMALADIESUCETTEFOURCHEROULEAU
MISSILEECHELLEEXPLOITIMOTHEPTROUSSE
If D=8
"NAVIGUERFONCTIONAILLEURSPHYSIQUECREATIONPOSSEDER
HUMILITETRIOMPHEFRAGMENTPAVILLONALIGATORSHOPPING
AVENTUREPORTABLEENSEMBLEPROUESSEOFFRANDEARTISTESSTUPIDE
SDOSSIERSCHAUSSONPOMMIERSCLASSEURECOUTEURPANTALON
MAMMOUTHCOUCHAGEALLUMAGECHOCOLATHEXAGONE
If D=9
"PROGRAMMEWEBMASTERPARADOXALSITUATIONCOMPROMIS
PERSUADERCONNAITRESUPERNOVAPROCESSUS
EFFONDRERORIGINALETRIMESTREAMBULANCEENQUETEU
RARACHNIDEGRIGNOTERHAMBURGERPROTOCOLELOBOTOMI
EPORTUAIRETROMPETTEAFFRONTERAGRIPANTEMOUSTIQU
EFRAMBOISEBAIGNOIRECONNIFEREBROUILLONCHAUSSURE
PARAMETREMENOPAUSEFULGURANTEXPLOSIONRADIATEURX
ILOPHONEALAMBIQUE
If D=10
"VULNERABLEDISTINGUERPARTICIPERHUMOURISTEABANDONN
ERIMPOSSIBLECOMPRENDRERECYCLABLECANDELABRECALCULE
TTESUGGESTIONTRAITEMENTSUBTERFUGEMULTIMEDIASTRATA
GEMESIMULATIONASTRONAUTEASTRONOMIEDESARIMAGECALCU
LETTEINSTRUMENTSINGULIERECHAUSSETTEEXPOSITIONTROT
INETTEPROTECTIONCOMBUSTIONCALENDRIERTELEVISION
LABYRINTHEALEXANDRINLAMPADAIREMULTICOLORPHILATELIE
SIMULATIONASTRONAUTEASTRONOMIEDESARIMAGE
If D=11
"SYNTHETISERTEMPERATUREUTILISATEURINTERACTIONPER
PETUELLEINTERPELLERTRANSMETTRENEGOCIATIONBOULEVERSERMICRO-ONDESPSYCHOLOGUEHIBERNATIONCONJUGAISONINTEGRATION
TOURISTIQUEPRESSURISERHYPOTHEQUERHIEROGLYPHEVACCINATION
If D=12
"IMPLANTATIONSYSTEMATIQUEPHOTOGRAPHIERESSEMBLANCEPOISSON-CHATALPHABETIQUEMETAMORPHOSERESURRECTIONINSUFFISANCE
If D=13
"REGURGITATIONENVIRONNEMENTANTI-CALCAIRE
ANTHROPOPHAGETETRAPLEGIQUE
If D=14
"CRYPTOZOOLOGIEMULTIPLICATIONCONTRADICTOIREDE
PARTEMENTALESAPERLIPOPETTETRANQUILLEMENTULTER
IEUREMENTMULTINATIONALEAFFRANCHISSANTDANGEREU
SEMENTDEMOBILISATIONHOLLYWOODIENNEVALEUREUSEM
ENTVOLCANOLOGIQUEVOLONTAIREMENTIMMATERIALISER
INCOMPREHENSIFINDESTRUCTIBLEINTERNA
TIONALEASTROPHYSICIEN
If D=15
"BACTERIOLOGIQUELEXICOGRAPHIQUEPROCRASTINATIO
NPERPENDICULAIREPARALLELEPIPEDEHORIZONTALEME
NTGEOMETRIQUEMENTUNILATERALEMENTCHROMATOGRAPHIEDIFFERENCIATION
If D=16
"TEXAS-INSTRUMENTBIOBIBLIOGRAPHIEPRESTIDIGITATION
If D-2 et E-1
sous-Cha ne(Rep,DentAl–at(0,L(D-2))+1,DüCha ne0
longueur(Cha ne0üD
Texte(7,45,"Essais:
5üG
0üÁ
If P=2:7üG
If P=1:11üG
For(F,1,D
"-"=sous-Cha ne(Cha ne0,F,1üA
If non(A
Texte(0,4F-3,"-
If A
E+1üE
End
"-"üCha ne2
Lbl 1
Á+1üÁ
Texte(13,50,G-B,"
If B=G
Goto P
EffEcr
Input "LETTRE: ",Cha ne1
If carCha ne(Cha ne2,Cha ne1
Goto 1
Cha ne2+Cha ne1üCha ne2
EffVar F
Repeat non(F
carCha ne(Cha ne0+" ",Cha ne1,F+1üF
If F
Texte(0,4F-3,Cha ne1
If F
E+1üE
End
If E=D
Goto G
If carCha ne(Cha ne0+" ",Cha ne1
Goto 1
Texte(24,4B,Cha ne1
B+1üB
Texte(13,50,G-B
If P=2
Goto 2
If P=3
Goto 3
If B=1
Ligne(73,1,93,1
If B=2
Ligne(75,1,75,30
Texte(13,54,"
If B=3
Ligne(75,30,85,30
If B=4
Ligne(75,25,80,30
If B=5
Ligne(85,30,85,25
If B=6
Cercle(85,22,2,{à
If B=7
Ligne(85,20,85,12
If B=8
Ligne(85,12,81,5
If B=9
Ligne(85,12,89,5
If B=10
Ligne(85,19,82,12
If B=11
Ligne(85,19,88,12
Goto 1
Lbl 2
If B=1
Then
Ligne(73,1,93,1
Ligne(75,1,75,30
End
If B=2
Then
Ligne(75,30,85,30
Ligne(75,25,80,30
End
If B=3
Ligne(85,30,85,25
If B=4
Cercle(85,22,2,{à
If B=5
Ligne(85,20,85,12
If B=6
Then
Ligne(85,12,81,5
Ligne(85,12,89,5
End
If B=7
Then
Ligne(85,19,82,12
Ligne(85,19,88,12
End
Goto 1
Lbl 3
If B=1
Then
Ligne(73,1,93,1
Ligne(75,1,75,30
Ligne(75,30,85,30
End
If B=2
Then
Ligne(75,25,80,30
Ligne(85,30,85,25
End
If B=3
Cercle(85,22,2,{à
If B=4
Then
Ligne(85,20,85,12
Ligne(85,12,81,5
Ligne(85,12,89,5
End
If B=5
Then
Ligne(85,19,82,12
Ligne(85,19,88,12
End
Goto 1
Lbl G
EffEcr
Output(2,6,"GAGNE !
1+áPD(2P-1üáPD(2P-1
áPD(P+6üR //
If non(R:ÁüáPD(P+6 //
If R et Á<R:ÁüáPD(P+6 //
Pause
Goto 0
Lbl P
Texte(0,1,Cha ne0
EffEcr
Output(2,6,"PENDU !
1+áPD(2PüáPD(2P
Pause
Goto 0
Lbl M
EffDessin
Texte(ú1,0,16,"Thinks for
Texte(ú1,9,35,"playing !
Texte(ú1,25,0,"contact:
Texte(ú1,33,0,"ugo
Texte(ú1,33,28,"belfiore.fr
Texte(ú1,40,0,"akp.vdw
Texte(ú1,40,53,"orange.
Texte(ú1,49,80,"fr
Texte(33,21,"a
Texte(40,45,"a
Pt-Aff(24,24
Pt-Aff(48,17
Ligne(25,25,25,28:Ligne(49,18,49,21
Ligne(24,29,20,29:Ligne(48,22,44,22
Ligne(19,28,19,23:Ligne(43,21,43,16
Ligne(20,22,23,22:Ligne(44,15,47,15
Texte(ú1,56,0,"bye :
Texte(ú1,56,30,")
For(A,1,200
End
Voila c'était ma dernière retouche sur ce programme
---------------------- "Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi ."
"L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
"
Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Dim 10 Juil 2011, 21:12
message édité
---------------------- "Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi ."
"L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
"
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 11 Juil 2011, 15:59
C'est clair que c'est plus lourd.
Parmi les bidouilles, les plus sympa sont le score et la longueur aléatoire.
Je ne compte pas le modifier.
Tu as employé le code que j'ai posté. Donc j'aimerai bien qu'il y ai une trace de ma participation dans les crédits.
S'il y a des crédits, c'est mieux qu'ils soient complets.
Ou bien il vaut mieux qu'il n'y en ai aucun. (comme le mien)
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Lun 11 Juil 2011, 17:03
le 'by ugo' au debut c'est pour mirage os pour que je différencie mes programmes des autres, après j'ai voulu voir ton mail mais je ne peux qu'envoyer un mot (je ne vois pas l'adresse) et je ne sais pas si tu voulais la montrer dsl ://
---------------------- "Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi ."
"L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
"
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 11 Juil 2011, 23:02
Si ce n'est que ça, tu pouvais m'envoyer un mail via le forum pour m'en informer et je t'aurais répondu.
Je ne pensais pas à des crédits avec mail mais juste mention du forum et de mon pseudonyme.
Néansmoins j'accepte de partager mon adresse.
EDIT : j'ai supprimmé l'adresse de ce message, afin de limiter un risque de listing.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Mar 12 Juil 2011, 0:09
c'est édité
---------------------- "Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi ."
"L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
"
Autorisation : Membre
Nb de messages : 438
Inscrit le : Dim 12 Déc 2010, 20:44
Posté le : Mar 12 Juil 2011, 1:11
Dis moi, dans les crédits à la fin, le 'ù' représente le signe petit moins c'est ça? C'est pour changer la taille du texte non?... Mais il me semble que cela ne fonctionne pas sur 82stats..?
Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Mar 12 Juil 2011, 1:39
AIE
C'est bien le petit moin...
---------------------- "Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi ."
"L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
"
Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Sam 16 Juil 2011, 0:16
J'ai une petite idée qui me viens a l’esprit, et si on faisait en sorte qu'on puisse entrer des mots pour la génération de mot directement depuis le programme ? ^^' je doute qu'on puisse changer le code depuis le programme, et avec les listes possible ?
---------------------- "Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi ."
"L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
"
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Sam 16 Juil 2011, 10:02
Je pense que ça doit être possible, mais dans ce cas là, je crois qu'il faut soit stocker de manière durable tous les mots dans des chaînes (un octé par lettre dans la ram + fort risque d'effaccement), soit dans des listes perso, mais la compréssion décompréssion sera nécéssaire (un mot=1 ou 2 emplacements) car 1 emplacement = 9octés.
Bonne chance
Sandro
PS : tu peut aussi demmander à quelcun qui s'y connait en ASM : il est possible de créer des programmes (cf : installation de ION)
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
tout ces efforts pour un bon résultats ça fais du bien ^^'
![](../images/char/<img src="./images/smileys/cupsmiley.gif" border="0" alt="cupsmiley.gif" title="cupsmiley.gif" />.png)
Mal suivi.
