Print problem

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
MASH
Beiträge: 130
Registriert: 22.05.2005 17:43

Print problem

Beitrag von MASH »

Ich weis der Code sieht etwas wüst aus aber ich habe versucht verzweifelt hinzubekommen etwas auszudrucken. Erst möchte ich ein Window öffnen und dann das Bild mit seinen Dimensionen um Faktor 10 jeweils verkleinert anzeigen und dann aber das Orginal also nicht um faktor 10 verkleinert ausdrucken. Mein Problem copyimage geht nicht und villeicht denke ich gerade falsch aber es ist ziemlich klein...

Code: Alles auswählen

    If PrintRequester() <> #FALSE
      PageWidth.l = PrinterPageWidth()
      PageHeight.l = PrinterPageHeight()
      
      CreateImage(0,PageWidth,PageHeight)
      If StartDrawing(ImageOutput()) <> #FALSE
        Box(0,0,PageWidth,PageHeight,RGB(255,255,255))
        Locate(100,100)
        DrawingFont(LoadFont(0,"",100))
        DrawText("Sudoku: "+FormatDate("%dd.%mm.%yyyy - %hh:%ii:%ss",Date()))
        Locate(100,400)
        DrawText("Sudoku Printer Test 2 pic")
        FrontColor(100,100,100)
        DrawingMode(4)
        
        StopDrawing()
        CloseFont(0)
        
        CreateImage(1,PageWidth,PageHeight)
        ;CopyImage(0,1)
        
        ResizeImage(1,PageWidth/10,PageHeight/10)
        
        If OpenWindow(0,0,0,PageWidth/10,PageHeight/10,0,"Sudoku Solver - Page preview") <> #FALSE
          If CreateGadgetList(WindowID(0))
            ImageGadget(1,0,0,PageWidth/10,PageHeight/10,UseImage(0))
            MessageRequester("","",16)
        EndIf
        EndIf
        EndIf
        EndIf
        
        
        If PrintRequester()
          If StartPrinting("Sudoku Solver MASH")
            If StartDrawing(PrinterOutput())
              DrawImage(UseImage(0),0,0)
            StopDrawing()
            EndIf
          StopPrinting()
          EndIf
        EndIf
Danke Mark S.
Benutzeravatar
Franky
Beiträge: 1132
Registriert: 29.08.2004 16:31
Wohnort: Münsterland
Kontaktdaten:

Beitrag von Franky »

Öh, du zeigts aber Bild 0 an, obwohl du Bild1 anzeigen willst

Ansonsten stimmt dein Code.

Und wenn´s Fertig ist bitte ab ins Feedback damit.... Ich liiiiiebe Sudokus <)
Falsch zugeordnetes Zitat des Tages: "O'zapft is" - Edward Snowden :)
Benutzeravatar
AND51
Beiträge: 5220
Registriert: 01.10.2005 13:15

Beitrag von AND51 »

Sudokus? Was ist das?
PB 4.30

Code: Alles auswählen

Macro Happy
 ;-)
EndMacro

Happy End
Benutzeravatar
Kiffi
Beiträge: 10714
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Beitrag von Kiffi »

AND51 hat geschrieben:Sudokus? Was ist das?
GOOGLE
a²+b²=mc²
Benutzeravatar
MASH
Beiträge: 130
Registriert: 22.05.2005 17:43

Beitrag von MASH »

Sudoku ist genial. Wollte den algo auch für die sehr schweren Sudokus nehmen. das war ja jetzt nur ein Auszug, ca. 400 Zeilen hat das projekt schon ...


EDIT: Jo, jetzt habe ich es korrigiert, irgendwie hatte mein PC ein paar probleme, jetzt läuft alles, sehr schön ... :D
Danke Mark S.
Benutzeravatar
MASH
Beiträge: 130
Registriert: 22.05.2005 17:43

Beitrag von MASH »

Ich habe den Algo fertig jetzt fehlen nur noch ein paar verschönerungen hat schon immerhin 600 loc's =)...
Danke Mark S.
Marvin
Beiträge: 497
Registriert: 17.07.2005 14:42
Wohnort: Krikkit

Beitrag von Marvin »

hab ma bei wikipedia geguckt, wollte auch so nen algo zum erstellen schreiben hat aber nich geklappt... :(
Kaeru Gaman
Beiträge: 17389
Registriert: 10.11.2004 03:22

Beitrag von Kaeru Gaman »

Kiffi hat geschrieben:
AND51 hat geschrieben:Sudokus? Was ist das?
GOOGLE
ma wieder typisch.... die leutz können ruhig a bissel erklären, wenn se hier mit fachbegriffen rumwerfen, und jemand nachfragt...


meint ihr diese zahlenrätsel?
.. is wohl so ne art magisches quadrat..
sieht nich gerade einfach aus...
Der Narr denkt er sei ein weiser Mann.
Der Weise weiß, dass er ein Narr ist.
Antworten