programmazione spazio script in vbnet

Zetrix · 20 Febbraio 2022

Mike ho fatto l'aggiornamento infatti si doveva aggiornare giochilib.dll e statturbo.dll
adesso lo script e ok
grazie Mike della disponibilità allego lo script se puo servire a qualcuno.a
Ciao

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)

For x = 0 To 9

                If aN(1) And x =  Rt(1) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                If aN(2) And x =  Rt(2) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                If aN(3) And x =  Rt(3) Then Call SetColoreCellaRighe (3,ColoreBlu,ColoreBianco)
                If aN(4) And x =  Rt(4) Then Call SetColoreCellaRighe (4,ColoreBlu,ColoreBianco)
                If aN(5) And x =  Rt(5) Then Call SetColoreCellaRighe (5,ColoreBlu,ColoreBianco)
                If Rt(1) = x Then Call SetColoreCellaRighe (7,ColoreGiallo,ColoreNero)
                If Rt(2) = x Then Call SetColoreCellaRighe (8,ColoreGiallo,ColoreNero)
                If Rt(3) = x Then Call SetColoreCellaRighe (9,ColoreGiallo,ColoreNero)
                If Rt(4) = x Then Call SetColoreCellaRighe (10,ColoreGiallo,ColoreNero)
                If Rt(5) = x Then Call SetColoreCellaRighe (11,ColoreGiallo,ColoreNero)
                Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
                Call SetColoreCellaRighe(6,ColoreVerde,ColoreBianco)
                Call SetColoreCellaRighe(12,ColoreVerde,ColoreBianco)
                Call SetColoreCellaRighe(13,ColoreVerde,ColoreBianco)
  Next         
 Next
        Next
        CreaTabella
    End Sub
End Class

Zetrix · 20 Febbraio 2022

Ciao Mike, puoi vedere questo script se riesci a sistemare le tabelle
mi imbroglio sempre quanto devo mettere i Next
questa tabella evidenzia i diam.trasposti (Dt) se poi mi puoi spiegare
come vanno messi questi Next perche questi Next a volte li metto ad indovinare
certe volte le indovino e certe volte no in questo script ho provato in tutti i modi
ma niente da fare

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(3) , b(3), c(3) ,d(3), e(3) , k, s , r , es ,Ruota  As Integer
        Dim ini As Integer = EstrazioniArchivio - 8
        Dim fin As Integer = EstrazioniArchivio
        Dim T() , stesto As String
        T = {" Ruota "," E1 "," E2 "," E3 "," E4 "," E5" ," Ruota "," Dt1"," Dt2"," Dt3"," Dt4"," Dt5 "," Ruota ","  Data "}
      
        For es = fin To ini Step - 1
        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)
                 a(1) = DiametraleInDecina(aN(1))
                 a(2) = Diametrale(a(1))
                 a(3) = DiametraleInDecina(a(2))
                   b(1) = DiametraleInDecina(aN(2))
                   b(2) = Diametrale(b(1))
                   b(3) = DiametraleInDecina(b(2))
                 c(1) = DiametraleInDecina(aN(3))
                 c(2) = Diametrale(c(1))
                 c(3) = DiametraleInDecina(c(2))
                   d(1) = DiametraleInDecina(aN(4))
                   d(2) = Diametrale(d(1))
                   d(3) = DiametraleInDecina(d(2))
                e(1) = DiametraleInDecina(aN(5))
                e(2) = Diametrale(e(1))
                e(3) = DiametraleInDecina(e(2))

                Rt(1) = a(3)
                Rt(2) = b(3)
                Rt(3) = c(3)
                Rt(4) = d(3)
                Rt(5) = e(3)
 

                 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)
 
 

stesto = ""

For x = 2 To 90 Step 3
    
 
    
                  stesto = stesto & (x) & "."
                If aN(1) And x =  Rt(1) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                If aN(2) And x =  Rt(2) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                If aN(3) And x =  Rt(3) Then Call SetColoreCellaRighe (3,ColoreBlu,ColoreBianco)
                If aN(4) And x =  Rt(4) Then Call SetColoreCellaRighe (4,ColoreBlu,ColoreBianco)
                If aN(5) And x =  Rt(5) Then Call SetColoreCellaRighe (5,ColoreBlu,ColoreBianco)
                If Rt(1) = x Then Call SetColoreCellaRighe (7,ColoreGiallo,ColoreNero)
                If Rt(2) = x Then Call SetColoreCellaRighe (8,ColoreGiallo,ColoreNero)
                If Rt(3) = x Then Call SetColoreCellaRighe (9,ColoreGiallo,ColoreNero)
                If Rt(4) = x Then Call SetColoreCellaRighe (10,ColoreGiallo,ColoreNero)
                If Rt(5) = x Then Call SetColoreCellaRighe (11,ColoreGiallo,ColoreNero)
                
        
 
 
                Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
                Call SetColoreCellaRighe(6,ColoreVerde,ColoreBianco)
                Call SetColoreCellaRighe(12,ColoreVerde,ColoreBianco)
                Call SetColoreCellaRighe(13,ColoreVerde,ColoreBianco)
 

 Next 
 Next

 CreaTabella
 

    
 
'Scrivi (DataEstrazione(es))
'Scrivi
    Scrivi ("gruppo 1 4 7 -> somma 89" )         
    Scrivi ("gruppo 2 5 8 -> somma 91" )
    Scrivi ("gruppo 3 6 9 -> somma 90" )
Scrivi
            

            Scrivi ("  " & stesto)
  
Next

    End Sub
End Class

Mike58 · 20 Febbraio 2022

Zetrix, non trovo errore circa i tuoi next dichiarati.
Se Formatti sempre lo script con autoformat i codici saranno sempre allineati o alla chiusura For - Next
o IF Then - End IF.

Mike58 · 20 Febbraio 2022

vedi cosi

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(3) , b(3), c(3) ,d(3), e(3) , k, s , r , es ,Ruota  As Integer
        Dim ini As Integer = EstrazioniArchivio - 8
        Dim fin As Integer = EstrazioniArchivio
        Dim T() , stesto As String

      
        For es = fin To ini Step - 1
         T = {" Ruota "," E1 "," E2 "," E3 "," E4 "," E5" ," Ruota "," Dt1"," Dt2"," Dt3"," Dt4"," Dt5 "," 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)
                 a(1) = DiametraleInDecina(aN(1))
                 a(2) = Diametrale(a(1))
                 a(3) = DiametraleInDecina(a(2))
                   b(1) = DiametraleInDecina(aN(2))
                   b(2) = Diametrale(b(1))
                   b(3) = DiametraleInDecina(b(2))
                 c(1) = DiametraleInDecina(aN(3))
                 c(2) = Diametrale(c(1))
                 c(3) = DiametraleInDecina(c(2))
                   d(1) = DiametraleInDecina(aN(4))
                   d(2) = Diametrale(d(1))
                   d(3) = DiametraleInDecina(d(2))
                e(1) = DiametraleInDecina(aN(5))
                e(2) = Diametrale(e(1))
                e(3) = DiametraleInDecina(e(2))

                Rt(1) = a(3)
                Rt(2) = b(3)
                Rt(3) = c(3)
                Rt(4) = d(3)
                Rt(5) = e(3)
 

                 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)
 
 

stesto = ""

For x = 2 To 90 Step 3
    
 
    
                  stesto = stesto & (x) & "."
                If aN(1) And x =  Rt(1) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                If aN(2) And x =  Rt(2) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                If aN(3) And x =  Rt(3) Then Call SetColoreCellaRighe (3,ColoreBlu,ColoreBianco)
                If aN(4) And x =  Rt(4) Then Call SetColoreCellaRighe (4,ColoreBlu,ColoreBianco)
                If aN(5) And x =  Rt(5) Then Call SetColoreCellaRighe (5,ColoreBlu,ColoreBianco)
                If Rt(1) = x Then Call SetColoreCellaRighe (7,ColoreGiallo,ColoreNero)
                If Rt(2) = x Then Call SetColoreCellaRighe (8,ColoreGiallo,ColoreNero)
                If Rt(3) = x Then Call SetColoreCellaRighe (9,ColoreGiallo,ColoreNero)
                If Rt(4) = x Then Call SetColoreCellaRighe (10,ColoreGiallo,ColoreNero)
                If Rt(5) = x Then Call SetColoreCellaRighe (11,ColoreGiallo,ColoreNero)
                
        
 
 
                Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
                Call SetColoreCellaRighe(6,ColoreVerde,ColoreBianco)
                Call SetColoreCellaRighe(12,ColoreVerde,ColoreBianco)
                Call SetColoreCellaRighe(13,ColoreVerde,ColoreBianco)
 

 Next
 Next

 CreaTabella
 

    
 
'Scrivi (DataEstrazione(es))
'Scrivi
    Scrivi ("gruppo 1 4 7 -> somma 89" )         
    Scrivi ("gruppo 2 5 8 -> somma 91" )
    Scrivi ("gruppo 3 6 9 -> somma 90" )
Scrivi
            

            Scrivi ("  " & stesto)
 
Next

    End Sub
End Class

Zetrix · 20 Febbraio 2022

Mike grazie per la correttezza dello script allora i Next erano al posto giusto
si doveva mettere For es sopra la riga T quindi i Next non erano sbagliati
Mike posso chiederti un altra cosa si puo modificare la scritta della intestazione
della tabella ho visto che il colore bianco e troppo marcato vorrei la scritta come
sono scritte le ruote

Call InitTabella(T,ColoreVerde,,,ColoreBianco)

Mike58 · 20 Febbraio 2022

No !!! l'intestazione è sempre più marcata, prova a cambiare e trovare un font che soddisfi la tua veduta.
io metto il cambria
Call InitTabella(T,ColoreVerde,,,ColoreBianco,,"cambria")

Zetrix · 20 Febbraio 2022

ok Mike proverò altri formati a me il colore bianco mi da fastidio specie se e troppo marcato

Mike58 · 20 Febbraio 2022

cambialo con colorenero, coloreblu, coloregiallo etc. o con gli rgb di spaziometria

Zetrix · 20 Febbraio 2022

Mike ho provato il format microsoft la scritta mi piace il colore bianco e meno marcato
ci puo stare approvato
Call InitTabella(T,ColoreVerde,,,ColoreBianco,,"microsoft yi baiti")
la scritta cambria non mi piace per niente

Zetrix · 22 Febbraio 2022

buongiorno a tutti, Mike dovrei sistemare questo script
se scrivo Ruota = 1 scrive tutte le tabelle per bari
ma se dovrei scrivere per tutte le ruote For Ruota = 1 To 11
le tabelle non sono evidenziate per ogni ruota
ma tutte insieme puoi vedere te se riesci a sistemare le tabelle
allego 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 , w, y ,a(3) , b(3), c(3) ,d(3), e(3) , k, s , z , r , es ,Ruota  As Integer
        Dim ini As Integer = EstrazioniArchivio - 8
        Dim fin As Integer = EstrazioniArchivio
        Dim T() , stesto  As String
        For es = fin To ini Step - 1
            T = {" Ruota "," E1 "," E2 " ," Ruota "," Dist"," Som"," Diff"," Ruota ","  Data "}
            Call InitTabella(T,ColoreVerde,,,ColoreBianco,,"microsoft yi baiti")
            For Ruota  = 1 To 11
                'Ruota = 1   ' --> ruota di Ba
                For p1 As Integer = 1 To 4
                    For p2 As Integer = p1 + 1 To 5
                        aN(1) = Estratto(es,Ruota,p1)
                        aN(2) = Estratto(es,Ruota,p2)
                        a(1) = Distanza(aN(1),aN(2))
                        a(2) = FuoriX(aN(1)+ aN(2),90)
                        a(3) = Differenza_ab(a(1),a(2))
                        Rt(1) = a(1)
                        Rt(2) = a(2)
                        Rt(3) = a(3)
                        T = {NomeRuota(Ruota),aN(1),aN(2),NomeRuota(Ruota),Rt(1),Rt(2),Rt(3),NomeRuota(Ruota),DataEstrazione(es)}
                        Call AddRigaTabella(T)
                        stesto = ""
                        'For x = 1 To 90 Step 9      ' -> passo 9
                        y = 85        ' --> evidenzia numero in tabella
                        'stesto = stesto & (x) & "."
                        stesto = stesto & StringaEstratti(es,Ruota) & "."
                        If aN(1) And y =  Rt(1) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                        If aN(1) And y =  Rt(2) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                        If aN(1) And y =  Rt(3) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                        If aN(2) And y =  Rt(1) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                        If aN(2) And y =  Rt(2) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                        If aN(2) And y =  Rt(3) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                        If Rt(1) = x Then Call SetColoreCellaRighe (4,ColoreGiallo,ColoreNero)
                        If Rt(2) = x Then Call SetColoreCellaRighe (5,ColoreGiallo,ColoreNero)
                        If Rt(3) = x Then Call SetColoreCellaRighe (6,ColoreGiallo,ColoreNero)
                        If Rt(1) = y Then Call SetColoreCellaRighe (4,ColoreRosso,ColoreBianco)
                        If Rt(2) = y Then Call SetColoreCellaRighe (5,ColoreRosso,ColoreBianco)
                        If Rt(3) = y Then Call SetColoreCellaRighe (6,ColoreRosso,ColoreBianco)
                        If aN(1) = y Then Call SetColoreCellaRighe (1,ColoreGiallo,ColoreNero)
                        If aN(2) = y Then Call SetColoreCellaRighe (2,ColoreGiallo,ColoreNero)
                        Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
                        Call SetColoreCellaRighe(3,ColoreVerde,ColoreBianco)
                        Call SetColoreCellaRighe(7,ColoreVerde,ColoreBianco)
                        Call SetColoreCellaRighe(8,ColoreVerde,ColoreBianco)
                        'Next
                    Next
                Next
            Next
            CreaTabella
            'Scrivi ("gruppo 1 4 7 -> somma 89" )
            'Scrivi ("gruppo 2 5 8 -> somma 91" )
            'Scrivi ("gruppo 3 6 9 -> somma 90" )
            Scrivi ("  " & stesto)
        Next
    End Sub
End Class

Mike58 · 22 Febbraio 2022

non so se è così, ad ogni modo sposta i titoli e mette prima il for next ruote.

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 , w, y ,a(3) , b(3), c(3) ,d(3), e(3) , k, s , z , r , es ,Ruota  As Integer
        Dim ini As Integer = EstrazioniArchivio - 8
        Dim fin As Integer = EstrazioniArchivio
        Dim T() , stesto  As String
For Ruota  = 1 To 11
        T = {" Ruota "," E1 "," E2 " ," Ruota "," Dist"," Som"," Diff"," Ruota ","  Data "}
        Call InitTabella(T,ColoreVerde,,,ColoreBianco,,"microsoft yi baiti")
        
        For es = fin To ini Step - 1
            'T = {" Ruota "," E1 "," E2 " ," Ruota "," Dist"," Som"," Diff"," Ruota ","  Data "}
            'Call InitTabella(T,ColoreVerde,,,ColoreBianco,,"microsoft yi baiti")
            
                'Ruota = 1   ' --> ruota di Ba
                For p1 As Integer = 1 To 4
                    For p2 As Integer = p1 + 1 To 5
                        aN(1) = Estratto(es,Ruota,p1)
                        aN(2) = Estratto(es,Ruota,p2)
                        a(1) = Distanza(aN(1),aN(2))
                        a(2) = FuoriX(aN(1)+ aN(2),90)
                        a(3) = Differenza_ab(a(1),a(2))
                        Rt(1) = a(1)
                        Rt(2) = a(2)
                        Rt(3) = a(3)
                        T = {NomeRuota(Ruota),aN(1),aN(2),NomeRuota(Ruota),Rt(1),Rt(2),Rt(3),NomeRuota(Ruota),DataEstrazione(es)}
                        Call AddRigaTabella(T)
                        stesto = ""
                        'For x = 1 To 90 Step 9      ' -> passo 9
                        y = 85        ' --> evidenzia numero in tabella
                        'stesto = stesto & (x) & "."
                        stesto = stesto & StringaEstratti(es,Ruota) & "."
                        If aN(1) And y =  Rt(1) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                        If aN(1) And y =  Rt(2) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                        If aN(1) And y =  Rt(3) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                        If aN(2) And y =  Rt(1) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                        If aN(2) And y =  Rt(2) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                        If aN(2) And y =  Rt(3) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                        If Rt(1) = x Then Call SetColoreCellaRighe (4,ColoreGiallo,ColoreNero)
                        If Rt(2) = x Then Call SetColoreCellaRighe (5,ColoreGiallo,ColoreNero)
                        If Rt(3) = x Then Call SetColoreCellaRighe (6,ColoreGiallo,ColoreNero)
                        If Rt(1) = y Then Call SetColoreCellaRighe (4,ColoreRosso,ColoreBianco)
                        If Rt(2) = y Then Call SetColoreCellaRighe (5,ColoreRosso,ColoreBianco)
                        If Rt(3) = y Then Call SetColoreCellaRighe (6,ColoreRosso,ColoreBianco)
                        If aN(1) = y Then Call SetColoreCellaRighe (1,ColoreGiallo,ColoreNero)
                        If aN(2) = y Then Call SetColoreCellaRighe (2,ColoreGiallo,ColoreNero)
                        Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
                        Call SetColoreCellaRighe(3,ColoreVerde,ColoreBianco)
                        Call SetColoreCellaRighe(7,ColoreVerde,ColoreBianco)
                        Call SetColoreCellaRighe(8,ColoreVerde,ColoreBianco)
                        'Next
                    Next
                Next
                
            Next
            CreaTabella
            'Scrivi ("gruppo 1 4 7 -> somma 89" )
            'Scrivi ("gruppo 2 5 8 -> somma 91" )
            'Scrivi ("gruppo 3 6 9 -> somma 90" )
            Scrivi ("  " & stesto)
        Next
        'CreaTabella
    End Sub
End Class

Zetrix · 22 Febbraio 2022

Mike ho provato in questo modo ma evidenzia le tabelle solo per una estrazione
l'altro che ai messo te dava errore

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 , w, y ,a(3) , b(3), c(3) ,d(3), e(3) , k, s , z , r , es ,Ruota  As Integer
        Dim ini As Integer = EstrazioniArchivio - 1
        Dim fin As Integer = EstrazioniArchivio
        Dim T() , stesto  As String
        For Ruota  = 1 To 11
            For es = fin To ini Step - 8
                T = {" Ruota "," E1 "," E2 " ," Ruota "," Dist"," Som"," Diff"," Ruota ","  Data "}
                Call InitTabella(T,ColoreVerde,,,ColoreBianco,,"microsoft yi baiti")
                'Ruota = 1   ' --> ruota di Ba
                For p1 As Integer = 1 To 4
                    For p2 As Integer = p1 + 1 To 5
                        aN(1) = Estratto(es,Ruota,p1)
                        aN(2) = Estratto(es,Ruota,p2)
                        a(1) = Distanza(aN(1),aN(2))
                        a(2) = FuoriX(aN(1)+ aN(2),90)
                        a(3) = Differenza_ab(a(1),a(2))
                        Rt(1) = a(1)
                        Rt(2) = a(2)
                        Rt(3) = a(3)
                        T = {NomeRuota(Ruota),aN(1),aN(2),NomeRuota(Ruota),Rt(1),Rt(2),Rt(3),NomeRuota(Ruota),DataEstrazione(es)}
                        Call AddRigaTabella(T)
                        stesto = ""
                        'For x = 1 To 90 Step 9      ' -> passo 9
                        y = 85        ' --> evidenzia numero in tabella
                        'stesto = stesto & (x) & "."
                        stesto = stesto & StringaEstratti(es,Ruota) & "."
                        If aN(1) And y =  Rt(1) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                        If aN(1) And y =  Rt(2) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                        If aN(1) And y =  Rt(3) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                        If aN(2) And y =  Rt(1) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                        If aN(2) And y =  Rt(2) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                        If aN(2) And y =  Rt(3) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                        If Rt(1) = x Then Call SetColoreCellaRighe (4,ColoreGiallo,ColoreNero)
                        If Rt(2) = x Then Call SetColoreCellaRighe (5,ColoreGiallo,ColoreNero)
                        If Rt(3) = x Then Call SetColoreCellaRighe (6,ColoreGiallo,ColoreNero)
                        If Rt(1) = y Then Call SetColoreCellaRighe (4,ColoreRosso,ColoreBianco)
                        If Rt(2) = y Then Call SetColoreCellaRighe (5,ColoreRosso,ColoreBianco)
                        If Rt(3) = y Then Call SetColoreCellaRighe (6,ColoreRosso,ColoreBianco)
                        If aN(1) = y Then Call SetColoreCellaRighe (1,ColoreGiallo,ColoreNero)
                        If aN(2) = y Then Call SetColoreCellaRighe (2,ColoreGiallo,ColoreNero)
                        Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
                        Call SetColoreCellaRighe(3,ColoreVerde,ColoreBianco)
                        Call SetColoreCellaRighe(7,ColoreVerde,ColoreBianco)
                        Call SetColoreCellaRighe(8,ColoreVerde,ColoreBianco)
                        'Next
                    Next
                Next
            Next
            CreaTabella
            'Scrivi ("gruppo 1 4 7 -> somma 89" )
            'Scrivi ("gruppo 2 5 8 -> somma 91" )
            'Scrivi ("gruppo 3 6 9 -> somma 90" )
            Scrivi ("  " & stesto)
        Next
    End Sub
End Class

Mike58 · 22 Febbraio 2022

Quello che ho messo io, a me non da errore, magari ricopialo.
Lo so che fai fatica con i for next , ma proprio in quello si capisce la logica del costrutto script.
Poi è sempre meglio ripulire lo script dalle vairabili che non servono o che non vengono utilizzate , pena confusione e errori vari.
Ciao

Zetrix · 22 Febbraio 2022

ok Mike grazie dei consigli ho sistemato un poco meglio lo script
oggi non si poteva entrare nel forum forse per qualche aggiornamento
per i for next so che funzioni hanno ma non so ancora come metterli
al posto giusto e non e facile se non si e programmatori
Ciao

Zetrix · 23 Febbraio 2022

Ciao Mike,
sto provando una tecnica per ambo e volevo chiederti se riesci
a mettere il verifica esito degli ambi N1 N2 e N3 N4
il verifica esito si puo mettere in mezzo tra Ruota e Data
il verifica esito E a TT E NZ cosi vediamo quali sono gli ambi
che sono sortiti a TT
allego lo script con autoformat come mi ai detto di fare
cosi e piu ordinato lo script

Codice:

Class Script
    Sub Main
        Dim Nu(9),Na(10),aN(5),Ru(1),Rt(7),Num1,Num2,Num3,Num4,Num5,Num6,Num7,Num8,Num9,Num10 As Integer
        Dim x , w, y ,a(7) , b(3), c(3) ,d(3), e(3) , k, s , z , 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() , stesto As String
            'For Ruota  = 11 To 11
            T = {" Ruota "," E1 "," E2 " ," Ruota "," Som"," Dist"," Som+Dist"," N1 "," N2 " ,"  Ruota "," N3 "," N4 " ,"  Ruota "," Data "}
            Call InitTabella(T,ColoreVerde,,,ColoreBianco,,"microsoft yi baiti")
            Ruota = 1   ' --> ruota di Ba
            For p1 As Integer = 1 To 4
                For p2 As Integer = p1 + 1 To 5
                    aN(1) = Estratto(es,Ruota,p1)
                    aN(2) = Estratto(es,Ruota,p2)
                    a(1) = FuoriX(aN(1)+ aN(2),90)   ' -> somma
                    a(2) = Distanza(aN(1),aN(2))     ' -> dist
                    a(3) = FuoriX(a(1)+a(2),90)      ' -> somma + dist
                    a(4) = FuoriX(a(3)+ aN(1),90)
                    a(5) = FuoriX(a(3)+ aN(2),90)
                    a(6) = FuoriX(90-a(3)+ aN(1),90)
                    a(7) = FuoriX(90-a(3)+ aN(2),90)
                    Rt(1) = a(1)
                    Rt(2) = a(2)
                    Rt(3) = a(3)
                    Rt(4) = a(4)
                    Rt(5) = a(5)
                    Rt(6) = a(6)
                    Rt(7) = a(7)
                    T = {NomeRuota(Ruota),aN(1),aN(2),NomeRuota(Ruota),Rt(1),Rt(2),Rt(3),Rt(4),Rt(5),NomeRuota(Ruota),Rt(6),Rt(7),NomeRuota(Ruota),DataEstrazione(es)}
                    Call AddRigaTabella(T)
                    For x = 7 To 90 Step 9      ' -> passo 9
                        y = 85        ' --> evidenzia numero in tabella
                        stesto = ""
                        stesto = stesto & StringaEstratti(es,Ruota) & "."
                        If aN(1) And y =  Rt(1) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                        If aN(1) And y =  Rt(2) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                        If aN(1) And y =  Rt(3) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                        If aN(2) And y =  Rt(1) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                        If aN(2) And y =  Rt(2) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                        If aN(2) And y =  Rt(3) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                        If Rt(1) = x Then Call SetColoreCellaRighe (4,ColoreGiallo,ColoreNero)
                        If Rt(2) = x Then Call SetColoreCellaRighe (5,ColoreGiallo,ColoreNero)
                        'If Rt(3) = x Then Call SetColoreCellaRighe (6,ColoreGiallo,ColoreNero)
                        If Rt(1) = y Then Call SetColoreCellaRighe (4,ColoreRosso,ColoreBianco)
                        If Rt(2) = y Then Call SetColoreCellaRighe (5,ColoreRosso,ColoreBianco)
                        If Rt(3) = y Then Call SetColoreCellaRighe (6,ColoreRosso,ColoreBianco)
                        If aN(1) = y Then Call SetColoreCellaRighe (1,ColoreGiallo,ColoreNero)
                        If aN(2) = y Then Call SetColoreCellaRighe (2,ColoreGiallo,ColoreNero)
                        Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
                        Call SetColoreCellaRighe(3,ColoreVerde,ColoreBianco)
                        Call SetColoreCellaRighe(7,ColoreVerde,ColoreBianco)  ' ->N1
                        Call SetColoreCellaRighe(8,ColoreVerde,ColoreBianco)  ' ->N2
                        Call SetColoreCellaRighe(9,ColoreGiallo,ColoreVerde)  ' -> Ruota TT E NZ
                        Call SetColoreCellaRighe(10,ColoreVerde,ColoreBianco) ' ->N3
                        Call SetColoreCellaRighe(11,ColoreVerde,ColoreBianco) ' ->N4
                        Call SetColoreCellaRighe(12,ColoreGiallo,ColoreVerde) ' -> Ruota TT E NZ
                        Call SetColoreCellaRighe(13,ColoreVerde,ColoreBianco) ' -> Data
                    Next
                Next
            Next
            CreaTabella
            Scrivi ("  " & stesto)
        Next
    End Sub
End Class

Mike58 · 23 Febbraio 2022

Ciao Zetrix , te li ho messi alla fine per non sformattarti le tue colorazioni, è chiario che puoi spostarteli dove vuoi e poi formattarti le tue colorazioni.
Fanne tesoro e cerca di capire il tipo di costruzione , io mi stò un pochetto stufando senza interazione costruttiva.
siamo rimasti in pochi, purtroppo.

Codice:

Class Script
    Sub Main
        Dim Nu(9),Na(10),aN(5),Ru(1),Rt(7),Num1,Num2,Num3,Num4,Num5,Num6,Num7,Num8,Num9,Num10 As Integer
        Dim x , w, y ,a(7) , b(3), c(3) ,d(3), e(3) , k, s , z , r , es ,Ruota  As Integer
        Dim ini As Integer = EstrazioniArchivio - 8
        Dim fin As Integer = EstrazioniArchivio
        Dim aUscite(),esito,aUscite2(),esito2 As String
        Dim n1(2),n2(2),RuotaGioco(2),clp,clp2  As Integer
        For es = fin To ini Step - 1
            Dim T() , stesto As String
            'For Ruota  = 11 To 11
            T = {" Ruota "," E1 "," E2 " ," Ruota "," Som"," Dist"," Som+Dist"," N1 "," N2 " ,"  Ruota "," N3 "," N4 " ,"  Ruota "," Data ","Verifica N1-N2","Colpo","Verifica N3-N4","Colpo"}
            Call InitTabella(T,ColoreVerde,,,ColoreBianco,,"microsoft yi baiti")
            Ruota = 1   ' --> ruota di Ba
            RuotaGioco(1) = 11
            RuotaGioco(2) = 12
            For p1 As Integer = 1 To 4
                For p2 As Integer = p1 + 1 To 5
                    aN(1) = Estratto(es,Ruota,p1)
                    aN(2) = Estratto(es,Ruota,p2)
                    a(1) = FuoriX(aN(1)+ aN(2),90)   ' -> somma
                    a(2) = Distanza(aN(1),aN(2))     ' -> dist
                    a(3) = FuoriX(a(1)+a(2),90)      ' -> somma + dist
                    a(4) = FuoriX(a(3)+ aN(1),90)
                    a(5) = FuoriX(a(3)+ aN(2),90)
                    a(6) = FuoriX(90-a(3)+ aN(1),90)
                    a(7) = FuoriX(90-a(3)+ aN(2),90)
                    Rt(1) = a(1)
                    Rt(2) = a(2)
                    Rt(3) = a(3)
                    Rt(4) = a(4)
                    Rt(5) = a(5)
                    Rt(6) = a(6)
                    Rt(7) = a(7)
                    '---------------------------------
                    n1(1) = Rt(4) : n1(2) = Rt(5)
                    n2(1) = Rt(6) : n2(2) = Rt(7)
                    '----------------------------------------------------------------------------------
                    esito = "--"
                    If VerificaEsito (n1,RuotaGioco,2,es+1,,13,clp,aUscite)  Then
                        For k1 As Integer = 0  To aUscite.GetUpperbound(0)
                            If aUscite(k1) <> "" Then esito = aUscite(k1)
                        Next
                    End If
                    '----------------------------------------------------------------------------------
                    
                    esito2 = "--"
                    If VerificaEsito (n2,RuotaGioco,2,es+1,,13,clp2,aUscite2)  Then
                        For k2 As Integer = 0  To aUscite.GetUpperbound(0)
                            If aUscite2(k2) <> "" Then esito2 = aUscite2(k2)
                        Next
                    End If
                    '----------------------------------------------------------------------------------
                    T = {NomeRuota(Ruota),aN(1),aN(2),NomeRuota(Ruota),Rt(1),Rt(2),Rt(3),Rt(4),Rt(5),NomeRuota(Ruota),Rt(6),Rt(7),NomeRuota(Ruota),DataEstrazione(es),esito,clp,esito2,clp2}
                    Call AddRigaTabella(T)
                    For x = 7 To 90 Step 9      ' -> passo 9
                        y = 85        ' --> evidenzia numero in tabella
                        stesto = ""
                        stesto = stesto & StringaEstratti(es,Ruota) & "."
                        If aN(1) And y =  Rt(1) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                        If aN(1) And y =  Rt(2) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                        If aN(1) And y =  Rt(3) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                        If aN(2) And y =  Rt(1) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                        If aN(2) And y =  Rt(2) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                        If aN(2) And y =  Rt(3) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                        If Rt(1) = x Then Call SetColoreCellaRighe (4,ColoreGiallo,ColoreNero)
                        If Rt(2) = x Then Call SetColoreCellaRighe (5,ColoreGiallo,ColoreNero)
                        'If Rt(3) = x Then Call SetColoreCellaRighe (6,ColoreGiallo,ColoreNero)
                        If Rt(1) = y Then Call SetColoreCellaRighe (4,ColoreRosso,ColoreBianco)
                        If Rt(2) = y Then Call SetColoreCellaRighe (5,ColoreRosso,ColoreBianco)
                        If Rt(3) = y Then Call SetColoreCellaRighe (6,ColoreRosso,ColoreBianco)
                        If aN(1) = y Then Call SetColoreCellaRighe (1,ColoreGiallo,ColoreNero)
                        If aN(2) = y Then Call SetColoreCellaRighe (2,ColoreGiallo,ColoreNero)
                        Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
                        Call SetColoreCellaRighe(3,ColoreVerde,ColoreBianco)
                        Call SetColoreCellaRighe(7,ColoreVerde,ColoreBianco)  ' ->N1
                        Call SetColoreCellaRighe(8,ColoreVerde,ColoreBianco)  ' ->N2
                        Call SetColoreCellaRighe(9,ColoreGiallo,ColoreVerde)  ' -> Ruota TT E NZ
                        Call SetColoreCellaRighe(10,ColoreVerde,ColoreBianco) ' ->N3
                        Call SetColoreCellaRighe(11,ColoreVerde,ColoreBianco) ' ->N4
                        Call SetColoreCellaRighe(12,ColoreGiallo,ColoreVerde) ' -> Ruota TT E NZ
                        Call SetColoreCellaRighe(13,ColoreVerde,ColoreBianco) ' -> Data
                    Next
                Next
            Next
            CreaTabella
            Scrivi ("  " & stesto)
        Next
    End Sub
End Class

Zetrix · 23 Febbraio 2022

grazie mille Mike certo che ne farò tesoro dello script ho formattati alcuni colori di alcune tabelle
vorrei regalarti una previsione mia ma non so se giochi al lotto ad ogni modo vedrò di scrivere
a giuseppa in privato e ti farò avere una mia previsione qua e meglio che non scrivo se no
non vinciamo ne te e ne io e vincerà solo il banco

Codice:

Class Script
    Sub Main
        Dim Nu(9),Na(10),aN(5),Ru(1),Rt(7),Num1,Num2,Num3,Num4,Num5,Num6,Num7,Num8,Num9,Num10 As Integer
        Dim x , w, y ,a(7) , b(3), c(3) ,d(3), e(3) , k, s , z , r , es ,Ruota  As Integer
        Dim ini As Integer = EstrazioniArchivio - 8
        Dim fin As Integer = EstrazioniArchivio
        Dim aUscite(),esito,aUscite2(),esito2 As String
        Dim n1(2),n2(2),RuotaGioco(2),clp,clp2  As Integer
        For es = fin To ini Step - 1
            Dim T() , stesto As String
            'For Ruota  = 11 To 11
            T = {" Ruota "," E1 "," E2 " ," Ruota "," Som"," Dist"," Som+Dist"," N1 "," N2 " ,"  Ruota "," N3 "," N4 " ,"  Ruota "," Data "," N1-N2","Colpo"," N3-N4","Colpo"}
            Call InitTabella(T,ColoreVerde,,,ColoreBianco,,"microsoft yi baiti")
            Ruota = 3   ' -> ruota di Bari
            RuotaGioco(1) = 11
            RuotaGioco(2) = 12
            For p1 As Integer = 1 To 4
                For p2 As Integer = p1 + 1 To 5
                    aN(1) = Estratto(es,Ruota,p1)
                    aN(2) = Estratto(es,Ruota,p2)
                    a(1) = FuoriX(aN(1)+ aN(2),90)   ' -> somma
                    a(2) = Distanza(aN(1),aN(2))     ' -> dist
                    a(3) = FuoriX(a(1)+a(2),90)      ' -> somma + dist
                    a(4) = FuoriX(a(3)+ aN(1),90)
                    a(5) = FuoriX(a(3)+ aN(2),90)
                    a(6) = FuoriX(90-a(3)+ aN(1),90)
                    a(7) = FuoriX(90-a(3)+ aN(2),90)
                    Rt(1) = a(1)
                    Rt(2) = a(2)
                    Rt(3) = a(3)
                    Rt(4) = a(4)
                    Rt(5) = a(5)
                    Rt(6) = a(6)
                    Rt(7) = a(7)
                    '---------------------------------
                    n1(1) = Rt(4) : n1(2) = Rt(5)
                    n2(1) = Rt(6) : n2(2) = Rt(7)
                    '----------------------------------------------------------------------------------
                    esito = "--"
                    If VerificaEsito (n1,RuotaGioco,2,es+1,,13,clp,aUscite)  Then
                        For k1 As Integer = 0  To aUscite.GetUpperbound(0)
                            If aUscite(k1) <> "" Then esito = aUscite(k1)
                        Next
                    End If
                    '----------------------------------------------------------------------------------
                    esito2 = "--"
                    If VerificaEsito (n2,RuotaGioco,2,es+1,,13,clp2,aUscite2)  Then
                        For k2 As Integer = 0  To aUscite.GetUpperbound(0)
                            If aUscite2(k2) <> "" Then esito2 = aUscite2(k2)
                        Next
                    End If
                    '----------------------------------------------------------------------------------
                    T = {NomeRuota(Ruota),aN(1),aN(2),NomeRuota(Ruota),Rt(1),Rt(2),Rt(3),Rt(4),Rt(5),NomeRuota(Ruota),Rt(6),Rt(7),NomeRuota(Ruota),DataEstrazione(es),esito,clp,esito2,clp2}
                    Call AddRigaTabella(T)
                    For x = 5 To 90 Step 9      ' -> evidenza somma or distanza in figura
                        y = 41                  ' -> evidenzia numero di somma or distanza in tabella
                        z = 41                  ' -> evidenzia numero in N1-N2 or N3-N4
                        stesto = ""
                        stesto = stesto & StringaEstratti(es,Ruota) & "."
                        If aN(1) And y =  Rt(1) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                        If aN(1) And y =  Rt(2) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                        If aN(1) And y =  Rt(3) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                        If aN(2) And y =  Rt(1) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                        If aN(2) And y =  Rt(2) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                        If aN(2) And y =  Rt(3) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                        If Rt(1) = x Then Call SetColoreCellaRighe (4,ColoreGiallo,ColoreNero)
                        If Rt(2) = x Then Call SetColoreCellaRighe (5,ColoreGiallo,ColoreNero)
                        'If Rt(3) = x Then Call SetColoreCellaRighe (6,ColoreGiallo,ColoreNero)
                        If Rt(1) = y Then Call SetColoreCellaRighe (4,ColoreRosso,ColoreBianco)
                        If Rt(2) = y Then Call SetColoreCellaRighe (5,ColoreRosso,ColoreBianco)
                        If Rt(3) = y Then Call SetColoreCellaRighe (6,ColoreRosso,ColoreBianco)
                        If aN(1) = y Then Call SetColoreCellaRighe (1,ColoreGiallo,ColoreNero)
                        If aN(2) = y Then Call SetColoreCellaRighe (2,ColoreGiallo,ColoreNero)
                        If Rt(4) = z Then Call SetColoreCellaRighe (7,ColoreRosso,ColoreBianco)
                        If Rt(5) = z Then Call SetColoreCellaRighe (8,ColoreRosso,ColoreBianco)
                        If Rt(6) = z Then Call SetColoreCellaRighe (10,ColoreRosso,ColoreBianco)
                        If Rt(7) = z Then Call SetColoreCellaRighe (11,ColoreRosso,ColoreBianco)
                        Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
                        Call SetColoreCellaRighe(3,ColoreVerde,ColoreBianco)
                        Call SetColoreCellaRighe(6,ColoreVerde,ColoreBianco)
                        'Call SetColoreCellaRighe(7,ColoreBianco,ColoreNero)  ' ->N1
                        'Call SetColoreCellaRighe(8,ColoreBianco,ColoreNero)  ' ->N2
                        Call SetColoreCellaRighe(9,ColoreVerde,ColoreBianco)  ' -> Ruota TT E NZ
                        'Call SetColoreCellaRighe(10,ColoreBianco,ColoreNero) ' ->N3
                        'Call SetColoreCellaRighe(11,ColoreBianco,ColoreNero) ' ->N4
                        Call SetColoreCellaRighe(12,ColoreGiallo,ColoreVerde) ' -> Ruota TT E NZ
                        Call SetColoreCellaRighe(13,ColoreVerde,ColoreBianco) ' -> Data
                        Call SetColoreCellaRighe(14,ColoreRosa,ColoreNero)
                        Call SetColoreCellaRighe(15,ColoreVerde,ColoreBianco)
                        Call SetColoreCellaRighe(16,ColoreRosa,ColoreNero)
                        Call SetColoreCellaRighe(17,ColoreVerde,ColoreBianco)
                    Next
                Next
            Next
            CreaTabella
            Scrivi (NomeRuota(Ruota) & " " & stesto)
        Next
    End Sub
End Class

Mike58 · 23 Febbraio 2022

Purtroppo sono anche un giocatore, e negli ultimi tempi anche un pò indietro con le vincite.
Comunque ci sono anche altri forum con il messanger privato ai quale sei anche tu iscritto nella piattaforma forumfree.
Stai facendo anche tu del tuo meglio e pure tu con poca interazione.
Ciao

Zetrix · 23 Febbraio 2022

ok Mike se sei un po indietro con le vincite allora vedrò se riesco a farti vincere una delle
mie previsioni come minimo vedrò di ricambiare dell'aiuto che mi ai dato e a risolvere alcuni script che da solo forse
non ci sarei mai riuscito e vero prima scrivevo nella forum free ma adesso scrivo in un altro forum
ho scritto anche qua alcune discussioni di lotto e avevo un gruppo di amiche che mi seguivano ma
devo dirti che quanto si scrive nel forum prima o dopo devi litigare con qualcuno e i forum purtroppo sono fatti cosi
Ciao

Zetrix · 24 Febbraio 2022

Ciao Mike, dopo tante prove sono riuscito a mettere il next al posto giusto
il next si doveva mettere in fondo allo script prima della scritta end sub
For Ruota = 1 To 11 -> next
in questo script ho usato un algoritmo per una prova quindi si puo sempre
cambiare il calcolo dell'algoritmo esempio si puo mettere la differenza al posto
di somma+dist ci sono diversi modi per far quadrare i numeri estratti
allego lo script se puo servire a qualcuno.a

Codice:

Class Script
    Sub Main
        Dim Nu(9),Na(10),aN(5),Ru(1),Rt(7),Num1,Num2,Num3,Num4,Num5,Num6,Num7,Num8,Num9,Num10 As Integer
        Dim x , w, y ,a(7) , b(3), c(3) ,d(3), e(3) , k, s , z , r , es ,Ruota  As Integer
        Dim ini As Integer = EstrazioniArchivio - 8
        Dim fin As Integer = EstrazioniArchivio
        Dim aUscite(),esito,aUscite2(),esito2 As String
        Dim n1(2),n2(2),RuotaGioco(2),clp,clp2  As Integer
        For Ruota = 1 To 11
            For es = fin To ini Step - 1
                Dim T() , stesto As String
                'Ruota  = 1
                T = {" Ruota "," E1 "," E2 " ," Ruota "," Som"," Dist"," Som+Dist"," N1 "," N2 " ,"  Ruota "," N3 "," N4 " ,"  Ruota "," Data "," N1-N2","Colpo"," N3-N4","Colpo"}
                Call InitTabella(T,ColoreVerde,,,ColoreBianco,,"microsoft yi baiti")
                RuotaGioco(1) = 11
                RuotaGioco(2) = 12
                For p1 As Integer = 1 To 4
                    For p2 As Integer = p1 + 1 To 5
                        aN(1) = Estratto(es,Ruota,p1)
                        aN(2) = Estratto(es,Ruota,p2)
                        a(1) = FuoriX(aN(1)+ aN(2),90)   ' -> somma
                        a(2) = Distanza(aN(1),aN(2))     ' -> dist
                        a(3) = FuoriX(a(1)+a(2),90)      ' -> somma + dist
                        a(4) = FuoriX(a(3)+ aN(1),90)
                        a(5) = FuoriX(a(3)+ aN(2),90)
                        a(6) = FuoriX(90-a(3)+ aN(1),90)
                        a(7) = FuoriX(90-a(3)+ aN(2),90)
                        Rt(1) = a(1)
                        Rt(2) = a(2)
                        Rt(3) = a(3)
                        Rt(4) = a(4)
                        Rt(5) = a(5)
                        Rt(6) = a(6)
                        Rt(7) = a(7)
                        '---------------------------------
                        n1(1) = Rt(4) : n1(2) = Rt(5)
                        n2(1) = Rt(6) : n2(2) = Rt(7)
                        '----------------------------------------------------------------------------------
                        esito = "--"
                        If VerificaEsito (n1,RuotaGioco,2,es+1,,13,clp,aUscite)  Then
                            For k1 As Integer = 0  To aUscite.GetUpperbound(0)
                                If aUscite(k1) <> "" Then esito = aUscite(k1)
                            Next
                        End If
                        '----------------------------------------------------------------------------------
                        esito2 = "--"
                        If VerificaEsito (n2,RuotaGioco,2,es+1,,13,clp2,aUscite2)  Then
                            For k2 As Integer = 0  To aUscite.GetUpperbound(0)
                                If aUscite2(k2) <> "" Then esito2 = aUscite2(k2)
                            Next
                        End If
                        '----------------------------------------------------------------------------------
                        T = {NomeRuota(Ruota),aN(1),aN(2),NomeRuota(Ruota),Rt(1),Rt(2),Rt(3),Rt(4),Rt(5),NomeRuota(Ruota),Rt(6),Rt(7),NomeRuota(Ruota),DataEstrazione(es),esito,clp,esito2,clp2}
                        Call AddRigaTabella(T)
                        For x = 5 To 90 Step 9      ' -> evidenzia somma or distanza in figura
                            y = 41                  ' -> evidenzia numero di somma or distanza in tabella
                            z = 41                  ' -> evidenzia numero in N1-N2 or N3-N4
                            stesto = ""
                            stesto = stesto & StringaEstratti(es,Ruota) & "."
                            If aN(1) And y =  Rt(1) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                            If aN(1) And y =  Rt(2) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                            If aN(1) And y =  Rt(3) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                            If aN(2) And y =  Rt(1) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                            If aN(2) And y =  Rt(2) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                            If aN(2) And y =  Rt(3) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                            If Rt(1) = x Then Call SetColoreCellaRighe (4,ColoreGiallo,ColoreNero)
                            If Rt(2) = x Then Call SetColoreCellaRighe (5,ColoreGiallo,ColoreNero)
                            'If Rt(3) = x Then Call SetColoreCellaRighe (6,ColoreGiallo,ColoreNero)
                            If Rt(1) = y Then Call SetColoreCellaRighe (4,ColoreRosso,ColoreBianco)
                            If Rt(2) = y Then Call SetColoreCellaRighe (5,ColoreRosso,ColoreBianco)
                            If Rt(3) = y Then Call SetColoreCellaRighe (6,ColoreRosso,ColoreBianco)
                            If aN(1) = y Then Call SetColoreCellaRighe (1,ColoreGiallo,ColoreNero)
                            If aN(2) = y Then Call SetColoreCellaRighe (2,ColoreGiallo,ColoreNero)
                            If Rt(4) = z Then Call SetColoreCellaRighe (7,ColoreRosso,ColoreBianco)
                            If Rt(5) = z Then Call SetColoreCellaRighe (8,ColoreRosso,ColoreBianco)
                            If Rt(6) = z Then Call SetColoreCellaRighe (10,ColoreRosso,ColoreBianco)
                            If Rt(7) = z Then Call SetColoreCellaRighe (11,ColoreRosso,ColoreBianco)
                            Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
                            Call SetColoreCellaRighe(3,ColoreVerde,ColoreBianco)
                            Call SetColoreCellaRighe(6,ColoreVerde,ColoreBianco)
                            'Call SetColoreCellaRighe(7,ColoreBianco,ColoreNero)  ' ->N1
                            'Call SetColoreCellaRighe(8,ColoreBianco,ColoreNero)  ' ->N2
                            Call SetColoreCellaRighe(9,ColoreVerde,ColoreBianco)  ' -> Ruota TT E NZ
                            'Call SetColoreCellaRighe(10,ColoreBianco,ColoreNero) ' ->N3
                            'Call SetColoreCellaRighe(11,ColoreBianco,ColoreNero) ' ->N4
                            Call SetColoreCellaRighe(12,ColoreGiallo,ColoreVerde) ' -> Ruota TT E NZ
                            Call SetColoreCellaRighe(13,ColoreVerde,ColoreBianco) ' -> Data
                            Call SetColoreCellaRighe(14,ColoreRosa,ColoreNero)
                            Call SetColoreCellaRighe(15,ColoreVerde,ColoreBianco)
                            Call SetColoreCellaRighe(16,ColoreRosa,ColoreNero)
                            Call SetColoreCellaRighe(17,ColoreVerde,ColoreBianco)
                        Next
                    Next
                Next
                CreaTabella
                Scrivi (NomeRuota(Ruota) & " " & stesto)
            Next
        Next  
    End Sub
End Class

programmazione spazio script in vbnet

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member