Manipuler un tableau

Question

Bonsoir,



Voila, je voulais savoir comment faire pour doubler le valeurs dans un tableau?



example: j ai mo tableau



1    2   3    4 

5    6   7    8 

9   10 11 12 

13 14 15 16



et j'aimerai faire un espece de "zoom"



donc doubler le tableau, et mettre deux fois le meme picel dans les 2 premiere case du deuxieme tableau



1 1 2 2 3 3 4 4 

etc...



Ps : Pour les for je dois faire des step de '1' et pas plus



d'avance merci

PCPT · Answer

salut,

&#231;&#224; veut dire quoi, multiplier les dimensions par deux? ou doubler le contenu de chacune en string...

et en VB6? autre?

albert0 · Answer

Doubler j'entend par la:



un tab de 5x5 devient 10x10



en vb6

PCPT · Answer

ton exemple montre un 5*10 ....

albert0 · Answer

je me reexplique:






voila j'a ai fait un petit algo qui fait un espece de "zoom" sur un tableau:





par ex: un Tab de 4x4 si je zoom 2x plus j'au un tab de 8x8


et donc je met 2 fois le meme pixel du le premier tableau..





genre:





1 2 3 4 


5 6 7 8


.... 





devien:





1 1 2 2 3 3 4 4


1 1 2 2 3 3 4 4


5 5 6 6 7 7 8 8


5 5 6 6 7 7 8 8 


etc...





voila l'algo:





  





      CompteurX,CompteurY,Compteur,Compteur2 : Natural := 1;


 


 





       for I in  1..12 loop





        


               for J in 1..12  loop











                 
Matricezoom(I,J) := Matrice(Compteurx,Compteury);


              


                  if Compteur = 2 then


                    
Compteury := Compteury + 1;


                    
Compteur :=1;


                    else


                    
Compteur := Compteur +1;


                     end if;








               end loop;


               Compteur := 1;


               Compteury := 1;





               if Compteur2 = 2 then


                    
Compteurx := Compteurx + 1;


                    
Compteur2 :=1;


                    else


                    
Compteur2 := Compteur2 +1;


                     end if;





       end loop;





j'aurai voulut savoir, si c'&#233;tait possible d'amm&#233;lior&#233; ceci?, ou de rednre plus compact ?





d'avance merci!

PCPT · Answer

t'es en VB ici non?

albert0 · Answer

oui?

PCPT · Answer

; ?

tu pars pas trop bien l&#224;...

cs_CanisLupus · Answer

Salut,
Ni avec :=
Pas du VB &#231;a, &#231;a ressemble plus &#224; de la notation C ou d&#233;riv&#233; (imit&#233; dirait sans doute Brunews).

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

albert0 · Answer

c est du pseudo code

comme ca tout le monde comprend...

Gobillot · Answer

si c'est un tableau de pixels
pour faire un zoom tu peut utiliser StretchDIBits sans modifier le tableau




Daniel

albert0 · Answer

bon c'est pas grave les gars, essayer pas de relflechir plus loint que le bout de votre nez

++

Gobillot · Answer

si tu ne dis pas dans quel langage tu programmes, forc&#233;m&#233;nt tu n'auras pas de r&#233;ponse correcte.

parce si un Algo est ind&#233;pendant du langage (en th&#233;orie) il en est pas de m&#234;me pour l'optimisation.

je te proposais une m&#233;thode qui donne la r&#233;ponse sans progammer aucune boucle.

mais au vu de ton de la r&#233;ponse, et de toute fa&#231;on comme &#231;a marchera pas chez toi,

passons ...

Daniel

Manipuler un tableau

12 réponses

Discussions similaires