Forum

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

MSN

Stupid le 25/11/2009 à 14:58
Je poste un vieux trucs que j'avais fait et qui marche pas mal, et qui est fun bien qu'étant complètement inutile.
Possibilité de quitter le prog en envoyant "STOP" ce qui arrêtera les deux caltos

Ça marche que pour les 82 stats et +.

Si y'a des erreurs ou si je l'ai déjà posté ici prévenez svp.

Code

:ClrHome
:For(A,2,6,2
:For(Z,1,8
:Output(A,Z,"*
:Output(A,17-Z,"*
:End
:End
:Output(3,4,"MSN LIVE +
:Output(5,3,"CHAT POUR TI
:Output(7,2,"CREE PAR JESUS
:Output(8,1,"(C)COPYRIGHT2007
:Lbl X
:Pause
:ClrHome
:Menu("** MSN LIVE + **","CHATTER",C,"AIDE",D
:Lbl D
:Disp "CHOISIR UN NMERO","DE CALCU QUI N'","EST PAS LE MEME","ENTRE LES DEUX","UTILISATEURS
:Pause
:ClrHome
:Disp "POUR QUITTER LE","JEU ENVOYEZ LE","MESSAGE STOP
:Goto X
:Lbl C
:0ü ( ) U
:0ü ( ) T
:Menu("CALCULATRICE","CALCU 1",1,"CALCU 2",2
:Lbl 1
:1ü ( ) V
:Goto 3
:Lbl 2
:2ü ( ) V
:Lbl 3
:If V=2
:Then
:ClrHome
:Disp "PATIENTES...
:While U=0
:Get(U
:End
:0ü ( ) T
:Get(Str1
:ClrHome
:If Str1="STOP
:Then
:Disp "TI 1 DECONNECTEE
:Stop
:End
:Output(1,1,Str1
:Pause
:ClrHome
:Input "MESSAGE:",Str2
:0ü ( ) U
:1ü ( ) T
:If Str2="STOP
:Then
:Disp "DECONNEXION
:Stop
:End
:Pause
:ClrHome
:Goto 3
:End
:Lbl 5
:If V=1
:Then
:Input "MESSAGE:",Str1
:ClrHome
:1ü ( ) U
:0ü ( ) T
:If Str1="STOP
:Then
:Disp "DECONNEXION
:Stop
:End
:Pause
:ClrHome
:While T=0
:Get(T
:End
:0ü ( ) U
:Get(Str2
:ClrHome
:If Str2="STOP
:Then
:Disp "TI 2 DECONNECTEE
:Stop
:End
:Output(1,1,Str2
:Pause
:ClrHome
:Goto 5
:End
Invité le 18/01/2010 à 08:56
Tu le trouve ou ton Get?
Je le trouve pas dans le catalogue...
linkakro le 18/01/2010 à 16:18
C'est un getkey. Ta calculatrice est statfr donc c'est traduit par codetouche.
S'il te plaît évite de remonter quand une question/réponse peut être ailleurs.
Sangohan38 le 19/01/2010 à 16:44
Non Get( doit être la fonction envoi( sur une 82 STATS Fr.

Sangohan38
Rézus le 20/01/2010 à 17:42
Ou plutôt par "Capt(" ,envoi est traduis par send(
Chazore le 08/02/2010 à 13:26
Et ou trouve-t'on Str1 et Str2? J'ai chercher partout je n'es pas trouver...
Quelqu'un pourrait m'aider?
Rézus le 08/02/2010 à 13:32
[var]+[7] et tu as toutes les chaînes (ou strings en anglais),de 0 à 9.
Chazore le 08/02/2010 à 13:48
Ok merci beaucoup j'ai fini de le recopier.
coco-rico38 le 13/02/2010 à 07:58
bonjour,

je voudrais savoir la traduction en français de "Str" par ce que moi j'ai mis "Sci" et sa marche au debut puis j'ai un erreur

Code
input "MESSAGE:",Str1


et moi j'ai mis

Code
input "MESSAGE:",Sci1
ti82statfrlover le 13/02/2010 à 09:49
str ou string se sont les chaines tu les trouve en faisant vars et 7
sypotu le 13/02/2010 à 11:08
Il te suffisait de regarder 2 message plus haut...
Rézus a écrit :
[var]+[7] et tu as toutes les chaînes (ou strings en anglais),de 0 à 9.
coco-rico38 le 14/02/2010 à 07:02
godgrace.gif merci j'avais pas vu
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.