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.
Hugus Invité
Posté le : Dim 13 Sep 2009, 13:49
Merci beaucoup ! Je te recontacte au cas où !
Dans 2 minutes environ
Hugus Invité
Posté le : Dim 13 Sep 2009, 14:03
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.
Alf Invité
Posté le : Dim 13 Sep 2009, 19:31
Merci !
Hugus Invité
Posté le : Mar 15 Sep 2009, 20:35
Merci, mais je peux paraître con :
dans le menu vars sur calculatrice TI-82 en anglais sous les flèches et entre PRGM et CLEAR(annuler;)), il y a :
le code mais pourrais-tu réexpliquer ça :
