Creare elenco presenze

[Xeroxs]

Scusami Silop avevo ricopiato alla veloce uno stralcio di esiti che mi ha passato un amico senza vedere al meglio la cosa scritta.

 

[Xeroxs]

Ciao
*blacklotto*

I valori riportati da I LEGEND sembrano esatti anche con verifica manuale,
ora perchè solo due numeri non corrispondono per me me è difficile capirlo, posso solo pensare al range di date o indice ma non credo che sia questo il caso

 

[claudio8]

Attenziona all'utilizzo della semplice sommatoria del risultato della funzione frequenza perche quanto state alaborando, per un utilizzo di effettivo gioco ha valenza solo se il range di ricerca freq e' di una sola estrazione.

X Blacklotto
Probabilmente devi controllare l'archivio.

Un saluto

 

[i legend]

Ciao Claudio lo script rileva tutti gli estratti e ambi sortiti nell estrazione corrispondente all indice mensile.
Nel calcolo a tutte se un ambo sortisce su più ruote viene conteggiato più volte come è corretto che sia in quanto è la stessa estrazione.
Farlo su più estrazioni cambierebbe la logica dello script.
Grazie Claudio.
I valori postati ti risultano esatti ?

 

[claudio8]

Ciao "Leggenda" .... come avrai letto ho parlato di singola estrazione.
Il mio è un suggerimento indirizzato ai meno esperti.
Riguardo all'esattezza dei dati non posso verificare perché sto scrivendo da cellulare.
Un saluto

 

[i legend]

Ok grazie Claudio ?

 

[*blacklotto*]

scusa I Legend
più volte dicevi che avresti inserito lo script che usavi per tal ricerca.
Se ciò non fosse un problema per te, gradirei provarne l'esecuzione.

 

[i legend]

Ciao , lo script come l ho scritto non mi piace. Credo che sia buono, ma voglio ottimizzarlo. Purtroppo il lavoro occupa molto tempo , la mia famiglia è al primo posto al secondo gli svaghi, gli script sono al secondo posto.

Se non voglio rendere pubblico uno script lo scrivo subito ,
Non è questo il caso.
Ma Se non riesco ad ottimizzarlo non lo posterò.
Per me è importante.
Ciao

 

[Master]

Ciao a tutti
Ho fatto un modesto script con l'output come richiesto da Xeroxs
X blacklotto i miei risultati i corrispondono a quelli di i legend
controllare sempre
scaricare sopra #9

Buona serata

 

[i legend]

Ciao bravo master.
Appena riesco posto anche la mia.

 

[i legend]

Ciao a tutti
non garantisco che i risultati siano esatti,fate voi le verifiche
ho provato a dare anche io una versione dello script.
lo script rileva gli estratti gli ambi e i terni
piu aumenta il numero degli ambi da analizzare piu aumenta il tempo.
ho cercato di gestire i possibili errori di input, questo rallenta un po
per chi vuole studiare la procedura ho diviso tutto in piccole funzioni
si puo ottimizzare ? sicuramente
si puo velocizzare? sicuramente
se non il prof visto la sua momentanea assenza forse Giggio, conoscendo le classi potrebbe migliorare i tempi ,o Joe
ecco lo script
controllate se i dati di input combacino con quelli di output,
l errore è sempre dietro l angolo

Option Explicit
Class ClsAmboPres
   Dim strAmbo
   Dim nPres
   Sub IncrementaPres
      nPres = nPres + 1
   End Sub
End Class
Class ClsTernoPres
   Dim StrTerno
   Dim nPres
   Sub IncrementaPres
      nPres = nPres + 1
   End Sub
End Class
Sub Main
   Dim Mess,Ini,iAnnoFin
   Dim iIdM,sIdMese,IdEstr
   Dim Ruota,sRuota,iRuIni,iRuFin
   Dim bEstr,p,E,p1,E1,p2,E2
   Dim iEstrFiltr,IdPriEstrUti,idUltEstrUti
   Dim MaxFreqA,MaxFreqT
   Dim sAmbo,sTerno
   Dim Coll,CollT
   Dim ClsAmbo,ClsTerno
   ReDim aEstratti(90,2)
   If Not ImpostaParametri(Ini,iAnnoFin,iIdM,sIdMese,sRuota,iRuIni,iRuFin) Then Exit Sub
   '  Scrivi Ini & "  ,  " & iAnnoFin & "  ,  " & iIdM & "  ,  " & sIdMese & "  ,  " & sRuota & "  ,  " & iRuIni & "  ,  " & iRuFin
   Call ResetTimer
   For E = 1 To UBound(aEstratti)
      aEstratti(E,1) = E
      aEstratti(E,2) = 0
   Next
   iEstrFiltr = 0
   IdPriEstrUti = EstrazioneFin
   idUltEstrUti = 0
   Set Coll = GetNewCollection
   Set CollT = GetNewCollection
   For IdEstr = Ini To EstrazioneFin
      If GetValidaIndicemensile(IdEstr,iIdM) Then ' funzione che valida l indice mensile voluto
         For Ruota = iRuIni To iRuFin
            If Estratto(IdEstr,Ruota,1) Then
               'Scrivi IdEstr & "   " & IndiceMensile(IdEstr) & "  " & IndiceAnnuale(IdEstr) & "    " & DataEstrazione(IdEstr)
               ReDim aEstr(0)
               Call GetArrayNumeriRuota(IdEstr,Ruota,aEstr)
               Call OrdinaMatriceTurbo(aEstr,1)
               bEstr = True
               For p = 1 To 5
                  E = aEstr(p)
                  aEstratti(E,2) = aEstratti(E,2) + 1
               Next
               ' se rieesco con la classe a mettere tutto in collection
               For p = 1 To 4
                  For p1 = p + 1 To 5
                     Set ClsAmbo = New ClsAmboPres
                     E = aEstr(p)
                     E1 = aEstr(p1)
                     sAmbo = Format2(E) & "  " & Format2(E1)
                     Call GetIncrementaAmbo(sAmbo,Coll,MaxFreqA)
                  Next
               Next
               For p = 1 To 3
                  For p1 = p + 1 To 4
                     For p2 = p1 + 1 To 5
                        Set ClsTerno = New ClsTernoPres
                        E = aEstr(p)
                        E1 = aEstr(p1)
                        E2 = aEstr(p2)
                        sTerno = Format2(E) & "  " & Format2(E1) & "  " & Format2(E2)
                        Call GetIncrementaTerno(sTerno,CollT,MaxFreqT)
                     Next
                  Next
               Next
            End If
         Next
         If bEstr Then
            iEstrFiltr = iEstrFiltr + 1 ' se bret è true allora aumento di uno l estrazione valida
            If IdPriEstrUti > IdEstr Then IdPriEstrUti = IdEstr ' trovo la prima estrazione utile
            If idUltEstrUti < IdEstr Then idUltEstrUti = IdEstr ' trovo l ultima estrazioneutile
         End If
      End If
      Call AvanzamentoElab(Ini,EstrazioneFin,IdEstr)
   Next ' Idestr
   ' Blocco testo dati input e output
   Scrivi " Indice Mensile selezionato:  " & sIdMese
   Scrivi " Ruota di Ricerca:            " & sRuota
   Scrivi " Anno Inizio Ricerca:         " & GetInfoEstrazione(Ini)
   Scrivi " Anno Fine Ricerca:           " & GetInfoEstrazione(EstrazioneFin)
   Scrivi " Prima Estrazione Utile:      " & GetInfoEstrazione(IdPriEstrUti)
   Scrivi " Ultima Estrazione Utile:     " & GetInfoEstrazione(idUltEstrUti)
   Scrivi " Concorsi Filtrati:           " & iEstrFiltr
   Call GetTabellaEstratti(aEstratti)
   Dim iFreqMinA
   iFreqMinA = GetFreqMin("la frequenza massima dell ambo  riscontrata ","Seleziona la frequenza minima che vuoi visualizzare",MaxFreqA)
   Call GetTabellaAmbi(Coll,ClsAmbo,iFreqMinA)
   Dim iFreqMinT
   iFreqMinT = GetFreqMin("la frequenza massima del terno riscontrata ","Seleziona la frequenza minima che vuoi visualizzare",MaxFreqT)
   Call GetTabellaTerno(CollT,ClsTerno,iFreqMinT)
   Scrivi "Tempo elaborazione dati: " & TempoTrascorso
End Sub
Function GetMessaggioApertura
   Dim Mess
   Mess = "Verificare che i dati riportati siano esatti"
   Mess = Mess & vbCrLf & "Non se ne garantisce la correttezza"
   Mess = Mess & vbCrLf & "NESSUNO E' AUTORIZZATO A VENDERE LO SCRIPT  perchè dato gratuitamente per esempio compilazione"
   Mess = Mess & vbCrLf & "Vuoi proseguire?"
   GetMessaggioApertura = MsgBox(Mess,4 + 64,"Informazioni")
End Function
Function GetPrimaDellAnno(Ini)
   GetPrimaDellAnno = False
   Dim sAnno
   Dim iAnnoFin
   iAnnoFin = Anno(EstrazioneFin)
   sAnno = CInt(InputBox("Range possibile: " & vbCrLf & "   1871-" & iAnnoFin,"Inserisci Anno Inizio Ricerca",iAnnoFin)) ' inserisco l anno di inizio ricerca
   '  If sAnno >= 1871 And sAnno <= iAnnoFin Then ' se anno è valido trovo la prima estrazione dell anno di inizio ricerca
   Ini = PrimaSuccessiva("01/01/" & sAnno)
   If isIdEstrValido(Ini) Then
      GetPrimaDellAnno = True
   Else
      Call MsgBox("il: " & sAnno & " non è in archivio" & vbCrLf & "lo script non verrà eseguito",vbOKOnly,"Errore")
   End If
End Function
Function GetIndicemensile(iIdM,sIdMese)
   GetIndicemensile = False
   Dim aIdMese
   aIdMese = Array(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,"IsUltimaDelMese")
   iIdM = ScegliOpzioneMenu(aIdMese,0,"Seleziona Indice mensile")
   If iIdM >= 0 Then
      sIdMese = aIdMese(iIdM)
      iIdM = iIdM + 1
      GetIndicemensile = True
   Else
      Call MsgBox("Hai inserito un indicemensile non valido=" & iIdM,vbOKOnly,"Errore inserimento indice mensile")
   End If
End Function
Function GetRuotaDiCalcolo(sRuota,iRuIni,iRuFin)
   GetRuotaDiCalcolo = False
   Dim r
   r = ScegliRuota
   If isRuotaValidaLotto(r) Then
      GetRuotaDiCalcolo = True
      sRuota = NomeRuota(r)
      If r <> 11 Then
         iRuIni = r
         iRuFin = r
      Else
         iRuIni = 1
         iRuFin = 10
      End If
   Else
      Call MsgBox("Hai inserito una ruota  non valida",vbOKOnly,"Errore inserimento indice Ruota")
   End If
End Function
Function ImpostaParametri(Ini,iAnnoFin,iIdM,sIdMese,sRuota,iRuIni,iRuFin)
   Dim bRet
   bRet = False
   If GetMessaggioApertura = 6 Then
      If GetPrimaDellAnno(Ini) Then
         If GetIndicemensile(iIdM,sIdMese) Then
            If GetRuotaDiCalcolo(sRuota,iRuIni,iRuFin) Then
               bRet = True
            Else
               Exit Function
            End If
         Else
            Exit Function
         End If
      Else
         Exit Function
      End If
   Else
      Exit Function
   End If
   ImpostaParametri = bRet
End Function
Function GetValidaIndicemensile(idEstr,iIdMese)
   Dim bRet
   bRet = False
   If iIdMese < 16 Then
      If IndiceMensile(idEstr) = iIdMese Then bRet = True
   Else
      If IsUltimaDelMese(idEstr) Then bRet = True
   End If
   GetValidaIndicemensile = bRet
End Function
Sub GetIncrementaAmbo(sForm,coll,maxFreq)
   Dim sKey,cNum
   sKey = "k"
   sKey = sKey & sForm
   If GetItemCollection(coll,sKey,cNum) Then
      cNum.IncrementaPres
      If maxFreq < cNum.nPres Then maxFreq = cNum.nPres
   Else
      Set cNum = New ClsAmboPres
      cNum.strAmbo = sForm
      cNum.npres = 1
      Coll.Add cNum,sKey
   End If
End Sub
Sub GetIncrementaTerno(sForm,coll,MaxFreqT)
   Dim sKey,cNum
   sKey = "k"
   sKey = sKey & sForm
   If GetItemCollection(coll,sKey,cNum) Then
      cNum.IncrementaPres
      If MaxFreqT < cNum.npres Then MaxFreqT = cNum.npres
   Else
      Set cNum = New ClsTernoPres
      cNum.StrTerno = sForm
      cNum.npres = 1
      Coll.Add cNum,sKey
   End If
End Sub
Sub GetTabellaEstratti(aEstr)
   Dim aTit,aTab
   aTit = Array(0,"Estratti","NumeroNumeri","Presenze")
   Call InitTabella(aTit)
   Dim maxFreq,iNumNum,s,Id
   Call OrdinaMatriceTurbo(aEstr,- 1,2)
   maxFreq = aEstr(1,2)
   Do While maxFreq >= aEstr(90,2)
      s = ""
      iNumNum = 0
      For Id = 1 To UBound(aEstr)
         If Int(aEstr(Id,2)) = maxFreq Then
            s = s & Format2(aEstr(Id,1)) & "  "
            iNumNum = iNumNum + 1
         End If
      Next
      '  s = RimuoviLastChr(s,"  ")
      If iNumNum Then
         ' Scrivi "  " & FormatSpace(iNumNum,9,1) & "  |  " & FormatSpace(maxFreq,3) & "    |  " & s
         aTab = Array(0,s,iNumNum,maxFreq)
         Call AddRigaTabella(aTab)
      End If
      maxFreq = maxFreq - 1
   Loop
   Call SetTableHeight("40%")
   Call SetTableWidth("100%")
   Call CreaTabellaOrdinabile()
End Sub
Function GetFreqMin(sTesto1,stesto2,freqMax)
   Dim FreqMin
   FreqMin = ""
   Do While Not IsNumeric(FreqMin)
      FreqMin = InputBox(sTesto1 & " =" & freqMax,stesto2,freqMax)
   Loop
   GetFreqMin = CInt(FreqMin)
End Function
Sub GetTabellaAmbi(coll,ClsAmbo,Fmin)
   Call OrdinaItemCollection(coll,"nPres",,,- 1)
   Dim aTit,aTab,id
   aTit = Array(0,"Ambo","Presenze")
   Call InitTabella(aTit)
   For Each ClsAmbo In coll
      If ClsAmbo.npres < Fmin Then Exit For
      id = id + 1
      aTab = Array(0,clsambo.Strambo,clsAmbo.npres)
      
      Call AddRigaTabella(aTab)
      Call AvanzamentoElab(1,Coll.count,id)
   Next
   Call SetTableHeight("40%")
   Call SetTableWidth("100%")
   Call SetTableTitle(" Formazioni trovate: " & coll.count)
   Call CreaTabellaOrdinabile()
End Sub
Sub GetTabellaTerno(collt,ClsTerno,fMin)
   Call OrdinaItemCollection(collt,"nPres",,,- 1)
   Dim aTit,aTab
   aTit = Array(0,"Terno","Presenze")
   Call InitTabella(aTit)
   For Each ClsTerno In collt
      If ClsTerno.npres < fMin Then Exit For
      aTab = Array(0,clsterno.Strterno,clsTerno.npres)
      
      Call AddRigaTabella(aTab)
   Next
   Call SetTableHeight("40%")
   Call SetTableWidth("100%")
   Call SetTableTitle(" Formazioni trovate: " & collt.count)
   Call CreaTabellaOrdinabile()
End Sub

datemi la vostra opinione e i vostri riscontri
sono importanti

 

[Xeroxs]

Per I-Legend
Intanto Ti Ringrazio davvero per la realizzazione del listato ed anche del Tempo dedicato per realizzarlo.
Come sempre da ciò che ho visto dai precedenti un ottimo lavoro anche questo.
Riporta in modo molto strutturato i risultati che vanno ben oltre le mie aspettative.
Grazie Davvero,
Da ciò che vedo i risultati sembrano esatti, nelle prossime ore avrò modo di testarne altri risultati.

 

[Xeroxs]

Per Master
In questi Giorni ho avuto modo di usare il tuo listato ed ho potuto testare il tuo ottimo lavoro,
Anche corretto nei risultati.
Grazie anche a Te.

 

[Xeroxs]

Grazie al vostro aiuto riesco a mettere in pratica le mie idee per il gioco del lotto per spunti che spero porteranno a qualche esito positivo, restando sempre con i piedi a terra so bene che bisogna avere sempre e comunque molta fortuna. Intanto mi limito a testarne l'efficacia di quanto mi viene in mente.

Ora sto cercando di Verificare esiti (a mano) nei mesi scelti cercando di fissare i colpi e non solo tutto il mese, cercando di vedere se in alcuni periodi alcuni numeri hanno più frequenze nel breve periodo.

Grazie ancora a Tutti Voi, alla Prossima.

 

[Master]

Ciao tutti
X i legend hai fatto un Megascript... complimenti!!!

Buona giornata

 

[i legend]

Grazie master
Ciao a tutti.

 

[i legend]

grazie MRK
Ciao

 

[Gabrieleno90]

======================================

SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9

======================

Ciao a Tutti ,

======================

secondo me l'utente Xeroxs vuole uno schema statistico

come le Urne Naturali di Silop per le 11 ruote del lotto classico.

Ecco un esempio delle urne naturali di silop per la lotteria VinciCasa ( che avevo a portata di mano) ===================================== Il file dell'archivio è già aggiornato all'ultima estrazione disponibile ------------------------------------------------------------------------------------------ RICERCA URNE NATURALI by Silop SU ARCHIVIO VINCICASA su 5 posizioni DALLA ESTRAZIONE NUMERO:1 ----------------------------------------------------------------------------------------all'indice / file 1219 del 11.06.2020 |-------------- quantità numeri per frequenza ------------------| Pr.| 0| 1| 2| 3| 4| 5| 6| 7| 8| 9|10|11|12|13|14|15|16|17|18|19|20|Estraz | Inizio | data | Fine | data ------------------------------------------------- 1°| | 9|12|10| 6| 2| | | 1| | | | | | | | | | | | | 21 | 1 del 09.07.2014 | 21 del 26.11.2014 2°| | 2| 6| 6| 5| 2| 8| 7| 1| | 1| 1| 1| | | | | | | | | 40 | 22 del 03.12.2014 | 61 del 02.09.2015 3°| |10|10|11| 5| 2| 2| | | | | | | | | | | | | | | 21 | 62 del 09.09.2015 | 82 del 27.01.2016 4°| | 8|11|10| 5| 6| | | | | | | | | | | | | | | | 22 | 83 del 03.02.2016 | 104 del 29.06.2016 5°| | 8| 5| 8|11| 5| 1| 1| | | | 1| | | | | | | | | | 27 | 105 del 06.07.2016 | 131 del 04.01.2017 6°| | 3| 9| 8| 7| 8| 3| 2| | | | | | | | | | | | | | 29 | 132 del 11.01.2017 | 160 del 18.07.2017 7°| | 4|12| 8| 5| 6| 3| 1| 1| | | | | | | | | | | | | 27 | 161 del 19.07.2017 | 187 del 14.08.2017 8°| | 1| | | | 5| 2| 3| 8|10| 4| 4| 1| 2| | | | | | | | 67 | 188 del 15.08.2017 | 254 del 20.10.2017 9°| | 2| 3| 8| 7| 8| 6| 2| 3| | | 1| | | | | | | | | | 37 | 255 del 21.10.2017 | 291 del 26.11.2017 10°| |11|14| 9| 6| | | | | | | | | | | | | | | | | 18 | 292 del 27.11.2017 | 309 del 14.12.2017 11°| | 2| 4| 8| 7| 9| 5| | 2| 3| | | | | | | | | | | | 36 | 310 del 15.12.2017 | 345 del 19.01.2018 12°| | 6|12| 8| 6| 4| 2| 1| 1| | | | | | | | | | | | | 25 | 346 del 20.01.2018 | 370 del 13.02.2018 13°| | 2| 4|12| 8| 7| 5| 1| | | 1| | | | | | | | | | | 32 | 371 del 14.02.2018 | 402 del 17.03.2018 14°| | 7| 6| 9| 7| 4| 5| 1| | 1| | | | | | | | | | | | 28 | 403 del 18.03.2018 | 430 del 14.04.2018 15°| | 2| 3| 4| 6| 8| 7| 4| 2| 1| 2| 1| | | | | | | | | | 42 | 431 del 15.04.2018 | 472 del 26.05.2018 16°| | 2| 7|11| 4| 8| 7| | 1| | | | | | | | | | | | | 31 | 473 del 27.05.2018 | 503 del 26.06.2018 17°| | 3| 1| 3|12|11| 5| 4| | | 1| | | | | | | | | | | 37 | 504 del 27.06.2018 | 540 del 02.08.2018 18°| | 4| 8| 5| 5| 4| 9| 4| 1| | | | | | | | | | | | | 33 | 541 del 03.08.2018 | 573 del 04.09.2018 19°| | 2| 4| 5| 5|13| 2| 6| 2| | 1| | | | | | | | | | | 38 | 574 del 05.09.2018 | 611 del 12.10.2018 20°| | 3| 2| 7| 3| 3| 8| 6| 3| 4| 1| | | | | | | | | | | 43 | 612 del 13.10.2018 | 654 del 24.11.2018 21°| | 8|10| 6| 7| 6| 1| 1| 1| | | | | | | | | | | | | 25 | 655 del 25.11.2018 | 679 del 19.12.2018 22°| | 5| 5| 8|12| 7| 3| | | | | | | | | | | | | | | 28 | 680 del 20.12.2018 | 707 del 16.01.2019 23°| | 4| 6| 4| 8| 5| 7| 5| 1| | | | | | | | | | | | | 34 | 708 del 17.01.2019 | 741 del 19.02.2019 24°| |11| 4| 7| 8| 8| 1| 1| | | | | | | | | | | | | | 25 | 742 del 20.02.2019 | 766 del 16.03.2019 25°| | 2| 3| 8| 6| 7| 5| 3| 2| 3| 1| | | | | | | | | | | 39 | 767 del 17.03.2019 | 805 del 24.04.2019 26°| | 3| 9| 4| 8| 6| 3| 5| 1| 1| | | | | | | | | | | | 33 | 806 del 25.04.2019 | 838 del 27.05.2019 27°| | 1| 7|14| 6| 4| 4| 2| 2| | | | | | | | | | | | | 31 | 839 del 28.05.2019 | 869 del 27.06.2019 28°| | 3| 9| 6| 7| 9| 4| 2| | | | | | | | | | | | | | 30 | 870 del 28.06.2019 | 899 del 27.07.2019 29°| | 3| 6| 7|10| 4| 3| 1| 5| 1| | | | | | | | | | | | 34 | 900 del 28.07.2019 | 933 del 30.08.2019 30°| | 1| 5|10| 6| 4| 6| 3| 4| | | 1| | | | | | | | | | 37 | 934 del 31.08.2019 | 970 del 06.10.2019 31°| | 1| 2| 4| 7| 4| 2| 6| 3| 6| 1| 1| 2| 1| | | | | | | | 51 | 971 del 07.10.2019 | 1021 del 26.11.2019 32°| | 6| 9| 8| 7| 4| 5| | | 1| | | | | | | | | | | | 27 | 1022 del 27.11.2019 | 1048 del 23.12.2019 33°| | 3| 1| 7|12| 4| 7| 1| 3| 2| | | | | | | | | | | | 37 | 1049 del 24.12.2019 | 1085 del 29.01.2020 34°| | 1| 4| 2| 9| 8| 7| 4| 2| 2| 1| | | | | | | | | | | 41 | 1086 del 30.01.2020 | 1126 del 10.03.2020 35°| | 8|13| 7| 8| 1| 3| | | | | | | | | | | | | | | 22 | 1127 del 11.03.2020 | 1148 del 01.04.2020 36°| | 4| 3| 5| 4|11| 6| 5| 1| | 1| | | | | | | | | | | 37 | 1149 del 02.04.2020 | 1185 del 08.05.2020 37°| 1| 4| 4| 9| 5| 4| 6| 3| 2| 2| | | | | | | | | | | | 34 | 1186 del 09.05.2020 | in corso all'indice 1219 del 11.06.2020 ITALIA - VINCICASA Num in attesa di sortita SETTORE 0 [37° Urna ] N. 1 : 40- Num in attesa di sortita SETTORE 1 [37° Urna ] N. 4 : 14-27-34-39- Num in attesa di sortita SETTORE 2 [37° Urna ] N. 4 : 04-06-28-32- Num in attesa di sortita SETTORE 3 [37° Urna ] N. 9 : 03-10-12-23-30-31-35-36-38- Num in attesa di sortita SETTORE 4 [37° Urna ] N. 5 : 08-16-20-26-37- Num in attesa di sortita SETTORE 5 [37° Urna ] N. 4 : 01-11-21-22- Num in attesa di sortita SETTORE 6 [37° Urna ] N. 6 : 07-13-15-17-19-25- Num in attesa di sortita SETTORE 7 [37° Urna ] N. 3 : 18-24-33- Num in attesa di sortita SETTORE 8 [37° Urna ] N. 2 : 02-05- Num in attesa di sortita SETTORE 9 [37° Urna ] N. 2 : 09-29- Num in attesa di sortita SETTORE 10 [37° Urna ] N. 0 : ======================================= La seconda parte è quella che potrebbe essere la richiesta di Xeroxs. ====================== Buona giornata a tutto il forum. ====================== A presto Silop PS: Inserisco anche una immagine della seconda parte : ===================== ======================

Salve Silop, volevo chiederti, se hai qualche script per vincicasa?