programmazione spazio script in vbnet

Zetrix · 9 Febbraio 2022

Mike ho risolto dopo tante prove e riprove sono riuscito a mettere il next al posto giusto
con tutti quei cicli for e next for e next non e stato per niente facile
Ciao

Zetrix · 10 Febbraio 2022

Ciao Mike, vorrei evidenziare i gruppi delle decine ma trovo difficoltà a evidenziare
le decine per ogni numero estratto

ti allego lo script

Codice:

Class Script
    Sub Main
        Dim Nu(10),aN(5),Ru(1),Num1,Num2,Num3,Num4,Num5 As Integer
        Dim x , k, s , r , es ,Ruota  As Integer
        Dim Ini As Integer = EstrazioniArchivio  - 8
        Dim fin As Integer = EstrazioniArchivio

For es = fin To Ini Step - 1
   

        Dim T(),nn As String
        T = {" Ruota "," E1 "," E2 "," E3 "," E4 "," E5" ," Ruota "," EE1"," EE2"," EE3"," EE4"," EE5"," Ruota "}
       
        Call InitTabella(T,ColoreVerde,,,ColoreBianco)



     
 For Ruota = 1 To 11
            For p As Integer = 1 To 5
                aN(p) = Estratto(es,Ruota ,p)
            Next
 

            For s = 0 To 80 Step 10
                For k = 1 To 10
                    Nu(k) = (s-1 +(k*1))
                    '-------- condizione trova blocco ------------------
                    If Nu(k) = aN(1) Then Num1 = DecinaMatematica(Nu(1))
                    If Nu(k) = aN(2) Then Num2 = DecinaMatematica(Nu(1))
                    If Nu(k) = aN(3) Then Num3 = DecinaMatematica(Nu(1))
                    If Nu(k) = aN(4) Then Num4 = DecinaMatematica(Nu(1))
                    If Nu(k) = aN(5) Then Num5 = DecinaMatematica(Nu(1))
                    '----------------------------------------------------
                Next
 
                OrdinaVettore (Nu,1,5,1) ' ordina sequenza ascendente
                'If Nu(11) = 1 Then Nu(11) = 0 '  elimina numero se superiore a 90
                If Nu(10) > 90 Then Nu(10) = 0
                '-----------------------------------------------
              Next
     
            T = {NomeRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),NomeRuota(Ruota),Num1,Num2,Num3,Num4,Num5,NomeRuota(Ruota ) }
            Call AddRigaTabella(T)

 

For  x = 20 To 29 Step 1


               
                    If aN(1) =  x Then Call SetColoreCellaRighe (1,ColoreBlu ,ColoreBianco)
                    If aN(2) =  x Then Call SetColoreCellaRighe (2,ColoreBlu ,ColoreBianco)
                    If aN(3) =  x Then Call SetColoreCellaRighe (3,ColoreBlu ,ColoreBianco)
                    If aN(4) =  x Then Call SetColoreCellaRighe (4,ColoreBlu ,ColoreBianco)
                    If aN(5) =  x Then Call SetColoreCellaRighe (5,ColoreBlu ,ColoreBianco)
                    If Num1 = x Then Call SetColoreCellaRighe (7,ColoreRosso ,ColoreBianco)
                    If Num2 = x Then Call SetColoreCellaRighe (8,ColoreRosso ,ColoreBianco)
                    If Num3 = x Then Call SetColoreCellaRighe (9,ColoreRosso ,ColoreBianco)
                    If Num4 = x Then Call SetColoreCellaRighe (10,ColoreRosso ,ColoreBianco)
                    If Num5 = x Then Call SetColoreCellaRighe (11,ColoreRosso ,ColoreBianco)



            Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
            Call SetColoreCellaRighe(6,ColoreVerde,ColoreBianco)
            Call SetColoreCellaRighe(12,ColoreVerde,ColoreBianco)
 



Next
Next
 


        CreaTabella
        For s = 0 To 80 Step 10
            For k = 1 To 10
                Nu(k) = (s-1 +(k*1))
            Next

            OrdinaVettore (Nu,1,5,1) ' ordina sequenza ascendente
            'If Nu(13) = 1 Then Nu(13) = 0 '  elimina numero se superiore a 90
            If Nu(10) > 90 Then Nu(10) = 0
            '-----------------------------------------------
         

Scrivi (StringaNumeri(Nu,,1))
     
 Next
Scrivi
Scrivi (DataEstrazione(es))
 
Next

    End Sub
End Class

Mike58 · 10 Febbraio 2022

Eccolo Zetrix, non ti conveniva farla difficile.
Era più semplice.

Codice:

Class Script
    Sub Main
        Dim Nu(10),aN(5),Ru(1),Num1,Num2,Num3,Num4,Num5 As Integer
        Dim x , k, s , r , es ,Ruota  As Integer
        Dim Ini As Integer = EstrazioniArchivio  - 8
        Dim fin As Integer = EstrazioniArchivio
        For es = fin To Ini Step - 1
            Dim T(),nn As String
            T = {" Ruota "," E1 "," E2 "," E3 "," E4 "," E5" ," Ruota "," EE1"," EE2"," EE3"," EE4"," EE5"," Ruota "}
            Call InitTabella(T,ColoreVerde,,,ColoreBianco)
            For Ruota = 1 To 11
                For p As Integer = 1 To 5
                    aN(p) = Estratto(es,Ruota ,p)
                    Nu(p) = DecinaNaturale (Estratto(es,Ruota,p )) ' trova la decina
                Next
                'For s = 0 To 80 Step 10
                    'For k = 1 To 10
                        'Nu(k) = (s-1 +(k*1))
                        '-------- condizione trova blocco ------------------
                        'If Nu(k) = aN(1) Then Num1 = DecinaMatematica(Nu(1))
                        'If Nu(k) = aN(2) Then Num2 = DecinaMatematica(Nu(1))
                        'If Nu(k) = aN(3) Then Num3 = DecinaMatematica(Nu(1))
                        'If Nu(k) = aN(4) Then Num4 = DecinaMatematica(Nu(1))
                        'If Nu(k) = aN(5) Then Num5 = DecinaMatematica(Nu(1))
                        '----------------------------------------------------
                    'Next
                    'OrdinaVettore (Nu,1,5,1) ' ordina sequenza ascendente
                    'If Nu(11) = 1 Then Nu(11) = 0 '  elimina numero se superiore a 90
                    'If Nu(10) > 90 Then Nu(10) = 0
                    '-----------------------------------------------
                'Next
                T = {NomeRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),NomeRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),NomeRuota(Ruota ) }
                Call AddRigaTabella(T)
                For  x = 20 To 29 Step 1
                    If aN(1) =  x Then Call SetColoreCellaRighe (1,ColoreBlu ,ColoreBianco)
                    If aN(2) =  x Then Call SetColoreCellaRighe (2,ColoreBlu ,ColoreBianco)
                    If aN(3) =  x Then Call SetColoreCellaRighe (3,ColoreBlu ,ColoreBianco)
                    If aN(4) =  x Then Call SetColoreCellaRighe (4,ColoreBlu ,ColoreBianco)
                    If aN(5) =  x Then Call SetColoreCellaRighe (5,ColoreBlu ,ColoreBianco)
                    If Num1 = x Then Call SetColoreCellaRighe (7,ColoreRosso ,ColoreBianco)
                    If Num2 = x Then Call SetColoreCellaRighe (8,ColoreRosso ,ColoreBianco)
                    If Num3 = x Then Call SetColoreCellaRighe (9,ColoreRosso ,ColoreBianco)
                    If Num4 = x Then Call SetColoreCellaRighe (10,ColoreRosso ,ColoreBianco)
                    If Num5 = x Then Call SetColoreCellaRighe (11,ColoreRosso ,ColoreBianco)
                    Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
                    Call SetColoreCellaRighe(6,ColoreVerde,ColoreBianco)
                    Call SetColoreCellaRighe(12,ColoreVerde,ColoreBianco)
                Next
            Next
            CreaTabella
            For s = 0 To 80 Step 10
                For k = 1 To 10
                    Nu(k) = (s-1 +(k*1))
                Next
                OrdinaVettore (Nu,1,5,1) ' ordina sequenza ascendente
                'If Nu(13) = 1 Then Nu(13) = 0 '  elimina numero se superiore a 90
                If Nu(10) > 90 Then Nu(10) = 0
                '-----------------------------------------------
                Scrivi (StringaNumeri(Nu,,1))
            Next
            Scrivi
            Scrivi (DataEstrazione(es))
        Next
    End Sub
End Class

Zetrix · 10 Febbraio 2022

Mike grazie del suggerimento della decina naturale ma io vorrei evidenziare
anche le decine nella tabella a lato cioe mi spiego meglio i numeri della sequenza
nelle estrazioni devono essere anche evidenziate nell'altra tabella delle decine
ho modificato lo script in questo modo ma niente da fare non evidenzia niente
ho notato anche che la decina naturale non corrisponde al numero stesso della decina
esempio il 60 a Ba lo scrive con la decina 5
ti allego lo script

Codice:

Class Script
    Sub Main
        Dim Nu(10),Na(10),aN(5),Ru(1),Num1,Num2,Num3,Num4,Num5 As Integer
        Dim x , k, s , r , es ,Ruota  As Integer
        Dim Ini As Integer = EstrazioniArchivio  - 8
        Dim fin As Integer = EstrazioniArchivio

For es = fin To Ini Step - 1
 

        Dim T(),nn As String
        T = {" Ruota "," E1 "," E2 "," E3 "," E4 "," E5" ," Ruota "," EE1"," EE2"," EE3"," EE4"," EE5"," Ruota "}
     
        Call InitTabella(T,ColoreVerde,,,ColoreBianco)



   
 For Ruota = 1 To 11
            For p As Integer = 1 To 5
                aN(p) = Estratto(es,Ruota ,p)
                Na(p) = DecinaNaturale(Estratto(es,Ruota,p )) ' trova la decina
            Next
 

            For s = 0 To 80 Step 10
                For k = 1 To 10
                    Nu(k) = (s-1 +(k*1))
                    '-------- condizione trova blocco ------------------
                    If Nu(k) = aN(1) Then Num1 = (Na(1))
                    If Nu(k) = aN(2) Then Num2 = (Na(2))
                    If Nu(k) = aN(3) Then Num3 = (Na(3))
                    If Nu(k) = aN(4) Then Num4 = (Na(4))
                    If Nu(k) = aN(5) Then Num5 = (Na(5))
                    '----------------------------------------------------
                Next
 
                OrdinaVettore (Nu,1,5,1) ' ordina sequenza ascendente
                'If Nu(11) = 1 Then Nu(11) = 0 '  elimina numero se superiore a 90
                If Nu(10) > 90 Then Nu(10) = 0
                '-----------------------------------------------
              Next
   
            T = {NomeRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),NomeRuota(Ruota),Num1,Num2,Num3,Num4,Num5,NomeRuota(Ruota ) }
            Call AddRigaTabella(T)

 

For  x = 20 To 29 Step 1


             
                    If aN(1) =  x Then Call SetColoreCellaRighe (1,ColoreBlu ,ColoreBianco)
                    If aN(2) =  x Then Call SetColoreCellaRighe (2,ColoreBlu ,ColoreBianco)
                    If aN(3) =  x Then Call SetColoreCellaRighe (3,ColoreBlu ,ColoreBianco)
                    If aN(4) =  x Then Call SetColoreCellaRighe (4,ColoreBlu ,ColoreBianco)
                    If aN(5) =  x Then Call SetColoreCellaRighe (5,ColoreBlu ,ColoreBianco)
                    If Num1 = x Then Call SetColoreCellaRighe (7,ColoreRosso ,ColoreBianco)
                    If Num2 = x Then Call SetColoreCellaRighe (8,ColoreRosso ,ColoreBianco)
                    If Num3 = x Then Call SetColoreCellaRighe (9,ColoreRosso ,ColoreBianco)
                    If Num4 = x Then Call SetColoreCellaRighe (10,ColoreRosso ,ColoreBianco)
                    If Num5 = x Then Call SetColoreCellaRighe (11,ColoreRosso ,ColoreBianco)



            Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
            Call SetColoreCellaRighe(6,ColoreVerde,ColoreBianco)
            Call SetColoreCellaRighe(12,ColoreVerde,ColoreBianco)
 



Next
Next
 


        CreaTabella
        For s = 0 To 80 Step 10
            For k = 1 To 10
                Nu(k) = (s-1 +(k*1))
            Next

            OrdinaVettore (Nu,1,5,1) ' ordina sequenza ascendente
            'If Nu(13) = 1 Then Nu(13) = 0 '  elimina numero se superiore a 90
            If Nu(10) > 90 Then Nu(10) = 0
            '-----------------------------------------------
       

Scrivi (StringaNumeri(Nu,,1))
   
 Next
Scrivi
Scrivi (DataEstrazione(es))
 
Next

    End Sub
End Class

Mike58 · 10 Febbraio 2022

non lo so, io farei così, ma ci possono essere tanti e altri modi.
Tocca a te trovarli, come vedi se mi interessa una cosa prima o poi ci arrivo.
Vedi le varie forma di decine oppure una volta trovato l'algoritmo usalo confrontando correttamente i valori.
Oramai sei in grado di farlo.

Codice:

Class Script
    Sub Main
        Dim Nu(10),Na(10),aN(5),Ru(1),Num1,Num2,Num3,Num4,Num5 As Integer
        Dim x , k, s , r , es ,Ruota  As Integer
        Dim Ini As Integer = EstrazioniArchivio  - 8
        Dim fin As Integer = EstrazioniArchivio
        For es = fin To Ini Step - 1
            Dim T(),nn As String
            T = {" Ruota "," E1 "," E2 "," E3 "," E4 "," E5" ," Ruota "," EE1"," EE2"," EE3"," EE4"," EE5"," Ruota "}
            Call InitTabella(T,ColoreVerde,,,ColoreBianco)
            For Ruota = 1 To 11
                For p As Integer = 1 To 5
                    aN(p) = Estratto(es,Ruota ,p)
                    Na(p) = DecinaNaturale(Estratto(es,Ruota,p )) ' trova la decina
                Next
                For s = 0 To 80 Step 10
                    For k = 1 To 10
                        Nu(k) = (s-1 +(k*1))
                        '-------- condizione trova blocco ------------------
                        If Nu(k) = aN(1) Then Num1 = (Na(1))
                        If Nu(k) = aN(2) Then Num2 = (Na(2))
                        If Nu(k) = aN(3) Then Num3 = (Na(3))
                        If Nu(k) = aN(4) Then Num4 = (Na(4))
                        If Nu(k) = aN(5) Then Num5 = (Na(5))
                        '----------------------------------------------------
                    Next
                    OrdinaVettore (Nu,1,5,1) ' ordina sequenza ascendente
                    'If Nu(11) = 1 Then Nu(11) = 0 '  elimina numero se superiore a 90
                    If Nu(10) > 90 Then Nu(10) = 0
                    '-----------------------------------------------
                Next
                T = {NomeRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),NomeRuota(Ruota),Num1,Num2,Num3,Num4,Num5,NomeRuota(Ruota ) }
                Call AddRigaTabella(T)
                For  x = 21 To 29 'Step 1
                    If aN(1) =  x Then Call SetColoreCellaRighe (1,ColoreBlu ,ColoreBianco)
                    If aN(2) =  x Then Call SetColoreCellaRighe (2,ColoreBlu ,ColoreBianco)
                    If aN(3) =  x Then Call SetColoreCellaRighe (3,ColoreBlu ,ColoreBianco)
                    If aN(4) =  x Then Call SetColoreCellaRighe (4,ColoreBlu ,ColoreBianco)
                    If aN(5) =  x Then Call SetColoreCellaRighe (5,ColoreBlu ,ColoreBianco)
                    If DecinaNaturale(x) = T(7)  Then Call SetColoreCellaRighe (7,ColoreRosso ,ColoreBianco)
                    If DecinaNaturale(x) = T(8) Then Call SetColoreCellaRighe (8,ColoreRosso ,ColoreBianco)
                    If DecinaNaturale(x) = T(9) Then Call SetColoreCellaRighe (9,ColoreRosso ,ColoreBianco)
                    If DecinaNaturale(x) = T(10) Then Call SetColoreCellaRighe (10,ColoreRosso ,ColoreBianco)
                    If DecinaNaturale(x) = T(11) Then Call SetColoreCellaRighe (11,ColoreRosso ,ColoreBianco)
                    Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
                    Call SetColoreCellaRighe(6,ColoreVerde,ColoreBianco)
                    Call SetColoreCellaRighe(12,ColoreVerde,ColoreBianco)
                Next
            Next
            CreaTabella
            For s = 0 To 80 Step 10
                For k = 1 To 10
                    Nu(k) = (s-1 +(k*1))
                Next
                OrdinaVettore (Nu,1,5,1) ' ordina sequenza ascendente
                'If Nu(13) = 1 Then Nu(13) = 0 '  elimina numero se superiore a 90
                If Nu(10) > 90 Then Nu(10) = 0
                '-----------------------------------------------
                Scrivi (StringaNumeri(Nu,,1))
            Next
            Scrivi
            Scrivi (DataEstrazione(es))
        Next
    End Sub
End Class

Xeroxs · 10 Febbraio 2022

Ciao Mike58, come sempre ottime proposte, sto imparando sempre qualcosa in più da quanto esponi.

Per quanto riguarda lo script di Zetrix che saluto, io pensavo sempre sfruttando quanto da te scritto che si potesse fare in questo modo

If aN(1) = x Then Call SetColoreCellaRighe (7,ColoreBlu ,ColoreBianco)
e cambio solo il colore, ho provato e funziona, sperando possa essere utile anche quanto provo e testo anche io.

Grazie.

Zetrix · 10 Febbraio 2022

Ciao Mike ,Xeroxs,

grazie del suggerimento delle decine adesso e ok
ma bisogna dire ai programmatori di Spaziolight
che bisogna sistemare la decina naturale la decina
di 60.61.62.63.64.65.66.67.68.69 deve scrivere la decina 6
quindi il 60 deve scrivere la decina 6 e non la decina 5
il 60 non puo in nessun modo fa parte della decina 5 poi ognuno fa le sue considerazioni
ma per me il 60 deve scrivere la decina 6 poi la decina matematica
e la decina cabalistica non so che decina calcola sembra che calcola le cadenze
quindi devono essere riviste queste decine ma basta mettere solo una decina
che sia corrisposta alla decina del numero esempio il 70 a la decina e 7 punto
e si scrive 7 perche tante decine cabalistiche matematiche e decine naturali
invece di semplificare le cose bisogna sempre fare le cose in modo difficile

i legend · 10 Febbraio 2022

Per comporre una decina occorrono 10 unità.
Si parte da 1 e si contano le successive.
Ciao

Zetrix · 10 Febbraio 2022

e invece ti sbagli per comporre una decina si scrive da 0
e cioe da 90

90.91.92.93.94.95.96.97.98.99

in teoria questa decina deve scrivere la decina 9
ma possiamo definirla anche la decina 0

Mike58 · 10 Febbraio 2022

Raga è meglio avere dibattimenti costruttivi.
Le decine come li calcola i codici immessi in spaziolight.
oppure creare un algoritmo adatto allo scopo per ogni necessità personale

Ps. qualche dubbio ce l'ho riguardo alle decine matematiche che calcola la cadenza
ma in questo se a qualcuno interessa luigi potrà rispondere meglio.

Codice:

Class Script
    Sub Main
        Dim DecNat () As Integer
        Dim DecCab() As Integer
        Dim DecMat() As Integer
        Dim y,n,k,y1,n1,k1,y2,n2,k2 As Integer
        Scrivi ("Decine Naturali")
        For y = 0 To 8
            For n = 1 To 90
                If DecinaNaturale(n) = y Then
                    k +=1
                    ReDim Preserve DecNat(k)
                    DecNat(k) = n
                End If
            Next
            Scrivi (StringaNumeri (DecNat,,1))
            k = 0
        Next
        Scrivi ("--------------------------------")
        Scrivi ("Decine Cabalistiche")
        For y1 = 0 To 9
            For n1 = 1 To 90
                If DecinaCabalistica (n1) = y1 Then
                    k1 +=1
                    ReDim Preserve DecCab(k1)
                    DecCab (k1) = n1
                End If
            Next
            Scrivi (StringaNumeri (DecCab,,1))
            k1 = 0
            Next
            Scrivi ("--------------------------------")
        Scrivi ("Decine Matematiche")
        For y2 = 0 To 8
            For n2 = 1 To 90
                If DecinaMatematica  (n2) = y2 Then
                    k2 +=1
                    ReDim Preserve DecMat(k2)
                    DecMat (k2) = n2
                End If
            Next
            Scrivi (StringaNumeri (DecMat,,1))
            k2 = 0
            Next
            End Sub
        End Class

Decine Naturali
01.02.03.04.05.06.07.08.09.10
11.12.13.14.15.16.17.18.19.20
21.22.23.24.25.26.27.28.29.30
31.32.33.34.35.36.37.38.39.40
41.42.43.44.45.46.47.48.49.50
51.52.53.54.55.56.57.58.59.60
61.62.63.64.65.66.67.68.69.70
71.72.73.74.75.76.77.78.79.80
81.82.83.84.85.86.87.88.89.90
--------------------------------
Decine Cabalistiche

01.02.03.04.05.06.07.08.09.90
10.11.12.13.14.15.16.17.18.19
20.21.22.23.24.25.26.27.28.29
30.31.32.33.34.35.36.37.38.39
40.41.42.43.44.45.46.47.48.49
50.51.52.53.54.55.56.57.58.59
60.61.62.63.64.65.66.67.68.69
70.71.72.73.74.75.76.77.78.79
80.81.82.83.84.85.86.87.88.89
--------------------------------
Decine Matematiche
01.02.03.04.05.06.07.08.09.10.20.30.40.50.60.70.80
11.21.31.41.51.61.71.81
12.22.32.42.52.62.72.82
13.23.33.43.53.63.73.83
14.24.34.44.54.64.74.84
15.25.35.45.55.65.75.85
16.26.36.46.56.66.76.86
17.27.37.47.57.67.77.87
18.28.38.48.58.68.78.88

Zetrix · 10 Febbraio 2022

Mike per me vanno bene le decine cabalistiche
questa e la decina 4
40.41.42.43.44.45.46.47.48.49
le decine devono avere tutti i diametrali corrisposte alla sua decina
40.45
41.46
42.47
43.48
44.49

i legend · 10 Febbraio 2022

Zetrix forse ricordo male . Alla fine avevo quattro anni quando me le hanno spiegate, più o meno quando ho imparato a scrivere. Di tempo ne è passato e non è stato generoso purtroppo.

Mike sono la persona più costruttiva del mondo e come ben sai aborro le polemiche, quindi per me va benissimo come le intendete

Mike58 · 10 Febbraio 2022

Certo I Legend... era solo un invito a non sfociare in polemiche inutili quando non ci si capisce.
e capita spesso non capirci.
Dai che ci manchi in questo ambiente.

LuigiB · 10 Febbraio 2022

ciao , le procedure le ho copiate e riadattate da spaziometria quindi a meno di errori dovrebbero dare gl s tessi risultati .. siegate bene qual'è la funzione sbagliata e perchelo è cosi provvedo..

Mike58 · 10 Febbraio 2022

Per me Naturali e Cabalistiche sono giuste.
Decine matematiche da la cadenza in decina , e a me va bene così anche questa.

Zetrix · 10 Febbraio 2022

Luigi lo script puoi controllare anche te la decina matematica scrive la cadenza

Codice:

Class Script
    Sub Main
        Dim Nu(10),Na(10),aN(5),Ru(1),Num1,Num2,Num3,Num4,Num5 As Integer
        Dim x , k, y ,s , r , es ,Ruota  As Integer
        Dim Ini As Integer = EstrazioniArchivio  - 14
        Dim fin As Integer = EstrazioniArchivio
        For es = fin To Ini Step - 1
            Dim T(),nn As String
            T = {" Ruota "," E1 "," E2 "," E3 "," E4 "," E5" ," Ruota "," EE1"," EE2"," EE3"," EE4"," EE5"," Ruota "}
            Call InitTabella(T,ColoreVerde,,,ColoreBianco)
            For Ruota = 1 To 11
                For p As Integer = 1 To 5
                    aN(p) = Estratto(es,Ruota ,p)
                    Na(p) = DecinaMatematica(Estratto(es,Ruota,p )) ' trova la decina
                Next
                For s = 0 To 80 Step 10
                    For k = 1 To 10
                        Nu(k) = (s-1 +(k*1))
                        '-------- condizione trova blocco ------------------
                        If Nu(k) = aN(1) Then Num1 = (Na(1))
                        If Nu(k) = aN(2) Then Num2 = (Na(2))
                        If Nu(k) = aN(3) Then Num3 = (Na(3))
                        If Nu(k) = aN(4) Then Num4 = (Na(4))
                        If Nu(k) = aN(5) Then Num5 = (Na(5))
                        '----------------------------------------------------
                    Next
                    OrdinaVettore (Nu,1,5,1) ' ordina sequenza ascendente
                    'If Nu(11) = 1 Then Nu(11) = 0 '  elimina numero se superiore a 90
                    If Nu(10) > 90 Then Nu(10) = 0
                    '-----------------------------------------------
                Next
                T = {NomeRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),NomeRuota(Ruota),Num1,Num2,Num3,Num4,Num5,NomeRuota(Ruota ) }
                Call AddRigaTabella(T)
                For  x = 11 To 19 'Step 30
                For y = 22 To 22
                    If aN(1) =  x Then Call SetColoreCellaRighe (1,ColoreBlu ,ColoreBianco)
                    If aN(2) =  x Then Call SetColoreCellaRighe (2,ColoreBlu ,ColoreBianco)
                    If aN(3) =  x Then Call SetColoreCellaRighe (3,ColoreBlu ,ColoreBianco)
                    If aN(4) =  x Then Call SetColoreCellaRighe (4,ColoreBlu ,ColoreBianco)
                    If aN(5) =  x Then Call SetColoreCellaRighe (5,ColoreBlu ,ColoreBianco)
                    If aN(1) =  y Then Call SetColoreCellaRighe (1,ColoreRosso ,ColoreBianco)
                    If aN(2) =  y Then Call SetColoreCellaRighe (2,ColoreRosso ,ColoreBianco)
                    If aN(3) =  y Then Call SetColoreCellaRighe (3,ColoreRosso ,ColoreBianco)
                    If aN(4) =  y Then Call SetColoreCellaRighe (4,ColoreRosso ,ColoreBianco)
                    If aN(5) =  y Then Call SetColoreCellaRighe (5,ColoreRosso ,ColoreBianco)



                    If DecinaMatematica(x) = T(7)  Then Call SetColoreCellaRighe (7,ColoreRosso ,ColoreBianco)
                    If DecinaMatematica(x) = T(8) Then Call SetColoreCellaRighe (8,ColoreRosso ,ColoreBianco)
                    If DecinaMatematica(x) = T(9) Then Call SetColoreCellaRighe (9,ColoreRosso ,ColoreBianco)
                    If DecinaMatematica(x) = T(10) Then Call SetColoreCellaRighe (10,ColoreRosso ,ColoreBianco)
                    If DecinaMatematica(x) = T(11) Then Call SetColoreCellaRighe (11,ColoreRosso ,ColoreBianco)
                    Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
                    Call SetColoreCellaRighe(6,ColoreVerde,ColoreBianco)
                    Call SetColoreCellaRighe(12,ColoreVerde,ColoreBianco)
                Next
Next
            Next
            CreaTabella
            For s = 0 To 80 Step 10
                For k = 1 To 10
                    Nu(k) = (s-1 +(k*1))
                Next
                OrdinaVettore (Nu,1,5,1) ' ordina sequenza ascendente
                'If Nu(13) = 1 Then Nu(13) = 0 '  elimina numero se superiore a 90
                If Nu(10) > 90 Then Nu(10) = 0
                '-----------------------------------------------
                Scrivi (StringaNumeri(Nu,,1))
            Next
            Scrivi
            Scrivi (DataEstrazione(es))
        Next
    End Sub
End Class

Zetrix · 10 Febbraio 2022

per la decina cabalistica non si sa che decina scrive

Codice:

Class Script
    Sub Main
        Dim Nu(10),Na(10),aN(5),Ru(1),Num1,Num2,Num3,Num4,Num5 As Integer
        Dim x , k, y ,s , r , es ,Ruota  As Integer
        Dim Ini As Integer = EstrazioniArchivio  - 14
        Dim fin As Integer = EstrazioniArchivio
        For es = fin To Ini Step - 1
            Dim T(),nn As String
            T = {" Ruota "," E1 "," E2 "," E3 "," E4 "," E5" ," Ruota "," EE1"," EE2"," EE3"," EE4"," EE5"," Ruota "}
            Call InitTabella(T,ColoreVerde,,,ColoreBianco)
            For Ruota = 1 To 11
                For p As Integer = 1 To 5
                    aN(p) = Estratto(es,Ruota ,p)
                    Na(p) = DecinaCabalistica(Estratto(es,Ruota,p )) ' trova la decina
                Next
                For s = 0 To 80 Step 10
                    For k = 1 To 10
                        Nu(k) = (s-1 +(k*1))
                        '-------- condizione trova blocco ------------------
                        If Nu(k) = aN(1) Then Num1 = (Na(1))
                        If Nu(k) = aN(2) Then Num2 = (Na(2))
                        If Nu(k) = aN(3) Then Num3 = (Na(3))
                        If Nu(k) = aN(4) Then Num4 = (Na(4))
                        If Nu(k) = aN(5) Then Num5 = (Na(5))
                        '----------------------------------------------------
                    Next
                    OrdinaVettore (Nu,1,5,1) ' ordina sequenza ascendente
                    'If Nu(11) = 1 Then Nu(11) = 0 '  elimina numero se superiore a 90
                    If Nu(10) > 90 Then Nu(10) = 0
                    '-----------------------------------------------
                Next
                T = {NomeRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),NomeRuota(Ruota),Num1,Num2,Num3,Num4,Num5,NomeRuota(Ruota ) }
                Call AddRigaTabella(T)
                For  x = 11 To 19 'Step 30
                For y = 22 To 22
                    If aN(1) =  x Then Call SetColoreCellaRighe (1,ColoreBlu ,ColoreBianco)
                    If aN(2) =  x Then Call SetColoreCellaRighe (2,ColoreBlu ,ColoreBianco)
                    If aN(3) =  x Then Call SetColoreCellaRighe (3,ColoreBlu ,ColoreBianco)
                    If aN(4) =  x Then Call SetColoreCellaRighe (4,ColoreBlu ,ColoreBianco)
                    If aN(5) =  x Then Call SetColoreCellaRighe (5,ColoreBlu ,ColoreBianco)
                    If aN(1) =  y Then Call SetColoreCellaRighe (1,ColoreRosso ,ColoreBianco)
                    If aN(2) =  y Then Call SetColoreCellaRighe (2,ColoreRosso ,ColoreBianco)
                    If aN(3) =  y Then Call SetColoreCellaRighe (3,ColoreRosso ,ColoreBianco)
                    If aN(4) =  y Then Call SetColoreCellaRighe (4,ColoreRosso ,ColoreBianco)
                    If aN(5) =  y Then Call SetColoreCellaRighe (5,ColoreRosso ,ColoreBianco)



                    If DecinaCabalistica(x) = T(7)  Then Call SetColoreCellaRighe (7,ColoreRosso ,ColoreBianco)
                    If DecinaCabalistica(x) = T(8) Then Call SetColoreCellaRighe (8,ColoreRosso ,ColoreBianco)
                    If DecinaCabalistica(x) = T(9) Then Call SetColoreCellaRighe (9,ColoreRosso ,ColoreBianco)
                    If DecinaCabalistica(x) = T(10) Then Call SetColoreCellaRighe (10,ColoreRosso ,ColoreBianco)
                    If DecinaCabalistica(x) = T(11) Then Call SetColoreCellaRighe (11,ColoreRosso ,ColoreBianco)
                    Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
                    Call SetColoreCellaRighe(6,ColoreVerde,ColoreBianco)
                    Call SetColoreCellaRighe(12,ColoreVerde,ColoreBianco)
                Next
Next
            Next
            CreaTabella
            For s = 0 To 80 Step 10
                For k = 1 To 10
                    Nu(k) = (s-1 +(k*1))
                Next
                OrdinaVettore (Nu,1,5,1) ' ordina sequenza ascendente
                'If Nu(13) = 1 Then Nu(13) = 0 '  elimina numero se superiore a 90
                If Nu(10) > 90 Then Nu(10) = 0
                '-----------------------------------------------
                Scrivi (StringaNumeri(Nu,,1))
            Next
            Scrivi
            Scrivi (DataEstrazione(es))
        Next
    End Sub
End Class

i legend · 10 Febbraio 2022

Zetrix ha scritto:
Ciao Mike ,Xeroxs,

grazie del suggerimento delle decine adesso e ok
ma bisogna dire ai programmatori di Spaziolight
che bisogna sistemare la decina naturale la decina
di 60.61.62.63.64.65.66.67.68.69 deve scrivere la decina 6
quindi il 60 deve scrivere la decina 6 e non la decina 5

Ciao ho guardato in rete le decine naturali lotto corrispondono a quelle di luigi. Ora ci saranno tanti tipi di decina al lotto ,quindi forse Zetrix si riferisce a qualche altro tipo?
Lo zero non esiste nel lotto e non si può pensare di sostituirlo con il 90 secondo me, ma forse è ancora un altro tipo di decina.
Abbiamo delle applicazioni di statistica formule matematiche e poi di matematico c è davvero poco se pensiamo a questi esempi

0.1.2.3.4.5.6.7.8.9
10.11.12.13.14.15.16.17.18.19
ecc...
80.81.82.83.84.85.86.87.88.89
90
Cosi sarebbe corretto ma non omogeneo per questo gioco.
I gruppi dovrebbero essere di 10 elementi
Mi riferivo a questo.
Solo per spiegare quello che avevo scritto sopra.

i legend · 10 Febbraio 2022

Buona notte

Per me è arrivata l ora della nanna

Zetrix · 10 Febbraio 2022

ilegend a me non mi interessa quello che scrivono in rete sicuramente i miei studi saranno diversi dai tuoi
delle decine che ce ne sono tante questo spiega il fatto che ci sono diverse scuole e ognuno segue la sua teoria
adesso non voglio polemizzare con te per dire cio che e giusto e cio che e sbagliato i seguo i miei studi.

ciao

programmazione spazio script in vbnet

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Premium Member

​

Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Premium Member

Advanced Member >PLATINUM PLUS<

LuigiB

Guest

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Premium Member

Premium Member

Advanced Premium Member