c'è un modo per salvare qualsiasi output in formato immagine?

[Xeroxs]

Un Saluto anche da Parte Mia a LuigiB, che estendo a Tutti Voi.

 

[claudio8]

Innanzitutto tanti saluti a Luigi.
lascio piccolo suggerimento alla "Pasticceria da Tom" e Luigi .. il mio maestro di bacchettate

Option Explicit
Sub Main
     Dim x,y
     Call PicSetDimensioni(250,250,150,150)
     Call Scrivi("Semplice scrittura testo alle coordinate 1,10 e 2,10")
     Call PicClear
     Call PicStampaTesto(1,8,"Estrazioni su bari in ciclo for",,,,,8)
     For x = 1 To 20
          Call PicStampaTesto(1,8 +(x*8),Format2(x) & ") " & DataEstrazione(EstrazioneFin - x) & " " & StringaEstratti(EstrazioneFin - x,BA_),,,,,8)
     Next
     Call PicEsegui
End Sub

ps: limmagine che produce lo script è in .bmp quella postata per esigenze del forum è in .JPG
CIAONE TOM

 

[lotto_tom75]

Innanzitutto tanti saluti a Luigi.
lascio piccolo suggerimento alla "Pasticceria da Tom" e Luigi .. il mio maestro di bacchettate

Option Explicit
Sub Main
     Dim x,y
     Call PicSetDimensioni(250,250,150,150)
     Call Scrivi("Semplice scrittura testo alle coordinate 1,10 e 2,10")
     Call PicClear
     Call PicStampaTesto(1,8,"Estrazioni su bari in ciclo for",,,,,8)
     For x = 1 To 20
          Call PicStampaTesto(1,8 +(x*8),Format2(x) & ") " & DataEstrazione(EstrazioneFin - x) & " " & StringaEstratti(EstrazioneFin - x,BA_),,,,,8)
     Next
     Call PicEsegui
End Sub

Vedi l'allegato 2248229

ps: limmagine che produce lo script è in .bmp quella postata per esigenze del forum è in .JPG
CIAONE TOM

 

[claudio8]

Attento Tom il ciclo for era di 20 estrazioni ma nella Pic ne sono entrate solo 17 + "Estrazioni su bari in ciclo for"
quindi dovrai dimensionare correttamente il parametro "PicSetDimensioni(250,250,150,150)" e gestire l'interlinea con
1,8 +(x*8) da far diventare ad esempio :
1,5 +(x*5)

Non fare come Elephan .... per i cannoli a Luigi
mi aspetto il panettone per NATALE