Novità

programmazione spazio script in vbnet

Zetrix , non si tratta degli studi che ognuno segue , si tratta di standardizzazione dei nomi.
Se tutti considerano le decine naturali andare di 10 in dieci partendo da 1 ,spazio non può chiamarle diversamente.
Se hai in mente dei tuoi studi personali ( ora non ho capito cosa intendi) ,chiamale decine Zetrix e si fa una funzione specifica( che è facilissima da fare)
Non si tratta di fare polemiche, ripeto il lunguaggiobdeve essere standardizzato in quanto non fa riferimento a quello matematico.
La ciclometria è propria del lotto, ideata per il lotto, ha delle regole.
Figure controfigure sono quelle e basta.
Questo è un programma per tutti non ad personam.
Ma si possono fare delle funzioni specifiche.
Ripeto almeno la standardizzazione dei nomi da una parvenza matematica .
Ciao e questa non è polemica, il confronto costruttivo non è mai polemica ma aiuta a crescere ed arricchisce, si scoprono nuovi punti di vista.
Ciao.
 
Buongiorno a Tutti, Premetto che non amo intervenire per creare discussioni o malumori.

Per quanto riguarda le Decine, Come riportato da Mike58 Le decine naturali e cabalistiche sono Corrette, Esatte, Perfette, lascio perdere la decina Matematica che in oltre 30 anni non l'ho mai vista usare, per correttezza riporto,

Decine 01.jpg
Decine cabalistiche.jpg
Decina 02.jpg

Poi che piace o meno a Tutti me compreso le regole sono già scritte e non modificabili o interpretate a piacimento, poi per carità ognuno poi è libero (me compreso) di fare o creare qualunque cosa nello studio del lotto, ma le regole non cambiano, ho visto e vedo molti che quando parlano di ciclometria del lotto danno spiegazioni che non hanno senso e per assurdo trovano consensi, la ciclometria nel lotto è quella e non va confusa con sommattivi o altre banalità, ma nessuno vieta di mescolarle, ma questo vuol dire altro.

Detto questo Per Quanto riguarda Zetrix, Penso che ci sia solo un "errore di esposizione" dei dati nello script esposto.

Ad esempio se vuoi evidenziare il 90 della decina "0 - Zero o per cosi dire del 90" come fai visto che è scritta come "00"

per correggerla scrivi in questo modo

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
If Nu(1) = 00 Then Nu(1) = 90

90.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

ora evidenziare il 90 non ci sono riuscito se scegli la sua decina, e quindi l'esposizione corretta non si ottiene alla sua uscita.

Poi scrivi
"per la decina cabalistica non si sa che decina scrive"

Tu nel primo tabellone scegli la decina For x = 11 To 19 è quì tutto ok ovvero la decina 1

ma se poi scrivi

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)

non può evidenziare la decina cabalistica corrispondente in quanto x da te indicato riporta 11 To 19 e quindi lui lo evidenzia corretto
perchè If DecinaCabalistica(x) non puo trovare la decina cabalistica corretta se non correttamente indicata, ma per come scritto lo script a parte il 90 evidenzia quanto Tu stesso gli hai detto di cercare.
Bisognerebbe capire come scriverla ma se tanto poi anche nel secondo tabellone il valore è corretto....

Per carità poi magari ci può essere un errore nel codice ma io non riesco a capire se è così.

Perchè se ho ben capito nel secondo tabellone sono riportati i numeri che appartengono ai gruppi di numeri delle varie decine per cui se evidenzia il "2" vuol dire che appartiene al secondo gruppo e non alla decina 2, per cui essendo del secondo gruppo anche nel secondo tabellone riporta la decina 11 To 19, corretta
Come vedi è solo un interpretazione che dai all'esposizione dei risultati.

90.01.02.03.04.05.06.07.08.09 gruppo 1 decina zero
10.11.12.13.14.15.16.17.18.19 gruppo 2 decina 1
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 gruppo 9 decina 8

e nel secondo tabellone scrive il gruppo non la decina, Bisogna olo capire come scrivere i dati nel secondo tabellone il gruppo o la decina

Sia Ben chiaro le mie sono solo esposizione dei fatti palesi e spero che nessuno si offenda.

Grazie
 
Con piccole modifiche per coreggere dei dati in esposizione

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
            Scrivi (DataEstrazione(es))
            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
                    If Nu(1) = 00 Then Nu(1) = 90
                    '-----------------------------------------------
                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 = 10 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
                If Nu(1) = 00 Then Nu(1) = 90
                '-----------------------------------------------
                Scrivi (StringaNumeri(Nu,,1))
            Next
            Scrivi
            'Scrivi (DataEstrazione(es))
        Next
    End Sub
End Class

Sperando di non aver sbagliato nel farlo.
 
i legend la discussione delle decine l'avevo chiusa non ritorniamo di nuovo a dire
quale e la decina giusta o quella sbagliata la decina di un gruppo di numeri
deve essere solo una il 70 e della decina 7 punto se poi uno vuole metterla nella
decina naturale scrive la decina 6

Xeroxs scusami ma ieri mi sono imbrogliato con gli script non tenere conto
di quello che ho scritto nello script lo scritto a caso 11 To 19
grazie di questo suggerimento per scrivere il 90
If Nu(10) > 90 Then Nu(10) = 0
If Nu(1) = 00 Then Nu(1) = 90

adesso dobbiamo vedere come evidenziare il 90 nella tabella a lato
con i gruppi qui ho scritto la decina cabalistica ed evidenzia i numeri
di ogni gruppo e cosi va bene invece se poi vogliamo evidenziare
le decine si deve scrivere decina naturale ma usiamo la decina cabalistica
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, 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
                    If Nu(1) = 00 Then Nu(1) = 90
                    '-----------------------------------------------
                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 = 0 To 9 '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,ColoreGiallo ,ColoreNero)
                    If DecinaCabalistica(x) = T(8) Then Call SetColoreCellaRighe (8,ColoreGiallo ,ColoreNero)
                    If DecinaCabalistica(x) = T(9) Then Call SetColoreCellaRighe (9,ColoreGiallo ,ColoreNero)
                    If DecinaCabalistica(x) = T(10) Then Call SetColoreCellaRighe (10,ColoreGiallo ,ColoreNero)
                    If DecinaCabalistica(x) = T(11) Then Call SetColoreCellaRighe (11,ColoreGiallo ,ColoreNero)
                    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
                If Nu(1) = 00 Then Nu(1) = 90
                '-----------------------------------------------
                Scrivi (StringaNumeri(Nu,,1))
            Next
            Scrivi
            Scrivi (DataEstrazione(es))
        Next
    End Sub
End Class
 
2613.PNG
08/02/2022

90.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

Xeroxs forse per correttezza dovremmo mettere il gruppo 0 *
nella tabella il 90 lo scrive nel gruppo 7 (boo) invece dovrebbe mettere il gruppo 0
le decine lasciamo stare lo script deve evidenziare nella tabella a lato
evidenziati in giallo i numeri corripondenti per ogni gruppo

esempio
grupppo 8 sequenza 1 = 80.81.82.83.84.85.86.87.88.89

qui invece evidenzia il gruppo 9 e non va bene cosi
 
Ultima modifica:
Xeroxs invece se usiamo la decina naturale evidenzia il gruppo 0
rimane il fatto che gli zerati li mette in un altro gruppo
esempio il 10 lo scrive nel gruppo 0

2614.PNG
10/02/2022

90.01.02.03.04.05.06.07.08.09->gruppo 0
10.11.12.13.14.15.16.17.18.19->gruppo 1
20.21.22.23.24.25.26.27.28.29->gruppo 2
30.31.32.33.34.35.36.37.38.39->gruppo 3
40.41.42.43.44.45.46.47.48.49->gruppo 4
50.51.52.53.54.55.56.57.58.59->gruppo 5
60.61.62.63.64.65.66.67.68.69->gruppo 6
70.71.72.73.74.75.76.77.78.79->gruppo 7
80.81.82.83.84.85.86.87.88.89->gruppo 8


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) = 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
                    If Nu(1) = 00 Then Nu(1) = 90
                    '-----------------------------------------------
                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 = 0 To 9 '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 DecinaNaturale(x) = T(7)  Then Call SetColoreCellaRighe (7,ColoreGiallo ,ColoreNero)
                    If DecinaNaturale(x) = T(8) Then Call SetColoreCellaRighe (8,ColoreGiallo ,ColoreNero)
                    If DecinaNaturale(x) = T(9) Then Call SetColoreCellaRighe (9,ColoreGiallo ,ColoreNero)
                    If DecinaNaturale(x) = T(10) Then Call SetColoreCellaRighe (10,ColoreGiallo ,ColoreNero)
                    If DecinaNaturale(x) = T(11) Then Call SetColoreCellaRighe (11,ColoreGiallo ,ColoreNero)
                    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
                If Nu(1) = 00 Then Nu(1) = 90
                '-----------------------------------------------
                Scrivi (StringaNumeri(Nu,,1))
            Next
            Scrivi
            Scrivi (DataEstrazione(es))
        Next
    End Sub
End Class
 
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
Zetrix se luigi vuole correggere e chiamare la decina che hai evidenziato decina naturale del 6 come hai richiesto io non ho obiezioni, e ,neanche voce in capitolo non contribuendo in alcun modo al progetto.

Xerox ottimo lavoro:)
Con il nuovo linguaggio sei più avanti di me :) mi fa piacere:)
Ciao a tutti:)
 
ilegend sono d'accordo con te evitiamo tante polemiche inutili che non servono a niente, Luigi una cosa deve fare eliminare tutte le decine naturali matematiche e cabalistiche che creano solo confusione e scrivere soltanto una decina che sarà corrisposta alla prima cifra del numero così abbiamo una decina una figura e una cadenza
ciao
 
Ciao Mike , vorrei tabellare questo script con le somme tra gli estratti
ti allego lo script

Codice:
Class Script
    Sub Main
        Dim Nu(10),aN(5),Ru(1),Num1,Num2,Num3,Num4,Num5,Num6,Num7,Num8,Num9,Num10 As Integer
        Dim x , y , 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 "," 1-2"," 1-3"," 1-4"," 1-5"," 2-3"," Ruota "," 2-4"," 2-5"," 3-4"," 3-5"," 4-5"," Ruota "}
        
        Call InitTabella(T,ColoreVerde,,,ColoreBianco)



       For Ruota = 1 To 11
            For p1 As Integer = 1 To 4
            For p2 As Integer = p1 + 1 To 5
                aN(p1) = Estratto(es,Ruota ,p1)
                aN(p2) = Estratto(es,Ruota ,p2)
                
                     Nu(1) = FuoriX(aN(p1)+aN(p2),90)
            Next
            Next
 
  For s = 1 To 11
                For k = 1 To 9
                    Nu(k) = (s-11 +(k*11) )
            
                     '-------- condizione trova blocco ------------------
                    If Nu(k) = aN(1) Then Num1 = Nu(1)
                    If Nu(k) = aN(2) Then Num2 = Nu(1)
                    If Nu(k) = aN(3) Then Num3 = Nu(1)
                    If Nu(k) = aN(4) Then Num4 = Nu(1)
                    If Nu(k) = aN(5) Then Num5 = Nu(1)
                    If Nu(k) = aN(1) Then Num6 = Nu(1)
                    If Nu(k) = aN(2) Then Num7 = Nu(1)
                    If Nu(k) = aN(3) Then Num8 = Nu(1)
                    If Nu(k) = aN(4) Then Num9 = Nu(1)
                    If Nu(k) = aN(5) Then Num10 = 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(9) > 90 Then Nu(9) = 0
                '-----------------------------------------------
              Next
      
            T = {NomeRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),NomeRuota(Ruota),Num1,Num2,Num3,Num4,Num5,NomeRuota(Ruota ),Num6,Num7,Num8,Num9,Num10,NomeRuota(Ruota ) }
            Call AddRigaTabella(T)

 

For  x = 1 To 90 Step 11   ' ->gruppo 1
    
For  y = 4 To 4  ' step 3  ' ->evidenzia numero in tabella


                
                    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,ColoreGiallo ,ColoreNero)
                    If Num2 = x Then Call SetColoreCellaRighe (8,ColoreGiallo ,ColoreNero)
                    If Num3 = x Then Call SetColoreCellaRighe (9,ColoreGiallo ,ColoreNero)
                    If Num4 = x Then Call SetColoreCellaRighe (10,ColoreGiallo ,ColoreNero)
                    If Num5 = x Then Call SetColoreCellaRighe (11,ColoreGiallo ,ColoreNero)
                    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 Num6 = x Then Call SetColoreCellaRighe (13,ColoreGiallo ,ColoreNero)
                    If Num7 = x Then Call SetColoreCellaRighe (14,ColoreGiallo ,ColoreNero)
                    If Num8 = x Then Call SetColoreCellaRighe (15,ColoreGiallo ,ColoreNero)
                    If Num9 = x Then Call SetColoreCellaRighe (16,ColoreGiallo ,ColoreNero)
                    If Num10 = x Then Call SetColoreCellaRighe (17,ColoreGiallo ,ColoreNero)



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



Next
Next
Next 
 


        CreaTabella
        For s = 1 To 11
            For k = 1 To 9
                Nu(k) = (s-11 +(k*11))
            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(9) > 90 Then Nu(9) = 0
            '-----------------------------------------------
          

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

    End Sub
End Class
 
ilegend riesci a sistemare questo script dovrebbe scrivere i rit per ogni num estratto
indietro di una estr ho seguito piu o meno il listato che a fatto cinzia ma non va bene


Codice:
Class Script
    Sub Main
        Dim Nu(9),Na(10),aN(5),Ru(1),Rt(5),Num1,Num2,Num3,Num4,Num5,Num6,Num7,Num8,Num9,Num10 As Integer
        Dim x , y ,a , b, c ,d, e , k, s , r , es ,Ruota  As Integer
        Dim ini As Integer = EstrazioniArchivio
        Dim fin As Integer = EstrazioniArchivio

For es = ini To fin
    

        Dim T() As String
        T = {" Ruota "," E1 "," E2 "," E3 "," E4 "," E5" ," Ruota "," Rt1"," Rt2"," Rt3"," Rt4"," Rt5 "," Ruota ","  Data "}
        
        Call InitTabella(T,ColoreVerde,,,ColoreBianco)



       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)

                              
Rt(1) = EstrattoRitardo(es-1,aN(1),Ruota)
Rt(2) = EstrattoRitardo(es-1,aN(2),Ruota)
Rt(3) = EstrattoRitardo(es-1,aN(3),Ruota)
Rt(4) = EstrattoRitardo(es-1,aN(4),Ruota)
Rt(5) = EstrattoRitardo(es-1,aN(5),Ruota)

 

          
            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) }
            Call AddRigaTabella(T)

 

 


                    If aN(1) Then Call SetColoreCellaRighe (1,ColoreBlu ,ColoreBianco)
                    If aN(2) Then Call SetColoreCellaRighe (2,ColoreBlu ,ColoreBianco)
                    If aN(3) Then Call SetColoreCellaRighe (3,ColoreBlu ,ColoreBianco)
                    If aN(4) Then Call SetColoreCellaRighe (4,ColoreBlu ,ColoreBianco)
                    If aN(5) Then Call SetColoreCellaRighe (5,ColoreBlu ,ColoreBianco)
                
                    If Rt(1) Then Call SetColoreCellaRighe (7,ColoreBlu ,ColoreBianco)
                    If Rt(2) Then Call SetColoreCellaRighe (8,ColoreBlu ,ColoreBianco)
                    If Rt(3) Then Call SetColoreCellaRighe (9,ColoreBlu ,ColoreBianco)
                    If Rt(4) Then Call SetColoreCellaRighe (10,ColoreBlu ,ColoreBianco)
                    If Rt(5) Then Call SetColoreCellaRighe (11,ColoreBlu ,ColoreBianco)
                



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


Next 
 


        CreaTabella
      
 Next
 

    End Sub
End Class
 
Ciao Zetrix Ti rispondo io.
Innanzitutto i Ritardi precedenti li avevo calcolati io nei miei script precedenti dei quali ne fai uso come risultanze di output.
Poi... hai fatto dei grandi passi indietro circa logica e comprensione script vbnet.
Cerco di spiegare
Hai un range pari a zero
Dim ini As Integer = EstrazioniArchivio
Dim fin As Integer = EstrazioniArchivio

e un ciclo zero
for es = ini to fin
come fai a calcolare i ritardi precedenti
con il codice anche errrato che hai messo (non guardi la guida ? )
Rt(1) = EstrattoRitardo(es-1,aN(1),Ruota) - sbagliato

Function EstrattoRitardo(N As Integer, Ruote As Object, Inizio As Integer, Fine As Integer, Optional aPos() As Boolean = Nothing, Optional ByRef EstrEsaminate As Integer = 0) As Integer

va corretto oltre che mettendo in ordine i parametri del codice anche con un range di verifica valido.
Rt(1) = EstrattoRitardo(aN(1),Ruota,ini-100,es-1)
.
comunque rifletti perchè hai tanto sbagliato

Codice:
Class Script
    Sub Main
        Dim Nu(9),Na(10),aN(5),Ru(1),Rt(5),Num1,Num2,Num3,Num4,Num5,Num6,Num7,Num8,Num9,Num10 As Integer
        Dim x , y ,a , 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
        T = {" Ruota "," E1 "," E2 "," E3 "," E4 "," E5" ," Ruota "," Rt1"," Rt2"," Rt3"," Rt4"," Rt5 "," Ruota ","  Data "}
        Call InitTabella(T,ColoreVerde,,,ColoreBianco)
        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)
                Rt(1) = EstrattoRitardo(aN(1),Ruota,ini-100,es-1)
                Rt(2) = EstrattoRitardo(aN(2),Ruota,ini-100,es-1)
                Rt(3) = EstrattoRitardo(aN(3),Ruota,ini-100,es-1)
                Rt(4) = EstrattoRitardo(aN(4),Ruota,ini-100,es-1)
                Rt(5) = EstrattoRitardo(aN(5),Ruota,ini-100,es-1)
                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) }
                Call AddRigaTabella(T)

                If aN(1) Then Call SetColoreCellaRighe (1,ColoreBlu ,ColoreBianco)
                If aN(2) Then Call SetColoreCellaRighe (2,ColoreBlu ,ColoreBianco)
                If aN(3) Then Call SetColoreCellaRighe (3,ColoreBlu ,ColoreBianco)
                If aN(4) Then Call SetColoreCellaRighe (4,ColoreBlu ,ColoreBianco)
                If aN(5) Then Call SetColoreCellaRighe (5,ColoreBlu ,ColoreBianco)
                If Rt(1) Then Call SetColoreCellaRighe (7,ColoreBlu ,ColoreBianco)
                If Rt(2) Then Call SetColoreCellaRighe (8,ColoreBlu ,ColoreBianco)
                If Rt(3) Then Call SetColoreCellaRighe (9,ColoreBlu ,ColoreBianco)
                If Rt(4) Then Call SetColoreCellaRighe (10,ColoreBlu ,ColoreBianco)
                If Rt(5) Then Call SetColoreCellaRighe (11,ColoreBlu ,ColoreBianco)
                Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
                Call SetColoreCellaRighe(6,ColoreVerde,ColoreBianco)
                Call SetColoreCellaRighe(12,ColoreVerde,ColoreBianco)
                Call SetColoreCellaRighe(13,ColoreVerde,ColoreBianco)
            Next
        Next
        CreaTabella
    End Sub
End Class
 
Ciao Mike, grazie per avermi risposto, volevo dire che lo script lo copiato e modificato
da questo script che la scritto Cinzia ma questo script gira su SpazioMetria e cosi ho provato
ad adattarlo in SpazioLight ma la stringa serie ritardo dava errore adesso provo lo script
che ai fatto te e poi ti farò sapere devo dirti però che su SpazioMetria riesco meglio a modificare
gli script invece in SpazioLight e un po piu difficile anche se qualcosa riesco a fare ma ce molto da
imparare e sto vedendo anche gli altri esempi degli script scritti nel forum

Codice:
Sub Main()
' Aldinobis - somma ritardo 50 - Script Cinzia
Dim ru(1),n1(1),n2(1),n3(1),n4(1),n5(1),rt(5),ps(3),n(5),rk(5)
Dim x
ps(2) = 1
ps(3) = 0.50


For es = EstrazioneFin To EstrazioneFin

Scrivi DataEstrazione(es),0,1,7,4,4
Scrivi

'c=0
For r = 1 To 12
'If r=6 Or r=8 Then ' NA e RO
If r = 11 Then r = 12
ru(1) = r

n1(1) = Estratto(es,r,1)
n2(1) = Estratto(es,r,2)
n3(1) = Estratto(es,r,3)
n4(1) = Estratto(es,r,4)
n5(1) = Estratto(es,r,5)

rt(1) = SerieRitardo(1,es - 1,n1,ru,1)
rt(2) = SerieRitardo(1,es - 1,n2,ru,1)
rt(3) = SerieRitardo(1,es - 1,n3,ru,1)
rt(4) = SerieRitardo(1,es - 1,n4,ru,1)
rt(5) = SerieRitardo(1,es - 1,n5,ru,1)

sor = rt(1) + rt(2) + rt(3) + rt(4) + rt(5)
'If sor=100 Then
'c=c+1
'soe =(SommaEstratti(es,r))
rk(1) = Fuori90(n1(1) + rt(1))
rk(2) = Fuori90(n2(1) + rt(2))
rk(3) = Fuori90(n3(1) + rt(3))
rk(4) = Fuori90(n4(1) + rt(4))
rk(5) = Fuori90(n5(1) + rt(5))


'Scrivi " Somma estratti "&soe
n(1) = Format2(Estratto(es,r,1))
n(2) = Format2(Estratto(es,r,2))
n(3) = Format2(Estratto(es,r,3))
n(4) = Format2(Estratto(es,r,4))
n(5) = Format2(Estratto(es,r,5))

Scrivi "" & " " & Left(NomeRuota(r),2) & " " & StringaNumeri(n) & " = rt " & StringaNumeri(rt) & " =  " & sor & " =  " & StringaNumeri(rk) & " ",0,1,1,5,4

'If c>0 Then Scrivi "Casi "& c
'Scrivi "Somma estratti " & soe,0,1,7,4,4
'ImpostaGiocata 1,n,ru,ps,18,2
'Gioca es
'End If
'End If
Next
Next

End Sub
 
Mike ho provato lo script mi da errore su queste righe

Rt(1) = EstrattoRitardo(aN(1),Ruota,ini-100,es-1)
Rt(2) = EstrattoRitardo(aN(2),Ruota,ini-100,es-1)
Rt(3) = EstrattoRitardo(aN(3),Ruota,ini-100,es-1)
Rt(4) = EstrattoRitardo(aN(4),Ruota,ini-100,es-1)
Rt(5) = EstrattoRitardo(aN(5),Ruota,ini-100,es-1)

scusa Mike ma EstrazioniArchivio equivale a EstrazioneFin
come in SpazioMetria ?
perche non ce EstrazioneIni e EstrazioneFin in SpazioLight
sarebbe piu facile per me scrivere gli script

ini-100,es-1) non so perche ai scritto ini-100 e poi es,-1,
comunque lo script da errore
 
Ultima modifica:
Mike ho provato lo script mi da errore su queste righe

Rt(1) = EstrattoRitardo(aN(1),Ruota,ini-100,es-1)
Rt(2) = EstrattoRitardo(aN(2),Ruota,ini-100,es-1)
Rt(3) = EstrattoRitardo(aN(3),Ruota,ini-100,es-1)
Rt(4) = EstrattoRitardo(aN(4),Ruota,ini-100,es-1)
Rt(5) = EstrattoRitardo(aN(5),Ruota,ini-100,es-1)

scusa Mike ma EstrazioniArchivio equivale a EstrazioneFin
come in SpazioMetria ?
Si !! EstrazioniArchivio è uguale a EstrazioneFin.
Invece a me lo script non da nessun errore. (Ricopialo facendo attenzione che la pagina sia vuota in fase di incolla.
Il mio pensiero è che se si vuole in ogni cosa con un pò di applicazione si arriva anche lontano.

Ciao e buona domenica.
 
Mike ho provato in questo modo ma da sempre errore lo script

Codice:
Class Script
    Sub Main
        Dim Nu(9),Na(10),aN(5),Ru(1),Rt(5),Num1,Num2,Num3,Num4,Num5,Num6,Num7,Num8,Num9,Num10 As Integer
        Dim x , y ,a , 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
        T = {" Ruota "," E1 "," E2 "," E3 "," E4 "," E5" ," Ruota "," Rt1"," Rt2"," Rt3"," Rt4"," Rt5 "," Ruota ","  Data "}
        Call InitTabella(T,ColoreVerde,,,ColoreBianco)
        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)
                Rt(1) = EstrattoRitardo(aN(1),Ruota,ini,fin,es-1)
                Rt(2) = EstrattoRitardo(aN(2),Ruota,ini,fin,es-1)
                Rt(3) = EstrattoRitardo(aN(3),Ruota,ini,fin,es-1)
                Rt(4) = EstrattoRitardo(aN(4),Ruota,ini,fin,es-1)
                Rt(5) = EstrattoRitardo(aN(5),Ruota,ini,fin,es-1)
                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) }
                Call AddRigaTabella(T)

                If aN(1) Then Call SetColoreCellaRighe (1,ColoreBlu ,ColoreBianco)
                If aN(2) Then Call SetColoreCellaRighe (2,ColoreBlu ,ColoreBianco)
                If aN(3) Then Call SetColoreCellaRighe (3,ColoreBlu ,ColoreBianco)
                If aN(4) Then Call SetColoreCellaRighe (4,ColoreBlu ,ColoreBianco)
                If aN(5) Then Call SetColoreCellaRighe (5,ColoreBlu ,ColoreBianco)
                If Rt(1) Then Call SetColoreCellaRighe (7,ColoreBlu ,ColoreBianco)
                If Rt(2) Then Call SetColoreCellaRighe (8,ColoreBlu ,ColoreBianco)
                If Rt(3) Then Call SetColoreCellaRighe (9,ColoreBlu ,ColoreBianco)
                If Rt(4) Then Call SetColoreCellaRighe (10,ColoreBlu ,ColoreBianco)
                If Rt(5) Then Call SetColoreCellaRighe (11,ColoreBlu ,ColoreBianco)
                Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
                Call SetColoreCellaRighe(6,ColoreVerde,ColoreBianco)
                Call SetColoreCellaRighe(12,ColoreVerde,ColoreBianco)
                Call SetColoreCellaRighe(13,ColoreVerde,ColoreBianco)
            Next
        Next
        CreaTabella
    End Sub
End Class
 
ok Mike ma ho la versione di SpazioLight 1.0.33 forse e stato fatto qualche altro aggiornamento
percho ho fatto il copia e incolla del tuo script e mi da questo errore qua e scritto pure in inglese
ed io non so tanto dell'inglese gia non so tanto dell'italiano figurati dell'inglese :)

2696.PNG
 
Ultima modifica:
Ciao Zetrix, ma cosa fai questa domenica...
lo vedi e lo leggi il codice che hai messo su , hai messo inizio-fine e es-1 come parametri.
Rt(1) = EstrattoRitardo(aN(1),Ruota,ini,fin,es-1)
i parametri sono 2 inizio e fine,che sarà uguale a es-1
e visto che hai un range zero ... fai un inizio datato ini o fin ini-100 o fin-100
Rt(1) = EstrattoRitardo(aN(1),Ruota,ini-100,es-1)
Rt(1) = EstrattoRitardo(aN(1),Ruota,fin-100,es-1)
Correggi.

io ho la versione ultima 1.0.38 è sempre meglio avere l'ultima, adesso non ricordo quale codice sia cambiato, ma sicuramente è quello.
 
MIke ci sentiamo dopo adesso ho preso il caffè poi vedrò meglio il tuo script e perche da
l'errore adesso devo scrivere nel mio forum

buona domenica

a ok allora vedrò di fare il nuovo aggiornamento di SpazioLight sarà forse dovuto a questo
perche dava l'errore poi ti saprò dire se e tutto ok

ho la versione 1.0.33 forse sono rimasto un po indietro con l'aggiornamento
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20

Ultimi Messaggi

Indietro
Alto