Réduction d'une image importée d'un fichier BMPRésolu

Question

Je suis n&#233;ophyte en VB

J'utilise les instructions suivantes :
Dim posX as double, posY as Double
Printer.PaintPicture _
      LoadPicture("Logo.bmp"), posX, posY
avec posX et posY &#233;tant les coordonn&#233;es horizontales et verticales sur la page d'impression.

pour info, ce logo cr&#233;&#233; en photoshop a une taille de 20cm x 5cm.

Comment faire pour l'imprimer en fonction d'une contrainte bien pr&#233;cise, comme la taille de la nouvelle hauteur d&#233;sir&#233;e (par exemple 2cm, au lieu des 5cm d'hauteur de base de l'image)

Merci d'avance &#224; la bonne &#226;me qui me solutionnera ce prob.
jyd

jytest · Accepted Answer

Merci de toute ton aide.
Grace &#224; toi, je peux terminer mes impressions de logos
Encore merci pour ton aide TRES pr&#233;cieuse
Super

jyd

pseudoOM · Answer

Dans les propriétés de PaintPicture tu retrouves ceci : picture, x1, y1, width1, height1, x2, y2, width2, height2, opcode La syntaxe de la méthode PaintPicture comprend les éléments suivants : Élément, Description, ---- object, Facultatif.

Expression d'objet qui prend la valeur d'un objet figurant dans la rubrique Application. Si l'élément object est omis, l'objet Form qui a le

focus est considéré comme object., ---- picture, Source du graphique à dessiner sur object. Doit correspondre à la propriété Picture d'un objet Form ou PictureBox., ---- x1, y1, Valeurs en simple précision indiquant les coordonnées de destination (axes x et y) sur l'élément object pour l'argument picture à dessiner. La propriété ScaleMode de l'élément object détermine l'unité de mesure à utiliser., ---- width1, Facultatif. Valeur en simple précision indiquant la largeur de destination de picture. La propriété ScaleMode de l'élément object détermine l'unité de mesure à utiliser. Si la largeur de destination est supérieure ou inférieure à la largeur source (width2), l'argument picture est élargi ou rétréci en conséquence. Si cet élément est omis, la largeur source est utilisée., ---- height1, Facultatif. Valeur en simple précision indiquant la hauteur de destination de picture. La propriété ScaleMode de l'élément object détermine l'unité de mesure à utiliser. Si la hauteur de destination est supérieure ou inférieure à la hauteur source (height2), l'argument picture est élargi ou rétréci en conséquence. Si cet élément est omis, la hauteur source est utilisée., ---- x2, y2, Facultatif. Valeurs en simple précision indiquant les coordonnées (axes x et y) d'une zone de coupure à l'intérieur de l'argument picture. La propriété ScaleMode de object détermine l'unité de mesure à utiliser. Si cet élément est omis, la valeur par défaut est 0., ---- width2, Facultatif. Valeur en simple précision indiquant la largeur source d'une zone de coupure à l'intérieur de l'argument picture. La propriété ScaleMode de object détermine l'unité de mesure à utiliser. Si cet élément est omis, la totalité de la largeur source est utilisée., ---- Heightt2, Facultatif. Valeur en simple précision indiquant la hauteur source d'une zone de coupure à l'intérieur de l'argument picture. La propriété ScaleMode de object détermine l'unité de mesure à utiliser. Si cet élément est omis, la totalité de la hauteur source est utilisée., ---- opcode, Facultatif. Valeur de type Long ou code utilisé uniquement avec les

images bitmap. Définit une opération au niveau du bit (par exemple, la constante vbMergeCopy ou vbSrcAnd) qui est exécutée sur l'argument picture à mesure qu'il est dessiné sur object. La liste complète des opérateurs au niveau du bit figure dans la rubrique RasterOp, constantes de l'aide de Visual Basic. Il existe des limitations à l'utilisation des opcodes. Par exemple, vous ne pouvez pas utiliser un opcode autre que vbSrcCopy si la source est une icône ou un métafichier, et les opcodes qui interagissent avec le motif (ou « brosse », en termes SDK) comme MERGECOPY, PATCOPY, PATPAINT et PATINVERT interagissent en fait avec la propriété FillStyle de la destination. Note Opcode est utilisé pour passer une opération au niveau du bit sur un bitmap. Placer une valeur dans cet argument lors du passage d'autres types d'images cause une erreur « Argument ou appel de procédure incorrect ». Ceci est voulu. Pour éviter cette erreur, laissez l'argument Opcode à blanc pour toute autre image d'un bitmap. en espérant que ça t'aides ! pseudoOM

jytest · Answer

Je vais essayer.
Mais je n'y crois pas.
Apr&#232;s certains essais avec Photoshop, cela pourrait &#234;tre un probl&#232;me de d&#233;finition en pixels, prioritaires apparemment, par rapport &#224; la dimension en cm. 
Serait-ce un r&#233;glage sous VB pour pr&#233;ciser ou les mesures en cm ou les mesures en pixels de l'image de base sous Photoshop...
Besoin d'aide
URGENT
jyd

Gobillot · Answer

2 valeurs &#224; changer dans le fichier BMP.











Private Type BITMAPINFOHEADER  

    biSize        
           As
Long      

    biWidth                 As Long  

    biHeight                As Long     

    biPlanes                As Integer

    biBitCount            As Integer  

    biCompression      As Long     

    biSizeImage          As Long      

    biXPelsPerMeter As Long   

    biYPelsPerMeter As Long    

    biClrUsed            As Long    

    biClrImportant     As Long  

End Type





   Dim X As Long

   Dim Y As Long



   nom = "C:\IMAGES\essai.bmp"

   Open nom For Binary As #1

        X = 3200                     'valeur &#224; d&#233;termin&#233;e

        Put #1, 39, z

        Y = 3200                     'valeur &#224; d&#233;termin&#233;e

        Put #1, , z

        Close #1

Daniel

jytest · Answer

sorry trop compliqu&#233; pour moi. Tu peux m'expliquer stp plus. merci d'avance

jyd

Gobillot · Answer

c'est un simple calcul



- si ton image fait 64 x 256 pixels

  avec la valeur 3200

  elle fera &#224; l'impression 64/32 x 256/32  soit 2 cm x 8 cm



- si ton image fait 100 x 400 pixels

  pour avoir la m&#234;me taille &#224; l'impression il faudra mettre 5000

  100/50 x 400/50 soit toujours 2 cm x 8 cm



- tu peux jouer sur les deux dimensions:

  pour qu'elle soit carr&#233; 8 cm x 8 cm 

  100/8 = 12,5 et 400/8=50



- j'ai corrig&#233; le z au lieu de X et Y


  
nom = "C:\IMAGES\logo.bmp"

   Open nom For Binary As #1

         X = 1250                  

         Put #1, 39, X

         Y = 5000                

         Put #1, , Z

         Close #1

    Printer.PaintPicture  LoadPicture(nom), posX, posY

  Printer.EndDoc



si &#231;a marche pas avec printer, tu l'imprimes directement avec photoshop

sinon pour supprimer la r&#233;solution, tu mets les 2 valeurs &#224; z&#233;ro.






Daniel

Gobillot · Answer

dis moi si je me trompe:

ton logo fait en gros 567 x 142 pixels

dans ce cas la valeur doit &#234;tre de 7087

Daniel

jytest · Answer

D&#233;sol&#233;
Je suis d&#233;butant
Et je voudrais savoir pourquoi utiliser
   Private Type BITMAPINFOHEADER
   ...
   End Type

Z n'est-il pas &#224; dimensionner?
Oui, ma photo fait bien plus que cela en pixels.
Elle a pourtant la taille de 4x2cm

Encore merci d'avance

jyd

jytest · Answer

D&#233;sol&#233;
Je suis d&#233;butant
Et je voudrais savoir pourquoi utiliser
   Private Type BITMAPINFOHEADER
   ...
   End Type

Z n'est-il pas &#224; dimensionner?
Oui, ma photo fait bien plus que cela en pixels.
Elle a pourtant la taille de 4x2cm

Encore merci d'avance

jyd

Gobillot · Answer

non BITMAPINFOHEADER n'est pas &#224; d&#233;clarer si tu l'utilises pas,

c'&#233;tait pour montrer comment est fait un fichier BMP

z n'est pas &#224; d&#233;clarer non plus, c'est ce que j'utilisais avant, mais j'avais oubli&#233; de le modifier.

avec photoshop la r&#233;solution par d&#233;faut est de 72 dpi, j'avais donc
estimer la taille en pixels pour une image de 20cmx5cm, soit 20*72/2.54
x 5*72/2.54

Daniel

jytest · Answer

je crois comprendre... en partie...
car dou piques tu tes 7087... 1250... 5000... 3200...
D'o&#249; viennent ces nombres tr&#232;s magiques ????
Merci de ton aide!
un n&#233;o qui appr&#233;cie ton aide!!!
jyd

Gobillot · Answer

et si tu me donnais la taille de ton image en pixels, 

et la taille en cm que tu veux avoir sur la feuille, je te ferais les calculs.



r&#233;sulution = 100 * (taille image en pixels) / (taille sur la feuille en cm)

Daniel

Gobillot · Answer

c'est bien d'accepter la r&#233;ponse,

mais le principe c'est d'accepter la ou les r&#233;ponse(s) de celui, ceux ou celle, celles qui l'ont apport&#233;e(s)



le principal c'est que &#231;a t'a aid&#233;.


Daniel

Réduction d'une image importée d'un fichier BMP

13 réponses

Discussions similaires