Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse Page: 1,      >>
stockage d'images
Auteur Message
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Mer 25 Juil 2007, 14:52   Citer 

Bon alors comme coc5 avait fait fais mieux que moi et que je n'aime pas qu'on fasse mieux que moi ( winkle.gif) voici le programme de stockage d'images dans la matrice [A]. Une image complexe prend environ 1000 octets. Pour l'utiliser il suffit d'envoyer le programme, et c'est fait !!

Code
ClrHome
1->C
1->D
1->E
1->T
0->H
0->I
{1,1}->dim [A]
0->[A](1,1)
1->Z
5.pxl-Test(0,0)->[A](1,1)
Output(2,2,"CRYPTAGE..."
Output(4,9,"o/O"
For(A,0,62
Output(4,6,round(A/62*100,0
For(B,0,94
If pxl-Test(A,B)+pxl-Test/H,I)=1
Then
Lbl 4
95(A-H)+B-I->J
If J=>10^Z or ZE>14-T
Then
If E=/=1
Then
If Z=1
Then
-[A](D,C)->[A](D,C)
Else
round(Z-2,0)->U
[A](D,C)+U->[A](D,C)
End
End
If ZE>14-T
Then
1->Z
1->E
0->T
D+1->D
End
If J=>10^Z
Then
While J=>10^Z
Z+1->Z
End
If E=/=1
D+1->D
1->E
End
If D=100
Then
1->D
C+1->C
99->L
End
If C=1
D->L
{L,C}->dim [A]
End
[A](D,C)+J*10^(-ZE)->[A](D,C)
E+1->E
A->H
B->I
If A=63
Goto 5
End
End
End
0->B
Goto 4
Lbl 5
If Z=1
Then
-[A](D,C)->[A](D,C)
Else
[A](D,C)+Z-2->[A](D,C)
End
ClrHome
Output(2,1,"COMPRESSION DES
Output(3,2,"DONNEES...
ClrList L1
If C=/=1
Then
99->A
While [A](A,C)=0
A-1->A
End
If A=>98
Stop
round(c(fPart((99(C-1)+A)/C)),0)->D
iPart ((99(C-1)+A)/C)->E
C->dim L1
For(Z,1,D
1+E->L1(Z)
End
For(Z,D+1,C
E->L1(Z)
End
Goto 3
Lbl 1
C-1->C
99->A
While [A](A,C)=0
A-1->A
End
Lbl 3
L1(C)-A->P
For(Z,A,1,-1
[A](Z,C)->[A](+P,C)
End
If C=1
Then
{E+1,dim L1}->dim[A]
ClrList L1
Stop
ClrHome
End
For(Z,1,P
[A](100-Z,C-1)->[A](P+1-Z,C)
0->[A](100-Z,C-1)
End
Goto 1
End
ClrHome



Voilà le décodeur. Une fois que le code est entré dans la matrice [A], il suffit de lancer le programme (conseil : ne pas le fusionner avec l'autre). Pour des raisons de mémoire, le programme s'interrompt régulièrement. Il faut donc appuyer régulièrement appuyer sur [ENTER] jusqu'à ce qu'il ne le demandes plus. Si il y a une erreur mémoire, il faut trifouiller et mettre N=50 à la place de N=60 etc à la ligne 25.

Code
If fPart O=.122
Then
O+1->O
0->N
Goto 1
End
ClrDraw
1.122->O
dim [A]
Ans(1)->G
dim [A]
Ans(2)->F
1->E
0->A
1->C
1->D
If fPart (abs([A](1,1)))>3
1->A
0->I
0->N
-1->H
-1->Z
Lbl 1
N+1->N
If N=60
Then
Disp "PRESS ENTER
Stop
End
If Z=-1Then
0->Z
iPart ([A](D,C)->P
If [A](D,C)=>0
Then
If P>3
P-5->P
For(R,0,2
If P=>RZ+1->Z
End
End
Z+1->Z
End
0->L
abs ([A](D,C)->P
For(T,Z,1,-1
L+10^(T-1)(iPart(10(fPart(P310^(ZE-T->L
End
If L=/=0
Then
If A=1
Then
For(P,H+1,H+L
P->J
0->S
While J=>95
S+1->S
J-95->J
End
Pxl-On(I+S,J
End
I+S->I
J->H
0->A
E+1->E
Goto 1
Else
H+L->H
While H=>95
H-95->H
I+1->I
End
1->A
E+1->E
Goto 1
End
Else
-1->Z
1->E
D+1->D
If D=G
Then
C+1->C
1->D
If C>F
Then
0->O
Stop
End
End
End
Goto 1


Pour plus d'explications...

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 25 Juil 2007, 15:31   Citer 

Tu n'aurais pas un petit lien pour télécharger le prog Vibra?

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Mer 25 Juil 2007, 18:37   Citer 

J'ai essayé le début de ton programme (juste le cryptage). J'ai pas trop compris comment tu faisais (j'ai pas trop cherché non plus^^).
Mais comment fais-tu pour reconstituer l'image, ça n'y est pas !

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Jeu 26 Juil 2007, 13:45   Citer 

Effectivement, ce programme ne permet que de stocker l'image. Je vais essayer de faire le programme pour pouvoir faire apparaitre l'image.
Sinon, je ne sais toujours pas comment faire un lien, désolé minied.gif .

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Jeu 26 Juil 2007, 13:46   Citer 

Tu te trouve un uploadeur de fichier, il te donnera un lien que tu copie.

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Jeu 26 Juil 2007, 13:51   Citer 

Sauf que j'ai pas le cable...

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Ven 27 Juil 2007, 10:08   Citer 

c'est beaucoup 1000 octet :p ! (ca fait même plus qu'une pic)

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Ven 27 Juil 2007, 11:54   Citer 

Ouais, ça fait plus au'une pic, mais pour ceux qui n'ont pasle cable (comme moi), et qui ont fait un beau dessins de fille nue (comme moi), et qui n'ont plus la place de conserver la pic, et bien c'est bien utilie de pouvoir la stocker. happy.gif

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Ven 27 Juil 2007, 13:17   Citer 

on peut les voir ces dessins ? :p

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Ven 27 Juil 2007, 13:19   Citer 

Quelqu'un pourrait me dire ce qu'est une pic (je connais peut-être mais le nom ne me dit rien) ?

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Ven 27 Juil 2007, 13:27   Citer 

une "pic" (picture) = une image,

storepic pour enregistrer et recallpic pour loader

+

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Ven 27 Juil 2007, 13:37   Citer 

Bon bas j'ai appris quelque chose aujourd'hui cupsmiley.gif

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Ven 27 Juil 2007, 15:38   Citer 

Je ne sais pas comment je pourrais te la montrer ä mois que tu utilise le code ci-dessous et que tu rentre dans la matrice [A] un certain code.

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Ven 27 Juil 2007, 16:58   Citer 

tu peux le mettre dans ton post initial stp ?? ( ce sera plus lisible pour les invités... )

+

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Ven 27 Juil 2007, 18:20   Citer 

Voila c'est copier dans le post initial.

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Ven 27 Juil 2007, 23:05   Citer 

J'ai fais des corrections.

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Ven 27 Juil 2007, 23:11   Citer 

Voici, comme promis, le dessin de la nana :
[A](...,1)
1.51200409502
.95039402940294
-.2
.93022503660216
-.18111
.66021308040101
-.231
.60030513020401
-.12221
.59091202040203
-.221
.47020211250103
-.212
.47063802010137
-.192
.43020101030133
-.814
.43030201400445
-.331
.19022104420101
-.221
.1902190205034
-.221
.18021802061134
-.211
.1802170217061
-.2
.17020101180216
-.2
.20010310020116
-.211
.18021602190116
-.1
.16020101010116
-.2
.15021901090603
-.1
.14020201010116
-.2
.14031801100401
-.121
.13010101020101
-.1
.16021402180111
-.51221
.14010203160213
-.3
.18011204020103
-.1
.12010201010118
-.2
.12021801130303
-.121416232
.19021102190113
-.3312132
.1101010118021
-.3
.18011803030214
-.1
.20020903190119
-.14111

[A](...,2)
.13012101090219
-.1
.27011301210207
-.362
.11010503170213
-.1
.23010702060212
-.14212
.15010602060223
-.16247
.10010402010204
-.19791
.24020507160105
-.441
.13011001020122
-.235
.21010601190114
-.1
.22020402220126
-.1
.12010101220205
-.3
.21011801060113
-.234
.15020603180313
-.741
.14010101030314
-.293
.13030302110303
-.13131
.11010101020216
-.2
.11020804050201
-.2933121
.1301020101012
-.2
.12020305050403
-.2841234
.12012202130604
-.816722162
.12010806080214
-.18
.13020307010503
.13010614020219
-.334
.11080304200208
.10170208061105
-.12
.18022004150114
.20180322021401
.52032302130151
-.221
.24011201270813
-.341
.26011001360505
-.361
.28020602390102
-.581
.31065502910289
-.4
1.296

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Mar 31 Juil 2007, 19:34   Citer 

tu peux pas la stocker dans une pic le mettre en 82p puis sur badongo?

 Adresse email Haut de page Bas de page 
 
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Mer 01 Aoû 2007, 10:08   Citer 

Jai pas le cable frozen.gif frozen.gif

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Mer 01 Aoû 2007, 11:06   Citer 

il faut le cable car j'ai pas envie de recop cette matrice

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse Page: 1,      >>





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa