ouverture et comment fermer une fenetre...

[YvesRossignol]

Bonjour, je réponds à Marc sur mon expérience.

Je suis un ingénieur en mécanique, structure et métallurgie.... mais je fais des méthodes numériques. presqu'uniquement en fortran (et oui c'est très rapide avec les dernières versions du fortran) J'ai programmé des logiciels d'analyse d'écoulement en éléments finis de frontière, des programmes d'analyses de la progression de la fissuration en milieu fragile, des programmes d'analyse de théorie de rupture, des programmes de transfert de chaleur en plusieurs milieux et en régime transitoire et finalement j'ai fait un logiciel d'analyse en éléments finis classique pour la plasticité. J'ai fait du basic de borland, du gw-basic pour des systèmes de conditionnement de signal en extensiométrie.

Merci de votre aide messieurs.

Yves

[Zorro]

tain, avec un pseudo comme le tiens, j'imaginais, que t'etait perceur de coffre fort, et monte en l'air
voir descendant de la famille qui fabrique les skis

[YvesRossignol]

Merci Zorro



Yves

[Marc56]

Je pense aussi, comme suggéré que tu devrais envisager de faire la partie impression de ton programme à l'aide des fonction natives de PB, notamment la nouvelle bibliothèque VectorDrawing.

En effet, la PrinterLib est une bibliothèque tiers et ne semble plus maintenue depuis 2013. Certains autres outils PureBasicPower du même auteurs ne fonctionnent plus hélas en x64 (l'excellent PurePDF)



La bibliothèque Printer native de PB est aussi très simple à utiliser
Exemple tiré de la doc

Code : Tout sélectionner

If PrintRequester()

  If StartPrinting("PureBasic Test")
  
    LoadFont(0, "Arial", 30)
    LoadFont(1, "Arial", 100)
  
    If StartDrawing(PrinterOutput())
      
      BackColor(RGB(255, 255, 255)) ; Uses white as back color, usuful when printing on a white sheet
      FrontColor(RGB(0, 0, 0)) ; Use black for standard text color
      
      DrawingFont(FontID(0))
      DrawText(100, 100, "PureBasic Printer Test")
      
      DrawingFont(FontID(1))
      DrawText(100, 400, "PureBasic Printer Test 2")
    
      If LoadImage(0, #PB_Compiler_Home + "examples/sources/Data/PureBasic.bmp")
        DrawImage(ImageID(0), 200, 600)
      Else
        MessageRequester("Error","Can't load the image")
      EndIf
      
      Box(200, 1000, 100, 100, RGB(255, 0, 0)) ; Draw a red box
        
      StopDrawing()
    EndIf
    
    StopPrinting()
  EndIf
EndIf

Tu auras peut-être un peu plus de travail initial (notamment gérer la prévisualisation si tu en as besoin et surtout gérer le ratio de tailles (de fontes) en fonction de la résolution) mais ensuite, tu assures la pérennité de ton travail en n'utilisant que les bibliothèques internes.

(Note: pour tester les impressions sans gâcher le papier, utiliser une imprimante virtuelle PDF ou FinePrint)

[YvesRossignol]

Je vais essayer cette fonction.

Merci, il est vrai que plus on est suivant un standard moins on a de risque d'avoir de problème.

Yves