Autorisation : Membre
Nb de messages : 29
Inscrit le : Mer 17 Oct 2007, 18:35
Posté le : Mer 30 Jan 2008, 18:38
Salut à tous, voilà, mon premier programme, en fait, je me suis basé sur une autre version très basique du jeu, et je l'ai amélioré. ( Http://fonky-ti.niceboard.com/les-jeux-f2/cadavre-exquis-namecadex-t113.htm )
Merci à FonkyEbola pout la base du programme.
Les 3 premières lignes sont la présentation, pour la supprimer, supprimez les 3 premières lignes.
Taille totale du jeu : 731 Octets.
J'ai volontairement ajouté des guillemets et des paranthèses à la fin pour que se soit plus propre.
Pour Que le jeu ne dépasse pas 731 Octets, supprimez-les.
Temps de Recopiage : 5 - 10 min.
Nom du Programme : CADEX
Autre Programme nécessaire pour la présentation : "PRESENT"
-> : sto
Chaîne : var >> Chaîne.. >> le numéro
Code
"4.5"->Chaîne8
"CADEX"->Chaîne9
prgmPRESENT
prgmZ
Lbl J
Menu("Cadex-2008 V 4.5","JOUER",1,"REGLES",2,"QUITTER",3)
Lbl 3:Stop
EffEcr
Lbl 2:Output(2,5,"SE JOUE")
Output(3,3,"A 7 JOUEURS") *au lycée, on y joue à 2+, suffit juste
Output(4,7,"----") de passer la calculette à son voisin
Output(5,3,"SUIVEZ JUSTE") après son tour.*
Output(6,1,"LES INFORMATIONS")
Pause
EffEcr
Output(2,1,"CELUI QUI CHOISI")
Output(4,2,"LE VERBE JOUE")
Output(6,1,"LE TOUR SUIVANT")
Pause
EffEcr
Output(2,3,"MAXIMUM -23-")
Output(4,3,"LETTRES PAR")
Output(6,6,"*TOUR*")
Pause
EffEcr
Output(3,1,"FAITES 2 ESPACES")
Output(5,3,"AU LIEU D UN")
Pause
EffEcr
Goto J
Lbl 1
Input "DETERMINANT:",Chaîne1
EffEcr
Output(8,1,Chaîne1)
Input "NOM COMMUN:",Chaîne3
EffEcr
Output(8,1,Chaîne1)
Input "ADJECTIF:",Chaîne2
EffEcr
Output(8,1,Chaîne1)
Input "VERBE:",Chaîne4
EffEcr
Input "COD EN QUI/QUOI?",Chaîne9
EffEcr
Output(8,5,"?")
Output(8,1,Chaîne9)
Input "DETERMINANT COD:",Chaîne5
EffEcr
Output(8,13,Chaîne5)
Output(8,1,Chaîne9)
Output(8,5,"?")
Input "COD:",Chaîne6
EffEcr
Output(8,1,Chaîne5)
Input "ADJECTIF:",Chaîne7
EffEcr
Texte(1,8,"HTTP://TOUT82.FREE.FR")
Texte(8,28,"RESULTAT :")
Texte(14,0,Chaîne1)
Texte(20,0,Chaîne2)
Texte(26,0,Chaîne3)
Texte(32,0,Chaîne4)
Texte(38,0,Chaîne5)
Texte(44,0,Chaîne7)
Texte(50,0,Chaîne6)
Texte(57,35,"<FIN>")
Pause
EffEcr
Stop
Autorisation : Membre
Nb de messages : 29
Inscrit le : Mer 17 Oct 2007, 18:35
Posté le : Mer 30 Jan 2008, 18:42
En fait, je l'ai juste extrait d'un des programmes de Sangohan38, en y ajoutant ma touche perso.
Donc, merci Sangohan.
Nom du Programme : PRESENT
Taille : 200 Octets
J'ai volontairement ajouté des guillemets et des paranthèses à la fin pour que se soit plus propre.
Pour Que le jeu ne dépasse pas 200 Octets, supprimez-les.
Temps de Recopiage : Ca dépend de vous, moi, je met 1-3 min.
Autorisation : Membre
Nb de messages : 62
Inscrit le : Dim 17 Fév 2008, 13:01
Posté le : Jeu 28 Fév 2008, 19:40
D'ailleurs, pour la petite histoire ce nom vient du premier "cadavre exquis", jeu inventés par les surréalistes, ils avaient tirés : le cadavre exquis.. me souviens plus de la suite
Autorisation : Membre
Nb de messages : 62
Inscrit le : Dim 17 Fév 2008, 13:01
Posté le : Ven 29 Fév 2008, 9:06
Oui voilà , mici Ratuss ^^
Hugus Invité
Posté le : Sam 12 Sep 2009, 21:33
Salut, je suis nouveau et moi aussi j'ai bien envie que les heures d'histoire-G passent plus rapidement ...
Je copie à la main le code mais pourrais-tu réexpliquer ça :
Autorisation : Membre
Nb de messages : 853
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Dim 13 Sep 2009, 13:05
Ca n'est pas à tapper,ça indique comment obtenir la fonction chaîne:
Bouton [var],sélectionner chaîne dans le menu déroulant et sélectionner le numéro de la chaîne dont tu as besoin dans le nouveau menu déroulant.
Héhé
Le bouton var dont tu parles c'est bien [VARS] à droite ? Je clique dessus mais il n'y a pas de menu "chaîne" ...
Alf Invité
Posté le : Dim 13 Sep 2009, 16:09
Salut tout le monde !
Je ne trouve pas la commande "Texte", utile pour afficher le résultat.
Quelqu'un pourrait m'indiquer où elle se trouve ?
Merci.
Sinon pour répondre à Hugus, le bouton var se trouve juste sous les flèche directionnelles de la calculette, entre le bouton prgm et annul. Chaîne correspond à la 7ème commande.
Autorisation : Membre
Nb de messages : 853
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Dim 13 Sep 2009, 19:23
Alf a tout à fait raison,mais peut-être que tu as ue ti-82 ou une ti 82-stats (pas fr) ou un autr modèle qui 'est pas en français.
Dans ce cas ça ne sera pas chaîne mais string.
Et pour Alf,tu fais [2nd]+[prgm] et c'est le dernier choix du menu déroulant.