Spazio Script in VbNet Per LottoProjectLB

Mike58 · 1 Febbraio 2022

Richiesta di Fillotto, la metto anche qui in quanto anche se lo script è semplice nel sua progettualità, sono stati utilizzati le posizioni di Ritardo su Ruota Tutte e con dei codici molto + potenti del loro utilizzo progettuale.
fate vobis per utilizzo e sviluppi superiori.

P,s, i codici sono nella cartella esempi by LuigiB

Codice:

Class Script
    Sub Main
        'inserire qui il proprio codice...
        Dim ItmCol As ClsColonnaSviluppo
        Dim coll As Collection
        Dim ru(1),rit,max,fre,pre,incr,ini,fin,pos(),a  As Integer
        Dim T() As String
        Dim aPos() As Boolean
        ini = 1
        fin = EstrazioniArchivio
        T = {"Combinazione"," Rit Corr "," Rit Max "," IncrMax "," Pos1 "," Pos2 "," Pos3 "," Pos4 "," Pos5 "}
        Call InitTabella(T,ColoreVerde,,,ColoreBianco )
        ru(1) = 12
        coll = SviluppoCombInMemoria( GetNumPerSviluppo(90) ,1,0 )
        For Each ItmCol In coll
            For p  As Integer = 1 To 5
                ReDim aPos(5)
                aPos(p) = True
                a = SerieRitardo (ItmCol.aN ,ru,1,fin ,aPos,,ini )
                ReDim Preserve pos(p)
                pos(p) = a
            Next
            SerieStat (ItmCol.aN,ru,1,rit,max,fre,pre,incr,ini,fin )
            T = { StringaNumeri(ItmCol.aN) ,rit ,max,incr,pos(1),pos(2) ,pos(3),pos(4),pos(5)  }
            Call AddRigaTabella(T)
            Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
            For x1 As Integer = 4 To 8
                Call SetColoreCellaRighe((x1),ColoreRosa,ColoreNero)
                If T(1) = T(x1) Then Call SetColoreCellaRighe((x1),ColoreVerde,ColoreBianco)
            Next
            'Scrivi ( StringaNumeri ( ItmCol.aN) & vbTab & fre )
        Next
        CreaTabella
    End Sub
End Class

Combinazione	Rit Corr 5	Rit Max	Pos1	Pos2	Pos3	Pos4	Pos5
27	13	17	30	14	14	13	18
80	8	16	10	21	13	8	24
61	7	22	13	14	19	8	7
70	6	15	6	12	13	11	10
53	6	15	17	10	12	10	6

LuigiB · 1 Febbraio 2022

Mike ti stai sbizzarrendo .. bravo...

Mike58 · 1 Febbraio 2022

Proverbio antico ......

Uno script al giorno
toglie
il medico di torno.

Zetrix · 1 Febbraio 2022

mike ho scritto For R = 1 To 12 perche vorrei visualizzare un altra riga a tutte
e la riga a tutte la visualizza ma ce un problema i numeri scritti nella riga
a tutte non corripondono ai numeri con piu rit a tutte
sembra che visualizza i numeri dei primi ritardatari di ogni ruota
come si dovrebbe scrivere per visualizzare i primi 10 numeri ritardatari a tutte ?
esempio ce il num 27 che rit da 14 estr a tt eppure nella riga a tt non scrive il 27

Zetrix · 1 Febbraio 2022

mike ti allego lo script poi vedi che si puo fare

Codice:

Class Script
    Sub Main()
        Dim Ini,Fin As Integer
        Dim R,P,E(10),Rit(10) As Integer
        Dim T(),aT1(),aT2()  As String ' dimensione stringa per Tabelle
        Ini = 1
        Fin = EstrazioniArchivio
        Scrivi (FormatSpace(" ",58),1,,RGB(0,117,234),RGB(236,255,245),120)
        Scrivi (Space(5) & "  tabella aggiornata al  " & DataEstrazione(Fin) & Space(20),1,,RGB(0,117,234),ColoreBianco,120)
        Scrivi (FormatSpace(" ",58),1,,RGB(0,117,234),RGB(236,255,245),120)
        Scrivi ()
        '---------------------------- Titolo Tabella ---------------------------------------------
        T = { "Ruota"," Rit1 "," Rit2 "," Rit3 "," Rit4 "," Rit5 "," Rit6 "," Rit7 "," Rit8 "," Rit9 "," Rit10 " }
        Call InitTabella(T)
        '-----------------------------------------------------------------------------------------
        For R = 1 To 12
            For P = 1 To 10 ' Quì Impongo Quanti Ritardatari ---> Se Cambi Modificare anche sotto
                E(P)  = NumeroPosRit(Fin,R,P)
                Rit(P) = EstrattoRitardo(E(P) ,R,Fin )
            Next
            '--------------------------- AddRigatabella 1 ------------------------------------------------------
            aT1 = { NomeRuota(R), E(1),E(2) ,E(3) ,E(4) ,E(5),E(6) ,E(7) , E(8) ,E(9) ,E(10)  }
            Call AddRigaTabella (aT1)
            For x1 As Integer = 2 To 10
                If Rit(x1) > 0 Then Call SetColoreCellaRighe((x1),ColoreVerde,ColoreGiallo )
        
           For x11 As Integer = 1 To 1
                If Rit(x11)  > 0 Then Call SetColoreCellaRighe((x11),ColoreBlu,ColoreGiallo )
            Next
            Next

            '...........................AddRigatabella 2 .......................................................
            aT2 = { "  " , Rit(1),Rit(2),Rit(3),Rit(4),Rit(5),Rit(6) , Rit(7) ,Rit(8) ,Rit(9) ,Rit(10) }
            Call AddRigaTabella(aT2)
            For x2 As Integer = 0 To 10
                If Rit(x2) > 99 Then Call SetColoreCellaRighe((x2),ColoreRosso,ColoreGiallo)
                If Rit(x2) < = 99 Then Call SetColoreCellaRighe((x2),ColoreGiallo,ColoreVerde)
            Next
            '----------- colora 2 valori uguali ----------------------------------------------------
                For y1 As Integer  = 0 To 9
                For y2 As Integer  = y1 +1 To 10
                    If aT2 (y1) = aT2(y2) Then Call SetColoreCellaRighe( (y1),ColoreMagenta,ColoreGiallo)
                    If aT2 (y2) = aT2(y1) Then Call SetColoreCellaRighe( (y2),ColoreMagenta,ColoreGiallo)
                Next
            Next
            '-----------------------------------------------------------------------------------------
            '---------------------------------------------------------------------------------------------------
        Next
        CreaTabella ' creatabella
    End Sub
End Class

Mike58 · 2 Febbraio 2022

Ciao Zetrix , il codice NumeroPosRit agisce solo sulle ruote 1 to 11 e non agisce sulla ruota tutte 12.
Devi ingegnarti in altro modo per il ritardo a tutte.
Ciao

Zetrix · 2 Febbraio 2022

Ciao Mike , infatti la ruota 12 tutte non visualizza in modo corretto i rit
come ai detto anche te non agisce sulla ruota tutte 12
stavo vedendo questo script e le funzioni sono molte diverse da SpazoLight
forse bisogna scrivere un For n = 1 To 90 e poi fare la statistica a tutte
da 1 a 90 dato che la ruota tutte e una ruota a se ed e diversa dalle altre ruote
intanto continuo a fare altre prove ma non lo so se ci riuscirò perche come ti ho detto
le funzioni script in SpazioLight sono molte diverse da SpazioMetria

Codice:

Sub Main
   Dim Ini,Fin
   Dim Num(1),Titoli,Valori
   Dim Ruote
   '-----------------------------------> Range Estrazioni = Così Analizzi Tutte le Estrazioni
   Ini = EstrazioneIni
   Fin = EstrazioneFin
 
   '-----------------------------------> Scelgo Le Ruote
   ReDim R(0)
   Ruote = ScegliRuote(R)
    '--------------------------------------------------------------------------------------------- Creo dati Tabella
   Titoli = Array(Titoli,"Numeri","Rit.Tu.","Rit.Max","Data","Freq")
   Call InitTabella(Titoli,,,4,0,"Bauhaus 93")
   '----------------------------------------------------------------------------------------------- Intestazione
   Scrivi "Ruote scelte ---> " & StringaRuote(R),1,,,,3
   Scrivi
   '----------------------------------------------------------------------------------------------- Calcoli statistici
   For n = 1 To 90
      Num(1) = n
      Call StatisticaFormazione(Num,R,1,rit,max,DataEstrazione(Fin),fre,Ini,Fin)
      Valori = Array(Valori,StringaNumeri(Num),rit,max,DataEstrazione(Fin),fre)
      Call AddRigaTabella(Valori,,,4,0)
     
      If n Then Call SetColoreCella(1,vbGreen)
      If rit > 11 Then Call SetColoreCella(2,vbRed)
      If max > 13 Then Call SetColoreCella(3,vbYellow)
      If fre > 1000 Then Call SetColoreCella(5,vbCyan)
   


   
   Next
   '--------------------------------------------------------------- Tabella
   'Call SetTableHeight("65%")
   Call SetTableWidth("25%")
   'Call CreaTabella(2)' Ordina per Ritardo = 2° Colonna
   Call CreaTabella(2,,,11)
   'Call CreaTabella(5)' Ordina per Frequenza = 5 ° Colonna
End Sub

Zetrix · 2 Febbraio 2022

MIKE ho provato in questo modo ma mi da errore lo script

Codice:

Class Script
    Sub Main()
        Dim Ini,Fin As Integer
        Dim R,P,N,E(10),Rit(10) As Integer
        Dim T(),aT1(),aT2(),aT3()  As String ' dimensione stringa per Tabelle
        Ini = 1
        Fin = EstrazioniArchivio
        Scrivi (FormatSpace(" ",58),1,,RGB(0,117,234),RGB(236,255,245),120)
        Scrivi (Space(5) & "  tabella aggiornata al  " & DataEstrazione(Fin) & Space(20),1,,RGB(0,117,234),ColoreBianco,120)
        Scrivi (FormatSpace(" ",58),1,,RGB(0,117,234),RGB(236,255,245),120)
        Scrivi ()
        '---------------------------- Titolo Tabella ---------------------------------------------
        T = { "Ruota"," Rit1 "," Rit2 "," Rit3 "," Rit4 "," Rit5 "," Rit6 "," Rit7 "," Rit8 "," Rit9 "," Rit10 " }
        Call InitTabella(T)
        '-----------------------------------------------------------------------------------------
        For R = 1 To 11
        For R = 12 To 12
        For N = 1 To 90
            For P = 1 To 10 ' Quì Impongo Quanti Ritardatari ---> Se Cambi Modificare anche sotto
                E(P)  = NumeroPosRit(Fin,R,P)
                Rit(P) = EstrattoRitardo(E(P) ,R,Fin )
                N(P) = NumeroPosRit(Fin,R,P)
                Rit(N) = EstrattoRitardo(N(P) ,R,Fin )
            Next
Next
Next

            '--------------------------- AddRigatabella 1 ------------------------------------------------------
            aT1 = { NomeRuota(R), E(1),E(2) ,E(3) ,E(4) ,E(5),E(6) ,E(7) , E(8) ,E(9) ,E(10)  }
            Call AddRigaTabella (aT1)
            aT3 = { NomeRuota(R), N(1),N(2) ,N(3) ,N(4) ,N(5),N(6) ,N(7) , N(8) ,N(9) ,N(10)  }
            Call AddRigaTabella (aT3)
            For x1 As Integer = 2 To 10
                If Rit(x1) > 0 Then Call SetColoreCellaRighe((x1),ColoreVerde,ColoreGiallo )
        
           For x11 As Integer = 1 To 1
                If Rit(x11)  > 0 Then Call SetColoreCellaRighe((x11),ColoreBlu,ColoreGiallo )
            Next
            Next

            '...........................AddRigatabella 2 .......................................................
            aT2 = { "  " , Rit(1),Rit(2),Rit(3),Rit(4),Rit(5),Rit(6) , Rit(7) ,Rit(8) ,Rit(9) ,Rit(10) }
            Call AddRigaTabella(aT2)
            For x2 As Integer = 0 To 10
                If Rit(x2) > 99 Then Call SetColoreCellaRighe((x2),ColoreRosso,ColoreGiallo)
                If Rit(x2) < = 99 Then Call SetColoreCellaRighe((x2),ColoreGiallo,ColoreVerde)
            Next

 
           '----------- colora 2 valori uguali ----------------------------------------------------
                For y1 As Integer  = 0 To 9
                For y2 As Integer  = y1 +1 To 10
                    If aT2 (y1) = aT2(y2) Then Call SetColoreCellaRighe( (y1),ColoreMagenta,ColoreGiallo)
                    If aT2 (y2) = aT2(y1) Then Call SetColoreCellaRighe( (y2),ColoreMagenta,ColoreGiallo)
                Next
            Next
            '-----------------------------------------------------------------------------------------
            '---------------------------------------------------------------------------------------------------
        Next
        CreaTabella ' creatabella
    End Sub
End Class

LuigiB · 2 Febbraio 2022

ciao con il nuovo aggiornamento NumPosRit gli si puo passare sia la ruota tuttte (12) sia un vettore con piu ruote considerate unite.

Zetrix · 2 Febbraio 2022

grazie Luigi del nuovo aggiornamento adesso la tabella e ok
ma non so perche alla ruota tutte scrive due volte il num 16
allora per giovedi ci giochiamo il num 16

Mike58 · 2 Febbraio 2022

Zetrix, bene per gli interventi brevi ed attinenti.
Questo mio spazio dovrebbe servire per una raccolta script in vbnet per una facile ricerca ed anche per vedere come usato un determinato codice come test.

Ti pregerei (altrimenti il post si intasa) di aprire un altro post per le varie domande a me , luigi ed altri.
e comunque nel tuo script di trasformazione se leggi gli errori che il debug ti da , potresti capire cosa e dove intervenire.

Ciao

Zetrix · 2 Febbraio 2022

OK Mike va bene e scusami se sono stato un po invasivo nei tuoi post
ma volevo completare la tabella per gli errori ho visto che le evidenzia
in debug allora quanto avrò una richiesta da fare la scriverò in un post
attinente alla richiesta.buon lavoro

Ciao

i legend · 2 Febbraio 2022

Bravo Mike, concordo con Luigi , vai alla grandissima. Mi spiace averti lasciato solo, in questa impresa, ma al momento non ce la faccio. Ho cominciato un programma che se tutto vs bene nei prossimi 3 mesi , se mi impegno costantemente dovrebbe dare i suoi frutti e dovrei stare bene.
Speriamo

Vi seguo

Mike58 · 2 Febbraio 2022

Ciao legend ti auguro che tutto vada per il meglio è chiaro che il tuo apporto anche qui è importante.
Intanto seguici e quando avrai il giusto spazio e tempo i tuoi interventi saranno sicuramente di supporto.

Mike58 · 3 Febbraio 2022

Grazie ai nuovi codici immessi da Luigi
ecco uno script che evidenzia la Posizione di Ritardo

Codice:

Class Script
    Sub Main
        Dim Nu(5),aP(5),Ru(1),Rit(5) As Integer
        Dim x , p , r , k1 ,k2 , es As Integer
        Dim Ini As Integer = EstrazioniArchivio  - 1
        Dim fin As Integer = EstrazioniArchivio
        Dim T() , V() As String
        T = {" Ruota "," E1 "," E2 "," E3 "," E4 "," E5" ," Ruota ","Rit1","Rit2","Rit3","Rit4","Rit5"," Ruota ","Pos1","Pos2","Pos3",",Pos4","pos5"}
        For es = fin To Ini Step - 1
            Call InitTabella(T,ColoreVerde,,,ColoreBianco)
            For r = 1 To 11
                Ru(1) = r
                For p = 1 To 5
                    Nu(p) = Estratto(es,r,p)
                    'aP(p) = Estratto(es,r,p)
                    aP(p) = PosNumeroRit (es - 1,r,Nu(p))
                    Rit(p) = EstrattoRitardo(Nu(p),r,es - 1)
                Next
                V = {NomeRuota(r),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),NomeRuota(r),Rit(1),Rit(2),Rit(3),Rit(4),Rit(5),nomeruota(r),aP(1),aP(2),aP(3),aP(4),aP(5) }
                Call AddRigaTabella(V)
                For x = 1 To 5
                    If aP(x) < 6 Then Call SetColoreCellaRighe ((x + 12),Coloreverde ,ColoreBianco)
                    'If aP(x) > 85 Then Call SetColoreCellaRighe ((x + 0),ColoreNero,ColoreBianco )
                    If aP(x) < 6 Then k1 = k1 + 1
                    If Rit(x) = 0 Then k2 = k2 + 1
                    If ap(x) < 6 Then Call SetColoreCellaRighe ((x + 0),Coloreverde ,ColoreBianco)
                    If Rit(x) = 0 Then Call SetColoreCellaRighe ((x + 0),ColoreMagenta ,ColoreBianco )
                    If aP(x) < 6 Then Call SetColoreCellaRighe ((x + 6),ColoreVerde ,ColoreBianco )
                    If Rit(x) = 0 Then Call SetColoreCellaRighe ((x + 6),ColoreMagenta ,ColoreBianco)
                    Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
                    Call SetColoreCellaRighe(6,ColoreVerde,ColoreBianco)
                    Call SetColoreCellaRighe(12,ColoreVerde,ColoreBianco)
                Next
            Next
            Scrivi (GetInfoEstrazione(es) & Space(5) & "Q.tà Ritardari " & k1 & Space(5) & "Ripetuti a Zero " & k2,1)
            k1 = 0
            k2 = 0
            CreaTabella
        Next
    End Sub
End Class

10037 - 170 - 01/02/2022 Q.tà Ritardari 4 Ripetuti a Zero 5

Ruota	E1	E2	E3	E4	E5	Ruota	Rit1	Rit2	Rit3	Rit4	Rit5	Ruota	Pos1	Pos2	Pos3	,Pos4	pos5
Ba	6	1	61	23	24	Ba	3	3	14	0	49	Ba	74	72	36	87	6
Ca	74	70	2	56	36	Ca	33	10	2	11	1	Ca	16	50	80	48	84
Fi	44	75	11	56	21	Fi	26	14	20	3	40	Fi	15	38	24	75	8
Ge	29	73	83	36	76	Ge	17	9	16	27	3	Ge	31	55	34	15	77
Mi	82	90	64	9	37	Mi	100	30	43	2	17	Mi	1	17	11	78	36
Na	68	20	84	13	12	Na	0	21	3	45	34	Na	87	28	73	8	13
Pa	57	39	82	72	49	Pa	16	15	0	14	27	Pa	36	38	89	42	20
Rm	24	60	76	73	44	Rm	5	14	37	52	22	Rm	64	40	10	4	27
To	19	54	55	71	4	To	14	4	20	0	10	To	42	72	27	86	52
Ve	86	30	52	56	33	Ve	9	3	57	18	19	Ve	56	73	3	31	28
Nz	44	3	13	16	40	Nz	19	0	19	1	52	Nz	31	87	30	83	3

fillotto · 3 Febbraio 2022

Mannaggia non riesco a capire i numeri indicati nella terza tabella
es:

uota	E1	E2	E3	E4	E5	Ruota	Rit1	Rit2	Rit3	Rit4	Rit5	Ruota	Pos1	Pos2	Pos3	,Pos4	pos5
Ba	6	1	61	23	24	Ba	3	3	14	0	49	Ba	74	72	36	87	6

Io leggo così il primo est. di BA (6) ha un ritardo nella stessa ruota di BA di (3) fin qui OK! ma quel 74 pos 1 della tera tab non riesco a correlarlo al 6

come si conta mi spiegate? Ossia cosa rappresenta?

Mike58 · 3 Febbraio 2022

Fill la terza tabella e la posizione di Ritardo
come puoi vedere 82 a Milano era il + ritardatario e quindi 1° posizione di ritardo.

Mike58 · 3 Febbraio 2022

si Continua con altri codici
Qui potete poi voi sbizzarrirvi se avete capito l'utilizzo dei codici.

Codice:

Class Script
    Sub Main
        Dim aNum(),Ru(1) As Integer
        Dim T(),V() As String
        Dim q,r,k,sf,sr,x ,k1,k2,sp    As Integer
        Dim Ini As Integer = EstrazioniArchivio - 540
        Dim fin As Integer = EstrazioniArchivio
        Dim aUscite(),esito ,esitoR,aUsciteR()  As String
        Dim rigo As Integer
        Dim pNumOrd() As STRUCT_VALORI_STAT_ESTRATTO
        Dim PNum() As STRUCT_VALORI_STAT_ESTRATTO
        q = 10
        Scrivi (q & " Combinazioni + Frequenti per Ruota sorte Minima Terno " & " **** Tabella By Mike58 ****",1)
        T = {"Ruota",q & " Combinazione + freq"," Q.tà sortiti "," Ultima Sortita "," Seriefrequenza "," SeriePresenza ", " SerieRitardo  ", " Esito al Ritardo "," Data Sortita "}
        Call InitTabella(T,,,90)
        For r = 1 To 11
            Ru(1) = r
            PNum = StatEstratti(Ini,fin,r,,pNumOrd,"Frequenza",-1)
            For k  = 1 To q
                ReDim Preserve aNum (k)
                aNum(k) = pNumOrd(k).Numero
                sf = SerieFrequenza  (aNum,Ru,3,Ini,fin)
                sp = SeriePresenza (aNum,Ru,3,Ini,fin)
                sr = SerieRitardo (aNum,Ru,3,fin,,,Ini)
                If EstrattoFrequenza(aNum(k),r,1,fin,fin) = 1 Then
                    k1 +=1
                End If
                esito = "--"
                If VerificaEsito(aNum ,Ru,1,fin,,,,aUscite) Then
                    For k2 = 0 To aUscite.GetUpperBound(0)
                        If aUscite(k2)  <> "" Then esito = aUscite(k2)
                    Next
                End If
                If VerificaEsito (aNum,Ru,3,fin-sr,,,,aUsciteR) Then
                    For k3 As Integer  = 0 To aUsciteR.GetUpperBound(0)
                        If aUsciteR(k3) <> "" Then esitoR = aUsciteR(k3)
                    Next
                End If
            Next
            V = {NomeRuota(r),StringaNumeri(aNum,,1), NomeSorte(k1,False) ,esito,sf, sp ,sr ,esitoR ,DataEstrazione( fin-sr ) }
            Call AddRigaTabella(V)
            k1 = 0
        Next
        CreaTabella
    End Sub
End Class

10 Combinazioni + Frequenti per Ruota sorte Minima Terno **** Tabella By Mike58 ****

Ruota	10 Combinazione + freq	Q.tÃ sortiti	Ultima Sortita	Seriefrequenza	SeriePresenza	SerieRitardo	Esito al Ritardo	Data Sortita
Ba	49.56.84.54.26.88.30.51.15.16		--	10	10	27	Ba 26.16.--.54.--	30/11/2021
Ca	56.13.70.21.63.09.81.19.16.50	Ambo	Ca --.70.--.56.--	11	11	13	Ca 56.--.09.13.--	03/01/2022
Fi	63.47.60.61.35.76.77.86.12.46		--	22	13	126	Fi 35.--.--.12.46	13/04/2021
Ge	10.28.40.20.01.69.42.67.47.63		--	29	20	53	Ge 40.10.--.--.20	30/09/2021
Mi	15.13.77.80.40.48.38.14.78.23		--	9	9	1	Mi 14.15.--.77.--	29/01/2022
Na	77.74.41.42.89.56.09.19.32.79		--	18	9	8	Na --.41.74.--.56	13/01/2022
Pa	30.79.65.39.54.25.90.81.58.82	Ambo	Pa --.39.82.--.--	18	12	44	Pa 79.65.90.--.--	21/10/2021
Rm	62.34.13.45.59.50.82.78.90.35		--	17	11	40	Rm 82.--.45.59.--	30/10/2021
To	53.81.74.69.31.85.66.01.51.18		--	16	10	7	To 85.18.66.81.--	15/01/2022
Ve	34.76.80.53.29.45.78.38.32.90		--	24	15	36	Ve 53.--.80.29.--	09/11/2021
Nz	25.07.46.02.64.52.31.43.45.86		--	8	8	1	Nz 52.--.86.07.--	29/01/2022

fillotto · 3 Febbraio 2022

Quest'ultimo script mi butta fuori

rudivall · 3 Febbraio 2022

anche a me Mike58...

Combinazione	Rit Corr 5	Rit Max	Pos1	Pos2	Pos3	Pos4	Pos5
27	13	17	30	14	14	13	18
80	8	16	10	21	13	8	24
61	7	22	13	14	19	8	7
70	6	15	6	12	13	11	10
53	6	15	17	10	12	10	6

Ruota	E1	E2	E3	E4	E5	Ruota	Rit1	Rit2	Rit3	Rit4	Rit5	Ruota	Pos1	Pos2	Pos3	,Pos4	pos5
Ba	6	1	61	23	24	Ba	3	3	14	0	49	Ba	74	72	36	87	6
Ca	74	70	2	56	36	Ca	33	10	2	11	1	Ca	16	50	80	48	84
Fi	44	75	11	56	21	Fi	26	14	20	3	40	Fi	15	38	24	75	8
Ge	29	73	83	36	76	Ge	17	9	16	27	3	Ge	31	55	34	15	77
Mi	82	90	64	9	37	Mi	100	30	43	2	17	Mi	1	17	11	78	36
Na	68	20	84	13	12	Na	0	21	3	45	34	Na	87	28	73	8	13
Pa	57	39	82	72	49	Pa	16	15	0	14	27	Pa	36	38	89	42	20
Rm	24	60	76	73	44	Rm	5	14	37	52	22	Rm	64	40	10	4	27
To	19	54	55	71	4	To	14	4	20	0	10	To	42	72	27	86	52
Ve	86	30	52	56	33	Ve	9	3	57	18	19	Ve	56	73	3	31	28
Nz	44	3	13	16	40	Nz	19	0	19	1	52	Nz	31	87	30	83	3

Combinazione	Rit Corr 5	Rit Max	Pos1	Pos2	Pos3	Pos4	Pos5
27	13	17	30	14	14	13	18
80	8	16	10	21	13	8	24
61	7	22	13	14	19	8	7
70	6	15	6	12	13	11	10
53	6	15	17	10	12	10	6

Ruota	E1	E2	E3	E4	E5	Ruota	Rit1	Rit2	Rit3	Rit4	Rit5	Ruota	Pos1	Pos2	Pos3	,Pos4	pos5
Ba	6	1	61	23	24	Ba	3	3	14	0	49	Ba	74	72	36	87	6
Ca	74	70	2	56	36	Ca	33	10	2	11	1	Ca	16	50	80	48	84
Fi	44	75	11	56	21	Fi	26	14	20	3	40	Fi	15	38	24	75	8
Ge	29	73	83	36	76	Ge	17	9	16	27	3	Ge	31	55	34	15	77
Mi	82	90	64	9	37	Mi	100	30	43	2	17	Mi	1	17	11	78	36
Na	68	20	84	13	12	Na	0	21	3	45	34	Na	87	28	73	8	13
Pa	57	39	82	72	49	Pa	16	15	0	14	27	Pa	36	38	89	42	20
Rm	24	60	76	73	44	Rm	5	14	37	52	22	Rm	64	40	10	4	27
To	19	54	55	71	4	To	14	4	20	0	10	To	42	72	27	86	52
Ve	86	30	52	56	33	Ve	9	3	57	18	19	Ve	56	73	3	31	28
Nz	44	3	13	16	40	Nz	19	0	19	1	52	Nz	31	87	30	83	3

Spazio Script in VbNet Per LottoProjectLB

Advanced Member >PLATINUM PLUS<

LuigiB

Guest

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

LuigiB

Guest

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Combinazione	Rit Corr 5	Rit Max	Pos1	Pos2	Pos3	Pos4	Pos5
27	13	17	30	14	14	13	18
80	8	16	10	21	13	8	24
61	7	22	13	14	19	8	7
70	6	15	6	12	13	11	10
53	6	15	17	10	12	10	6

Ruota	E1	E2	E3	E4	E5	Ruota	Rit1	Rit2	Rit3	Rit4	Rit5	Ruota	Pos1	Pos2	Pos3	,Pos4	pos5
Ba	6	1	61	23	24	Ba	3	3	14	0	49	Ba	74	72	36	87	6
Ca	74	70	2	56	36	Ca	33	10	2	11	1	Ca	16	50	80	48	84
Fi	44	75	11	56	21	Fi	26	14	20	3	40	Fi	15	38	24	75	8
Ge	29	73	83	36	76	Ge	17	9	16	27	3	Ge	31	55	34	15	77
Mi	82	90	64	9	37	Mi	100	30	43	2	17	Mi	1	17	11	78	36
Na	68	20	84	13	12	Na	0	21	3	45	34	Na	87	28	73	8	13
Pa	57	39	82	72	49	Pa	16	15	0	14	27	Pa	36	38	89	42	20
Rm	24	60	76	73	44	Rm	5	14	37	52	22	Rm	64	40	10	4	27
To	19	54	55	71	4	To	14	4	20	0	10	To	42	72	27	86	52
Ve	86	30	52	56	33	Ve	9	3	57	18	19	Ve	56	73	3	31	28
Nz	44	3	13	16	40	Nz	19	0	19	1	52	Nz	31	87	30	83	3