programmazione spazio script in vbnet

Zetrix · 6 Febbraio 2022

Mike ho provato con ubound come ai scritto te ma non evidenzia niente ho provato con il ciclo for z
ma ti sai spiegare perche non evidenzia nulla invece con il ciclo for x evidenzia i numeri
in tabella sto facendo diversi tentativi ma ancora non trovo la soluzione

Codice:

Class Script
    Sub Main
        Dim Nu(5),aP(5),Ru(1),Num(5) As Integer
        Dim z ,x , y, p , r , es  As Integer
      
        Dim stesto  As String
        Dim Ini As Integer = EstrazioniArchivio  - 8
        Dim fin As Integer = EstrazioniArchivio
        Dim T() , V() As String
        T = {" Ruota "," E1 "," E2 "," E3 "," E4 "," E5" ," Ruota "," EE1"," EE2"," EE3"," EE4"," EE5"," Ruota "}
        For es = fin To Ini Step - 1
            Call InitTabella(T,ColoreVerde,,,ColoreBianco)
            For r = 1 To 11
                Ru(1) = r
                For p = 1 To 5
    
                    Nu(p) = Estratto(es,r,p)
                    Num(p) = Estratto(es,r,p)
              
            
                Next
                V = {NomeRuota(r),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),NomeRuota(r),Num(1),Num(2),Num(3),Num(4),Num(5),NomeRuota(r) }
                Call AddRigaTabella(V)
                stesto = ""
                For  x = 1 To 90 Step 8

   For z = 1 To 90 Step 8
                
   Next
                    stesto = stesto & (x) & "."
                    If Nu(1) =  x Then Call SetColoreCellaRighe (1,ColoreBlu ,ColoreBianco)
                    If Nu(2) =  x Then Call SetColoreCellaRighe (2,ColoreBlu ,ColoreBianco)
                    If Nu(3) =  x Then Call SetColoreCellaRighe (3,ColoreBlu ,ColoreBianco)
                    If Nu(4) =  x Then Call SetColoreCellaRighe (4,ColoreBlu ,ColoreBianco)
                    If Nu(5) =  x Then Call SetColoreCellaRighe (5,ColoreBlu ,ColoreBianco)
                    If Num(1) = z Then Call SetColoreCellaRighe (7,ColoreRosso ,ColoreBianco)
                    If Num(2) = z Then Call SetColoreCellaRighe (8,ColoreRosso ,ColoreBianco)
                    If Num(3) = z Then Call SetColoreCellaRighe (9,ColoreRosso ,ColoreBianco)
                    If Num(4) = z Then Call SetColoreCellaRighe (10,ColoreRosso ,ColoreBianco)
                    If Num(5) = z Then Call SetColoreCellaRighe (11,ColoreRosso ,ColoreBianco)
                  
                    Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
                    Call SetColoreCellaRighe(6,ColoreVerde,ColoreBianco)
                    Call SetColoreCellaRighe(12,ColoreVerde,ColoreBianco)
            

Next   
            Next
            Scrivi (DataEstrazione(es))
            Scrivi ("gruppo 1 sequenza 8 > " & stesto)
            'stesto = ""
            CreaTabella
        Next
    End Sub
End Class

Mike58 · 6 Febbraio 2022

Ciao Zetrix, devi fare attenzione ai cicli for devi metterli e chiuderli nel modo corretto
avevi aperto e chiuso il ciclo e poi tentavi di scrivere le evidenze (Sbagliato)

Codice:

Class Script
    Sub Main
        Dim Nu(5),aP(5),Ru(1),Num(5) As Integer
        Dim z ,x , y, p , r , es  As Integer
        Dim stesto,sTesto2   As String
        Dim Ini As Integer = EstrazioniArchivio  - 8
        Dim fin As Integer = EstrazioniArchivio
        Dim T() , V() As String
        T = {" Ruota "," E1 "," E2 "," E3 "," E4 "," E5" ," Ruota "," EE1"," EE2"," EE3"," EE4"," EE5"," Ruota "}
        For es = fin To Ini Step - 1
            Call InitTabella(T,ColoreVerde,,,ColoreBianco)
            For r = 1 To 11
                Ru(1) = r
                For p = 1 To 5
                    Nu(p) = Estratto(es,r,p)
                    Num(p) = Estratto(es,r,p)
                Next
                V = {NomeRuota(r),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),NomeRuota(r),Num(1),Num(2),Num(3),Num(4),Num(5),NomeRuota(r) }
                Call AddRigaTabella(V)
                stesto = ""
                For  x = 1 To 90 Step 8
                    stesto = stesto & (x) & "."
                    If Nu(1) =  x Then Call SetColoreCellaRighe (1,ColoreBlu ,ColoreBianco)
                    If Nu(2) =  x Then Call SetColoreCellaRighe (2,ColoreBlu ,ColoreBianco)
                    If Nu(3) =  x Then Call SetColoreCellaRighe (3,ColoreBlu ,ColoreBianco)
                    If Nu(4) =  x Then Call SetColoreCellaRighe (4,ColoreBlu ,ColoreBianco)
                    If Nu(5) =  x Then Call SetColoreCellaRighe (5,ColoreBlu ,ColoreBianco)
                Next
                sTesto2 = ""
                For z = 1 To 90 Step 7
                    sTesto2 = sTesto2 & (z) & "."
                    If Num(1) = z Then Call SetColoreCellaRighe (7,ColoreRosso ,ColoreBianco)
                    If Num(2) = z Then Call SetColoreCellaRighe (8,ColoreRosso ,ColoreBianco)
                    If Num(3) = z Then Call SetColoreCellaRighe (9,ColoreRosso ,ColoreBianco)
                    If Num(4) = z Then Call SetColoreCellaRighe (10,ColoreRosso ,ColoreBianco)
                    If Num(5) = z Then Call SetColoreCellaRighe (11,ColoreRosso ,ColoreBianco)
                Next
                Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
                Call SetColoreCellaRighe(6,ColoreVerde,ColoreBianco)
                Call SetColoreCellaRighe(12,ColoreVerde,ColoreBianco)
            Next
            Scrivi (DataEstrazione(es))
            Scrivi ("gruppo 1 sequenza 8 > " & stesto)
            Scrivi ("Gruppo 2 sequenza 7 > " & sTesto2)
            stesto = ""
            sTesto2 = ""
            CreaTabella
        Next
    End Sub
End Class

Zetrix · 6 Febbraio 2022

Ciao Mike , per te e piu facile usare i cicli for perche sei un programmatore
e sono proprio questi cicli for e next che mi incasino certe volte le scrivo a casaccio
e poi lo script in out ti da una errata visualizzazione della tabella
adesso devo trovare il modo di visualizzare dei numeri scelti da me
e le devo evidenziare nella tabella perche studio tutte le sequenze dei gruppi di numeri
e poi mi serve una tabella per evidenziare dei numeri che ho calcolato e che questi
completano le sequenze potrei farti vedere un esempio ma queste cose sono un po
difficili da spegarli perche bisogna lavorare con i numeri e inserirli nel cerchio ciclometrico
e vedere come si completa una figura ciclometrica se riesco a visualizzare i numeri in tabella
forse ti farò vedere un esempio di come lavorano le sequenze dei numeri
questa e una figura completata

Ciao

Zetrix · 7 Febbraio 2022

Ciao Mike , volevo chiederti una cortesia riesci a modificare questo listato che ai fatto
invece di aggiungere i numeri fissi si potrebbe fare invece scrivo un esempio somma il 1° di Na con il 2° di Mi
facendo in questo modo questi algoritmi sono piu affidabili su due ruote invece di sommare i numeri fissi
su una unica ruota che non sono per niente affidabili perche gli algoritmi cambiano di continuo..ciao...buona giornata

Codice:

Class Script
    Sub Main
        Dim k , r ,es ,p , a ,b , nu(3) , pos(1) , ru(1) ,clp, c ,kk,kn,kd , ind , nClp,aN(3)  As Integer
        Dim ini , fin , indx As Integer
        Dim Uscite () , sUscite() , esito ,esitoA,sUsciteA() As String
        Dim aRetAbb () As STRUCT_ABBINAMENTO
        '-------------------------------------------------------------------------
        Dim aT() As String = {" Casi ", " Algoritmo ", " Casi Esaminati "," Casi Validi ", " Ultima Operazione " , " Numero Calcolato " ," Abbinamento " ," Esito Ultima Oper Ab " , "Esito Lunghetta", " Colpo " , " Data Sortita "}
        InitTabella(aT,ColoreVerde,,80,ColoreBianco )
        '-------------------------------------------------------------------------
        ini = EstrazioniArchivio - 160
        fin = EstrazioniArchivio
        r = ScegliRuota 'InputBox ("Scegli la ruota ","RUOTA",9)
        indx = InputBox("Quale indice Mensile ","INDICE MENSILE ",1)
        Scrivi ("Estrazioni Esaminate ......... : " & fin-ini + 1)
        Scrivi ("Indice mensile considerato.... : " & indx )
        Scrivi (Space(28) & Chr(174) & " Script In VbNet per SpazioLight 1.0.22 By Mike58 " & Chr(169),1,,,ColoreBlu ,120 )
        Scrivi ("Cerca Algoritmi sommativi su " & NomeRuota(r) & " e Gioca sulla stessa Ruota ")
        For b = 1 To 90
            For p = 1 To 5
                For es = ini To fin
                    If IndiceMensile(es) = indx Then
                        Call Messaggio ("Cerca Algoritmi sommativi su ruota scelta & **** Script by Mike58 ***** " )
                        Call AvanzamentoElab (ini,fin,es)
                        ind = es + 1
                        k = k + 1
                        a = Estratto(es,r,p)
                        nu(1) = FuoriX((a+b),90)
                        ru(1) = r
                        pos(1) = p
                        Call Abbinamenti (nu(1) ,aRetAbb,ini,fin,ru(1))
                        aN(1) = nu(1)
                        aN(2) = aRetAbb(1).numero
                        aN(3) = aRetAbb(2).numero
                        If VerificaEsito (nu,ru,1,ind,,14,clp,Uscite) Then
                            'kk = kk + 1
                            For c = 0 To Uscite.GetUpperBound(0)
                                If Uscite (c) <> "" Then
                                    kk = kk + 1
                                End If
                            Next
                        End If
                    End If
                Next
                kd = k - (kk)
                If kd <= 2 Then
                    kn = kn + 1
                    '-------------------------------------------------------------------------------------
                    esito = ""
                    If VerificaEsito (nu,ru,1,ind,,14,nClp,sUscite) Then
                        For cc As Integer = 0 To sUscite.GetUpperBound(0)
                            If sUscite(cc) <> "" Then esito = sUscite (cc)
                        Next
                    End If
                    esitoA = ""
                    If VerificaEsito (aN,ru,2,ind,,14,nClp,sUsciteA) Then
                        For ccc As Integer = 0 To sUsciteA.GetUpperBound(0)
                            If sUsciteA(ccc) <> "" Then esitoA = sUsciteA (ccc)
                        Next
                    End If
                    '-------------------------------------------------------------------------------------
                    Dim aV() As String
                    ReDim aV(aT.GetUpperBound(0))
                    aV(0) = kn
                    aV(1) = pos(1) & "_" & NomeRuota(r) & " + " & b
                    aV(2) = k
                    aV(3) = kk
                    aV(4) = a & " + " & b
                    aV(5) = nu(1)
                    aV(6) = aRetAbb(1).numero & " (" & aRetAbb(1).quantita & ")" & " - " & aRetAbb(2).numero & " (" & aRetAbb(2).quantita & ")" &  StringaNumeri(aN)
                    aV(7) = esito
                  
aV(8) = esitoA
aV(9) = nClp
                    aV(10) = DataEstrazione ((ind-1) + nClp )
                    If esito = "" Then
                        Call AddRigaTabella(aV,ColoreGiallo ,,80,ColoreRosso )
                    Else
                        Call AddRigaTabella(aV,ColoreMagenta ,,80,ColoreBianco )
                    End If
                End If
                k = 0 : kk = 0
            Next
        Next
        Call CreaTabella()
    End Sub
End Class

Zetrix · 7 Febbraio 2022

18/01/2022
gruppo 1 sequenza 8 > 1.9.17.25.33.41.49.57.65.73.81.89.

MIke ti farò vedere un esempio di gioco e come lavorano le sequenze
dei numeri
a milano abbiamo il 57 81 89 e sono parte della sequenza 8
adesso calcoliamo il numero che manca 57-89+81=49
adesso questa formazione di numeri si deve completare
vedi il disegno ciclom che avevo messo 49+89=138:2=69
si inserisce il 69 e il diam 24 adesso il disegno e completato
un disegno non e mai completato se non a l'asse diametrale
che completa la figura
adesso questa asse diametrale produce una somma
69+24=93-90=3

20/01/2022
gruppo 1 sequenza 8 > 1.9.17.25.33.41.49.57.65.73.81.89.

adesso vedi sulla nazionale cosa e uscito il 24 69 e a cagliari 49 57 3
ciao

p.s
MIKE ho notato che nel cerchio ciclom visualizza solo una dis 33
bisogna farlo presente a LuigiB

Mike58 · 7 Febbraio 2022

Eccolo Zetrix, lo avevo già fatto.
Nel cerchio ciclometrico non l'ho ancora visto e comunque non mi sono neanche mai cimentato.
Ci sono tante cose che anch'io non ci arrivo e sbatto la testa, e non sono un programmatore ma semplice amatore a cui piace sperimentare le proprie di idee, mettento tanta applicazione.

Ciao

Codice:

Class Script
    Sub Main
        Dim k , r ,es ,p , a ,b , nu(3) , pos(2) , ru(1) ,clp, c ,kk,kn,kd , ind , nClp,aN(3)  As Integer
        Dim ini , fin , indx,p2 ,pos2(1)  As Integer
        Dim Uscite () , sUscite() , esito ,esitoA,sUsciteA() As String
        Dim aRetAbb () As STRUCT_ABBINAMENTO
        '-------------------------------------------------------------------------
        Dim aT() As String = {" Casi ", " Algoritmo ", " Casi Esaminati "," Casi Validi ", " Ultima Operazione " , " Numero Calcolato " ," Abbinamento " ," Esito Ultima Oper Ab " , "Esito Lunghetta", " Colpo " , " Data Sortita "}
        InitTabella(aT,ColoreVerde,,80,ColoreBianco )
        '-------------------------------------------------------------------------
        ini = EstrazioniArchivio - 160
        fin = EstrazioniArchivio
        r = ScegliRuota 'InputBox ("Scegli la ruota ","RUOTA",9)
        indx = InputBox("Quale indice Mensile ","INDICE MENSILE ",1)
        Scrivi ("Estrazioni Esaminate ......... : " & fin-ini + 1)
        Scrivi ("Indice mensile considerato.... : " & indx )
        Scrivi (Space(28) & Chr(174) & " Script In VbNet per SpazioLight 1.0.22 By Mike58 " & Chr(169),1,,,ColoreBlu ,120 )
        For rrr As Object   = 1 To 10
            For p = 1 To 5
                For rr As Object = rrr + 1 To 11
                    For p2  = 1 To 5
                        For es = ini To fin
                            If IndiceMensile(es) = indx Then
                                Call Messaggio ("Cerca Algoritmi sommativi su ruota scelta & **** Script by Mike58 ***** " )
                                Call AvanzamentoElab (ini,fin,es)
                                ind = es + 1
                                k = k + 1
                                a = Estratto(es,rr,p)
                                b = Estratto(es,rrr,p2)
                                nu(1) = FuoriX((a+b),90)
                                ru(1) = r
                                pos(1) = p
                                pos2(1) = p2
                                Call Abbinamenti (nu(1) ,aRetAbb,ini,fin,ru(1))
                                aN(1) = nu(1)
                                aN(2) = aRetAbb(1).numero
                                aN(3) = aRetAbb(2).numero
                                If VerificaEsito (nu,ru,1,ind,,14,clp,Uscite) Then
                                    'kk = kk + 1
                                    For c = 0 To Uscite.GetUpperBound(0)
                                        If Uscite (c) <> "" Then
                                            kk = kk + 1
                                        End If
                                    Next
                                End If
                            End If
                        Next
                        kd = k - (kk)
                        If kd <= 2 Then
                            kn = kn + 1
                            '-------------------------------------------------------------------------------------
                            esito = ""
                            If VerificaEsito (nu,ru,1,ind,,14,nClp,sUscite) Then
                                For cc As Integer = 0 To sUscite.GetUpperBound(0)
                                    If sUscite(cc) <> "" Then esito = sUscite (cc)
                                Next
                            End If
                            esitoA = ""
                            If VerificaEsito (aN,ru,2,ind,,14,nClp,sUsciteA) Then
                                For ccc As Integer = 0 To sUsciteA.GetUpperBound(0)
                                    If sUsciteA(ccc) <> "" Then esitoA = sUsciteA (ccc)
                                Next
                            End If
                            '-------------------------------------------------------------------------------------
                            Dim aV() As String
                            ReDim aV(aT.GetUpperBound(0))
                            aV(0) = kn
                            aV(1) = pos(1) & "_" & NomeRuota(rr) & " + " & pos2 (1) & "_" & NomeRuota(rrr)
                            aV(2) = k
                            aV(3) = kk
                            aV(4) = a & " + " & b
                            aV(5) = nu(1)
                            aV(6) = aRetAbb(1).numero & " (" & aRetAbb(1).quantita & ")" & " - " & aRetAbb(2).numero & " (" & aRetAbb(2).quantita & ")" &  StringaNumeri(aN)
                            aV(7) = esito
                            aV(8) = esitoA
                            aV(9) = nClp
                            aV(10) = DataEstrazione ((ind-1) + nClp )
                            If esito = "" Then
                                Call AddRigaTabella(aV,ColoreGiallo ,,80,ColoreRosso )
                            Else
                                Call AddRigaTabella(aV,ColoreMagenta ,,80,ColoreBianco )
                            End If
                        End If
                        k = 0 : kk = 0
                    Next
                Next
            Next
        Next
      Call CreaTabella()
    End Sub
End Class

Mike58 · 7 Febbraio 2022

Zetrix ha scritto:
Vedi l'allegato 2229786

18/01/2022
gruppo 1 sequenza 8 > 1.9.17.25.33.41.49.57.65.73.81.89.

MIke ti farò vedere un esempio di gioco e come lavorano le sequenze
dei numeri
a milano abbiamo il 57 81 89 e sono parte della sequenza 8
adesso calcoliamo il numero che manca 57-89+81=49
adesso questa formazione di numeri si deve completare
vedi il disegno ciclom che avevo messo 49+89=138:2=69
si inserisce il 69 e il diam 24 adesso il disegno e completato
un disegno non e mai completato se non a l'asse diametrale
che completa la figura
adesso questa asse diametrale produce una somma
69+24=93-90=3

Vedi l'allegato 2229787
20/01/2022
gruppo 1 sequenza 8 > 1.9.17.25.33.41.49.57.65.73.81.89.

adesso vedi sulla nazionale cosa e uscito il 24 69 e a cagliari 49 57 3
ciao

p.s
MIKE ho notato che nel cerchio ciclom visualizza solo una dis 33
bisogna farlo presente a LuigiB

Nella apposita sezione puoi farlo anche tu.
io non avendola sperimentato non saprei cosa indicargli.

Zetrix · 7 Febbraio 2022

Mike grazie dello script dei sommativi lo so che non e facile programmare uno script in vbnet
qua basta che sbagli una virgola e ti risponde mi dispiace ma non posso visualizzare la pagina
e tu gli rispondi va bene grazie ci riprovo di nuovo

Zetrix · 8 Febbraio 2022

Ciao Mike , vorrei fare un altro progetto provo a spiegare quello che vorrei fare
allora nella tabella a lato sono evidenziati il gruppo 1 con la sequenza 3
adesso il progetto che vorrei fare e evidenziare tutti i gruppi di una sequenza 7

gruppo 1 sequenza 7 = 01.08.15.22.29.36.43.50.57.64.71.78.85
gruppo 2 sequenza 7 = 02.09.16.23.30.37.44.51.58.65.72.79.86
gruppo 3 sequenza 7 = 03.10.17.24.31.38.45.52.59.66.73.80.87
gruppo 4 sequenza 7 = 04.11.18.25.32.39.46.53.60.67.74.81.88
gruppo 5 sequenza 7 = 05.12.19.26.33.40.47.54.61.68.75.82.89
gruppo 6 sequenza 7 = 06.13.20.27.34.41.48.55.62.69.76.83.90
gruppo 7 sequenza 7 = 07.14.21.28.35.42.49.56.63.70.77.84

questi sono tutti i gruppi della sequenza 7 in pratica nella tabella dovrebbe
evidenziare ogni gruppo corrispondente al numero estratto della sequenza
non so se sia praticabile fare questa cosa spero che mi sono spiegato bene
ti allego lo script
in pratica al posto di evidenziare le figure di ogni numero estratto dovrebbe
evidenziare il numero del gruppo di appartenenza della relativa sequenza
esempio il 25 estratto sulla ruota di bari corrisponde al gruppo 4 e cosi per
gli altri numeri estratti

Codice:

Class Script
    Sub Main
        Dim Nu(5),aP(5),Ru(1),Num(5) As Integer
        Dim x , p , r , es  As Integer
        Dim stesto  As String
        Dim Ini As Integer = EstrazioniArchivio  - 1
        Dim fin As Integer = EstrazioniArchivio
        Dim T() , V() As String
        T = {" Ruota "," E1 "," E2 "," E3 "," E4 "," E5" ," Ruota "," EE1"," EE2"," EE3"," EE4"," EE5"," Ruota "}
        For es = fin To Ini Step - 1
            Call InitTabella(T,ColoreVerde,,,ColoreBianco)
            For r = 1 To 11
                Ru(1) = r
                For p = 1 To 5
                    Nu(p) = Estratto(es,r,p)
                    Num(p) = Figura(Estratto(es,r,p))
            
                    'aP(p) =  PosNumeroRit (es,r,Nu(p))
                Next
                V = {NomeRuota(r),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),NomeRuota(r),Num(1),Num(2),Num(3),Num(4),Num(5),NomeRuota(r) }
                Call AddRigaTabella(V)
                stesto = ""
                For  x = 1 To 90 Step 3


                    stesto = stesto & (x) & "."
                    If Nu(1) =  x Then Call SetColoreCellaRighe (1,ColoreBlu ,ColoreBianco)
                    If Nu(2) =  x Then Call SetColoreCellaRighe (2,ColoreBlu ,ColoreBianco)
                    If Nu(3) =  x Then Call SetColoreCellaRighe (3,ColoreBlu ,ColoreBianco)
                    If Nu(4) =  x Then Call SetColoreCellaRighe (4,ColoreBlu ,ColoreBianco)
                    If Nu(5) =  x Then Call SetColoreCellaRighe (5,ColoreBlu ,ColoreBianco)
                    If Num(1) = x Then Call SetColoreCellaRighe (7,ColoreRosso ,ColoreBianco)
                    If Num(2) = x Then Call SetColoreCellaRighe (8,ColoreRosso ,ColoreBianco)
                    If Num(3) = x Then Call SetColoreCellaRighe (9,ColoreRosso ,ColoreBianco)
                    If Num(4) = x Then Call SetColoreCellaRighe (10,ColoreRosso ,ColoreBianco)
                    If Num(5) = x Then Call SetColoreCellaRighe (11,ColoreRosso ,ColoreBianco)
                
                    Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
                    Call SetColoreCellaRighe(6,ColoreVerde,ColoreBianco)
                    Call SetColoreCellaRighe(12,ColoreVerde,ColoreBianco)
             Next 
            Next
            Scrivi (DataEstrazione(es))
            Scrivi ("gruppo 1 sequenza 3 =  " & stesto)
            'stesto = ""
            CreaTabella
        Next
    End Sub
End Class

Mike58 · 8 Febbraio 2022

Zetrix, mi costringi a studiare per te 😋
senza il tuo script , ho voluto farti un esempio in modo che capisci come ti devi ingegnare per i tuoi scopi.

Codice:

Class Script
    Sub Main
        Dim s,r,bloc1,bloc2,bloc3,bloc4,bloc5  As Integer
        Dim nu(13) As Integer
        Dim aN(5) As Integer
        Dim Ru(1) As Integer
        Dim T() As String
        T = {"E1","E2","E3","E4","E5","Block1","block2","block3","block4","block5"}
        Call InitTabella (T)
        For p As Integer = 1 To 5
            aN(p) = Estratto(EstrazioniArchivio,1,p)
        Next
        '-------elaboro numeri dist 7 ------------------
        For s = 0 To 6
            For r = 0 To 13
                nu(r) = FuoriX(s-6 +(r*7),90 )
                '--------------- fine elaborazione numeri -------------
                '-------- condizione trova blocco ------------------
                If nu(r) = aN(1) Then bloc1 = nu(1)
                If nu(r) = aN(2) Then bloc2 = nu(1)
                If nu(r) = aN(3) Then bloc3 = nu(1)
                If nu(r) = aN(4) Then bloc4 = nu(1)
                If nu(r) = aN(5) Then bloc5 = nu(1)
                '----------------------------------------------------
            Next
            OrdinaVettore (nu,1,5,1) ' ordina sequenza ascendente
            If nu(13) = 1 Then nu(13) = 0 '  elimina numero se sueriore a 90
            '-----------------------------------------------
            Scrivi (StringaNumeri(nu,,1))
        Next
        T = {aN(1),aN(2),aN(3),aN(4),aN(5),bloc1,bloc2,bloc3,bloc4,bloc5}
        Call AddRigaTabella (T)
        CreaTabella
    End Sub
End Class

01.08.15.22.29.36.43.50.57.64.71.78.85
02.09.16.23.30.37.44.51.58.65.72.79.86
03.10.17.24.31.38.45.52.59.66.73.80.87
04.11.18.25.32.39.46.53.60.67.74.81.88
05.12.19.26.33.40.47.54.61.68.75.82.89
06.13.20.27.34.41.48.55.62.69.76.83.90
07.14.21.28.35.42.49.56.63.70.77.84.00

E1	E2	E3	E4	E5	Block1	block2	block3	block4	block5
25	58	57	6	23	4	2	1	6	2

Zetrix · 8 Febbraio 2022

Ok Mike vedro se riesco a sistemarlo lo script che ai fatto
ti farò sapere se riesco a sistemare e ti farò vedere quello che so fare
intanto grazie

Zetrix · 8 Febbraio 2022

Mike sono riuscito a sistemare in parte lo scirpt ma ce un problema
perche visualizza solo una ruota ?

Codice:

Class Script
    Sub Main
        Dim Nu(11),aN(5),Ru(1),Num1,Num2,Num3,Num4,Num5 As Integer
        Dim x , s , r , es  As Integer
        Dim T() As String
        T = {" Ruota "," E1 "," E2 "," E3 "," E4 "," E5" ," Ruota "," EE1"," EE2"," EE3"," EE4"," EE5"," Ruota "}
        'For es = fin To Ini Step - 1
            Call InitTabella(T,ColoreVerde,,,ColoreBianco)
         For p As Integer = 1 To 5
  aN(p) = Estratto(EstrazioniArchivio,1,p)
 Next
 For s = 0 To 6    

For r = 1 To 11
   
  Nu(r) = FuoriX(s-6 +(r*7),90 )
                   Ru(1) = r
             
                    '-------- condizione trova blocco ------------------
                If Nu(r) = aN(1) Then Num1 = Nu(1)
                If Nu(r) = aN(2) Then Num2 = Nu(1)
                If Nu(r) = aN(3) Then Num3 = Nu(1)
                If Nu(r) = aN(4) Then Num4 = Nu(1)
                If Nu(r) = aN(5) Then Num5 = 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
            '-----------------------------------------------
          Scrivi (StringaNumeri(Nu,,1))
           
 Next
           
             
                T = {NomeRuota(r),aN(1),aN(2),aN(3),aN(4),aN(5),NomeRuota(r),Num1,Num2,Num3,Num4,Num5,NomeRuota(r) }
                Call AddRigaTabella(T)
         
           
                    Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
                    Call SetColoreCellaRighe(6,ColoreVerde,ColoreBianco)
                    Call SetColoreCellaRighe(12,ColoreVerde,ColoreBianco)
           
         
            'Scrivi (DataEstrazione(es))
            'Scrivi ("gruppo 1 sequenza 3 =  " & stesto)
            'stesto = ""
            CreaTabella
     
    End Sub
End Class

Mike58 · 8 Febbraio 2022

Non vorrei neanche spiegartelo, ma siccome son buono, te lo spiego.
variabile r non era riferita a ruota ma al numero di elementi della formazione = 13
poi fai un ciclo per le ruote.
Ciao

Codice:

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

Zetrix · 8 Febbraio 2022

Mike scusami forse mi sono imbrogliato con la lettera r ero convinto che erano le ruote
infatti mi chiedevo perche era scritto For r = 1 To 13 dato che le ruote erano 11
allora la r serviva a calcolare le sequenze dei numeri adesso ho capito quindi si doveva
scrivere un altro For per le ruote ecco perche non scriveva le ruote ok grazie
dopo vedrò di sistemare meglio lo script..Ciao

Zetrix · 9 Febbraio 2022

Ciao Mike , scusami di nuovo mi sa che ho combinato di nuovo un casino con le sequenze
ho notato che a Rm il num 89 lo scrive nel gruppo 6 ed e sbagliato perche doveva scriverlo nel gruppo 1

01.09.17.25.33.41.49.57.65.73.81.89
02.10.18.26.34.42.50.58.66.74.82.90
03.11.19.27.35.43.51.59.67.75.83.00
04.12.20.28.36.44.52.60.68.76.84.02<- qui dovrebbe scrivere 00
05.13.21.29.37.45.53.61.69.77.85.03<-
06.14.22.30.38.46.54.62.70.78.86.04<-
07.15.23.31.39.47.55.63.71.79.87.05<-
08.16.24.32.40.48.56.64.72.80.88.06<-

ti allego lo script

Codice:

Class Script
    Sub Main
        Dim Nu(12),aN(5),Ru(1),Num1,Num2,Num3,Num4,Num5 As Integer
        Dim x , s , r , es ,Ruota  As Integer
        Dim T(),nn As String
        T = {" Ruota "," E1 "," E2 "," E3 "," E4 "," E5" ," Ruota "," EE1"," EE2"," EE3"," EE4"," EE5"," Ruota "}
        'For es = fin To Ini Step - 1
        Call InitTabella(T,ColoreVerde,,,ColoreBianco)

Scrivi (DataEstrazione(EstrazioniArchivio))

        For Ruota = 1 To 11
            For p As Integer = 1 To 5
                aN(p) = Estratto(EstrazioniArchivio,Ruota ,p)
            Next
            For s = 1 To 8
                For r = 0 To 12
                    Nu(r) = FuoriX(s-8 +(r*8),90 )
                    '-------- condizione trova blocco ------------------
                    If Nu(r) = aN(1) Then Num1 = Nu(1)
                    If Nu(r) = aN(2) Then Num2 = Nu(1)
                    If Nu(r) = aN(3) Then Num3 = Nu(1)
                    If Nu(r) = aN(4) Then Num4 = Nu(1)
                    If Nu(r) = aN(5) Then Num5 = Nu(1)
                    '----------------------------------------------------
                Next
                OrdinaVettore (Nu,1,5,1) ' ordina sequenza ascendente
                If Nu(12) = 1 Then Nu(12) = 0 '  elimina numero se superiore a 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 = 1 To 90 Step 8


              
                    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 = 1 To 8
            For r = 0 To 12
                Nu(r) = FuoriX(s-8 +(r*8),90 )
            Next
            OrdinaVettore (Nu,1,5,1) ' ordina sequenza ascendente
            If Nu(12) = 1 Then Nu(12) = 0 '  elimina numero se superiore a 90
            '-----------------------------------------------



            Scrivi (StringaNumeri(Nu,,1))
        Next
    End Sub
End Class

Zetrix · 9 Febbraio 2022

MIke lo sistemato l'errore del gruppo sbagliato adesso e ok
adesso ho notato un altro errore a Ba il num 4 lo scrive nel gruppo 6

01.09.17.25.33.41.49.57.65.73.81.89
02.10.18.26.34.42.50.58.66.74.82.90
03.11.19.27.35.43.51.59.67.75.83.00
04.12.20.28.36.44.52.60.68.76.84.02
05.13.21.29.37.45.53.61.69.77.85.03
06.14.22.30.38.46.54.62.70.78.86.04<-
07.15.23.31.39.47.55.63.71.79.87.05
08.16.24.32.40.48.56.64.72.80.88.06

Codice:

Class Script
    Sub Main
        Dim Nu(12),aN(5),Ru(1),Num1,Num2,Num3,Num4,Num5 As Integer
        Dim x , s , r , es ,Ruota  As Integer
        Dim T(),nn As String
        T = {" Ruota "," E1 "," E2 "," E3 "," E4 "," E5" ," Ruota "," EE1"," EE2"," EE3"," EE4"," EE5"," Ruota "}
        'For es = fin To Ini Step - 1
        Call InitTabella(T,ColoreVerde,,,ColoreBianco)

Scrivi (DataEstrazione(EstrazioniArchivio))

        For Ruota = 1 To 11
            For p As Integer = 1 To 5
                aN(p) = Estratto(EstrazioniArchivio,Ruota ,p)
            Next
            For s = 1 To 8
                For r = 1 To 12
                    Nu(r) = FuoriX(s-8 +(r*8),90 )
                    '-------- condizione trova blocco ------------------
                    If Nu(r) = aN(1) Then Num1 = Nu(1)
                    If Nu(r) = aN(2) Then Num2 = Nu(1)
                    If Nu(r) = aN(3) Then Num3 = Nu(1)
                    If Nu(r) = aN(4) Then Num4 = Nu(1)
                    If Nu(r) = aN(5) Then Num5 = Nu(1)
                    '----------------------------------------------------
                Next
                OrdinaVettore (Nu,1,5,1) ' ordina sequenza ascendente
                If Nu(12) = 1 Then Nu(12) = 0 '  elimina numero se superiore a 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 = 1 To 90 Step 8


               
                    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 = 1 To 8
            For r = 1 To 12  ' <-
                Nu(r) = FuoriX(s-8 +(r*8),90 )
            Next
            OrdinaVettore (Nu,1,5,1) ' ordina sequenza ascendente
            If Nu(12) = 1 Then Nu(12) = 0 '  elimina numero se superiore a 90
            '-----------------------------------------------



            Scrivi (StringaNumeri(Nu,,1))
        Next
    End Sub
End Class

Zetrix · 9 Febbraio 2022

01.09.17.25.33.41.49.57.65.73.81.89
02.10.18.26.34.42.50.58.66.74.82.90
03.11.19.27.35.43.51.59.67.75.83.00
04.12.20.28.36.44.52.60.68.76.84.02<--00
05.13.21.29.37.45.53.61.69.77.85.03
06.14.22.30.38.46.54.62.70.78.86.04<--00
07.15.23.31.39.47.55.63.71.79.87.05
08.16.24.32.40.48.56.64.72.80.88.06

Mike si dovrebbe scrivere 00 quando il numero supera 90
nel gruppo 3 scrive 00 ma dal gruppo 4 in poi non scrive 00
ed e per questo motivo che il 4 lo scrive nel gruppo 6

Mike58 · 9 Febbraio 2022

la condizione va cambiata ti devi ingegnare.
cambia
If Nu(12) = 1 Then Nu(12) = 0 ' elimina numero se = 1
con
If Nu(12) > 0 and Nu(12) < 9 Then Nu(12) = 0 ' elimina numero se superiore a 90
oppure
togli il fuori x
Nu(r) = (s-8 +(r*8))
e metti la condizione > 90
If Nu(12) > 90 Then Nu(12) = 0

Ti conviene cercare di capire quando un risultato è diverso da come te lo aspetti.

Ciao

Zetrix · 9 Febbraio 2022

01.09.17.25.33.41.49.57.65.73.81.89
02.10.18.26.34.42.50.58.66.74.82.90
03.11.19.27.35.43.51.59.67.75.83.00
04.12.20.28.36.44.52.60.68.76.84.00
05.13.21.29.37.45.53.61.69.77.85.00
06.14.22.30.38.46.54.62.70.78.86.00
07.15.23.31.39.47.55.63.71.79.87.00
08.16.24.32.40.48.56.64.72.80.88.00

grazie Mike del suggerimento ho scelto la seconda ipotesi elimina fuorix
ho evidenziato il gruppo 4 e sembra che non ci siano errori dopo vedrò meglio
tutta la tabella dei gruppi delle sequenze
Ciao

p.s
Mike ma te giochi al lotto oppure no con questo gioco delle sequenze dei numeri
uno o una si puo sbizzarrire a trovare le migliori combinazioni di gioco
ma oltre alla bravura conta anche un po di esperienza e infine anche un pizzico
di fortuna ieri ho vinto l'ambetto su ruota e devo dirti che sta diventando difficile
vincere un ambo a due numeri perche devono uscire per forza quei due numeri
e quindi e meglio giocare anche l'ambetto che ci sono piu probabilità di vincere
anzi la prossima volta devo mettere di piu sull'ambetto e di meno sull'ambo
a due numeri

Zetrix · 9 Febbraio 2022

Mike scusami ma ho combinato un altro casino volevo vedere le 8 estrazioni indietro
ma ho messo un next a casaccio e la pagina visualizza tutte le estrazioni in modo
continuative che potrebbe essere anche utile ma vorrei ordinarle una per
ogni estrazione

Codice:

Class Script
    Sub Main
        Dim Nu(13),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
        Dim T(),nn As String
        T = {" Ruota "," E1 "," E2 "," E3 "," E4 "," E5" ," Ruota "," EE1"," EE2"," EE3"," EE4"," EE5"," Ruota "}
      
        Call InitTabella(T,ColoreVerde,,,ColoreBianco)

Scrivi (DataEstrazione(es))
 For es = fin To Ini Step - 1
      
 For Ruota = 1 To 11
            For p As Integer = 1 To 5
                aN(p) = Estratto(es,Ruota ,p)
            Next
            For s = 1 To 7
                For k = 1 To 13
                    Nu(k) = (s-7 +(k*7) )
                    '-------- 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)
                    '----------------------------------------------------
                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(13) > 90 Then Nu(13) = 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 = 7 To 90 Step 7


                
                    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 
Next


        CreaTabella
        For s = 1 To 7
            For k = 1 To 13
                Nu(k) = (s-7 +(k*7))
            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(13) > 90 Then Nu(13) = 0
            '-----------------------------------------------
            Scrivi (StringaNumeri(Nu,,1))
        
    
Next

    End Sub
End Class

programmazione spazio script in vbnet

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member