lutcho74
Nombre de messages : 139
Age : 30
Date d'inscription : 21/11/2008
 | | Sujet: "Codage" Mer 17 Déc 2008 - 21:10 | |
| Pour l'instant je commence a regarder comme fonctionne les algorithme simple et cherche un professeur de math dans mon collège qui pourrait m'initier a cette "matière" donc ce code pour l'instant et très basique mais je vais continué de l'améliorai au niveau cryptage surtout et peut être au niveau de la présentation. Comment faire pour que quand je fait item_add sa n'envoie pas à la ligne à chaque fois? - Code:
-
REM /=====================\
REM { Programme de cryptage }
REM \=====================/
Caption 0,"CRYPT 0.0.1"
FULL_SPACE 0
LABEL compare,quit
DIM a$,b$,c$,d$,e$,f$,g$,h$,i$,j$,k$,l$,m$,n$
DIM o$,p$,q$,r$,s$,t$,u$,v$,w$,x$,y$,z$
a$=1 : b$=2 : c$=3 : d$=4 : e$=5 : f$=6 : g$=7 : h$=8 :i$=9 : j$=10
k$=11 : l$=12 : m$=13 : n$=14 : o$=15 : p$=116 : q$=17 : r$=18
s$=19 : t$=20 : u$=21 : v$=22 : w$=23 : x$=24 : y$=25 : z$=26
EDIT 1
button 2 : caption 2,"Crypt" : on_click 2,compare : top 2,50 : left 2,80
BUTTON 3 : CAPTION 3, "QUITTER" : on_click 3,quit : top 3,50 : left 3,160
memo 4 : top 4,100 : height 4,500 : WIDTH 4,500
REM ==========================
END :|| FIN DU PROGRAMME ||
REM ==========================
quit:
terminate
compare:
IF TEXT$(1)="a" then item_add 4,a$ :text 1,""
IF TEXT$(1)="b" then item_add 4,b$ :text 1,""
IF TEXT$(1)="d" then item_add 4,c$ :text 1,""
IF TEXT$(1)="d" then item_add 4,c$ :text 1,""
IF TEXT$(1)="e" then item_add 4,e$ :text 1,""
IF TEXT$(1)="f" then item_add 4,f$ :text 1,""
IF TEXT$(1)="g" then item_add 4,g$ :text 1,""
IF TEXT$(1)="h" then item_add 4,h$ :text 1,""
IF TEXT$(1)="i" then item_add 4,i$ :text 1,""
IF TEXT$(1)="j" then item_add 4,j$ :text 1,""
IF TEXT$(1)="k" then item_add 4,k$ :text 1,""
IF TEXT$(1)="l" then item_add 4,l$ :text 1,""
IF TEXT$(1)="m" then item_add 4,m$ :text 1,""
IF TEXT$(1)="n" then item_add 4,n$ :text 1,""
IF TEXT$(1)="o" then item_add 4,o$ :text 1,""
IF TEXT$(1)="p" then item_add 4,p$ :text 1,""
IF TEXT$(1)="q" then item_add 4,q$ :text 1,""
IF TEXT$(1)="r" then item_add 4,r$ :text 1,""
IF TEXT$(1)="s" then item_add 4,s$ :text 1,""
IF TEXT$(1)="t" then item_add 4,t$ :text 1,""
IF TEXT$(1)="u" then item_add 4,u$ :text 1,""
IF TEXT$(1)="v" then item_add 4,v$ :text 1,""
IF TEXT$(1)="w" then item_add 4,w$ :text 1,""
IF TEXT$(1)="x" then item_add 4,x$ :text 1,""
IF TEXT$(1)="y" then item_add 4,y$ :text 1,""
IF TEXT$(1)="z" then item_add 4,z$ :text 1,""
RETURN
Dernière édition par Lutcho74 le Jeu 18 Déc 2008 - 22:18, édité 1 fois | |
|
Jack
Admin
Nombre de messages : 2395
Date d'inscription : 28/05/2007
| | Sujet: Re: "Codage" Mer 17 Déc 2008 - 21:34 | |
| Il y a quelque chose qui m'interpelle: - Code:
-
END :|| FIN DU PROGRAMME || ne provoque pas d'erreur !!! alors que la syntaxe correcte est: - Code:
-
END : REM || FIN DU PROGRAMME || Je vais chercher pourquoi et le corriger dans la prochaine version... Pour l'instruction ITEM_ADD, elle va à la ligne dans le MEMO car elle ajoute une ligne. Pour ne pas aller à la ligne à chaque caractère, il faut concaténer tes caractères dans une variable ligne$ par exemple en la construisant avec une boucle puis faire ITEM_ADD 4,ligne$
Dernière édition par panoramic le Mer 17 Déc 2008 - 21:37, édité 1 fois | |
|
lutcho74
Nombre de messages : 139
Age : 30
Date d'inscription : 21/11/2008
| | Sujet: Re: "Codage" Mer 17 Déc 2008 - 21:37 | |
| D'accord je vais voir sa tout de suite et pour l'endroit qui vous a interpelé je l'avait également remarqué je pensé que les deux points y été pour quelque chose ^^ | |
|
Jack
Admin
Nombre de messages : 2395
Date d'inscription : 28/05/2007
| | Sujet: Re: "Codage" Mer 17 Déc 2008 - 21:45 | |
| En regardant le code de PANORAMIC, je constate en effet que toute l'exécution s'arrête après un END. Il peut donc dans le source y avoir n'importe quelle instruction ou même n'importe quelle chaîne de caractère après les deux-points qui suivent un END, cela n'est pas analysé.
Je viens de trouver un bug (tout petit quand même) mais qui sera corrigé. | |
|
lutcho74
Nombre de messages : 139
Age : 30
Date d'inscription : 21/11/2008
| | Sujet: Re: "Codage" Mer 17 Déc 2008 - 21:52 | |
| Ok. Heeuuu...que veut dire "concaténer"  rassembler? | |
|
lagman
Nombre de messages : 205
Age : 32
Localisation : France
Date d'inscription : 07/05/2008
| | Sujet: Re: "Codage" Mer 17 Déc 2008 - 23:49 | |
| euh j'arrive pas à crypter avec ^^
faut faire quoi ?
je vais essayer d'en faire un aussi de prog de cryptage , mais avec un systeme de clé de cryptage. | |
|
Jack
Admin
Nombre de messages : 2395
Date d'inscription : 28/05/2007
| | Sujet: Re: "Codage" Jeu 18 Déc 2008 - 19:08 | |
| La "concaténation" est l'opération qui consiste à assembler deux strings pour en obtenir un troisième qui est constitué par la juxtaposition des deux. En Basic, donc en PANORAMIC, l'opérateur de concaténation est "+". Exemple: - Code:
-
dim gauche$,droite$
gauche$="abcd"
droite$="efgh"
print gauche$+droite$
donne le résultat : "abcdefgh" Lorsque je te disais de créer une ligne par concaténation de caractères dans une boucle, je pensais à quelque chose comme ceci: - Code:
-
dim ligne$,i
ligne$=""
for i=1 to 8
ligne$=ligne$+chr$(96+i)
next i
memo 4
item_add 4,ligne$ Cet exemple insère la ligne "abcdefgh" dans le MEMO numéro 4 | |
|
lutcho74
Nombre de messages : 139
Age : 30
Date d'inscription : 21/11/2008
| | Sujet: Re: "Codage" Jeu 18 Déc 2008 - 21:09 | |
| Je vais vraiment me mettre a l'ASCII apparemment sa aide ^^ | |
|
lagman
Nombre de messages : 205
Age : 32
Localisation : France
Date d'inscription : 07/05/2008
| |
JL35
Nombre de messages : 7112
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: "Codage" Ven 19 Déc 2008 - 11:14 | |
| | |
|
lutcho74
Nombre de messages : 139
Age : 30
Date d'inscription : 21/11/2008
| | Sujet: Re: "Codage" Ven 19 Déc 2008 - 15:16 | |
| Merci lagman_basic_4_ever | |
|
Calendrier
