come si scrive la radice quadrata in SpazioLight

Zetrix · 24 Marzo 2022

buon giovedi
grazie per i suggerimenti ho provato lo script modificato da Xeroxs ma da la radice quadrata
con tanti numeri dopo la virgola e non va bene cosi
ho provato con l'esempio di Mike e da errore lo script
ho dichiarato la Dim a(5) As Decimal ma lo script dice As Double ma che caspita si deve scrivere

Codice:

Class Script
    Sub Main
        'Dim Nu(9),a(5),Na(10),aN(5),Ru(1),Rt(5),Num1,Num2,Num3,Num4,Num5,Num6,Num7,Num8,Num9,Num10 As Integer
        Dim Nu(9),Na(10),Ru(1),Rt(5),Num1,Num2,Num3,Num4,Num5,Num6,Num7,Num8,Num9,Num10 As Integer
        Dim x , y , b, c ,d, e , k, s , r , es ,Ruota As Integer
        Dim ini As Integer = EstrazioniArchivio
        Dim fin As Integer = EstrazioniArchivio
        Dim T()  As String
        Dim aN(5) As Integer
        Dim a(5) As Decimal  
        T = {" Ruota "," EE1 "," EE2 "," EE3 "," EE4 "," EE5 " ," Ruota "," Sqr1"," Sqr2"," Sqr3"," Sqr4"," Sqr5 "," Ruota ","  Data "}
        Call InitTabella(T,RGB(0,0,255),,,RGB(200,155,255),,"Dubai Light")
        For es = ini To fin
            For Ruota = 1 To 11
                aN(1) = Estratto(es,Ruota,1)
                aN(2) = Estratto(es,Ruota,2)
                aN(3) = Estratto(es,Ruota,3)
                aN(4) = Estratto(es,Ruota,4)
                aN(5) = Estratto(es,Ruota,5)
                a(1) = (math.Round( math.sqrt(aN(1),2)))   ' <-----------------------
                a(2) = Math.Sqrt(aN(2))
                a(3) = Math.Sqrt(aN(3))
                a(4) = Math.Sqrt(aN(4))
                a(5) = Math.Sqrt(aN(5))
                Rt(1) = (a(1))
                Rt(2) = (a(2))
                Rt(3) = (a(3))
                Rt(4) = (a(4))
                Rt(5) = (a(5))
                'T = {NomeRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),NomeRuota(Ruota),Rt(1),Rt(2),Rt(3),Rt(4),Rt(5),NomeRuota(Ruota ),DataEstrazione(es)}
                T = {NomeRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),NomeRuota(Ruota),a(1),a(2),a(3),a(4),a(5),NomeRuota(Ruota ),DataEstrazione(es)}
                Call AddRigaTabella(T,RGB(59,159,182),,,RGB(0,0,255),,"Dubai Light ")
                'For x = 1 To 9
                y=0
                If aN(1) And x =  Rt(1) Then Call SetColoreCellaRighe (1,RGB(255,204,0),RGB(0,0,255) )
                If aN(2) And x =  Rt(2) Then Call SetColoreCellaRighe (2,RGB(255,204,0),RGB(0,0,255) )
                If aN(3) And x =  Rt(3) Then Call SetColoreCellaRighe (3,RGB(255,204,0),RGB(0,0,255) )
                If aN(4) And x =  Rt(4) Then Call SetColoreCellaRighe (4,RGB(255,204,0),RGB(0,0,255) )
                If aN(5) And x =  Rt(5) Then Call SetColoreCellaRighe (5,RGB(255,204,0),RGB(0,0,255) )
                If Rt(1) = x Then Call SetColoreCellaRighe (7,RGB(253,233,16),RGB(0,0,255))
                If Rt(2) = x Then Call SetColoreCellaRighe (8,RGB(253,233,16),RGB(0,0,255))
                If Rt(3) = x Then Call SetColoreCellaRighe (9,RGB(253,233,16),RGB(0,0,255))
                If Rt(4) = x Then Call SetColoreCellaRighe (10,RGB(253,233,16),RGB(0,0,255))
                If Rt(5) = x Then Call SetColoreCellaRighe (11,RGB(253,233,16),RGB(0,0,255))
                If Rt(1) = y Then Call SetColoreCellaRighe (7,ColoreRosa,ColoreNero)
                If Rt(2) = y Then Call SetColoreCellaRighe (8,ColoreRosa,ColoreNero)
                If Rt(3) = y Then Call SetColoreCellaRighe (9,ColoreRosa,ColoreNero)
                If Rt(4) = y Then Call SetColoreCellaRighe (10,ColoreRosa,ColoreNero)
                If Rt(5) = y Then Call SetColoreCellaRighe (11,ColoreRosa,ColoreNero)
                If aN(1) And y =  Rt(1) Then Call SetColoreCellaRighe (1,ColoreRosa,ColoreNero)
                If aN(2) And y =  Rt(2) Then Call SetColoreCellaRighe (2,ColoreRosa,ColoreNero)
                If aN(3) And y =  Rt(3) Then Call SetColoreCellaRighe (3,ColoreRosa,ColoreNero)
                If aN(4) And y =  Rt(4) Then Call SetColoreCellaRighe (4,ColoreRosa,ColoreNero)
                If aN(5) And y =  Rt(5) Then Call SetColoreCellaRighe (5,ColoreRosa,ColoreNero)
                Call SetColoreCellaRighe(0,RGB(0,0,255),RGB(200,155,255))
                Call SetColoreCellaRighe(6,RGB(0,0,255),RGB(200,155,255))
                Call SetColoreCellaRighe(12,RGB(0,0,255),RGB(200,155,255))
                Call SetColoreCellaRighe(13,RGB(0,0,255),RGB(200,155,255))
                'Next
            Next
        Next
        CreaTabella
    End Sub
End Class

Zetrix · 24 Marzo 2022

a(1) = (math.sqrt(aN(1)))
a(2) = (math.sqrt(aN(2)))
a(3) = (math.sqrt(aN(3)))
a(4) = (math.sqrt(aN(4)))
a(5) = (math.sqrt(aN(5)))

e qui che si deve fare una modifica magari aggiungere Left come per Spaziometria
ho provato in questo modo ma da errore lo script o puo darsi che non lo scritto bene

Zetrix · 24 Marzo 2022

wow ci sono riuscito adesso lo script non da errore e legge anche i decimali dopo la virgola

Codice:

Class Script
    Sub Main
        'Dim Nu(9),a(5),Na(10),aN(5),Ru(1),Rt(5),Num1,Num2,Num3,Num4,Num5,Num6,Num7,Num8,Num9,Num10 As Integer
        Dim Nu(9),Na(10),Ru(1),Rt(5),Num1,Num2,Num3,Num4,Num5,Num6,Num7,Num8,Num9,Num10 As Integer
        Dim x , y , b, c ,d, e , k, s , r , es ,Ruota As Integer
        Dim ini As Integer = EstrazioniArchivio
        Dim fin As Integer = EstrazioniArchivio
        Dim T()  As String
        Dim aN(5) As Integer
        Dim a(5) As  Decimal
        T = {" Ruota "," EE1 "," EE2 "," EE3 "," EE4 "," EE5 " ," Ruota "," Sqr1"," Sqr2"," Sqr3"," Sqr4"," Sqr5 "," Ruota ","  Data "}
        Call InitTabella(T,RGB(0,0,255),,,RGB(200,155,255),,"Dubai Light")
        For es = ini To fin
            For Ruota = 1 To 11
                aN(1) = Estratto(es,Ruota,1)
                aN(2) = Estratto(es,Ruota,2)
                aN(3) = Estratto(es,Ruota,3)
                aN(4) = Estratto(es,Ruota,4)
                aN(5) = Estratto(es,Ruota,5)
                a(1) = Left(math.sqrt(aN(1)),4)
                a(2) = Left(math.sqrt(aN(2)),4)
                a(3) = Left(math.sqrt(aN(3)),4)
                a(4) = Left(math.sqrt(aN(4)),4)
                a(5) = Left(math.sqrt(aN(5)),4)
                Rt(1) = (a(1))
                Rt(2) = (a(2))
                Rt(3) = (a(3))
                Rt(4) = (a(4))
                Rt(5) = (a(5))
                'T = {NomeRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),NomeRuota(Ruota),Rt(1),Rt(2),Rt(3),Rt(4),Rt(5),NomeRuota(Ruota ),DataEstrazione(es)}
                T = {NomeRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),NomeRuota(Ruota),a(1),a(2),a(3),a(4),a(5),NomeRuota(Ruota ),DataEstrazione(es)}
                Call AddRigaTabella(T,RGB(59,159,182),,,RGB(0,0,255),,"Dubai Light ")
                'For x = 1 To 9
                y=0
                If aN(1) And x =  Rt(1) Then Call SetColoreCellaRighe (1,RGB(255,204,0),RGB(0,0,255) )
                If aN(2) And x =  Rt(2) Then Call SetColoreCellaRighe (2,RGB(255,204,0),RGB(0,0,255) )
                If aN(3) And x =  Rt(3) Then Call SetColoreCellaRighe (3,RGB(255,204,0),RGB(0,0,255) )
                If aN(4) And x =  Rt(4) Then Call SetColoreCellaRighe (4,RGB(255,204,0),RGB(0,0,255) )
                If aN(5) And x =  Rt(5) Then Call SetColoreCellaRighe (5,RGB(255,204,0),RGB(0,0,255) )
                If Rt(1) = x Then Call SetColoreCellaRighe (7,RGB(253,233,16),RGB(0,0,255))
                If Rt(2) = x Then Call SetColoreCellaRighe (8,RGB(253,233,16),RGB(0,0,255))
                If Rt(3) = x Then Call SetColoreCellaRighe (9,RGB(253,233,16),RGB(0,0,255))
                If Rt(4) = x Then Call SetColoreCellaRighe (10,RGB(253,233,16),RGB(0,0,255))
                If Rt(5) = x Then Call SetColoreCellaRighe (11,RGB(253,233,16),RGB(0,0,255))
                If Rt(1) = y Then Call SetColoreCellaRighe (7,ColoreRosa,ColoreNero)
                If Rt(2) = y Then Call SetColoreCellaRighe (8,ColoreRosa,ColoreNero)
                If Rt(3) = y Then Call SetColoreCellaRighe (9,ColoreRosa,ColoreNero)
                If Rt(4) = y Then Call SetColoreCellaRighe (10,ColoreRosa,ColoreNero)
                If Rt(5) = y Then Call SetColoreCellaRighe (11,ColoreRosa,ColoreNero)
                If aN(1) And y =  Rt(1) Then Call SetColoreCellaRighe (1,ColoreRosa,ColoreNero)
                If aN(2) And y =  Rt(2) Then Call SetColoreCellaRighe (2,ColoreRosa,ColoreNero)
                If aN(3) And y =  Rt(3) Then Call SetColoreCellaRighe (3,ColoreRosa,ColoreNero)
                If aN(4) And y =  Rt(4) Then Call SetColoreCellaRighe (4,ColoreRosa,ColoreNero)
                If aN(5) And y =  Rt(5) Then Call SetColoreCellaRighe (5,ColoreRosa,ColoreNero)
                Call SetColoreCellaRighe(0,RGB(0,0,255),RGB(200,155,255))
                Call SetColoreCellaRighe(6,RGB(0,0,255),RGB(200,155,255))
                Call SetColoreCellaRighe(12,RGB(0,0,255),RGB(200,155,255))
                Call SetColoreCellaRighe(13,RGB(0,0,255),RGB(200,155,255))
                'Next
            Next
        Next
        CreaTabella
    End Sub
End Class

Zetrix · 24 Marzo 2022

evidenzia la radice quadrata di un numero estratto

Codice:

Class Script
    Sub Main
        'Dim Nu(9),a(5),Na(10),aN(5),Ru(1),Rt(5),Num1,Num2,Num3,Num4,Num5,Num6,Num7,Num8,Num9,Num10 As Integer
        Dim Nu(9),Na(10),Ru(1),Rt(5),Num1,Num2,Num3,Num4,Num5,Num6,Num7,Num8,Num9,Num10 As Integer
        Dim x , y , b, c ,d, e , k, s , r , es ,Ruota As Integer
        Dim ini As Integer = EstrazioniArchivio - 8
        Dim fin As Integer = EstrazioniArchivio
        Dim T()  As String
        For es = fin To ini Step - 1
            Dim aN(5) As Integer
            Dim a(5) As  Decimal
            T = {" Ruota "," EE1 "," EE2 "," EE3 "," EE4 "," EE5 " ," Ruota "," Sqr1"," Sqr2"," Sqr3"," Sqr4"," Sqr5 "," Ruota ","  Data "}
            Call InitTabella(T,RGB(0,0,255),,,RGB(200,155,255),,"Dubai Light")
            For Ruota = 1 To 11
                aN(1) = Estratto(es,Ruota,1)
                aN(2) = Estratto(es,Ruota,2)
                aN(3) = Estratto(es,Ruota,3)
                aN(4) = Estratto(es,Ruota,4)
                aN(5) = Estratto(es,Ruota,5)
                a(1) = Left(math.sqrt(aN(1)),4)
                a(2) = Left(math.sqrt(aN(2)),4)
                a(3) = Left(math.sqrt(aN(3)),4)
                a(4) = Left(math.sqrt(aN(4)),4)
                a(5) = Left(math.sqrt(aN(5)),4)
                Rt(1) = (a(1))
                Rt(2) = (a(2))
                Rt(3) = (a(3))
                Rt(4) = (a(4))
                Rt(5) = (a(5))
                'T = {NomeRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),NomeRuota(Ruota),Rt(1),Rt(2),Rt(3),Rt(4),Rt(5),NomeRuota(Ruota ),DataEstrazione(es)}
                T = {NomeRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),NomeRuota(Ruota),a(1),a(2),a(3),a(4),a(5),NomeRuota(Ruota ),DataEstrazione(es)}
                Call AddRigaTabella(T,RGB(59,159,182),,,RGB(0,0,255),,"Dubai Light ")
                For x = 1 To 9
                    y = 64    ' -> evidenzia numero in tabella
                    If aN(1) And x =  a(1) Then Call SetColoreCellaRighe (1,RGB(255,204,0),RGB(0,0,255) )
                    If aN(2) And x =  a(2) Then Call SetColoreCellaRighe (2,RGB(255,204,0),RGB(0,0,255) )
                    If aN(3) And x =  a(3) Then Call SetColoreCellaRighe (3,RGB(255,204,0),RGB(0,0,255) )
                    If aN(4) And x =  a(4) Then Call SetColoreCellaRighe (4,RGB(255,204,0),RGB(0,0,255) )
                    If aN(5) And x =  a(5) Then Call SetColoreCellaRighe (5,RGB(255,204,0),RGB(0,0,255) )
                    If a(1) = x Then Call SetColoreCellaRighe (7,RGB(253,233,16),RGB(0,0,255))
                    If a(2) = x Then Call SetColoreCellaRighe (8,RGB(253,233,16),RGB(0,0,255))
                    If a(3) = x Then Call SetColoreCellaRighe (9,RGB(253,233,16),RGB(0,0,255))
                    If a(4) = x Then Call SetColoreCellaRighe (10,RGB(253,233,16),RGB(0,0,255))
                    If a(5) = x Then Call SetColoreCellaRighe (11,RGB(253,233,16),RGB(0,0,255))
                    If aN(1) = y Then Call SetColoreCellaRighe (1,RGB(222,49,99),RGB(255,204,0))
                    If aN(2) = y Then Call SetColoreCellaRighe (2,RGB(222,49,99),RGB(255,204,0))
                    If aN(3) = y Then Call SetColoreCellaRighe (3,RGB(222,49,99),RGB(255,204,0))
                    If aN(4) = y Then Call SetColoreCellaRighe (4,RGB(222,49,99),RGB(255,204,0))
                    If aN(5) = y Then Call SetColoreCellaRighe (5,RGB(222,49,99),RGB(255,204,0))
                    Call SetColoreCellaRighe(0,RGB(0,0,255),RGB(200,155,255))
                    Call SetColoreCellaRighe(6,RGB(0,0,255),RGB(200,155,255))
                    Call SetColoreCellaRighe(12,RGB(0,0,255),RGB(200,155,255))
                    Call SetColoreCellaRighe(13,RGB(0,0,255),RGB(200,155,255))
                Next
            Next
            CreaTabella
        Next
    End Sub
End Class

Mike58 · 24 Marzo 2022

Zetrix è vero ci sei riuscito, ma il codice che hai usato va anche compreso con left prendi le 4 cifre da sinistra. otterrai il risultato ma prendi sempre 4 cifre 9,999 oppure 99,99
invece il giusto modo è questo e funziona anche con il numero vettore ()
al tuo script in errore gli manca una parentesi
a(1) = ( math.Round( math.sqrt(aN(1)) ,2) ) ' corretto
'a(1) = math.Round( math.sqrt(aN(1),2)) ' tuo errore
Poi permettimi di dire che altri errori sono di concetto, non puoi e non è efficace mettere il Math.Round in fase di definizione variabile ma va messo solo in fase scrittura.
Comunque capisco che è senza aiuti non sempre è facile e purtroppo siamo troppo pochi e anche con i nostri limiti.

Codice:

Class Script
    Sub Main
        Dim a,b,c  As Decimal
        Dim ab(3) As Decimal
        a = 88
        b = 888
        c = 88888
        ab(1) = 88
        ab(2) = 888
        ab(3) = 88888
        Scrivi (math.Round( math.sqrt(a) ,2) )
        Scrivi (math.Round( math.sqrt(b) ,2) )
        Scrivi (math.Round( math.sqrt(c) ,2) )
        Scrivi
        Scrivi (math.Round( math.sqrt(ab(1)) ,2),1 )
        Scrivi (math.Round( math.sqrt(ab(2)) ,2),1 )
        Scrivi (math.Round( math.sqrt(ab(3)) ,2),1 )
    End Sub
End Class

9,38
29,8
298,14

9,38
29,8
298,14

Zetrix · 24 Marzo 2022

Ciao Mike, grazie a tutti per la collaborazione e aver contribuito alla realizzazione
per scrivere la radice quadrata,sulla radice quadrata di un numero estratto si
possono sfruttare le moltiplicazioni adesso vi farò vedere un esempio di come lavorano le
moltiplicazioni sui numeri estratti

Codice:

Class Script
    Sub Main
        'Dim Nu(9),a(5),Na(10),aN(5),Ru(1),Rt(5),Num1,Num2,Num3,Num4,Num5,Num6,Num7,Num8,Num9,Num10 As Integer
        Dim Nu(9),Na(10),Ru(1),Rt(5),Num1,Num2,Num3,Num4,Num5,Num6,Num7,Num8,Num9,Num10 As Integer
        Dim x , y , b, c ,d, e , k, s , r ,z , j,es ,Ruota As Integer
        Dim ini As Integer = EstrazioniArchivio - 8
        Dim fin As Integer = EstrazioniArchivio
        Dim T()  As String
        For es = fin To ini Step - 1
            Dim aN(5) As Integer
            Dim a(5) As  Decimal
            T = {" Ruota "," EE1 "," EE2 "," EE3 "," EE4 "," EE5 " ," Ruota "," Sqr1"," Sqr2"," Sqr3"," Sqr4"," Sqr5 "," Ruota ","  Data "}
            Call InitTabella(T,RGB(0,0,255),,,RGB(200,155,255),,"Dubai Light")
            For Ruota = 1 To 11
                aN(1) = Estratto(es,Ruota,1)
                aN(2) = Estratto(es,Ruota,2)
                aN(3) = Estratto(es,Ruota,3)
                aN(4) = Estratto(es,Ruota,4)
                aN(5) = Estratto(es,Ruota,5)
                a(1) = Left(math.sqrt(aN(1)),4)
                a(2) = Left(math.sqrt(aN(2)),4)
                a(3) = Left(math.sqrt(aN(3)),4)
                a(4) = Left(math.sqrt(aN(4)),4)
                a(5) = Left(math.sqrt(aN(5)),4)
                Rt(1) = (a(1))
                Rt(2) = (a(2))
                Rt(3) = (a(3))
                Rt(4) = (a(4))
                Rt(5) = (a(5))
                'T = {NomeRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),NomeRuota(Ruota),Rt(1),Rt(2),Rt(3),Rt(4),Rt(5),NomeRuota(Ruota ),DataEstrazione(es)}
                T = {NomeRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),NomeRuota(Ruota),a(1),a(2),a(3),a(4),a(5),NomeRuota(Ruota ),DataEstrazione(es)}
                Call AddRigaTabella(T,RGB(59,159,182),,,RGB(0,0,255),,"Dubai Light ")
                For x = 1 To 9
                    y = 64    ' -> evidenzia il numero della radice quadrata in tabella
                    z = 10   ' -> evidenzia 1 numero in tabella
                    j = 62  ' -> evidenzia 2 numero in tabella
                    If aN(1) And x =  a(1) Then Call SetColoreCellaRighe (1,RGB(255,204,0),RGB(0,0,255) ) ' -> color mandarino
                    If aN(2) And x =  a(2) Then Call SetColoreCellaRighe (2,RGB(255,204,0),RGB(0,0,255) )
                    If aN(3) And x =  a(3) Then Call SetColoreCellaRighe (3,RGB(255,204,0),RGB(0,0,255) )
                    If aN(4) And x =  a(4) Then Call SetColoreCellaRighe (4,RGB(255,204,0),RGB(0,0,255) )
                    If aN(5) And x =  a(5) Then Call SetColoreCellaRighe (5,RGB(255,204,0),RGB(0,0,255) )
                    If a(1) = x Then Call SetColoreCellaRighe (7,RGB(253,233,16),RGB(0,0,255))    ' -> color limone
                    If a(2) = x Then Call SetColoreCellaRighe (8,RGB(253,233,16),RGB(0,0,255))
                    If a(3) = x Then Call SetColoreCellaRighe (9,RGB(253,233,16),RGB(0,0,255))
                    If a(4) = x Then Call SetColoreCellaRighe (10,RGB(253,233,16),RGB(0,0,255))
                    If a(5) = x Then Call SetColoreCellaRighe (11,RGB(253,233,16),RGB(0,0,255))
                    If aN(1) = y Then Call SetColoreCellaRighe (1,RGB(222,49,99),RGB(255,204,0))  ' -> color cigliegia
                    If aN(2) = y Then Call SetColoreCellaRighe (2,RGB(222,49,99),RGB(255,204,0))
                    If aN(3) = y Then Call SetColoreCellaRighe (3,RGB(222,49,99),RGB(255,204,0))
                    If aN(4) = y Then Call SetColoreCellaRighe (4,RGB(222,49,99),RGB(255,204,0))
                    If aN(5) = y Then Call SetColoreCellaRighe (5,RGB(222,49,99),RGB(255,204,0))
                    If aN(1) = z Then Call SetColoreCellaRighe (1,RGB(0,214,153),RGB(0,0,255))  ' ->  color verde caraibi
                    If aN(2) = z Then Call SetColoreCellaRighe (2,RGB(0,214,153),RGB(0,0,255))
                    If aN(3) = z Then Call SetColoreCellaRighe (3,RGB(0,214,153),RGB(0,0,255))
                    If aN(4) = z Then Call SetColoreCellaRighe (4,RGB(0,214,153),RGB(0,0,255))
                    If aN(5) = z Then Call SetColoreCellaRighe (5,RGB(0,214,153),RGB(0,0,255))
                    If aN(1) = j Then Call SetColoreCellaRighe (1,RGB(0,214,153),RGB(0,0,255))
                    If aN(2) = j Then Call SetColoreCellaRighe (2,RGB(0,214,153),RGB(0,0,255))
                    If aN(3) = j Then Call SetColoreCellaRighe (3,RGB(0,214,153),RGB(0,0,255))
                    If aN(4) = j Then Call SetColoreCellaRighe (4,RGB(0,214,153),RGB(0,0,255))
                    If aN(5) = j Then Call SetColoreCellaRighe (5,RGB(0,214,153),RGB(0,0,255))
                    Call SetColoreCellaRighe(0,RGB(0,0,255),RGB(200,155,255))
                    Call SetColoreCellaRighe(6,RGB(0,0,255),RGB(200,155,255))
                    Call SetColoreCellaRighe(12,RGB(0,0,255),RGB(200,155,255))
                    Call SetColoreCellaRighe(13,RGB(0,0,255),RGB(200,155,255))
                Next
            Next
            CreaTabella
        Next
    End Sub
End Class

Zetrix · 24 Marzo 2022

sulla estr 19/3/2022

FI _____06_________64
PA____10_________62

il nr 8 e la radice quadrata del 64 adesso elaboriamo la condizione del gioco
8x8=64 (radice quadrata)
8x7=56 (distanza)
8x9=72 (somma)
lavoriamo sulla somma
FI _____08_________64___=72
PA____10_________62___=72

8+64=72
10+62=72

ABB 6 DIAM 51

Previsione in gioco

FI-PA 8-51 E TT

oppure

ABB 6 DIAM.T. 41

Previsione in gioco

FI-PA 8-41 E TT

Alien. · 24 Marzo 2022

Ciao,chiedo scusa dove si scarica SpazioLight, grazie

Zetrix · 24 Marzo 2022

Alien si scarica in questo link,
Ciao

InstallazioneUtente_v_1_0_38

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

Alien. · 24 Marzo 2022

Ciao Zetrix grazie, ottimo programma un mini spaziometria in nuova veste.

Zetrix · 24 Marzo 2022

Ciao Alien, ottimo programma ma Spaziometria e decisamente migliore non ci sono paragoni,
neanche stasera e uscito il nr 8 a Na, si vede che la lottomatica la bloccato sono 7 estr che non esce in nessuna ruota
adesso il nr 8 a chiuso l'8 ciclo con 144 estr
8 cicli x 18 estr = 144 estr

Alien. · 24 Marzo 2022

Questa sera ho giocato e per caso sono entrato nel discorso delle vincite il gestore mi ha risposto che è molto che la gente non vince....

E si infatti ho detto un "mini" spaziometria

Zetrix · 25 Marzo 2022

Alien ma te lo giochi l'8 a NA,il banco sta guadagnando tanti soldini con l'8 di NA E anche a TT,
molti giocano anche gli ambi a TT E il banco raccoglie tutto, puo darsi che l'8 lo mollano per sabato
ma non so se l'8 uscirà a NA..

Alien. · 25 Marzo 2022

l'8 con cosa su su dammi un altro numero

Zetrix · 26 Marzo 2022

8 51 lo gioco a NA RO E TT

Alien. · 26 Marzo 2022

Guai a te se non escono ..........

Zetrix · 4 Aprile 2022

Alien abbi fiducia purtroppo il banco ci a preso gusto con l'8
sono 11 estr che non esce in nessuna ruota e una situazione
abbastanza anomala..

claudio8 · 4 Aprile 2022

Dovete aspettare il laterali dei centenerari, poi giocarli.
Altra tecnica è quella di attendere l'uscita e poi attaccarne la probabile ripetizione.

Zetrix · 5 Aprile 2022

Alien ti scrivo l'ambo a tutte con l'8 la ruota di gioco te la scegli te
se vuoi provi a NA
59 8 a TT

Alien. · 5 Aprile 2022

Zetrix ha scritto:
Alien ti scrivo l'ambo a tutte con l'8 la ruota di gioco te la scegli te
se vuoi provi a NA
59 8 a TT

Perdonami ma le mie erano solo "battute"

come si scrive la radice quadrata in SpazioLight

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Allegati

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Premium Member

Advanced Premium Member

Advanced Premium Member