Posté le 30/01/2015 17:59
Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 38 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements
Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd
Citer : Posté le 30/01/2015 18:02 | #
Pour entrer du texte il suffit d'utiliser Str en sortie de l'opérateur '?'
Par contre toutes les machines n'ont pas les Str.
Citer : Posté le 30/01/2015 18:04 | #
je suis sur graph 35+ USB et pour traiter cette information ?
Citer : Posté le 30/01/2015 18:08 | #
Alors tu dois avoir, encore que ça doit dépendre de ta version d'OS. Pour l'utiliser, ensuite... les fonctions Str sont dans le menu PRGM. Mais je crois que sera plus simple pour toi si je te renvoie sur le tutoriel de Totoyo
Citer : Posté le 30/01/2015 18:08 | #
ok merci
Ajouté le 13/02/2015 à 22:02 :
le tutoriel de totoyo est très bien mais il ne dit pas comment "décomposer" une phrase, par exemple, pour le code de CÉSAR, on doit bien isoler chacune des "lettres" pour les traiter, ou il existe une autre possibilités pour réaliser sa ?
Citer : Posté le 13/02/2015 22:20 | #
SI tu veux isoler un caractère, utilise strMid(
(je ne souviens plus trop de la syntaxe, mais ça devrait être du genre strMid(str, 1, pos) avec pos la position du caractère dans ta chaîne)
Citer : Posté le 13/02/2015 22:22 | #
Avec StrMid(chaîne, position, longueur) tu peux découper ta chaîne.
Exemple pour récupérer le 4ème caractère d'une chaîne :
Citer : Posté le 13/02/2015 22:25 | #
ok merci , et pour un code CESAR, c'est une bonne piste les str ?
Citer : Posté le 13/02/2015 22:25 | #
C'est un passage obligé.
Pong400
PierrePaCiseaux (CP400)
Les Triangles
Menu
ASCII
Nombres premiers
Citer : Posté le 13/02/2015 22:27 | #
mais je ne vois pas comment je pourrai les modifier pour faire un code CESAR
Citer : Posté le 13/02/2015 22:43 | #
Je suis sympa, je te met l'algo
Créer une string vide (celle codée)
Pour chaque caractère de la chaine :
Le remplacer par un autre
Ajouter le résultat à la chaine codée
[u]Pour changer un caractère :[/u]
"ABCDEF..." -> Str 20
StrSrc(Str 20, caractere) -> Valeur non codée (VNC)
(VNC + décalage) modulo 26 -> Valeur codée (VC)
StrMid(Str 20, VC, 1) -> Caractère codé
Il te reste à programmer le tout, à optimiser un peu, et à gérer le reste (espaces, ponctuation, etc)
Citer : Posté le 13/02/2015 22:50 | #
Merci , je fais me lancer sauf que, si je comprend ce que tu m'a envoyer, il faut initialiser chaque lettre avec une valeur ( 1→A 2→B 3→C etc... ) ?
Citer : Posté le 13/02/2015 22:55 | #
Non, c'est ce que fait le StrSrc (String Search) : il converti un caractère en nombre (sa position dans la chaine). Sachant que les lettres sont dans l'ordre, t'obtient A->1, B->2, etc.
Citer : Posté le 13/02/2015 23:04 | #
donc il faut d'abord enregistrer une chaine avec l'alphabet ?
Citer : Posté le 13/02/2015 23:05 | #
Ben c'est le rôle de "ABCEDEFGH..." -> Str 20
Je te le met pas en entier, ça devrait aller non ?
Citer : Posté le 13/02/2015 23:06 | #
ah oui, je ne l'avait pas vu merci
Ajouté le 15/02/2015 à 18:25 :
c'est normal que :
Then...
affiche une erreur syntax ?
Citer : Posté le 15/02/2015 18:28 | #
Oui, la comparaison de chaînes avec = ne marche pas. Faut utiliser StrCmp(). Cf la liste des fonctions Basic pour connaître les valeurs de retour
Citer : Posté le 15/02/2015 18:31 | #
donc sa donne :
Then...
merci
Citer : Posté le 15/02/2015 18:37 | #
En gros c'est ça. Je te fais confiance pour la valeur, je ne la connaît pas par cœur. C'est là où les strings deviennent assez lourdes à utiliser : ça prend plein de ligne. Mais c'est hyper puissant et ça prend pas tant de place que ça en mémoire.
Citer : Posté le 15/02/2015 18:48 | # | Fichier joint
http://www.planet-casio.com/Fr/reference_basic_casio/commande_basic.php?fonc=111
toujours citer les sources
Edit
J'ai réaliser le programme comme tu m'a dit mais cela ne marche pas, si un membre peut corriger mes erreurs, j'en serai ravi merci d'avance (en pièce-jointe)
0ãD
BG-None
[brown]ClrGraph[/brown]
[brown]ViewWindow[/brown] [maroon]1[/maroon],[maroon]127[/maroon],[maroon]0[/maroon],[maroon]1[/maroon],[maroon]63[/maroon],[maroon]0[/maroon]
[b][brown]Text[/brown][/b] [maroon]1[/maroon],[maroon]1[/maroon],[gray]"Coder ã [maroon]1[/maroon]"[/gray]
[b][brown]Text[/brown][/b] [maroon]7[/maroon],[maroon]1[/maroon],[gray]"Decoder ã [maroon]2[/maroon]"[/gray]
[b][brown]Text[/brown][/b] [maroon]13[/maroon],[maroon]1[/maroon],"Changer l[green]'alphabet ã [maroon]3[/maroon][/green]
[red]Lbl[/red] M
[green]' ALPHABET [/green]
[b][blue]If[/blue][/b] Getkey=[maroon]52[/maroon]
[b][blue]Then[/blue][/b]
[red]Lbl[/red] S
BG-None
[brown]ClrGraph[/brown]
[brown]ViewWindow[/brown] [maroon]1[/maroon],[maroon]127[/maroon],[maroon]0[/maroon],[maroon]1[/maroon],[maroon]63[/maroon],[maroon]0[/maroon]
[b][brown]Text[/brown][/b] [maroon]1[/maroon],[maroon]1[/maroon],[gray]"Alphabet actuel"[/gray]
[b][brown]Text[/brown][/b] [maroon]7[/maroon],[maroon]1[/maroon],Str [maroon]20[/maroon]
[b][brown]Text[/brown][/b] [maroon]20[/maroon],[maroon]1[/maroon],[gray]"Changer l[green]'alphabet ã [maroon]1[/maroon]"[/gray][/green]
[b][brown]Text[/brown][/b] [maroon]26[/maroon],[maroon]1[/maroon],[gray]"Initialiser ã [maroon]2[/maroon]"[/gray]
[red]Lbl[/red] T
[green]' ALPHABET [maroon]1[/maroon][/green]
[b][blue]If[/blue][/b] Getkey=[maroon]72[/maroon]
[b][blue]Then[/blue][/b] [gray]"Nouvel alphabet"[/gray]
[gray]"#E6931 Caractere [maroon]26[/maroon]#E693"[/gray]
?ãStr [maroon]20[/maroon]
[red]Goto[/red] S
[b][blue]IfEnd[/blue][/b]
[green]' ALPHABET [maroon]2[/maroon][/green]
[b][blue]If[/blue][/b] Getkey=[maroon]62[/maroon]
[b][blue]Then[/blue][/b] [gray]"ABCDEFGHIJKLMNOPQRSTUVWXYZ"[/gray]ãStr [maroon]20[/maroon]
[red]Goto[/red] S
[b][blue]IfEnd[/blue][/b]
[green]' ALPHABET EXIT[/green]
[b][blue]If[/blue][/b] Getkey=[maroon]47[/maroon]
[b][blue]Then[/blue][/b]
[red]Goto[/red] U
[b][blue]IfEnd[/blue][/b]
[red]Goto[/red] T
[b][blue]IfEnd[/blue][/b]
[green]' EXIT[/green]
[b][blue]If[/blue][/b] Getkey=[maroon]47[/maroon]
[b][blue]Then[/blue][/b]
[red]Goto[/red] Z
[b][blue]IfEnd[/blue][/b]
[green]' CODE [/green]
[b][blue]If[/blue][/b] Getkey=[maroon]72[/maroon]
[b][blue]Then[/blue][/b]
[red]Lbl[/red] X
[b][blue]If[/blue][/b] D=[maroon]1[/maroon]
[b][blue]Then[/blue][/b] [brown]ClrText[/brown]
[gray]"Message code "[/gray]?ãStr [maroon]1[/maroon]
[gray]"Cle "[/gray]?ãä
ºäãä
[red]Goto[/red] Y
[b][blue]IfEnd[/blue][/b]
[brown]ClrText[/brown]
[gray]"Message clair"[/gray]?ãStr [maroon]1[/maroon]
[gray]"Cle "[/gray]?ãä
[red]Lbl[/red] Y
[gray]""[/gray]ãStr [maroon]2[/maroon]
[b][blue]For[/blue][/b] [maroon]1[/maroon]ãI [b][blue]To[/blue][/b] StrLen(Str [maroon]1[/maroon]) [b][blue]Step[/blue][/b] [maroon]1[/maroon]
[b][blue]If[/blue][/b] StrCmp(StrMid(Str [maroon]1[/maroon],I,[maroon]1[/maroon]),[gray]" "[/gray])=[maroon]0[/maroon]
[b][blue]Then[/blue][/b] Str [maroon]2[/maroon]+[gray]" "[/gray]ãStr [maroon]2[/maroon]
[red]Goto[/red] A
[b][blue]IfEnd[/blue][/b]
[b][blue]If[/blue][/b] StrCmp(StrMid(Str [maroon]1[/maroon],I,[maroon]1[/maroon]),[gray]"."[/gray])=[maroon]0[/maroon]
[b][blue]Then[/blue][/b] Str [maroon]2[/maroon]+[gray]"."[/gray]ãStr [maroon]2[/maroon]
[red]Goto[/red] A
[b][blue]IfEnd[/blue][/b]
[b][blue]If[/blue][/b] StrCmp(StrMid(Str [maroon]1[/maroon],I,[maroon]1[/maroon]),[gray]"("[/gray])=[maroon]0[/maroon]
[b][blue]Then[/blue][/b] Str [maroon]2[/maroon]+[gray]"("[/gray]ãStr [maroon]2[/maroon]
[red]Goto[/red] A
[b][blue]IfEnd[/blue][/b]
[b][blue]If[/blue][/b] StrCmp(StrMid(Str [maroon]1[/maroon],I,[maroon]1[/maroon]),[gray]")"[/gray])=[maroon]0[/maroon]
[b][blue]Then[/blue][/b] Str [maroon]2[/maroon]+[gray]")"[/gray]ãStr [maroon]2[/maroon]
[red]Goto[/red] A
[b][blue]IfEnd[/blue][/b]
[b][blue]If[/blue][/b] StrCmp(StrMid(Str [maroon]1[/maroon],I,[maroon]1[/maroon]),[gray]","[/gray])=[maroon]0[/maroon]
[b][blue]Then[/blue][/b] Str [maroon]2[/maroon]+[gray]","[/gray]ãStr [maroon]2[/maroon]
[red]Goto[/red] A
[b][blue]IfEnd[/blue][/b]
[b][blue]If[/blue][/b] StrCmp(StrMid(Str [maroon]1[/maroon],I,[maroon]1[/maroon]),[gray]"0"[/gray])=[maroon]0[/maroon]
[b][blue]Then[/blue][/b] Str [maroon]2[/maroon]+[gray]"0"[/gray]ãStr [maroon]2[/maroon]
[red]Goto[/red] A
[b][blue]IfEnd[/blue][/b]
[b][blue]If[/blue][/b] StrCmp(StrMid(Str [maroon]1[/maroon],I,[maroon]1[/maroon]),[gray]"1"[/gray])=[maroon]0[/maroon]
[b][blue]Then[/blue][/b] Str [maroon]2[/maroon]+[gray]"1"[/gray]ãStr [maroon]2[/maroon]
[red]Goto[/red] A
[b][blue]IfEnd[/blue][/b]
[b][blue]If[/blue][/b] StrCmp(StrMid(Str [maroon]1[/maroon],I,[maroon]1[/maroon]),[gray]"2"[/gray])=[maroon]0[/maroon]
[b][blue]Then[/blue][/b] Str [maroon]2[/maroon]+[gray]"2"[/gray]ãStr [maroon]2[/maroon]
[red]Goto[/red] A
[b][blue]IfEnd[/blue][/b]
[b][blue]If[/blue][/b] StrCmp(StrMid(Str [maroon]1[/maroon],I,[maroon]1[/maroon]),[gray]"3"[/gray])=[maroon]0[/maroon]
[b][blue]Then[/blue][/b] Str [maroon]2[/maroon]+[gray]"3"[/gray]ãStr [maroon]2[/maroon]
[red]Goto[/red] A
[b][blue]IfEnd[/blue][/b]
[b][blue]If[/blue][/b] StrCmp(StrMid(Str [maroon]1[/maroon],I,[maroon]1[/maroon]),[gray]"4"[/gray])=[maroon]0[/maroon]
[b][blue]Then[/blue][/b] Str [maroon]2[/maroon]+[gray]"4"[/gray]ãStr [maroon]2[/maroon]
[red]Goto[/red] A
[b][blue]IfEnd[/blue][/b]
[b][blue]If[/blue][/b] StrCmp(StrMid(Str [maroon]1[/maroon],I,[maroon]1[/maroon]),[gray]"5"[/gray])=[maroon]0[/maroon]
[b][blue]Then[/blue][/b] Str [maroon]2[/maroon]+[gray]"5"[/gray]ãStr [maroon]2[/maroon]
[red]Goto[/red] A
[b][blue]IfEnd[/blue][/b]
[b][blue]If[/blue][/b] StrCmp(StrMid(Str [maroon]1[/maroon],I,[maroon]1[/maroon]),[gray]"6"[/gray])=[maroon]0[/maroon]
[b][blue]Then[/blue][/b] Str [maroon]2[/maroon]+[gray]"6"[/gray]ãStr [maroon]2[/maroon]
[red]Goto[/red] A
[b][blue]IfEnd[/blue][/b]
[b][blue]If[/blue][/b] StrCmp(StrMid(Str [maroon]1[/maroon],I,[maroon]1[/maroon]),[gray]"7"[/gray])=[maroon]0[/maroon]
[b][blue]Then[/blue][/b] Str [maroon]2[/maroon]+[gray]"7"[/gray]ãStr [maroon]2[/maroon]
[red]Goto[/red] A
[b][blue]IfEnd[/blue][/b]
[b][blue]If[/blue][/b] StrCmp(StrMid(Str [maroon]1[/maroon],I,[maroon]1[/maroon]),[gray]"8"[/gray])=[maroon]0[/maroon]
[b][blue]Then[/blue][/b] Str [maroon]2[/maroon]+[gray]"8"[/gray]ãStr [maroon]2[/maroon]
[red]Goto[/red] A
[b][blue]IfEnd[/blue][/b]
[b][blue]If[/blue][/b] StrCmp(StrMid(Str [maroon]1[/maroon],I,[maroon]1[/maroon]),[gray]"9"[/gray])=[maroon]0[/maroon]
[b][blue]Then[/blue][/b] Str [maroon]2[/maroon]+[gray]"9"[/gray]ãStr [maroon]2[/maroon]
[red]Goto[/red] A
[b][blue]IfEnd[/blue][/b]
StrSrc(Str [maroon]20[/maroon],StrMid(Str [maroon]1[/maroon],I,[maroon]1[/maroon]))ãA
(A+ä)ãA
[b][blue]While[/blue][/b] [maroon]0[/maroon]>A
A+26ãA
[b][blue]WhileEnd[/blue][/b]
[b][blue]While[/blue][/b] AÊ26
A-26ãA
[b][blue]WhileEnd[/blue][/b]
StrMid(Str [maroon]20[/maroon],A,[maroon]1[/maroon])ãStr [maroon]3[/maroon]
Str [maroon]2[/maroon]+Str [maroon]3[/maroon]ãStr [maroon]2[/maroon]
[red]Lbl[/red] A
[b][blue]Next[/blue][/b]
BG-None
[brown]ClrGraph[/brown]
[brown]ViewWindow[/brown] [maroon]1[/maroon],[maroon]127[/maroon],[maroon]0[/maroon],[maroon]1[/maroon],[maroon]63[/maroon],[maroon]0[/maroon]
[b][blue]If[/blue][/b] D=[maroon]1[/maroon]
[b][blue]Then[/blue][/b] [red]Goto[/red] W
[b][blue]IfEnd[/blue][/b]
[b][brown]Text[/brown][/b] [maroon]1[/maroon],[maroon]1[/maroon],[gray]"Message clair ="[/gray]
[b][brown]Text[/brown][/b] [maroon]7[/maroon],[maroon]1[/maroon],Str [maroon]1[/maroon]
[b][brown]Text[/brown][/b] [maroon]15[/maroon],[maroon]1[/maroon],[gray]"Cle de"[/gray]
[b][brown]Text[/brown][/b] [maroon]15[/maroon],[maroon]30[/maroon],ä
[b][brown]Text[/brown][/b] [maroon]23[/maroon],[maroon]1[/maroon],[gray]"Message code ="[/gray]
[b][brown]Text[/brown][/b] [maroon]29[/maroon],[maroon]1[/maroon],Str [maroon]2[/maroon]Ø
[red]Goto[/red] U
[b][blue]IfEnd[/blue][/b]
[green]' DECODE[/green]
[b][blue]If[/blue][/b] Getkey=[maroon]62[/maroon]
[b][blue]Then[/blue][/b] [maroon]1[/maroon]ãD
[gray]""[/gray]ãStr [maroon]2[/maroon]
[red]Goto[/red] X
[red]Lbl[/red] W
ºäãä
[b][brown]Text[/brown][/b] [maroon]1[/maroon],[maroon]1[/maroon],[gray]"Message code ="[/gray]
[b][brown]Text[/brown][/b] [maroon]7[/maroon],[maroon]1[/maroon],Str [maroon]1[/maroon]
[b][brown]Text[/brown][/b] [maroon]15[/maroon],[maroon]1[/maroon],[gray]"Cle de"[/gray]
[b][brown]Text[/brown][/b] [maroon]15[/maroon],[maroon]30[/maroon],ä
[b][brown]Text[/brown][/b] [maroon]23[/maroon],[maroon]1[/maroon],[gray]"Message clair ="[/gray]
[b][brown]Text[/brown][/b] [maroon]29[/maroon],[maroon]1[/maroon],Str [maroon]2[/maroon]Ø
[red]Goto[/red] U
[b][blue]IfEnd[/blue][/b]
[red]Goto[/red] N