Forum

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

Calculette a processeur merdique

Persalteas le 27/11/2010 à 16:22
Salut tout le monde, comme ça m'éclate toujours de faire des programmes inutiles, j'ai inventé celui-ci, qui fait croire à l'utilisateur que la calculette à besoin de temps pour réfléchir au calcul.
et accessoirement qui insulte celui qui veut faire une division par zéro.
et aussi peut dire que le calcul est trop dur.

quasi indétectable pour un débutant, du moment que celui çi ne fait pas d'erreur de syntaxe.

Code

ClrHome
Lbl 0
Input "",Str1
If inString(Str1,"/0
Menu("ERR:T'ES CON!   ","Quitter",1,"VOir",2
If not(Randint(0,3
Menu("ERR: TROP DUR   ","Quitter",1,"Voir",2
If not(Randint(0,3:Then
Output(4,1,"CALCUL EN COURS:"
Output(5,1,"[              ]"
For(A,2,15
Output(5,A,"="
For(B,1,100Randint(1,5):End
End
ClrHome
Disp Str1
End
Equ>String(Str1,Y0     //la fonction Y zéro
Y0(1)->L1(1)
Disp L1(1)
Goto 0
Lbl 2
ClrHome
Output(1,1,Str1
Goto 0
Lbl 1
Output(1,1,Str1


oui, je sais, c'est un petit programme inutile.
mais tant pis, j'aime bien les petits programmes inutiles. godgrace.gif
linkakro le 27/11/2010 à 17:16
Certains membres cumulent les programmes de farce et autres virus godgrace.gif
J'ai me bien celui-là laugh.gif
raboulave le 28/11/2010 à 18:30
Bien marrant, enfin j'imagine bigmouth.gif
Pasque j'ai un bug, j'ai tout bien recopié mais pourtant j'ai une erreur type donnée si je tape un nombre, ou une addition, ou un soustraction, ... enfin bref, ça ne marche qu'avec les lettres. J'ai rentré 3 lettres, y'a le faux chargement qu'est apparu avec "Calcul en cours" et à la fin de la barre, j'ai quand même eu une erreur type donnée ^^
help_me le 29/11/2010 à 15:38
Je débute en programmation et je comprend pas d'où sortent Str , inString et Randit . Est-ce que vous pouvez m'expliquer svp ? moodforlove.gif
Persalteas le 29/11/2010 à 20:27
tu dois avoir une calculette en français:

Randint c'est entAléat(
Str c'est Chaine
instring c'est souschaine(


entAléat( sert à donner un nombre entier aléatoire.

une chaine est une variable de texte.

souschaine( permet de sélectionner une partie de cette variable texte.
raboulave le 29/11/2010 à 21:37
Et pour mon Erreur type donnée alors ? bigmouth.gif
Persalteas le 29/11/2010 à 21:57
ah quel endroit, ton erreur?
raboulave le 29/11/2010 à 22:46
Oups oui excuse-moi ^^
L'erreur se situe au niveau de Equ->Chaîne(Chaîne1
Avec le pointeur sur Chaîne1 (dans la parenthèse ).
linkakro le 29/11/2010 à 23:18
Vous devez intervertir Str1 et Y0 à la ligne du Eq>chaîne
help_me le 30/11/2010 à 11:57
euh... Je trouve pas "souschaîne" c'est normal?
linkakro le 30/11/2010 à 18:25
INSTRING CE N'EST PAS SOUS-CHAINE

inString = carChaîne
sub = sous-chaîne

Uniquement dans le catalogue, sur les 82stat et suppérieures.
Persalteas le 30/11/2010 à 20:11
ah euh oui c'est vrai...

en fait, je les confonds déjà en français, alors en anglais...

et carchaine( tu trouves ? normalement on ne l'a que dans le catalogue.
f(x)=1/x le 01/12/2010 à 16:50
Salut persalteas et les autres, où je peux trouver dans la TI ClrHome ?
raboulave le 01/12/2010 à 18:17
Ok merci pour l'inversion chaîne 1-Y0 mais j'ai toujours le même problème sinon, c'est que je ne peux rien mettre d'autre que des lettres sinon le programme m'affiche ERR:DIM INVALIDE.
Quasi-indétectable par un débutant, mais si le programme plante tout le temps... ^^
raboulave le 01/12/2010 à 18:32
Encore une fois, j'ai oublié d'être plus précis :
En fait, maintenant, quoi que je tape j'ai une err dim invalide. L'erreur se situe toujours sur la ligne :
Y0(1)->L1(1)
^
||
L'erreur se situe sur la 2e parenthèse du Y0.
linkakro le 01/12/2010 à 18:45
Corrigez ceci comme cela :
Code
Equ>String(Str1,Y0     //la fonction Y zéro
Y0(1)->L1(1)
Disp L1(1)
Code
Disp expr(Str1)

expr( est uniquement dans le catalogue.
Elle affiche le résultat du calcul associé à la chaîne.
Elle remplace la manipulation complète, qui était d'ailleurs erronnée.

Equ>String sert à mettre la fonction dans la chaîne et pas le contraîre ( String>EQ ).
Et on ne doit pas intervertir les argumments par rapport au sens de l'instruction.
metallica le 02/12/2010 à 17:28
f( x )=1/x a écrit :
Salut persalteas et les autres, où je peux trouver dans la TI ClrHome ?


pgrm + {fleche droite} + 8
R # 2 B le 08/01/2011 à 13:50
j'aime l'idèe d'une calcu qui t'insulte quand tu fais une division par zéro ! J'avoue que j'ai bien ris quand j'ai lu le programme !
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.