probleme de Vitesse ou plutot probleme de comprehension ...

Question

voila mon probleme 
les types sont definis avant 
puis ds une procedure il y a ceci 
:=

var
Scan,ScanIMG : TypePRGBArray;
x,y:integer;
ir,iv,ib,mv,mb,mr,Fin: Integer;
begin
gauge1.MaxValue:=image.Picture.Bitmap.Height-1 ;


for y:=0 to image.Picture.Bitmap.Height-1 do
begin
gauge1.Progress:=y;
Scan := image.picture.Bitmap.ScanLine[Y];
for x:=0 to image.Picture.Bitmap.Width-1 do
begin


// Valeurs en rouge vert et bleu
mR := Scan[X].Rouge;
mV := Scan[X].Vert;
mB := Scan[X].Bleu;
// Transo en rgb
fin:=rgb(mr,mv,mb);


 fin:=rgb(Scan[X].Rouge,Scan[X].Vert,Scan[X].Bleu ) shr 4;
                                    OU 
fin:=rgb(Scan[X].Rouge,Scan[X].Vert,Scan[X].Bleu ) shr edit1.text;


//fin:=rgb(Scan[X].Rouge,Scan[X].Vert,Scan[X].Bleu ) shl  1;



                       Scan[X].Rouge := getRvalue(fin);
                       Scan[X].Vert  := getGvalue(fin);
                       Scan[X].Bleu  := getBvalue(fin);
end;
end;

 image.Refresh;
 gauge1.Progress:=0;

Voila le probleme est que qd je mets 
fin:=rgb(Scan[X].Rouge,Scan[X].Vert,Scan[X].Bleu ) shr 4;
la vitesse est tres rapide 

mais qd je mets 
fin:=rgb(Scan[X].Rouge,Scan[X].Vert,Scan[X].Bleu ) shr edit1.text;
et que la valeur de edit1.text:=4 
le tps de traitement est bcp plus long 

(Tester sur les m images pr bien faire !)

POURQUOI ????? !

Merci 

Ciao

jlen100 · Answer

salut

tu es sur de ton expression  shr edit1.text;?? normalement cela ne compile pas:  shr  n'admet  qu'un  integer  comme argument et non un string

@+

jlen

Nicolas___ · Answer

oui non excuse je suis sur mais j ai mis inttostr(edit1.text) 

Deso oubli de ma part

Nicolas___ · Answer

bordel plutot strtoint() j y arriverais !!!!!

Nicolas___ · Answer

Enfin j ai trouve une parrade pour eviter le d&#233;sagreable sentiment de perdre son tps 

fin:=rgb(Scan[X].Rouge,Scan[X].Vert,Scan[X].Bleu ) shr valcr;
 
ou  valcr est un integer que je fais varier grace a un Spinbutton

Mais le truc c pourquoi dirrectement a partir d'un (Spin ) Edit ca ralentit a ce point la le prog.

Au debut je pensais cela:

Vu que je dois realiser le StrToInt je perds du temps 

Donc sol : Utulisation d'un SpinEdit qui donne un integer et la surprise , ca change rien donc 

j utilise une variable et la tt est parfait !!!! 

A rien comprendre  

Si qqun comprend ...  

Ciao

jlen100 · Answer

dans le cas de shr 4 le compilateur affecte directement la valeur dans
le code qui se r&#233;sume en un chargement de l'accumulateur et une
instruction de d&#233;calage cela ne doit gu&#232;re d&#233;passer une trentaine de
cycle horloge.

dans le cas ou tu mets strtoint((edit1.text) tu as en gros le le code suivant:

chargement de l'adresse de edit1.text (~4 instructions);

appel de la routine strtoint avec passage des parametres ( 5 &#224; 10 instructions)

conversion (cela doit repr&#233;senter entre 50 et 100 instructions)

retour de la routine (5 &#224; 10 instructions)

affection du r&#233;sultat &#224; shr (2 &#224; 3 instructions)

ex&#233;cution de shr ..... OUF!!

comme tu le constates on passe de 2 instructions &#224; ~100 &#224; 200 soit un rapport de presque 1 &#224; 100 

il est donc normal

fin:=rgb(Scan[X].Rouge,Scan[X].Vert,Scan[X].Bleu ) shr edit1.text;soit beaucoup plus lente

@+

jlen

f0xi · Answer

Attention Fin doit etre de type TColor et non de type Integer! FOR x := 0 TO Image.Picture.Bitmap.Width-1 DO BEGIN Fin := ((Scan[x].Rouge SHL 16) + (Scan[x].Vert SHL 8) + (Scan[x].Bleu)) {..>>} // decalage de N bits {<<..} SHR IntToStrDef(Edit1.Text,0); // ou pour decaler de N octets // {<<..} SHR (IntToStrDef(Edit1.Text,0)*8); Scan[x].Rouge : = byte(Fin SHR 16); Scan[x].Vert := byte(Fin SHR 8); Scan[x].Bleu := byte(Fin); END;

La theorie c'est quand on sait tout, mais que rien ne fonctionne. La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

f0xi · Answer

Buglol : ~~SHR IntToStrDef(Edit1.Text,0);~~ SHR StrToIntDef(Edit1.Text,0);

La theorie c'est quand on sait tout, mais que rien ne fonctionne. La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

DeltaFX · Answer

Beuh.... ? Le resultat de RGB(r,g,b) n'est pas non plus un TColor alors puisqu'on balance un cardinal dans un Tcolor,est-ce que balancer un Tcolor dans un Integer c'est si catastrophique ? ( je stocke une couleur dans le tag de mes controls et c'est bien pratique)

f0xi · Answer

oui c'est vrai ... vus que TColor n'est rien d'autre qu'un integer... mais disons que c'est plus parlant ... quand on analyse le code. il me semblais que TColor avait une particularitée par rapport a integer mais j'ai confondus avec un autre type... donc en effet ... ma remarque n'est pas a prendre en compte. hum d'ailleur en parlant de ça j'ai vus une autre erreur dans le truc, sortir la convertion de Edit1.text de la boucle... tout comme l'a dis JLen100 en fait... : VAR decal : byte; begin ... Decal := IntToStrDef(Edit1.Text,0); FOR y ... ... FOR x : = 0 TO Image.Picture.Bitmap.Width-1 DO BEGIN Fin := ((Scan[x].Rouge SHL 16) + (Scan[x].Vert SHL 8) + (Scan[x].Bleu)) SHR Decal; Scan[x].Rouge := byte(Fin SHR 16); Scan[x].Vert := byte(Fin SHR 8); Scan[x].Bleu := byte(Fin); END; END; ... ...

La theorie c'est quand on sait tout, mais que rien ne fonctionne. La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

f0xi · Answer

lol decidement : je la refait en plus courte FOR x := 0 TO Image.Picture.Bitmap.Width-1 DO BEGIN WITH Scan[x] DO BEGIN Fin := ((Rouge SHL 16) + (Vert SHL 8) + (Bleu)) SHR Decal; Rouge := byte(Fin SHR 16); Vert := byte(Fin SHR 8); Bleu := byte(Fin); END; END;

La theorie c'est quand on sait tout, mais que rien ne fonctionne. La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

Probleme de Vitesse ou plutot probleme de comprehension ...

10 réponses

Votre réponse

Discussions similaires