Novità

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

lotto_tom75

lotto_tom75

Advanced Premium Member
Ad es. se volessi salvare in formato immagine (.jpg,.bmp,.gif) l'output di questo brevissimo code...

Codice: 
Option Explicit
Sub Main
Dim es
es=EstrazioneFin
Call ScriviEstrazione(es,True,True,True)
End Sub

:unsure:
 
Ciao

Fai una stamp e poi lo salvi come vuoi

io uso lo strumento di cattura di windows, inquadri quello che vuoi dello schermo e poi puoi salvarlo in JPG oppure in PNG, GIF , HTML

Esempio

Cattura.JPG
 
giomi ha scritto:
https://forum.lottoced.com/threads/...spaziometria-loutput-a-schermo-pieno.2203590/
Clicca per espandere...

Ciao giomi, grazie ma purtroppo anche nel tuo caso non e' la risposta che vado sperando e cercando 🙂. In sostanza mi sto chiedendo se sia possibile via code fare uno screen shot dell'output dell'elaborato e salvarlo sempre in automatico come file immagine... Credo che la funzione di Luigi disegnaestrazione prima che mi saltasse... facesse proprio quello ma non saprei assolutamente come emularla.. 🤔
 
Tom l'output di uno script è su base htm, come pensi di portare questo "oggetto" in un file immagine.
Quale programma accetta questa estensione?
 
Ultima modifica:
lotto_tom75 ha scritto:
Ciao giomi, grazie ma purtroppo anche nel tuo caso non e' la risposta che vado sperando e cercando 🙂. In sostanza mi sto chiedendo se sia possibile via code fare uno screen shot dell'output dell'elaborato e salvarlo sempre in automatico come file immagine... Credo che la funzione di Luigi disegnaestrazione prima che mi saltasse... facesse proprio quello ma non saprei assolutamente come emularla.. 🤔
Clicca per espandere...
cosa centra disegna estrazioni con esportare/salvare un file htm in un formato immagine compatibile????
Sai come opera Spaziometria quando espone l'output?
Eppure a suo tempo ti avevo insegnato qualche trucchetto :ROFLMAO::ROFLMAO::ROFLMAO: che nessuno conosce
ciao
:ROFLMAO::ROFLMAO::ROFLMAO:
 
claudio8 ha scritto:
cosa centra disegna estrazioni con esportare/salvare un file htm in un formato immagine compatibile????
Sai come opera Spaziometria quando espone l'output?
Eppure a suo tempo ti avevo insegnato qualche trucchetto :ROFLMAO::ROFLMAO::ROFLMAO: che nessuno conosce
ciao
:ROFLMAO::ROFLMAO::ROFLMAO:
Clicca per espandere...

Ciao Claudio forse ti riferisci al link ricordatomi da giomi ma purtroppo no non mi ricordo come possa salvare in img i risultati di output la funzione disegnaestrazione di Luigi o altro script code 😔. Se me lo rammenti ti ringrazio fin da ora 👋🙂
 
non centra niente la funzione disegna estrazioni.
Il tuo problema è quello di aprire un file htm con un programma di immagine.
se hai questa possibilità posso spiegati come poter fare, io non conosco programmi di immagini. ho provato con Paint ma non riconosce il formato.
Si parla di gestire programmi e file con le normali opzioni "set object" di vbscript, non centra nulla spazio script.

ti allego immagine
Tom IMMAGINE.JPG
A sinistra l'output con la funzione che citi ed a destra il risultato del mio tentativo.......
 
Ultima modifica:
Claudio ma disegnaestrazione crea(va) una img in temp nominata 00001.bmp di default.. senza l'ausilio di alcun programma di grafica esterno tipo paint o altro... A me interesserebbe fare una cosa analoga se non proprio uguale...
 
prova questo
Codice: 
Option Explicit
Sub Main
   Dim fin
   fin = EstrazioneFin
   Dim sDir
   sDir = GetDirectoryTemp & "scriptOutput"
   ' identifica ad esempio 4 caselle
   ReDim MatriceCaselleDaEvid(4,1)
   ' Primo elemento
   MatriceCaselleDaEvid(1,0) = 1 ' ruota di bari
   MatriceCaselleDaEvid(1,1) = 1 ' Primo Estratto
   ' secondo elemento
   MatriceCaselleDaEvid(2,0) = 1 ' ruota di bari
   MatriceCaselleDaEvid(2,1) = 2 ' secondo Estratto
   ' terzo elemento
   MatriceCaselleDaEvid(3,0) = 10 ' ruota di venezia
   MatriceCaselleDaEvid(3,1) = 3 ' terzo Estratto
   ' quarto elemento
   MatriceCaselleDaEvid(4,0) = 10 ' ruota di venezia
   MatriceCaselleDaEvid(4,1) = 4 ' quarto Estratto
   ReDim MatriceLegami(4,3)
   ' Primo legame
   MatriceLegami(1,0) = 1 ' ruota prima casella  (In questo caso 1 = bari)
   MatriceLegami(1,1) = 1 ' Posizione prima casella  (In questo caso 1 = prima Posizione)
   MatriceLegami(1,2) = 1 ' ruota seconda casella  (In questo caso 1 = bari)
   MatriceLegami(1,3) = 2 ' Posizione seconda casella  (In questo caso 2 = seconda Posizione)
   ' secondo legame
   MatriceLegami(2,0) = 1 ' ruota prima casella  (In questo caso 1 = bari)
   MatriceLegami(2,1) = 2 ' Posizione prima casella  (In questo caso  2 = seconda Posizione)
   MatriceLegami(2,2) = 10 ' ruota seconda casella  (In questo caso 10 = venezia)
   MatriceLegami(2,3) = 4 ' Posizione seconda casella  (In questo caso 4 = quarta Posizione)
   ' terzo legame
   MatriceLegami(3,0) = 10 ' ruota prima casella  (In questo caso 10 = venezia )
   MatriceLegami(3,1) = 4 ' Posizione prima casella  (In questo caso  4 = quarta Posizione)
   MatriceLegami(3,2) = 10 ' ruota seconda casella  (In questo caso 10 = venezia)
   MatriceLegami(3,3) = 3 ' Posizione seconda casella  (In questo caso 3 = terza Posizione)
   ' quarto legame
   MatriceLegami(4,0) = 10 ' ruota prima casella  (In questo caso 10 = venezia )
   MatriceLegami(4,1) = 3 ' Posizione prima casella  (In questo caso  3 = terza Posizione)
   MatriceLegami(4,2) = 1 ' ruota seconda casella  (In questo caso 1  = bari)
   MatriceLegami(4,3) = 1 ' Posizione seconda casella  (In questo caso 1 = prima Posizione)
   ' tre Modi diversi di disegnare il tutto
   Call DisegnaEstrazione(fin,MatriceCaselleDaEvid,MatriceLegami)
   Call DisegnaEstrazione(fin,MatriceCaselleDaEvid)
   Call DisegnaEstrazione(fin,,MatriceLegami)
   Call ApriDirectory(sDir)
End Sub
 
Ultima modifica:
Hai ragione, ma quella funzione opera in modo specifico solo per ogni disegno di estrazione creato.
Per la tua esigenza non va bene, il passaggio/trasformazione in .bmp è insito nella funzione.

Potresti usare PicStampaTesto che crea il . bmp ma la vedo complicata riuscire a scrivere un output complesso in un riquadro Pic è un lavoraccio

Option Explicit
Sub Main

Call PicSetDimensioni(150,150,150,150)
Call Scrivi("Semplice scrittura testo alle coordinate 1,10 e 2,10")
Call PicClear
Call PicStampaTesto(1,10,"Testo1 di prova" ,,,,,15)
Call PicStampaTesto(1,20,"Testo2 di prova",,,,,15)

Call PicEsegui
End Sub
 
claudio8 ha scritto:
Hai ragione, ma quella funzione opera in modo specifico solo per ogni disegno di estrazione creato.
Per la tua esigenza non va bene, il passaggio/trasformazione in .bmp è insito nella funzione.

Potresti usare PicStampaTesto che crea il . bmp ma la vedo complicata riuscire a scrivere un output complesso in un riquadro Pic è un lavoraccio

Option Explicit
Sub Main

Call PicSetDimensioni(150,150,150,150)
Call Scrivi("Semplice scrittura testo alle coordinate 1,10 e 2,10")
Call PicClear
Call PicStampaTesto(1,10,"Testo1 di prova" ,,,,,15)
Call PicStampaTesto(1,20,"Testo2 di prova",,,,,15)

Call PicEsegui
End Sub
Clicca per espandere...

Questo si avvicina moltissimo a quello che mi servirebbe claudio. Solo che permette si con save as di salvare il testo mostrato a video in immagine... ma io vorrei poterla salvare in automatico con un nome di default pre impostato ad es 1.bmp senza passaggi manuali per intenderci... Grazie comunque per questa nuova function che ignoravo... 'Notte 👋🙂
 
giomi ha scritto:
prova questo
Codice: 
Option Explicit
Sub Main
   Dim fin
   fin = EstrazioneFin
   Dim sDir
   sDir = GetDirectoryTemp & "scriptOutput"
   ' identifica ad esempio 4 caselle
   ReDim MatriceCaselleDaEvid(4,1)
   ' Primo elemento
   MatriceCaselleDaEvid(1,0) = 1 ' ruota di bari
   MatriceCaselleDaEvid(1,1) = 1 ' Primo Estratto
   ' secondo elemento
   MatriceCaselleDaEvid(2,0) = 1 ' ruota di bari
   MatriceCaselleDaEvid(2,1) = 2 ' secondo Estratto
   ' terzo elemento
   MatriceCaselleDaEvid(3,0) = 10 ' ruota di venezia
   MatriceCaselleDaEvid(3,1) = 3 ' terzo Estratto
   ' quarto elemento
   MatriceCaselleDaEvid(4,0) = 10 ' ruota di venezia
   MatriceCaselleDaEvid(4,1) = 4 ' quarto Estratto
   ReDim MatriceLegami(4,3)
   ' Primo legame
   MatriceLegami(1,0) = 1 ' ruota prima casella  (In questo caso 1 = bari)
   MatriceLegami(1,1) = 1 ' Posizione prima casella  (In questo caso 1 = prima Posizione)
   MatriceLegami(1,2) = 1 ' ruota seconda casella  (In questo caso 1 = bari)
   MatriceLegami(1,3) = 2 ' Posizione seconda casella  (In questo caso 2 = seconda Posizione)
   ' secondo legame
   MatriceLegami(2,0) = 1 ' ruota prima casella  (In questo caso 1 = bari)
   MatriceLegami(2,1) = 2 ' Posizione prima casella  (In questo caso  2 = seconda Posizione)
   MatriceLegami(2,2) = 10 ' ruota seconda casella  (In questo caso 10 = venezia)
   MatriceLegami(2,3) = 4 ' Posizione seconda casella  (In questo caso 4 = quarta Posizione)
   ' terzo legame
   MatriceLegami(3,0) = 10 ' ruota prima casella  (In questo caso 10 = venezia )
   MatriceLegami(3,1) = 4 ' Posizione prima casella  (In questo caso  4 = quarta Posizione)
   MatriceLegami(3,2) = 10 ' ruota seconda casella  (In questo caso 10 = venezia)
   MatriceLegami(3,3) = 3 ' Posizione seconda casella  (In questo caso 3 = terza Posizione)
   ' quarto legame
   MatriceLegami(4,0) = 10 ' ruota prima casella  (In questo caso 10 = venezia )
   MatriceLegami(4,1) = 3 ' Posizione prima casella  (In questo caso  3 = terza Posizione)
   MatriceLegami(4,2) = 1 ' ruota seconda casella  (In questo caso 1  = bari)
   MatriceLegami(4,3) = 1 ' Posizione seconda casella  (In questo caso 1 = prima Posizione)
   ' tre Modi diversi di disegnare il tutto
   Call DisegnaEstrazione(fin,MatriceCaselleDaEvid,MatriceLegami)
   Call DisegnaEstrazione(fin,MatriceCaselleDaEvid)
   Call DisegnaEstrazione(fin,,MatriceLegami)
   Call ApriDirectory(sDir)
End Sub
Clicca per espandere...

Domani lo provo e ti faccio sapere. Grazie giomi 👋🙂
 
ciao Tom , alcune funzioni come DisegnaEstrazione , creano già una immagine che si trova nel perocrso del file html dell'output.
Non cè nessun modo per convertire in immagine l'output dallo stesso script che lo ha prodotto per il semplice fatto che nel momento in cui l'output viene esposto lo script ha gia terminato la sua esecuzione , quindi queste ipotetiche istruzioni per convertire l'output in immagine dovrebebro avvenire dopo l'output però se abbiamo l'output lo script ha terminato la sua esecuzione , non c'è nessuno che possa eseguirle proprio perche quando c'è l'output lo script è gia finito , senno molto brutalmente si poteva pure fare da codice un printscreen e reindirizzarlo su una imamgine , ma per i motivi che ti ho dtto non è possibile.
 
LuigiB ha scritto:
ciao Tom , alcune funzioni come DisegnaEstrazione , creano già una immagine che si trova nel perocrso del file html dell'output.
Non cè nessun modo per convertire in immagine l'output dallo stesso script che lo ha prodotto per il semplice fatto che nel momento in cui l'output viene esposto lo script ha gia terminato la sua esecuzione , quindi queste ipotetiche istruzioni per convertire l'output in immagine dovrebebro avvenire dopo l'output però se abbiamo l'output lo script ha terminato la sua esecuzione , non c'è nessuno che possa eseguirle proprio perche quando c'è l'output lo script è gia finito , senno molto brutalmente si poteva pure fare da codice un printscreen e reindirizzarlo su una imamgine , ma per i motivi che ti ho dtto non è possibile.
Clicca per espandere...

Ok grazie mille Maestro 👌💪👍 me ne farò una ragione... 🤤 Ad ogni modo felicissimo di rileggerti e Buone Feste nel caso Tu decidessi di risprofondare negli abissi del silenzio forumiano! 🦈😄 👋😀
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 25 gennaio 2025
    Bari
    13
    87
    02
    10
    73
    Cagliari
    55
    40
    76
    82
    50
    Firenze
    23
    51
    44
    84
    72
    Genova
    49
    56
    19
    48
    64
    Milano
    40
    27
    80
    13
    47
    Napoli
    67
    37
    02
    75
    81
    Palermo
    25
    28
    11
    31
    40
    Roma
    20
    25
    59
    10
    22
    Torino
    82
    02
    19
    89
    84
    Venezia
    06
    59
    65
    53
    61
    Nazionale
    45
    72
    80
    76
    32
    Estrazione Simbolotto
    Bari
    16
    41
    08
    11
    43
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto