Novità

programmazione spazio script in vbnet

Zetrix

Zetrix

Advanced Premium Member
Ciao Mike , ho scritto questo post per problemi di programmazione in spazioscript

For x = 1 To 90 Step 7

stesto = (x)

Scrivi (stesto)

allora vorrei scrivere una sequenza di numeri però scritto in questo modo
scrive solo il num 85

se invece si scrive stesto = stringanumeri (x) da errore lo script

adesso ti chiedo ma stringanumeri non dovrebbe scrivere tutti i numeri di una sequenza ?
 
Zetrix ha scritto:
Ciao Mike , ho scritto questo post per problemi di programmazione in spazioscript

For x = 1 To 90 Step 7

stesto = (x)

Scrivi (stesto)

allora vorrei scrivere una sequenza di numeri però scritto in questo modo
scrive solo il num 85

se invece si scrive stesto = stringanumeri (x) da errore lo script

adesso ti chiedo ma stringanumeri non dovrebbe scrivere tutti i numeri di una sequenza ?
Clicca per espandere...
Solo se li inserisci in un vettore.
S=""
For x=1 to 90 step
s=s&x&"."
Next
Scrivi rimuovilastchr (s,".")
Vedi se funzi ,scrivo da cell ed ho appena finito di lavorare
Ciao :)
 
Ciao i legend , ho provato come ai scritto te ma continua a dare errore
gli errori sono evidenziati in debug e solo che sono scritti tutti in inglese
adesso bisogna fare un corso pure di inglese :)

Scrivi stringanumeri (stesto)

nemmeno cosi da sempre errore

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 Integer
        Dim Ini As Integer = EstrazioniArchivio  - 8
        Dim fin As Integer = EstrazioniArchivio
        Dim T() , V() As String
        T = {" Ruota "," E1 "," E2 "," E3 "," E4 "," E5" ," Ruota ","Dia1","Dia2","Dia3","Dia4","Dia5"," Ruota ","E90","E90","E90","E90","E90"}
        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) = Diametrale(Estratto(es,r,p))
                    aP(p) = 90-Nu(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),aP(1),aP(2),aP(3),aP(4),aP(5) }
                Call AddRigaTabella(V)
                For x = 1 To 90 Step 7

                   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)
                    If aP(1) = x Then Call SetColoreCellaRighe (13,ColoreBlu ,ColoreBianco)
                    If aP(2) = x Then Call SetColoreCellaRighe (14,ColoreBlu ,ColoreBianco)
                    If aP(3) = x Then Call SetColoreCellaRighe (15,ColoreBlu ,ColoreBianco)
                    If aP(4) = x Then Call SetColoreCellaRighe (16,ColoreBlu ,ColoreBianco)
                    If aP(5) = x Then Call SetColoreCellaRighe (17,ColoreBlu ,ColoreBianco)



                    Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
                    Call SetColoreCellaRighe(6,ColoreVerde,ColoreBianco)
                    Call SetColoreCellaRighe(12,ColoreVerde,ColoreBianco)
                Next
            Next
            Scrivi (DataEstrazione(es),1)
Scrivi (stesto)
            CreaTabella
        Next
    End Sub
End Class
 
Ultima modifica:
Forse non esiste rimuovilastchr in spaziolight.
For x=1 to 90 step 7
Scrivi x&" ",0,0
Next
scrivi
Guarda cosa restituisce questa stringa che hai impostato e vedi se è quello che volevi ottenere. Purtroppo non ho capito cosa vuoi evidenziare.
 
Ciao Zetrix, devi (come ho imparato anch'io) imparare bene la dichiarazione delle variabili.
Se Dichiari una variabile integer non puoi poi trattarla come stringa e così anche il contrario, a meno che non la converti con codici appositi.
La tua scritta stesto è integer o fai una Redim Preserve e memorizzi i numeri integer o dichiari
stesto in stringa e la raccogli come stringa - stesto = stesto & x & " "

p.s. per Legend RimuoviLastChar esiste in spaziolight

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  - 8
        Dim fin As Integer = EstrazioniArchivio
        Dim T() , V() As String
        T = {" Ruota "," E1 "," E2 "," E3 "," E4 "," E5" ," Ruota ","Dia1","Dia2","Dia3","Dia4","Dia5"," Ruota ","E90","E90","E90","E90","E90"}
        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) = Diametrale(Estratto(es,r,p))
                    aP(p) = 90-Nu(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),aP(1),aP(2),aP(3),aP(4),aP(5) }
                Call AddRigaTabella(V)
                stesto = ""
                For x = 1 To 90 Step 7
                    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)
                    If aP(1) = x Then Call SetColoreCellaRighe (13,ColoreBlu ,ColoreBianco)
                    If aP(2) = x Then Call SetColoreCellaRighe (14,ColoreBlu ,ColoreBianco)
                    If aP(3) = x Then Call SetColoreCellaRighe (15,ColoreBlu ,ColoreBianco)
                    If aP(4) = x Then Call SetColoreCellaRighe (16,ColoreBlu ,ColoreBianco)
                    If aP(5) = x Then Call SetColoreCellaRighe (17,ColoreBlu ,ColoreBianco)
                    Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
                    Call SetColoreCellaRighe(6,ColoreVerde,ColoreBianco)
                    Call SetColoreCellaRighe(12,ColoreVerde,ColoreBianco)
                Next
            Next
            Scrivi (DataEstrazione(es),1)
            Scrivi ("sTesto = " & stesto)
            'stesto = ""
            CreaTabella
        Next
    End Sub
End Class
 
Mike58 ha scritto:
p.s. per Legend RimuoviLastChar esiste in spaziolight
Clicca per espandere...
Grazie mike.
I numeri che da 1 a 90 passo 7
Sono
1.8.15.22.29.36.43.50.57.64.71.78.85

O per lo meno questa è la stringa che si ottiene con con quel codice.
Si vogliono evidenziare solo questi numeri o tutti i numeri che hanno un passo 7
Es
2.9.16.23.30.37.44.51.58.65.72.79.86
Ecc.
Il codice da scrivere ovviamente cambia.
Buon lavoro. Ciao
 
grazie mike allora devo studiare queste stringhe As Integer e As String
quindi per scrivere una lunghetta di numeri bisogna usare As String
invece As Integer serve per dimensionare le variabili

i legend si deve scrivere la sequenza che interessa poi se si vuole una sequenza
diversa si deve cambiare il gruppo da 1 a 2 mantenendo sempre la sequenza 7
se poi si vuole scrivere una sequenza diversa allora si scrive gruppo 1 con la sequenza 8

gruppo 1 sequenza 8 = 01.09.17.25.33.41.49.57.65.73.81.89
gruppo 2 sequenza 8 = 02.10.18.26.34.42.50.58.66.74.82.90
gruppo 3 sequenza 8 = 03.11.19.27.35.43.51.59.67.75.83
gruppo 4 sequenza 8 = 04.12.20.28.36.44.52.60.68.76.84
gruppo 5 sequenza 8 = 05.13.21.29.37.45.53.61.69.77.85
gruppo 6 sequenza 8 = 06.14.22.30.38.46.54.62.70.78.86
gruppo 7 sequenza 8 = 07.15.23.31.39.47.55.63.71.79.87
gruppo 8 sequenza 8 = 08.16.24.32.40.48.56.64.72.80.88

Ciao :)
 
i legend perche da errore lo script con fuoriX e giusto come ho scritto
ogni minima cosa che si scrive da sempre errore

aP(p) = FuoriX(99-Nu(p))

se si scrive cosi non da errore ma come si deve scrivere il fuoriX

aP(p) = 99-Nu(p)
 
zetrix, intanto un modus per scrivere magari i tuoi sviluppi
nel mio esempio un 13x12 a distanza 7
c'è anche l'esempio del fuorix.
fuorix (Nu,90)
Codice: 
Class Script
    Sub Main
        Dim s,r As Integer
        Dim nu(12) As Integer
        For s = 0 To 12
            For r = 0 To 12
                nu(r) = FuoriX(s-6 +(r*7),90 )
            Next
            OrdinaVettore (nu,1,12,1)
            Scrivi (StringaNumeri(nu,,1))
        Next
    End Sub
End Class


01.08.15.22.29.36.43.50.57.64.71.78
02.09.16.23.30.37.44.51.58.65.72.79
03.10.17.24.31.38.45.52.59.66.73.80
04.11.18.25.32.39.46.53.60.67.74.81
05.12.19.26.33.40.47.54.61.68.75.82
06.13.20.27.34.41.48.55.62.69.76.83
07.14.21.28.35.42.49.56.63.70.77.84
08.15.22.29.36.43.50.57.64.71.78.85
09.16.23.30.37.44.51.58.65.72.79.86
10.17.24.31.38.45.52.59.66.73.80.87
11.18.25.32.39.46.53.60.67.74.81.88
12.19.26.33.40.47.54.61.68.75.82.89
13.20.27.34.41.48.55.62.69.76.83.90
 
mike per me e scritto bene con il fuoriX ma non so perche da errore
grazie dell'esempio che ai scritto con le sequenze
vorrei impostare i numeretti a 10
Num(p) = 110-(Estratto(es,r,p))

cosi lo script non da errore però per alcuni numeri ci vuole il fuoriX
E allora se scrivo cosi lo script da errore come e possibile a te non da errore
il fuoriX

Num(p) = fuoriX(110-(Estratto(es,r,p)) )

nel debug ce scritto l errore ma e scritto in inglese non mi fa nemmeno
copiare l errore se no ti facevo leggere quello che ce scritto
 
Ultima modifica:

FuoriX​



Function FuoriX(n As Integer, Optional Limite As Integer = 90) As Integer


Torna il valore col fuori X dove x per default vale 90 , se viene passato un numero negativo somma Limite finche non diventa >0

n Numero su cui operare
Limite Limite del FuoriX


Codice: 
Class Script
    Sub Main
        Dim a As Integer = 137
        Dim b As Integer
        b = FuoriX (a,99)
        Scrivi (b)
    End Sub
End Class
 
si mike so come funziona il fuoriX ma allora perche non si usa il fuori90
nelle funzioni script mi sembra che non ce scritto ce solo il fuoriX
vedrò dopo se riesco a fare un altro tentativo con l'esempio che ai scritto

ciao
 
Ultima modifica:
Ciao Mike , vorrei evidenziare un gruppo di numeri da me scelti da evidenziare
nella tabella a lato delle estrazioni ho scritto in questo modo ma non va bene
ti chiedo si potrebbe usare una funzione simile a sceglinumeri ?

esempio -> y = 4 & 9 & 19 & 42 & 73 & 84 & 90


If Num(1) = y Then Call SetColoreCellaRighe (7,ColoreRosso ,ColoreBianco)
If Num(2) = y Then Call SetColoreCellaRighe (8,ColoreRosso ,ColoreBianco)
If Num(3) = y Then Call SetColoreCellaRighe (9,ColoreRosso ,ColoreBianco)
If Num(4) = y Then Call SetColoreCellaRighe (10,ColoreRosso ,ColoreBianco)
If Num(5) = y Then Call SetColoreCellaRighe (11,ColoreRosso ,ColoreBianco)

buona domenica
 
Non saprei, Zetrix, sarebbe meglio che gli dai un valore preciso ai Num(x) e non un y univoco.
Così come è presentato non ti so rispondere.
Comunque devi provare in tutti i modi solo cosi impari l'arte e la metti da parte.

ciao
 
Mike allego lo script cosi vedi meglio quello che vorrei evidenziare
y = 1 ' -> gruppo di numeri a scelta da evidenziare nella tabella

la y in questo esempio evidenzia soltanto il num 1 ma se volessi evidenziare
un gruppo di numeri a scelta esempio 7 o 8 numeri come si deve scrivere il codice
si puo usare la funzione scegli numeri oppure non va bene


Codice: 
Class Script
    Sub Main
        Dim Nu(5),aP(5),Ru(1),Num(5) As Integer
        Dim x , y , 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) = 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 7
                  
                    y = 1    '  -> gruppo di numeri a scelta
              

                    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) = y Then Call SetColoreCellaRighe (7,ColoreRosso ,ColoreBianco)
                    If Num(2) = y Then Call SetColoreCellaRighe (8,ColoreRosso ,ColoreBianco)
                    If Num(3) = y Then Call SetColoreCellaRighe (9,ColoreRosso ,ColoreBianco)
                    If Num(4) = y Then Call SetColoreCellaRighe (10,ColoreRosso ,ColoreBianco)
                    If Num(5) = y 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 7 > " & stesto)
            'stesto = ""
            CreaTabella
        Next
    End Sub
End Class
 
Zetrix, metti i numeri in in array e poi confrontali con la variabile che ti interessa

dim Y () as integer = {0,11,22,33,44,55}

If Num(1) = y(1) Then Call SetColoreCellaRighe (7,ColoreRosso ,ColoreBianco)

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) = 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 7
                    '-----------------------------------------------------------------------------------------
                    Dim  y() As Integer = {0,11,22,33,44,55} ' array immesso
                    '-----------------------------------------------------------------------------------------
                    'y = 1    '  -> gruppo di numeri a scelta
                    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)
                    '----------------------- confronto con variabile y ----------------------------------------------------
                    If Num(1) = y(1) Then Call SetColoreCellaRighe (7,ColoreRosso ,ColoreBianco)
                    If Num(2) = y(2) Then Call SetColoreCellaRighe (8,ColoreRosso ,ColoreBianco)
                    If Num(3) = y(3) Then Call SetColoreCellaRighe (9,ColoreRosso ,ColoreBianco)
                    If Num(4) = y(4) Then Call SetColoreCellaRighe (10,ColoreRosso ,ColoreBianco)
                    If Num(5) = y(5) 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 7 > " & stesto)
            'stesto = ""
            CreaTabella
        Next
    End Sub
End Class
 
Mike ho scritto come ai detto te ma evidenzia soltanto il num 11
adesso vedo il tuo script ok ho visto dove e lo sbaglio adesso
lo correggo avevo dimensionato soltanto la a(1)

Codice: 
Class Script
    Sub Main
        Dim Nu(5),aP(5),Ru(1),Num(5) As Integer
        Dim a () As Integer = {0,11,12,13,14,15}
        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) = 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 4



                    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) = a(1) Then Call SetColoreCellaRighe (7,ColoreRosso ,ColoreBianco)
                    If Num(2) = a(1) Then Call SetColoreCellaRighe (8,ColoreRosso ,ColoreBianco)
                    If Num(3) = a(1) Then Call SetColoreCellaRighe (9,ColoreRosso ,ColoreBianco)
                    If Num(4) = a(1) Then Call SetColoreCellaRighe (10,ColoreRosso ,ColoreBianco)
                    If Num(5) = a(1) 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 7 > " & stesto)
            'stesto = ""
            CreaTabella
        Next
    End Sub
End Class
 
Ultima modifica:
Mike non ci siamo con lo script deve esserci qualche errore perche non tutti i numeri
nell'array sono evidenziati in tabella ma solo alcuni numeri

Dim y() As Integer = {0,1,2,3,4,5,6,7,8,9} ' array immesso



Codice: 
Class Script
    Sub Main
        Dim Nu(5),aP(5),Ru(1),Num(5) As Integer
        Dim a ,x , p , r , es  As Integer
        Dim  y() As Integer = {0,1,2,3,4,5,6,7,8,9} ' array immesso
        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)
              
                    '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 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)
                    If Num(1) = y(1) Then Call SetColoreCellaRighe (7,ColoreRosso ,ColoreBianco)
                    If Num(2) = y(2) Then Call SetColoreCellaRighe (8,ColoreRosso ,ColoreBianco)
                    If Num(3) = y(3) Then Call SetColoreCellaRighe (9,ColoreRosso ,ColoreBianco)
                    If Num(4) = y(4) Then Call SetColoreCellaRighe (10,ColoreRosso ,ColoreBianco)
                    If Num(5) = y(5) 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
 
Mike nella mia tastiera in italiano non ce la parentesi graffe e un casino per scriverla
bisogna usare dei tasti per scriverla nello script come spiega in questo sito

Parentesi graffa tastiera: come scriverla

Come scrivere la parentesi graffa dal nostro PC Windows, Mac o Linux; anche se non sono presenti sulla tastiera.
www.computer-facile.com www.computer-facile.com
 
no non è un casino si scrive premendo insieme tasto di windows (tra Fin e Alt) + tasto (è [ ) ti compare una finestra con i caratteri speciali.
poi per la scrittura in evidenza se superi i 5 elementi devi ingegnerti con un ciclo for contegiando quanti elementi contiene l'array

for z = 1 to ubound ( y )
lo so che quando non si arriva subito è complicato ma bisogna tentare per arrivare alle soluzioni.

ciao
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

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

Ultimi Messaggi

Indietro
Alto