Spazio Script in VbNet Per LottoProjectLB

Mike58 · 28 Gennaio 2022

Grazie Nikor,lo spazio vuole essere solo una guida e un modo di operare su come si possono utilizzare i codici e che in alcuni casi è molto diverso dal vbscript.
Quindi i miei script oltre ad una analisi di un progetto vuole essere un Test per i codici e come si potrebbero usare.

Ciao a tutti quelli che mi seguono e soprattuttoun grazie a Rudivall per tutti i Like

Mike58 · 29 Gennaio 2022

Giusto per dare un valore e un ritorno al lavoro di LuigiB
test codice statistica formazione Gruppo o meglio ClsLunghette
uno script sugli ambetti formati da un ambo vertibile.

Codice:

Class Script
    Sub Main
        Dim cLung As ClsLunghette
        Dim aRuote() As Integer, Sorte As Integer, Inizio As Integer, Fine As Integer
        Dim n1 , n2  As Integer
        Dim aN() As Integer
        Dim T () As String
        If ScegliRange ( Inizio , Fine ) Then
            If ScegliRuote (aRuote ) Then
                Sorte = 2
                If Sorte > 0 Then
                    Scrivi ("Verifica Statistiche su Gruppo Ambetti derivati da ambo vertibile *** Ruote Analizzate : " & ArrayRuoteToString(aRuote)  ,1)
                    T = {" Ambo Vertibile "," Ambetti "," Ritardo "," RitMax "," IncrMax "," Frequenza "," Presenza "," Estraz.Esaminate "}
                    Call InitTabella(T,ColoreVerde,,,ColoreBianco )
                    For n1 = 1 To 90
                        n2 = Vertibile (n1)
                        If n2 > n1 Then
                            cLung = New ClsLunghette
                            cLung.Init(aRuote,Sorte,Inizio,Fine , GetClsArchivio)
                            '------------------------------------------------------------------------------
                            'scrivi (n1 & "-" & n2,1)
                            ReDim aN(2)
                            aN(1) = n1
                            aN(2) = n2-1
                            cLung.AddNumeri (aN)
                            ReDim aN(2)
                            aN(1) = n1
                            aN(2) = FuoriX(n2+1,90)
                            cLung.AddNumeri (aN)
                            ReDim aN(2)
                            aN(1) = FuoriX(n1-1,90)
                            aN(2) = n2
                            cLung.AddNumeri (aN)
                            ReDim aN(2)
                            aN(1) = n1+1
                            aN(2) = n2
                            cLung.AddNumeri (aN)
                            cLung.CalcolaStatistica
                            T = {n1 & "-" & n2,Replace(cLung.GetStringaLunghette, vbCrLf , "<br>") ,cLung.ritardo ,cLung.ritardoMax,cLung.IncrementoRitMax,cLung.Frequenza,cLung.Presenze,cLung.EstrazioniEsaminate}
                            Call AddRigaTabella(T)
                            'Scrivi ( Replace(cLung.GetStringaLunghette, vbCrLf , "<br>")) '  per mettere le righe una sotto l'altra ci vule il tag <BR>
                            'Scrivi ()
                            'Scrivi ("Ritardo          : " & cLung.ritardo )
                            'Scrivi ("RitardoMax       : " & cLung.ritardoMax )
                            'Scrivi ("IncrementoRitMax : " & cLung.IncrementoRitMax )
                            'Scrivi ("Frequenza        : " & cLung.Frequenza )
                            'Scrivi ("Presenze         : " & cLung.Presenze )
                            'Scrivi ("EstrEsam         : " & cLung.EstrazioniEsaminate )
                        End If
                    Next
                    '-----------------------
                End If
            End If
        End If
        CreaTabella
    End Sub
End Class

Verifica Statistiche su Gruppo Ambetti derivati da ambo vertibile *** Ruote Analizzate : Ba

Ambo Vertibile	Ambetti	Ritardo	RitMax	Frequenza	Presenza	Estraz.Esaminate
1-10	01.09 01.11 90.10 02.10	317	343	90	90	9862
2-20	02.19 02.21 01.20 03.20	31	382	100	100	9862
3-30	03.29 03.31 02.30 04.30	54	595	113	113	9862

Mike58 · 30 Gennaio 2022

Usiamo 2 codici potenti
GetNumeriRuote in matrice Integer
con
il codice Posizione
per Ricavare 2 quaterne uguali su 2 Ruote.

Codice:

Class Script
    Sub Main
        'Quaterna uguale super veloce
        Dim aNumEstraz ( ,) As Integer
        Dim Nu(4),ru(2) As Integer
        Dim Ini As Integer = 3950'EstrazioniArchivio  - 1600
        Dim fin As Integer = EstrazioniArchivio
        Dim es , r1,r2,p1,p2,p3,p4,k As Integer
        Dim T() As String
        T = {" Caso n. "," Data Rilevamento "," Ruote "," Quaterna Uguale " }
        Call InitTabella(T)
        For es = fin To Ini Step - 1
            ReDim aNumEstraz(11,5)
            Call GetNumeriRuote (es,aNumEstraz)
            For r1 = 1 To 10
                For r2 = r1 + 1 To 11
                    For p1 = 1 To 2
                        For p2 = p1 + 1 To 3
                            For p3 = p2 + 1 To 4
                                For p4 = p3 + 1 To 5
                                    If Posizione(es,r2,aNumEstraz(r1,p1)) Then
                                        If Posizione(es,r2,aNumEstraz(r1,p2)) Then
                                            If Posizione(es,r2,aNumEstraz(r1,p3)) Then
                                                If Posizione(es,r2,aNumEstraz(r1,p4)) Then
                                                    k = k + 1
                                                    Nu(1) = aNumEstraz(r1,p1)
                                                    Nu(2) = aNumEstraz(r1,p2)
                                                    Nu(3) = aNumEstraz(r1,p3)
                                                    Nu(4) = aNumEstraz(r1,p4)
                                                    ru(1) = r1
                                                    ru(2) = r2
                                                    T = { k,GetInfoEstrazione(es),ArrayRuoteToString(ru),StringaNumeri(Nu) }
                                                    Call AddRigaTabella(T)
                                                End If
                                            End If
                                        End If
                                    End If
                                Next
                            Next
                        Next
                    Next
                Next
            Next
        Next
        CreaTabella
    End Sub
End Class

Caso n.	Data Rilevamento	Ruote	Quaterna Uguale
1	9679 - 108 - 07/09/2019	Ba.Rm	90.19.30.26
2	7965 - 116 - 25/09/2008	Ca.Ge	73.28.17.70
3	7305 - 5 - 17/01/2004	Fi.Na	2.4.58.30
4	6932 - 56 - 12/07/2000	Ba.Mi	84.56.43.14
5	4504 - 17 - 27/04/1957	Ge.Rm	78.20.30.55

Zetrix · 30 Gennaio 2022

Ciao Mike posso chiedere una cosa visto che sei bravo a fare le tabelle riesci a fare
questa tabella

nella prima colonna arancione si scriveranno le ruote invece nelle altre colonne gialle
si scrivono i primi otto numeri dei rit di ogni ruota poi nella prima colonna
giallo si devono evidenziare le caselle di colore verde per i numeri che non superano
le 100 estr invece negli altri casi se un numero arriva a quota cento estr
allora la casella si colora di rosso piu o meno ho descritto come dovrebbe essere
la tabella poi la puoi migliorare te..grazie
buona domenica
mi ero dimenticato di mettere la data vabbe ma per mettere la data bisogna
aggiungere un altra riga ma per me va bene cosi la tabella
se no si puo fare cosi nell'ultima colonna si puo scrivere la data in verticale
e invece di otto numeri si scriveranno i primi sette numeri di ogni ruota

Mike58 · 30 Gennaio 2022

Ciao Zetrix Sarebbe meglio in questo post non intasare con richieste, per non intasare e snaturare lo scopo del post stesso.
Queste si possono fare in altre richieste apposite.
comunque in via di eccezione in quanto attinente con lo scopo del post di "Guida ai Codici" eccoti un esempio
P.s. per i colori vedi tu con i setting RGB (Quello lo so che lo sai fare)

Codice:

Class Script
    Sub Main
        Dim Ru(1),Nu(8),Rit(8)  As Integer
        Dim ini , fin As Integer
        Dim r,p As Integer
        Dim T() As String
        ini = EstrazioniArchivio -200
        fin = EstrazioniArchivio
        Scrivi ("Quadro Ritardi su Ruote alla Estrazione fine di : " & GetInfoEstrazione(fin) ,1)
        T = {"Ruota","-","Rit1","Rit2","Rit3","Rit4","Rit5","Rit6","Rit7","Rit8"}
        Call InitTabella(T,ColoreVerde,,,ColoreBianco)
        For r = 1 To 11
            Ru(1) = r
            For p = 1 To 8
                Nu(p) = NumeroPosRit(fin,r,p)
                Rit(p) = EstrattoRitardo(Nu(p),r,fin)
            Next
            T = {NomeRuota(r),"-",Rit(1),Rit(2),Rit(3),Rit(4),Rit(5),Rit(6),Rit(7),Rit(8)}
            Call AddRigaTabella(T)
            '------------ colore celle e righe ------------------------------------------------
            For x As Integer = 1 To 8
                Call SetColoreCellaRighe(0,ColoreRosa,ColoreNero) ' colora 1 riga Ruote
                Call SetColoreCellaRighe(1,ColoreVerde,ColoreBianco)
                If Rit(x) > 99 Then Call SetColoreCellaRighe((x+1),ColoreRosso,ColoreGiallo )
                If Rit(x) <=  99 Then Call SetColoreCellaRighe((x+1),ColoreGiallo,ColoreRosso )
            Next
            '----------------------------------------------------------------------------------
        Next
        Call CreaTabella()
    End Sub
End Class

Quadro Ritardi su Ruote alla Estrazione fine di : 10036 - 169 - 29/01/2022

Ruota	-	Rit1	Rit2	Rit3	Rit4	Rit5	Rit6	Rit7	Rit8
Ba	-	73	66	62	53	50	49	43	40
Ca	-	79	73	46	44	44	43	41	41
Fi	-	104	79	50	50	49	49	43	40
Ge	-	78	65	43	42	35	34	32	32
Mi	-	100	62	55	51	51	50	46	46
Na	-	121	98	65	64	54	52	51	45
Pa	-	91	78	69	67	48	45	45	42
Rm	-	97	76	68	52	51	45	38	37
To	-	72	70	63	58	53	50	44	43
Ve	-	98	69	57	53	46	45	45	42
Nz	-	66	54	52	50	49	48	44	42

Zetrix · 30 Gennaio 2022

Ciao Mike lo so avrei voluto scrivere un altro post comunque grazie della
tabella poi vedrò di sistemarla meglio per le mie esigenze ho visto che si devono sistemare
le caselle perche la vorrei uguale come l'altra tabella...ciao e grazie dello script
le caselle invece a forma di rettangoli si possono disegnare a forma di quadrettini..
oppure no..comunque vedrò se riesco a sistemare lo script e fare alcune modifiche
devo sistemare le caselle perche cosi non e uguale come l'altra tabella..

Mike58 · 30 Gennaio 2022

Purtroppo bisogna smanettare per avere ciò che sono le proprie esigenze.
Sicuramente sei una persona capace di farlo.
Ciao

Zetrix · 30 Gennaio 2022

si MIke senza dubbio posso modificare qualsiasi script però devo dirti
che questa e la prima volta che ci lavoro con gli script di SpazioLight
ho visto che i codici dello script sono molti diversi da Spaziometria
volevo dirti se volessi inserire i numeri per ogni ruota invece dei rit
quale modifica devo fare..in questa tabella evidenzia solo i rit..
devo dire che però soltanto gli script di Joe non sono facili da modificare
perche scrive dei codici in Spaziometria che come cambi qualcosa ti da
subito errore lo script..la tabella cosi ci puo anche stare..

Zetrix · 30 Gennaio 2022

Mike sono riuscito a inserire i numeri estratti nella tabella
adesso si devono inserire i numeri con i piu rit e qui diventa piu difficile..

Mike58 · 30 Gennaio 2022

Il dato dei numeri già lo hai calcolato ed è Nu(p) , basta scriverlo in altra riga tabella ed addizionarla.
Comunque prendi spunto da uno script di xeroxs.

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) & "  I 10 Ritardatari Per Ogni Ruota * Al  " & DataEstrazione(Fin) & Space(5),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 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 = 0 To 10
                If Rit(x1) > 99 Then Call SetColoreCellaRighe((x1),ColoreVerde,ColoreBianco )
            Next
            
            '...........................AddRigatabella 2 .......................................................
            aT2 = { "Ritardo " , 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)
            Next
            '---------------------------------------------------------------------------------------------------
        Next
        CreaTabella ' creatabella
    End Sub
End Class

Zetrix · 30 Gennaio 2022

grazie mike poi quanto posso vedrò lo script e come modificare lo script
comunque ho visto che alcuni codici sono uguali a spaziometria

Zetrix · 30 Gennaio 2022

mike lo colorata la tabella volevo chiederti ma se volessi colorare le coppie di numeri che hanno lo stesso
rit come si deve fare esempio a bari abbiamo 51 87 con lo stesso rit 40 a milano abbiamo 13 5 con lo stesso rit 51
si potrebbe colorare queste caselle con un altro colore ma si deve mettere un if con il rit uguale e si devono
colorare le caselle con i rit e non con i numeri..un altro colore che si puo mettere e il magenta per le coppie
dei rit uguali..

Zetrix · 30 Gennaio 2022

mike ti allego lo script

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) & "  I 10 numeri ritardatari su ruota  " & DataEstrazione(Fin) & Space(16),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 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 = 0 To 10
                If Rit(x1) > 0 Then Call SetColoreCellaRighe((x1),ColoreVerde,ColoreGiallo )
            
          

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,ColoreBianco)
                If Rit(x2) < 99 Then Call SetColoreCellaRighe((x2),ColoreGiallo,ColoreVerde)
            Next
          
            '---------------------------------------------------------------------------------------------------
        Next
        CreaTabella ' creatabella
    End Sub
End Class

Mike58 · 30 Gennaio 2022

Bene hai capito il modus operandi.

Per le coppie anche li bisogna ragionarci

Vedremo

Mike58 · 30 Gennaio 2022

Vedi , Zetrix

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) & "  I 10 numeri ritardatari su ruota  " & DataEstrazione(Fin) & Space(16),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 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 = 0 To 10
                If Rit(x1) > 0 Then Call SetColoreCellaRighe((x1),ColoreVerde,ColoreGiallo )
            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,ColoreBianco)
                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,ColoreBianco)
                    If aT2 (y2) = aT2(y1) Then Call SetColoreCellaRighe( (y2),ColoreMagenta,ColoreBianco)
                Next
            Next
            '-----------------------------------------------------------------------------------------
            '---------------------------------------------------------------------------------------------------
        Next
        CreaTabella ' creatabella
    End Sub
End Class

Zetrix · 30 Gennaio 2022

Mike ho visto la nuova tabella grazie della modifica dello script
questa stringa mi e nuova For y2 As Integer
adesso ho capito piu o meno che lavoro fanno ma ce da imparare molto
con questo nuovo linguaggio vbnet di programmazione
vedrò in seguito se riesco a fare delle altre tabelle diverse
vorrei fare una tabella con tutti i 90 numeri ed evidenziare i numeri
di una lunghetta di numeri..

lotto_tom75 · 31 Gennaio 2022

Ciao mike, innanzi tutto complimentissimi per gli script che hai già completato per spazio light, poi ti chiedo se ne hai già fatto uno che analizzi e ordini per parametro voluto cliccando sui relativi titoli di tabella per qualsiasi sorte su più ruote volute separate a partire da qualsivoglia gruppo base numerico uno preferisca... Se l'hai già fatto mi potresti indicare il relativo # ? Se non l'hai già fatto sarebbe strafigo lo creassi quando ne avessi voglia e tempo (la butto là come idea). Se non puoi o vuoi don't worry e grazie lo stesso per tutto quello che hai già messo a disposizione fino a qui in tutti questi anni! 💪👋🙂

Mike58 · 31 Gennaio 2022

Tom un esempio reale di quello che vorresti sarebbe di aiuto maggiore.
Penso sia fattibilissimo quello che potrei aver capito, ma è sempre meglio fare esempi reali per eviatre di fare cose e analisi diverse.

Ciao fammi sapere

Mike58 · 31 Gennaio 2022

Io Intanto per Luigi ho altro quesito.
Sto cominciando a valutare file Testo.
Ho solo cominciato ad allacciare il file 10elotto che hai messo in archivio formato csv.
lo allaccia ma se voglio scrivere gli estratti li scrive, se invece li voglio scrivere con il codice
'Scrivi (StringaEstrattiFT(es,carattere))
questo va in errore e mi dice che come da screenshot
non riconosce la stringa di carattere.

Mike58 · 31 Gennaio 2022

Codice:

Class Script
    Sub Main()
        Dim sFileArc As String = "C:\Users\Mike58\Desktop\NewSpazioLight\Archivio\Estrazioni10L.csv "
        If ImpostaArchivioFT(sFileArc, 20, 90) Then
            Dim ini As Integer = EstrazioniArchivioFT
            Dim fin As Integer = EstrazioniArchivioFT
            Dim carattere   As String = ";"
            Dim es , p As Integer
            For es    = ini To fin
                For p  = 1 To 20
                    Scrivi(EstrattoFT(es,p))
                Next
                Scrivi (StringaEstrattiFT(es,carattere))
            Next
        End If
    End Sub
End Class

lo script

Ruota	-	Rit1	Rit2	Rit3	Rit4	Rit5	Rit6	Rit7	Rit8
Ba	-	73	66	62	53	50	49	43	40
Ca	-	79	73	46	44	44	43	41	41
Fi	-	104	79	50	50	49	49	43	40
Ge	-	78	65	43	42	35	34	32	32
Mi	-	100	62	55	51	51	50	46	46
Na	-	121	98	65	64	54	52	51	45
Pa	-	91	78	69	67	48	45	45	42
Rm	-	97	76	68	52	51	45	38	37
To	-	72	70	63	58	53	50	44	43
Ve	-	98	69	57	53	46	45	45	42
Nz	-	66	54	52	50	49	48	44	42

Ruota	-	Rit1	Rit2	Rit3	Rit4	Rit5	Rit6	Rit7	Rit8
Ba	-	73	66	62	53	50	49	43	40
Ca	-	79	73	46	44	44	43	41	41
Fi	-	104	79	50	50	49	49	43	40
Ge	-	78	65	43	42	35	34	32	32
Mi	-	100	62	55	51	51	50	46	46
Na	-	121	98	65	64	54	52	51	45
Pa	-	91	78	69	67	48	45	45	42
Rm	-	97	76	68	52	51	45	38	37
To	-	72	70	63	58	53	50	44	43
Ve	-	98	69	57	53	46	45	45	42
Nz	-	66	54	52	50	49	48	44	42

Spazio Script in VbNet Per LottoProjectLB

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Ruota	-	Rit1	Rit2	Rit3	Rit4	Rit5	Rit6	Rit7	Rit8
Ba	-	73	66	62	53	50	49	43	40
Ca	-	79	73	46	44	44	43	41	41
Fi	-	104	79	50	50	49	49	43	40
Ge	-	78	65	43	42	35	34	32	32
Mi	-	100	62	55	51	51	50	46	46
Na	-	121	98	65	64	54	52	51	45
Pa	-	91	78	69	67	48	45	45	42
Rm	-	97	76	68	52	51	45	38	37
To	-	72	70	63	58	53	50	44	43
Ve	-	98	69	57	53	46	45	45	42
Nz	-	66	54	52	50	49	48	44	42