X joe91

[rosa962]

CIAO JOE91

ti chiedo se possibile un piccolo aiuto x uno script che verifichi l'esito di alcune mie combinazioni
di ambi, terni ecc, fino a decine
su ruote singole, su 2 ruote, su 3 ruote e su tutte compreso nazionale
la schermata deve comprendere più combinazioni da verificare per un max di 50
ti faccio un esempio ammettiamo che voglia verificare alcuni miei ambi, terzine, ecc fino a decine
su 1 , 2, 3 ruote diverse ( solo esiti x ambo,terno,quaterna,cinquina )

il menù deve indicare :

quale combinazione : ambi,terni, ecc fino a decine
quante combinazioni : ( a mia scelta max 50 )
quante ruote ( su 1, 2, 3 o tutte )
quanti colpi: max 52

esempio:

combinazione n1 ( menù con scelta delle ruote anche a tutte )
combinazione n2 ( menù con scelta delle ruote anche a tutte )

ecc,ecc,ecc,ecc,ecc,ecc,ecc,ecc, ( fino a max 50 )

il tutto in un'unica schermata con gli esiti e colpi di uscita ( se possibile in diverso colore )
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""

esempio di schermata :

( CON NUMERI DI MIA INVENZIONE )

BA-CA-TO 34-45-55-66-77-88- ESITO AL COLPO 5° ( specificare ambo,terno, quaterna,cinquina ) ed eventualmente se da esito a tutte
CA-FI-GE 81-12-13-46-87-90 ESITO AL COLPO 7° """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""

ECC,ECC,ECC,ECC,ECC,ECC,ECC

cosi x ambi terni, quaterna,cinquina,ecc,ecc, ecc

non voglio farti nessun complimento ma sappi che leggo molto anche i tuoi post ( potrebbe sembrare una sviolinata )

ma qualsiasi sarà l'esito della tua risposta ti ringrazio anticipatamente

grazie ciao

 

[Joe91]

Ciao Rosa,

Ti ringrazio per la fiducia e trovo interessante la tua richiesta.

Purtroppo però, la comnoscenza che ho di Spaziometria, è limitata,

e per ottenere la tabella che richiedi è necessaria una competenza che so di non avere.

Specie per quanto riguarda la creazione delle tabelle che è basata su istruzioni specifiche

che non conosco ... e, non ho mai utilizzato.

Credo che chi è cresciuto assieme a questo programma, potrà aiutarti molto più "velocemente",

di quanto potrei fare io. Quindi unisco la mia richiesata alla tua,

sperando che qualche buon conoscitore del programma possa aiutarti.

Cordiali Saluti.

 

[Mike58]

Ciao Rosa. ciao Joe, questo script lo avevo costruito per le mie esigenze sulle decine, ma puoi inserire tutte le combinazioni che vuoi mantenendo la formattazione del listato, avendo cura se aumenti le giocate pari a 9 di modificare anche la dim a(9).

Nella tabella come esito c'e l'esito riferito all'ultima estrazione e il dettaglio è riepilogativo delle ultime 18 giocate anche esso aumentabile.

Se un pò ti intendi di vbscript non ti sarà difficile adattarlo alle tue necessità.

ciao Mike58

Sub Main
 Dim a(9)
 Dim Ru(1)
 Dim k
 Dim nu
 ReDim aruote(12)
 Scrivi " Ruota di... ",1,0,4
 If ScegliRuote(aruote) > 0 Then
  For k = 1 To UBound(aruote)
   If aruote(k) > 0 Then
 Scrivi " " & NomeRuota(aruote(k)),1,0,3
 End If
 Next
 End If
 'rt = CInt(InputBox("Quale ruota analizzare ",Ruota,4))
 'Ru(1) = rt
 Dim posta(2)
 posta(1) = 1
 posta(2) = 1
 Fin = EstrazioneFin
 Ini = EstrazioneFin - 500
 Scrivi NomeRuota(Ru(1)),1,0
 Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin)
 Scrivi
 ReDim atitoli(12)
 atitoli(1) = " N. CMB "
 atitoli(2) = "      Combinazione       "
 atitoli(3) = " Freq. x Ambo "
 atitoli(4) = " Freq x terno "
 atitoli(5) = " Freq x quat. "
 atitoli(6) = " Freq x cinq. "
 atitoli(7) = " Rit. x ambo  "
 atitoli(8) = " Rit. x Terno "
 atitoli(9) = " Rit. x Quat. "
 atitoli(10) = " Rit. x cinq."
 
 atitoli(11) = "      Esito      "
 atitoli(12) = "  Stringa estratti   "
 
 Call InitTabella(atitoli,1,,2,5)
 
 '-------------inserimento combinazioni --------------------------
 a(01) = "01-02-03-04-05-06-07-08-09-10"
 a(02) = "11-12-13-14-15-16-17-18-19-20"
 a(03) = "21-22-23-24-25-26-27-28-29-30"
 a(04) = "31-32-33-34-35-36-37-38-39-40"
 a(05) = "41-42-43-44-45-46-47-48-49-50"
 a(06) = "51-52-53-54-55-56-57-58-59-60"
 a(07) = "61-62-63-64-65-66-67-68-69-70"
 a(08) = "71-72-73-74-75-76-77-78-79-80"
 a(09) = "81-82-83-84-85-86-87-88-89-90"
 'a(10) = "09-49-80"
 'a(11) = "15-34-90"
 'a(12) = "15-32-90"
 'a(13) = "14-15-90"
 'a(14) = "14-32-34"
 'a(15) = "15-67-90"
 'a(16) = "14-15-32"
 'a(17) = "14-32-90"
 'a(18) = "15-87-90"
 'a(19) = "05-35-49"
 'a(20) = "15-32-34"
 '----------------- fine combinazioni ------------------------------
 For N = 1 To UBound(a)
 
  nu = Split("0-" & Format2(a(n)),"-")
  sf1 = SerieFreq(Ini,Fin,nu,aruote,2)
  sf2 = SerieFreq(Ini,Fin,nu,aruote,3)
  sf3 = SerieFreq(Ini,Fin,nu,aruote,4)
  sf4 = SerieFreq(Ini,Fin,nu,aruote,5)
  'Tot = Tot + SF
  sr1 = SerieRitardo(Ini,fin,nu,aruote,2)
  sr2 = SerieRitardo(Ini,fin,nu,aruote,3)
  sr3 = SerieRitardo(Ini,fin,nu,aruote,4)
  sr4 = SerieRitardo(Ini,fin,nu,aruote,5)

  'SF1 = SerieFreq(fin - 18,Fin,Nu,aruote,1)
  'SF2 = SerieFreq(fin - 18,Fin,Nu,aruote,1)
  'SF3 = SerieFreq(fin - 18,Fin,Nu,aruote,1)
  'SF4 = SerieFreq(fin - 18,Fin,Nu,aruote,1)
  
  'Tot = Tot + SF1
  Call VerificaEsito(nu,aruote,fin,2,1,,retesito,,retestratti)
  ReDim avalori(12)
  avalori(1) = n
  avalori(2) = StringaNumeri(nu)
  avalori(3) = sf1
  avalori(4) = sf2
  avalori(5) = sf3
  avalori(6) = sf4
  avalori(7) = sr1
  avalori(8) = sr2
  avalori(9) = sr3
  avalori(10) = sr4
  avalori(11) = retesito
  avalori(12) = retestratti
  Call AddRigaTabella(avalori)
  'If avalori(4) > 18 Then Call SetColoreCella(4,vbRed)
  'If avalori(3) > 18 Then Call SetColoreCella(3,vbGreen)
  'If avalori(5) > 3 Then Call SetColoreCella(5,vbRed)
  'If avalori(6) > 12 Then Call SetColoreCella(6,vbGreen)
  ImpostaGiocata n,nu,aruote,posta,18
 Next
 Scrivi
 Scrivi "Tabella Riepilogativa delle combinazioni su : " & Fin - Ini & " Estrazioni.",1
 Call CreaTabella()
 Scrivi"------------------------------------------------ Dettaglio ultime 18 giocate ---------------------------------------------"
 Gioca(fin - 18),,,1
 ScriviResoconto(True)
 'PicClear
 Call PicStampaTesto(1,10,"Listed by Mike58 ",,1,1,,11,vbRed)
 PicEsegui
End Sub

 

[rosa962]

ciao joe91

ti ringrazio lo stesso la tua sincerità mi è piaciuta tantissimo
e lo apprezzata, virtù che oramai sembra appartenere ad altri tempi

ringrazio anche MIKE58 per la sua disponibilità e per lo script
molto valido, alcune modifiche li potrei fare anche io ma purtroppo non ho le conoscenze tali
da compilare uno script così come descritto sopra

mi appello a qualche volenteroso che mi compili lo script
sarebbe anche interessante anche per il programma di
LUIGI cioè SPAZIOMETRIA

vediamo che succede

un sincero saluto a joe91 e a MIKE per la loro disponibilità

ciao

 

[Mike58]

Ciao Rosa, ciao Giulio, lo script postato si presta alle modifiche personali che si vogliono fare con il fai da te, basta solo inserire le combinazioni che si vogliono sia esse coppie terzine ottine decine max.
Bisogna solo inseririre nella parte inserimento combinazioni separate dal simbolo(-) ed aumentare la dim a() del valore delle combinazioni volute.

Se si guarda lo scrpit ci sono combinazioni spuntate basta attivarle e inserire le combinazioni volute.

E' + facile a farsi che a dirsi

PS. per Giulio solo problemi con estratti in quanto il codice seriefreq e serieritardo agisce su sorte 2-ambo basta modificarlo con 1-estratto ed adattare il tutto alle proprie esigenze.

Ciao Mike58

 

[Mike58]

Giulio, modifica la riga togliendo il forma2.
nu = Split("0-" & Format2(a),"-")
con
nu = Split("0-" & (a),"-")

cosi non va in overflow

 

[rosa962]

ciao MIKE58

quello che hai suggerito l'avevo già capito
ma se vai a rileggere voglio la possibilità
di verificare una combinazione su diverse
ruote ma sempre in una sola schermata

ti faccio un esempio

voglio verificare una certa combinazione di numeri così fatta

45-56-66-78-89-90 ( numeri a caso ) su

BA-CA-FI
CA-GE-MI
NA-PA-RO

ECC,ECC,ECC X

con relativi esiti di ambo,terno,ecc in un unica schermata

non so se mi sono fatta capire

leggi l'esempio sopra

penso che sia possibile modificare lo script il questo senso ?

attendo risposte anche da altri esperti

ciao e grazie

 

[Mike58]

Ciao Giulio, Purtroppo nel modificare hai mescolato un po le istruzioni che ho dovuto mettere in ordine.

Nel correggere il tutto ti ho inserito le cose che chiedi con le spigazioni dei codici, leggi con attenzione e non ti sarà difficile arrivare a quelle che sono le tue necessità.

PS. questo è il post di Rosa pertanto non andiamo avanti ad oltranza con le modifiche.

Sub Main
Dim a(9)
Dim Ru(1)
Dim k
Dim nu
ReDim aruote(12)
Scrivi " Ruota di... ",1,0,4
If ScegliRuote(aruote) > 0 Then
For k = 1 To UBound(aruote)
If aruote(k) > 0 Then
Scrivi " " & NomeRuota(aruote(k)),1,0,3
End If
Next
End If
'rt = CInt(InputBox("Quale ruota analizzare ",Ruota,4))
'Ru(1) = rt
Dim posta(2)
posta(1) = 1
posta(2) = 1
Fin = EstrazioneFin
Ini = EstrazioneIni
Scrivi NomeRuota(Ru(1)),1,0
Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin)
Scrivi
ReDim atitoli(19)
atitoli(1) = " N. CMB "
atitoli(2) = "      Combinazione       "
atitoli(3) = " Freq. x estr. "
atitoli(4) = " Freq x ambo "
atitoli(5) = " Freq x terno "
atitoli(6) = " freq x quat. "
atitoli(7) = " freq x cinq. "
atitoli(8) = " Rit. x estr.  "
atitoli(9) = " Rit. x ambo "
atitoli(10) = " Rit. x terno "
atitoli(11) = " rit. x quat."
atitoli(12) = " rit. x cinq."
'atitoli(13) = " Esito "
'atitoli(14) = " Estratti "
atitoli(15) = " STO x 1 "
atitoli(16) = " STO x 2 "
atitoli(17) = " STO x 3 "
atitoli(18) = " STO x 4 "
atitoli(19) = " STO x 5 "
Call InitTabella(atitoli,1,,2,5)
'-------------inserimento combinazioni --------------------------
a(01) = "01-02-03-04-05"
a(02) = "11-12-13-14-15"
a(03) = "21-22-23-24-25"
a(04) = "31-32-33-34-35"
a(05) = "41-42-43-44-45"
a(06) = "51-52-53-54-55"
a(07) = "61-62-63-64-65"
a(08) = "71-72-73-74-75"
a(09) = "81-82-83-84-85"
'a(10) = "09-49-80"
'a(11) = "15-34-90"
'a(12) = "15-32-90"
'a(13) = "14-15-90"
'a(14) = "14-32-34"
'a(15) = "15-67-90"
'a(16) = "14-15-32"
'a(17) = "14-32-90"
'a(18) = "15-87-90"
'a(19) = "05-35-49"
'a(20) = "15-32-34"
'----------------- fine combinazioni ------------------------------
For N = 1 To UBound(a)
nu = Split("0-" &(a(n)),"-")
sf1 = SerieFreq(Ini,Fin,nu,aruote,1)
sf2 = SerieFreq(Ini,Fin,nu,aruote,2)
sf3 = SerieFreq(Ini,Fin,nu,aruote,3)
sf4 = SerieFreq(Ini,Fin,nu,aruote,4)
sf5 = SerieFreq(Ini,fin,nu,aruote,5)
'sf6 = SerieFreq(Ini,fin,nu,aruote,6)
'Tot = Tot + SF
sr1 = SerieRitardo(Ini,fin,nu,aruote,1)
sr2 = SerieRitardo(Ini,fin,nu,aruote,2)
sr3 = SerieRitardo(Ini,fin,nu,aruote,3)
sr4 = SerieRitardo(Ini,fin,nu,aruote,4)
sr5 = SerieRitardo(Ini,fin,nu,aruote,5)
'sr6 = SerieRitardo(Ini,fin,nu,aruote,6)
st1 = SerieStorico(Ini,fin,nu,aruote,1)', 1 scrive il ritardo storico dell'estratto
st2 = SerieStorico(Ini,fin,nu,aruote,2)
st3 = SerieStorico(Ini,fin,nu,aruote,3)
st4 = SerieStorico(Ini,fin,nu,aruote,4)
st5 = SerieStorico(Ini,fin,nu,aruote,5)
'SF1 = SerieFreq(fin - 18,Fin,Nu,aruote,1)
'SF2 = SerieFreq(fin - 18,Fin,Nu,aruote,1)
'SF3 = SerieFreq(fin - 18,Fin,Nu,aruote,1)
'SF4 = SerieFreq(fin - 18,Fin,Nu,aruote,1)
'sf5 = seriefreq(fin - 18,fin,nu,aruote,1)
'sf6 = seriefreq(fin - 18,fin,nu,aruote,1)
'Tot = Tot + SF1
Call VerificaEsito(nu,aruote,fin,2,1,,retesito,,retestratti)
ReDim avalori(19)
avalori(1) = n
avalori(2) = StringaNumeri(nu)
avalori(3) = sf1
avalori(4) = sf2
avalori(5) = sf3
avalori(6) = sf4
avalori(7) = sf5
avalori(8) = sr1
avalori(9) = sr2
avalori(10) = sr3
avalori(11) = sr4
avalori(12) = sr5
'avalori(13) = retesito
'avalori(14) = retestratti
avalori(15) = st1
avalori(16) = st2
avalori(17) = st3
avalori(18) = st4
avalori(19) = st5
Call AddRigaTabella(avalori)
ImpostaGiocata n,nu,aruote,posta,18
'---------colora colonne---------------------
' 1 esempio ------
Call SetColoreCella(2,7,4)' colora la colonna 2 sfondo ciano scritta gialla
'2 esempio ----------------------------------
Call SetColoreCella(1,,vbGreen)' colora la colonna 1 sfondo default bianco  scritta verde 
Next
Scrivi
Scrivi "Tabella Riepilogativa delle combinazioni su : " & Fin - Ini & " Estrazioni.",1
Call CreaTabella()
Scrivi"------------------------------------------------ Dettaglio ultime 18 giocate ---------------------------------------------"
Gioca(fin - 18),,,1
ScriviResoconto(True)
'PicClear
Call PicStampaTesto(1,10,"Listed by Mike58 ",,1,1,,11,vbRed)
PicEsegui
End Sub

 

[rosa962]

se voglio verificare gli esiti ( stiamo parlando del 1° listato )

solamente di 13 colpi cosa devo variare ?

fin -18 a fin -13 ?

attendo risposta

ciao

 

[Mike58]

ciao MIKE58

quello che hai suggerito l'avevo già capito
ma se vai a rileggere voglio la possibilità
di verificare una combinazione su diverse
ruote ma sempre in una sola schermata

ti faccio un esempio

voglio verificare una certa combinazione di numeri così fatta

45-56-66-78-89-90 ( numeri a caso ) su

BA-CA-FI
CA-GE-MI
NA-PA-RO

ECC,ECC,ECC X

con relativi esiti di ambo,terno,ecc in un unica schermata

non so se mi sono fatta capire

leggi l'esempio sopra

penso che sia possibile modificare lo script il questo senso ?

attendo risposte anche da altri esperti

ciao e grazie

Si Rosa penso che si possa fare penso a come metterlo su!!!

Ciao.

 

[Mike58]

Ciao Rosa, la modifica che hai chiesto va a snaturare troppo lo script per questo devi utilizzarlo con inserimenti in manuale sulle ruote volute
se leggi lo script capisci dove inserire le ruote di esito,mentre per le frequenze-ritardi ti lascio ancora la sezione scelta ruote per verificarne i numeri statistici.

Si può fare di meglio ma ormai la direzione e questa e cosi è venuto.

Ciao Mike58

Sub Main
 Dim a(9)
 Dim Ru(1)
 Dim k
 Dim nu
 quante = CInt(InputBox("Da quante estrazioni vuoi verificare esito ? ",,0))
 sorte = CInt(InputBox("Quale sorte minima verificare ?",,2))
 colpi = CInt(InputBox("quanti colpi verificare esito ? ",,1))
 ReDim aruote(12)
 Scrivi " Ruota di...Verifica ",1,0,4
 If ScegliRuote(aruote) > 0 Then
  For k = 1 To UBound(aruote)
   If aruote(k) > 0 Then
 Scrivi " " & NomeRuota(aruote(k)),1,0,3
 End If
 Next
 End If
 'rt = CInt(InputBox("Quale ruota analizzare ",Ruota,4))
 'Ru(1) = rt
 Dim posta(2)
 posta(1) = 1
 posta(2) = 1
 ReDim rt(12)
 rt(1) = 1
 rt(2) = 2
 rt(3) = 3
 ReDim rt1(12)
 rt1(1) = 4
 rt1(2) = 5
 rt1(3) = 6
 ReDim rt2(12)
 rt2(1) = 7
 rt2(2) = 8
 rt2(3) = 9
 
 Fin = EstrazioneFin
 Ini = EstrazioneFin - 500
 'Scrivi NomeRuota(Ru(1)),1,0
 Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin)
 Scrivi
 ReDim atitoli(16)
 atitoli(1) = " N. CMB "
 atitoli(2) = "      Combinazione       "
 atitoli(3) = " Freq. x Ambo "
 atitoli(4) = " Freq x terno "
 atitoli(5) = " Freq x quat. "
 atitoli(6) = " Freq x cinq. "
 atitoli(7) = " Rit. x ambo  "
 atitoli(8) = " Rit. x Terno "
 atitoli(9) = " Rit. x Quat. "
 atitoli(10) = " Rit. x cinq."
 
 atitoli(11) = " Esito su." & SiglaRuota(rt(1)) & SiglaRuota(rt(2)) & SiglaRuota(rt(3))
 atitoli(12) = "  Stringa estratti   "
 atitoli(13) = " Esito su." & SiglaRuota(rt1(1)) & SiglaRuota(rt1(2)) & SiglaRuota(rt1(3))
 atitoli(14) = "  Stringa estratti   "
 atitoli(15) = " Esito su." & SiglaRuota(rt2(1)) & SiglaRuota(rt2(2)) & SiglaRuota(rt2(3))
 atitoli(16) = "  Stringa estratti   "
 Call InitTabella(atitoli,1,,2,5)
 
 '-------------inserimento combinazioni --------------------------
 a(01) = "01-02-03-04-05-06-07-08-09-10"
 a(02) = "11-12-13-14-15-16-17-18-19-20"
 a(03) = "21-22-23-24-25-26-27-28-29-30"
 a(04) = "31-32-33-34-35-36-37-38-39-40"
 a(05) = "41-42-43-44-45-46-47-48-49-50"
 a(06) = "51-52-53-54-55-56-57-58-59-60"
 a(07) = "61-62-63-64-65-66-67-68-69-70"
 a(08) = "71-72-73-74-75-76-77-78-79-80"
 a(09) = "81-82-83-84-85-86-87-88-89-90"
 'a(10) = "09-49-80"
 'a(11) = "15-34-90"
 'a(12) = "15-32-90"
 'a(13) = "14-15-90"
 'a(14) = "14-32-34"
 'a(15) = "15-67-90"
 'a(16) = "14-15-32"
 'a(17) = "14-32-90"
 'a(18) = "15-87-90"
 'a(19) = "05-35-49"
 'a(20) = "15-32-34"
 '----------------- fine combinazioni ------------------------------
 For N = 1 To UBound(a)
 
  nu = Split("0-" & Format2(a(n)),"-")
  sf1 = SerieFreq(Ini,Fin,nu,aruote,2)
  sf2 = SerieFreq(Ini,Fin,nu,aruote,3)
  sf3 = SerieFreq(Ini,Fin,nu,aruote,4)
  sf4 = SerieFreq(Ini,Fin,nu,aruote,5)
  Tot = Tot + SF
  sr1 = SerieRitardo(Ini,fin,nu,aruote,2)
  sr2 = SerieRitardo(Ini,fin,nu,aruote,3)
  sr3 = SerieRitardo(Ini,fin,nu,aruote,4)
  sr4 = SerieRitardo(Ini,fin,nu,aruote,5)

  'SF1 = SerieFreq(fin - 18,Fin,Nu,aruote,1)
  'SF2 = SerieFreq(fin - 18,Fin,Nu,aruote,1)
  'SF3 = SerieFreq(fin - 18,Fin,Nu,aruote,1)
  'SF4 = SerieFreq(fin - 18,Fin,Nu,aruote,1)
  
  'Tot = Tot + SF1
  
  Call VerificaEsito(nu,rt,fin-quante,sorte,colpi,,retesito,,retestratti)
  Call VerificaEsito(nu,rt1,fin-quante,sorte,colpi,,retesito1,,retestratti1)
  Call VerificaEsito(nu,rt2,fin-quante,sorte,colpi,,retesito2,,retestratti2)

  ReDim avalori(16)
  avalori(1) = n
  avalori(2) = StringaNumeri(nu)
  avalori(3) = sf1
  avalori(4) = sf2
  avalori(5) = sf3
  avalori(6) = sf4
  avalori(7) = sr1
  avalori(8) = sr2
  avalori(9) = sr3
  avalori(10) = sr4
  avalori(11) = retesito
  avalori(12) = retestratti
  avalori(13) = retesito1
  avalori(14) = retestratti1
  avalori(15) = retesito2
  avalori(16) = retestratti2
  Call AddRigaTabella(avalori)
  'If avalori(4) > 18 Then Call SetColoreCella(4,vbRed)
  'If avalori(3) > 18 Then Call SetColoreCella(3,vbGreen)
  'If avalori(5) > 3 Then Call SetColoreCella(5,vbRed)
  'If avalori(6) > 12 Then Call SetColoreCella(6,vbGreen)
  ImpostaGiocata n,nu,aruote,posta,18
 Next
 Scrivi
 Scrivi "Tabella Riepilogativa delle combinazioni su : " & Fin - Ini & " Estrazioni.",1
 Call CreaTabella()
 'Scrivi"------------------------------------------------ Dettaglio ultime 18 giocate ---------------------------------------------"
 'Gioca(fin - 18),,,1
 'ScriviResoconto(True)
 'PicClear
 Call PicStampaTesto(1,10,"Listed by Mike58 ",,1,1,,11,vbRed)
 PicEsegui
End Sub

 

[rosa962]

grazie MIKE58

come al solito sei stato molto altruista
per questo ti ringrazio tantissimo
i due listati già vanno bene così ed
alcune modifiche cercherò di farli io
mi servirà come allenamento
per poter comprendere un pò
questi benedetti script

un saluto a joe91 e GIULIO

spero un giorno di poter restituire
il favore che mi hai fatto

un sincero saluto