xToon

Alien. · 24 Ottobre 2024

Ciao io ho SpazioLight 1.0.1 credo che sia la prima e forse non ho dove far "girare" gli script c'è qualche buon..anima che me la possa passare, grazie.

Alien. · 24 Ottobre 2024

Zetrix ha scritto:

Codice:

Class Script
    Sub Main
        Dim Na(30),Nu(5),aN(5),Vu(5),Ru(1),Num1,Num2,Num3,Num4,Num5 As Integer
        Dim x , z , y, n,k, s ,v,w,j, r ,rt, es ,Ruota  As Integer
        Dim ex As Integer = EstrazioniArchivio  - 0
        'Dim fin As Integer = EstrazioniArchivio
        For es = ex To ex
            rt = InputBox("Quale ruota vuoi tabellare ?",,0)
            Dim T() As String
            T = {" R 10 "," A1 "," A2 "," A3 "," A4 "," A5 " ," R  "," A1 "," A2 "," A3 "," A4 "," A5 "," R "," A1 "," A2 "," A3 "," A4 "," A5 "," R "," ultima est" }
            'Call InitTabella(T,ColoreVerde,,,ColoreBianco)
            Call InitTabella(T,RGB(0,214,153),,,RGB(0,100,100),,"Dubai Light")
            For Ruota = 1 To 10
                For p As Integer = 1 To 5
                    y = y + 1
                    aN(p) = Estratto(es,Ruota ,p)
                    Nu(p) = y
                    If y + 50 < 91 Then
                        Vu(p) = y + 50
                    Else
                        Vu(p)  = 0
                    End If
                Next
                '
                '-----------------------------------------------
                '
                T = {NomeRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5)," ",Nu(1),Nu(2),Nu(3),Nu(4),Nu(5)," ",Vu(1),Vu(2),Vu(3),Vu(4),Vu(5)," ", Replace (DataEstrazione(es) ,"/" , "." )}
                Call AddRigaTabella(T,RGB(255,255,255),,,RGB(0,0,0),,"Dubai Light") ' colori sfondo tabella
                '
                '
                x = Estratto(es,rt,1)
                z = Estratto(es,rt,2)
                v = Estratto(es,rt,3)
                w = Estratto(es,rt,4)
                j = Estratto(es,rt,5)
                '
                '
                '
                If aN(1) =  x Then Call SetColoreCellaRighe (1,RGB(255,165,100),RGB(0,100,100))
                If aN(2) =  z Then Call SetColoreCellaRighe (2,RGB(255,165,100),RGB(0,100,100))
                If aN(3) =  v Then Call SetColoreCellaRighe (3,RGB(255,165,100),RGB(0,100,100))
                If aN(4) =  w Then Call SetColoreCellaRighe (4,RGB(255,165,100),RGB(0,100,100))
                If aN(5) =  j Then Call SetColoreCellaRighe (5,RGB(255,165,100),RGB(0,100,100))
                '
                '
                If aN(1) And Nu(1) =  x Then Call SetColoreCellaRighe (1,RGB(255,255,0),RGB(0,100,100))
                If aN(2) And Nu(2) =  x Then Call SetColoreCellaRighe (2,RGB(255,255,0),RGB(0,100,100))
                If aN(3) And Nu(3) =  x Then Call SetColoreCellaRighe (3,RGB(255,255,0),RGB(0,100,100))
                If aN(4) And Nu(4) =  x Then Call SetColoreCellaRighe (4,RGB(255,255,0),RGB(0,100,100))
                If aN(5) And Nu(5) =  x Then Call SetColoreCellaRighe (5,RGB(255,255,0),RGB(0,100,100))
                '
                If aN(1) And Nu(1) = x Then Call SetColoreCellaRighe (7,RGB(255,165,100),RGB(0,100,100))
                If aN(2) And Nu(2) = x Then Call SetColoreCellaRighe (8,RGB(255,165,100),RGB(0,100,100))
                If aN(3) And Nu(3) = x Then Call SetColoreCellaRighe (9,RGB(255,165,100),RGB(0,100,100))
                If aN(4) And Nu(4) = x Then Call SetColoreCellaRighe (10,RGB(255,165,100),RGB(0,100,100))
                If aN(5) And Nu(5) = x Then Call SetColoreCellaRighe (11,RGB(255,165,100),RGB(0,100,100))
                '
                If aN(1) And Vu(1) =  x Then Call SetColoreCellaRighe (1,RGB(255,255,0),RGB(0,100,100))
                If aN(2) And Vu(2) =  x Then Call SetColoreCellaRighe (2,RGB(255,255,0),RGB(0,100,100))
                If aN(3) And Vu(3) =  x Then Call SetColoreCellaRighe (3,RGB(255,255,0),RGB(0,100,100))
                If aN(4) And Vu(4) =  x Then Call SetColoreCellaRighe (4,RGB(255,255,0),RGB(0,100,100))
                If aN(5) And Vu(5) =  x Then Call SetColoreCellaRighe (5,RGB(255,255,0),RGB(0,100,100))
                '
                If aN(1) And Vu(1) =  x Then Call SetColoreCellaRighe (13,RGB(255,165,100),RGB(0,100,100))
                If aN(2) And Vu(2) =  x Then Call SetColoreCellaRighe (14,RGB(255,165,100),RGB(0,100,100))
                If aN(3) And Vu(3) =  x Then Call SetColoreCellaRighe (15,RGB(255,165,100),RGB(0,100,100))
                If aN(4) And Vu(4) =  x Then Call SetColoreCellaRighe (16,RGB(255,165,100),RGB(0,100,100))
                If aN(5) And Vu(5) =  x Then Call SetColoreCellaRighe (17,RGB(255,165,100),RGB(0,100,100))
                '
                '-------------------------------------------------------------------------------------------------
                '
                '
                If aN(1) And Nu(1) =  z Then Call SetColoreCellaRighe (1,RGB(255,255,0),RGB(0,100,100))
                If aN(2) And Nu(2) =  z Then Call SetColoreCellaRighe (2,RGB(255,255,0),RGB(0,100,100))
                If aN(3) And Nu(3) =  z Then Call SetColoreCellaRighe (3,RGB(255,255,0),RGB(0,100,100))
                If aN(4) And Nu(4) =  z Then Call SetColoreCellaRighe (4,RGB(255,255,0),RGB(0,100,100))
                If aN(5) And Nu(5) =  z Then Call SetColoreCellaRighe (5,RGB(255,255,0),RGB(0,100,100))
                '
                If aN(1) And Nu(1) = z Then Call SetColoreCellaRighe (7,RGB(255,165,100),RGB(0,100,100))
                If aN(2) And Nu(2) = z Then Call SetColoreCellaRighe (8,RGB(255,165,100),RGB(0,100,100))
                If aN(3) And Nu(3) = z Then Call SetColoreCellaRighe (9,RGB(255,165,100),RGB(0,100,100))
                If aN(4) And Nu(4) = z Then Call SetColoreCellaRighe (10,RGB(255,165,100),RGB(0,100,100))
                If aN(5) And Nu(5) = z Then Call SetColoreCellaRighe (11,RGB(255,165,100),RGB(0,100,100))
                '
                If aN(1) And Vu(1) =  z Then Call SetColoreCellaRighe (1,RGB(255,255,0),RGB(0,100,100))
                If aN(2) And Vu(2) =  z Then Call SetColoreCellaRighe (2,RGB(255,255,0),RGB(0,100,100))
                If aN(3) And Vu(3) =  z Then Call SetColoreCellaRighe (3,RGB(255,255,0),RGB(0,100,100))
                If aN(4) And Vu(4) =  z Then Call SetColoreCellaRighe (4,RGB(255,255,0),RGB(0,100,100))
                If aN(5) And Vu(5) =  z Then Call SetColoreCellaRighe (5,RGB(255,255,0),RGB(0,100,100))
                '
                If aN(1) And Vu(1) =  z Then Call SetColoreCellaRighe (13,RGB(255,165,100),RGB(0,100,100))
                If aN(2) And Vu(2) =  z Then Call SetColoreCellaRighe (14,RGB(255,165,100),RGB(0,100,100))
                If aN(3) And Vu(3) =  z Then Call SetColoreCellaRighe (15,RGB(255,165,100),RGB(0,100,100))
                If aN(4) And Vu(4) =  z Then Call SetColoreCellaRighe (16,RGB(255,165,100),RGB(0,100,100))
                If aN(5) And Vu(5) =  z Then Call SetColoreCellaRighe (17,RGB(255,165,100),RGB(0,100,100))
                '
                '-------------------------------------------------------------------------------------------------
                '
                '
                '
                If aN(1) And Nu(1) =  v Then Call SetColoreCellaRighe (1,RGB(255,255,0),RGB(0,100,100))
                If aN(2) And Nu(2) =  v Then Call SetColoreCellaRighe (2,RGB(255,255,0),RGB(0,100,100))
                If aN(3) And Nu(3) =  v Then Call SetColoreCellaRighe (3,RGB(255,255,0),RGB(0,100,100))
                If aN(4) And Nu(4) =  v Then Call SetColoreCellaRighe (4,RGB(255,255,0),RGB(0,100,100))
                If aN(5) And Nu(5) =  v Then Call SetColoreCellaRighe (5,RGB(255,255,0),RGB(0,100,100))
                '
                If aN(1) And Nu(1) = v Then Call SetColoreCellaRighe (7,RGB(255,165,100),RGB(0,100,100))
                If aN(2) And Nu(2) = v Then Call SetColoreCellaRighe (8,RGB(255,165,100),RGB(0,100,100))
                If aN(3) And Nu(3) = v Then Call SetColoreCellaRighe (9,RGB(255,165,100),RGB(0,100,100))
                If aN(4) And Nu(4) = v Then Call SetColoreCellaRighe (10,RGB(255,165,100),RGB(0,100,100))
                If aN(5) And Nu(5) = v Then Call SetColoreCellaRighe (11,RGB(255,165,100),RGB(0,100,100))
                '
                If aN(1) And Vu(1) =  v Then Call SetColoreCellaRighe (1,RGB(255,255,0),RGB(0,100,100))
                If aN(2) And Vu(2) =  v Then Call SetColoreCellaRighe (2,RGB(255,255,0),RGB(0,100,100))
                If aN(3) And Vu(3) =  v Then Call SetColoreCellaRighe (3,RGB(255,255,0),RGB(0,100,100))
                If aN(4) And Vu(4) =  v Then Call SetColoreCellaRighe (4,RGB(255,255,0),RGB(0,100,100))
                If aN(5) And Vu(5) =  v Then Call SetColoreCellaRighe (5,RGB(255,255,0),RGB(0,100,100))
                '
                If aN(1) And Vu(1) =  v Then Call SetColoreCellaRighe (13,RGB(255,165,100),RGB(0,100,100))
                If aN(2) And Vu(2) =  v Then Call SetColoreCellaRighe (14,RGB(255,165,100),RGB(0,100,100))
                If aN(3) And Vu(3) =  v Then Call SetColoreCellaRighe (15,RGB(255,165,100),RGB(0,100,100))
                If aN(4) And Vu(4) =  v Then Call SetColoreCellaRighe (16,RGB(255,165,100),RGB(0,100,100))
                If aN(5) And Vu(5) =  v Then Call SetColoreCellaRighe (17,RGB(255,165,100),RGB(0,100,100))
                '
                '-------------------------------------------------------------------------------------------------
                '
                '
                '
                If aN(1) And Nu(1) =  w Then Call SetColoreCellaRighe (1,RGB(255,255,0),RGB(0,100,100))
                If aN(2) And Nu(2) =  w Then Call SetColoreCellaRighe (2,RGB(255,255,0),RGB(0,100,100))
                If aN(3) And Nu(3) =  w Then Call SetColoreCellaRighe (3,RGB(255,255,0),RGB(0,100,100))
                If aN(4) And Nu(4) =  w Then Call SetColoreCellaRighe (4,RGB(255,255,0),RGB(0,100,100))
                If aN(5) And Nu(5) =  w Then Call SetColoreCellaRighe (5,RGB(255,255,0),RGB(0,100,100))
                '
                If aN(1) And Nu(1) = w Then Call SetColoreCellaRighe (7,RGB(255,165,100),RGB(0,100,100))
                If aN(2) And Nu(2) = w Then Call SetColoreCellaRighe (8,RGB(255,165,100),RGB(0,100,100))
                If aN(3) And Nu(3) = w Then Call SetColoreCellaRighe (9,RGB(255,165,100),RGB(0,100,100))
                If aN(4) And Nu(4) = w Then Call SetColoreCellaRighe (10,RGB(255,165,100),RGB(0,100,100))
                If aN(5) And Nu(5) = w Then Call SetColoreCellaRighe (11,RGB(255,165,100),RGB(0,100,100))
                '
                If aN(1) And Vu(1) =  w Then Call SetColoreCellaRighe (1,RGB(255,255,0),RGB(0,100,100))
                If aN(2) And Vu(2) =  w Then Call SetColoreCellaRighe (2,RGB(255,255,0),RGB(0,100,100))
                If aN(3) And Vu(3) =  w Then Call SetColoreCellaRighe (3,RGB(255,255,0),RGB(0,100,100))
                If aN(4) And Vu(4) =  w Then Call SetColoreCellaRighe (4,RGB(255,255,0),RGB(0,100,100))
                If aN(5) And Vu(5) =  w Then Call SetColoreCellaRighe (5,RGB(255,255,0),RGB(0,100,100))
                '
                If aN(1) And Vu(1) =  w Then Call SetColoreCellaRighe (13,RGB(255,165,100),RGB(0,100,100))
                If aN(2) And Vu(2) =  w Then Call SetColoreCellaRighe (14,RGB(255,165,100),RGB(0,100,100))
                If aN(3) And Vu(3) =  w Then Call SetColoreCellaRighe (15,RGB(255,165,100),RGB(0,100,100))
                If aN(4) And Vu(4) =  w Then Call SetColoreCellaRighe (16,RGB(255,165,100),RGB(0,100,100))
                If aN(5) And Vu(5) =  w Then Call SetColoreCellaRighe (17,RGB(255,165,100),RGB(0,100,100))
                '
                '-------------------------------------------------------------------------------------------------
                '
                '
                '
                If aN(1) And Nu(1) =  j Then Call SetColoreCellaRighe (1,RGB(255,255,0),RGB(0,100,100))
                If aN(2) And Nu(2) =  j Then Call SetColoreCellaRighe (2,RGB(255,255,0),RGB(0,100,100))
                If aN(3) And Nu(3) =  j Then Call SetColoreCellaRighe (3,RGB(255,255,0),RGB(0,100,100))
                If aN(4) And Nu(4) =  j Then Call SetColoreCellaRighe (4,RGB(255,255,0),RGB(0,100,100))
                If aN(5) And Nu(5) =  j Then Call SetColoreCellaRighe (5,RGB(255,255,0),RGB(0,100,100))
                '
                If aN(1) And Nu(1) = j Then Call SetColoreCellaRighe (7,RGB(255,165,100),RGB(0,100,100))
                If aN(2) And Nu(2) = j Then Call SetColoreCellaRighe (8,RGB(255,165,100),RGB(0,100,100))
                If aN(3) And Nu(3) = j Then Call SetColoreCellaRighe (9,RGB(255,165,100),RGB(0,100,100))
                If aN(4) And Nu(4) = j Then Call SetColoreCellaRighe (10,RGB(255,165,100),RGB(0,100,100))
                If aN(5) And Nu(5) = j Then Call SetColoreCellaRighe (11,RGB(255,165,100),RGB(0,100,100))
                '
                If aN(1) And Vu(1) =  j Then Call SetColoreCellaRighe (1,RGB(255,255,0),RGB(0,100,100))
                If aN(2) And Vu(2) =  j Then Call SetColoreCellaRighe (2,RGB(255,255,0),RGB(0,100,100))
                If aN(3) And Vu(3) =  j Then Call SetColoreCellaRighe (3,RGB(255,255,0),RGB(0,100,100))
                If aN(4) And Vu(4) =  j Then Call SetColoreCellaRighe (4,RGB(255,255,0),RGB(0,100,100))
                If aN(5) And Vu(5) =  j Then Call SetColoreCellaRighe (5,RGB(255,255,0),RGB(0,100,100))
                '
                If aN(1) And Vu(1) =  j Then Call SetColoreCellaRighe (13,RGB(255,165,100),RGB(0,100,100))
                If aN(2) And Vu(2) =  j Then Call SetColoreCellaRighe (14,RGB(255,165,100),RGB(0,100,100))
                If aN(3) And Vu(3) =  j Then Call SetColoreCellaRighe (15,RGB(255,165,100),RGB(0,100,100))
                If aN(4) And Vu(4) =  j Then Call SetColoreCellaRighe (16,RGB(255,165,100),RGB(0,100,100))
                If aN(5) And Vu(5) =  j Then Call SetColoreCellaRighe (17,RGB(255,165,100),RGB(0,100,100))
                '
                '-------------------------------------------------------------------------------------------------
                '
                '
                Call SetColoreCellaRighe(0,RGB(0,214,153),RGB(0,100,100))
                Call SetColoreCellaRighe(6,RGB(0,214,153),RGB(0,100,100))
                Call SetColoreCellaRighe(12,RGB(0,214,153),RGB(0,100,100))
                Call SetColoreCellaRighe(18,RGB(0,214,153),RGB(0,100,100))
                '
            Next
            CreaTabella
            For s = 1 To 3
                For k = 1 To 30
                    Na(k) = (s-3 +(k*3))
                Next
                OrdinaVettore (Na,1,5,1) ' ordina sequenza ascendente
                'If Na(13) = 1 Then Na(13) = 0 '  elimina numero se superiore a 90
                If Na(30) > 90 Then Na(30) = 0
                '-----------------------------------------------
                Scrivi (StringaNumeri(Na,,1))
            Next
            Scrivi
            Scrivi (DataEstrazione(es))
        Next
    End Sub
End Class

Alien questo e lo script dell'ambata contata si puo scegliere la ruota tramite inputbox
ho modificato i colori dello sfondo tabella come ai detto te ho messo lo sfondo bianco e i numeri scritti in nero
cmq chi volesse cambiare i colori dello sfondo della tabella ho scritto su una riga 'colori sfondo tabella'..

RGB(255,255,255) ..bianco
RGB(0,0,0)..nero

a me lo sfondo bianco della tabella non mi piace meglio scuro che si leggono meglio i numeri specie la sera..
per chi volesse la tabella con lo sfondo scuro sostituire quella riga con questa..

Call AddRigaTabella(T,RGB(0,0,0),,,RGB(0,214,153),,"Dubai Light") ' colori sfondo tabella

Ciao, ma questi script non girano su spaziometria? dice errore
As Integer

Pandit · 24 Ottobre 2024

Mi dice che il file è troppo grande, non riesco a postarlo, mi spiace...

Zetrix · 24 Ottobre 2024

avevo scritto che questi script girano su SpazioLight..

Zetrix · 24 Ottobre 2024

GE 79+21=10
MI 87+13=10
VE 3+7=10

ho fatto un altro cruciverba su tre somme uguale..
ho inserito questi numeri nel cruciverba

[TT] [PA] [.. 54 .. .. 46] C.4 Ambo 02414 [19/10/2024] [18.54.24.76.46]

caspita il 46 54 e uscito su PA, non e uscito sulle ruote di calcolo ma su TT,

Zetrix · 24 Ottobre 2024

se avete L8 si possono vedere tutte le somme ..

Zetrix · 24 Ottobre 2024

Codice:

Sub Main
   Dim T1,T2,T3,T4,T5,T6,T7
   Dim A1,A2,A3,A4,A5,A6,A7
   Dim B1,B2,B3
   Dim C1,C2,C3
   Dim N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12
   Dim ES,EST
   A1 = InputBox("1 numero")
   C3 = InputBox("2 numero")
   A3 = InputBox("3 numero")
   C1 = InputBox("4 numero")
   A2 = InputBox("5 numero")
   C2 = InputBox("6 numero")
   For A1 = A1 To A1
      For C3 = C3 To C3
         For A3 = A3 To A3
            For C1 = C1 To C1
               For A2 = A2 To A2
                  For C2 = C2 To C2
                     '
                     For ES = EstrazioneFin To EstrazioneFin
                        '
                        T1 = Array(T1,"  ","  ","  ","  ","  ")
                        Call InitTabella(T1,Bianco_,"center",3,Nero_,"Dubai light")
                        '
                        B1 =(A1 + C1)/2
                        B3 =(A3 + C3)/2
                        B2 =(B1 + B3)/2
                        N1 = Distanza(A1,A2)
                        N2 = Distanza(A2,A3)
                        '-------------------------------
                        T2 = Array(T2,Format2(A1),Format2(N1),Format2(A2),Format2(N2),Format2(A3))
                        Call AddRigaTabella(T2,Bianco_,"center",8,Nero_,"Dubai Light")
                        Call SetColoreCella(1,RGB(0,0,255),RGB(230,230,230))
                        Call SetColoreCella(2,RGB(255,255,255),RGB(0,210,53))
                        Call SetColoreCella(3,RGB(0,0,255),RGB(230,230,230))
                        Call SetColoreCella(4,RGB(255,255,255),RGB(0,210,53))
                        Call SetColoreCella(5,RGB(0,0,255),RGB(230,230,230))
                        '-------------------------------
                        '---------
                        '-----------------------------------
                        N3 = Distanza(A1,B1)
                        N4 = Distanza(A2,B2)
                        N5 = Distanza(A3,B3)
                        '---------------------------------
                        T3 = Array(T3,Format2(N3)," ",Format2(N4)," ",Format2(N5))
                        Call AddRigaTabella(T3,Bianco_,"center",3,Nero_,"Dubai Light")
                        Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,255))
                        Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,255))
                        Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,255))
                        '-------------------------------
                        N6 = Distanza(B1,B2)
                        N7 = Distanza(B2,B3)
                        '
                        T4 = Array(T4,Format2(B1),Format2(N6),Format2(B2),Format2(N7),Format2(B3))
                        Call AddRigaTabella(T4,Bianco_,"center",8,Nero_,"Dubai Light")
                        Call SetColoreCella(1,RGB(255,0,0),RGB(230,230,230))
                        Call SetColoreCella(2,RGB(255,255,255),RGB(0,210,53))
                        Call SetColoreCella(3,RGB(0,210,53),RGB(230,230,230))
                        Call SetColoreCella(4,RGB(255,255,255),RGB(0,210,53))
                        Call SetColoreCella(5,RGB(255,0,0),RGB(230,230,230))
                        '--------------------------------
                        '
                        N8 = Distanza(B1,C1)
                        N9 = Distanza(B2,C2)
                        N10 = Distanza(B3,C3)
                        '
                        T5 = Array(T5,Format2(N8)," ",Format2(N9)," ",Format2(N10))
                        Call AddRigaTabella(T5,Bianco_,"center",3,Nero_,"Dubai Light")
                        Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,255))
                        Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,255))
                        Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,255))
                        '-------------------------------
                        '
                        N11 = Distanza(C1,C2)
                        N12 = Distanza(C2,C3)
                        '
                        T6 = Array(T6,Format2(C1),Format2(N11),Format2(C2),Format2(N12),Format2(C3))
                        Call AddRigaTabella(T6,Bianco_,"center",8,Nero_,"Dubai Light")
                        Call SetColoreCella(1,RGB(0,0,255),RGB(230,230,230))
                        Call SetColoreCella(2,RGB(255,255,255),RGB(0,210,53))
                        Call SetColoreCella(3,RGB(0,0,255),RGB(230,230,230))
                        Call SetColoreCella(4,RGB(255,255,255),RGB(0,210,53))
                        Call SetColoreCella(5,RGB(0,0,255),RGB(230,230,230))
                        '
                        EST = DataEstrazione(ES)
                        T7 = Array(T7,EST,"  ","  ","  ","  ")
                        Call AddRigaTabella(T7,Bianco_,"center",3,Magenta_,"Tunga")
                        '
                        '
                        Call SetTableWidth("24%")
                        CreaTabella
                        Scrivi
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi "script di Zetrix",0,1,1,5,4,4,8
   Scrivi "sistema a cruciverba",0,1,1,5,4,4,8
End Sub

ecco lo script,fate una prova, dovete scrivere tre somme uguale con somma pari..
1ambo (1 e 2 numero)
2ambo (3 e 4 numero)
3ambo (5 e 6 numero)

Zetrix · 24 Ottobre 2024

ho degli script su Spaziometria potentissimi scritti da me..

x Alien il programma SpazioLight ho la versione 1.0.38 dovrebbe essere qua il programma nell'area download..
l'archivio si aggiorna da Spaziometria..

scarfacetony · 24 Ottobre 2024

Zetrix ha scritto:
ho degli script su Spaziometria potentissimi scritti da me..

x Alien il programma SpazioLight ho la versione 1.0.38 dovrebbe essere qua il programma nell'area download..
l'archivio si aggiorna da Spaziometria..

Ciao Zetrix,mi sa che non c'è più in download spaziolight

Zetrix · 24 Ottobre 2024

Ciao scarface,
vorresti dire che hanno cancellato il download di SpazioLight..
e come mai hanno cancellato il download di SpazioLight
ai provato sul sito di Silop se ce il download..

Zetrix · 24 Ottobre 2024

BA 36+58=4
GE 12+82=4
NZ 77+17=4

Zetrix · 24 Ottobre 2024

Pandit · 24 Ottobre 2024

Grazie Zetrix, lo script è di una versatilità incredibile, utilizzabile in diversi metodi, Sei un genio...

Ciro8 · 24 Ottobre 2024

Zetrix ha scritto:

Codice:

Class Script
    Sub Main
        Dim k As Integer
        Dim s ,T() As String
        Dim nClasse,nColonneTot,aNumeri() As Integer
        ReDim aNumeri(90)
        Dim aCol(),Ruote(1) ,r ,sorte  As Integer
        Dim ini As Integer = 1
        Dim fin As Integer = EstrazioniArchivio
        Dim rit,max,incr,fre,pre ,ubNum As Integer
        Dim ic As Decimal
        Dim iw,iv As Integer
        nClasse = 2 ' sviluppo in classe
        sorte = 2 ' sorte di verifica statistica
        ScegliNumeri(aNumeri)
        ubNum = UBound(aNumeri)
        'ScegliRuote(Ruote )
        Scrivi (StringaNumeri(aNumeri) &  " ( " & ubNum & " )" & "   Sviluppo In classe : " & nClasse  & " Su Ruote separate " )
        T = {" ruota " ," ambo " , " frq "," rit "," ultima estr "," Ind.con."}
        'Call InitTabella(T)
        Call InitTabella(T,RGB(240,0,240),,,RGB(0,0,0),," Raavi ")
        'inizializza lo sviluppo
        For r = 1 To 11
            Ruote(1) = r
            nColonneTot = InitSviluppoIntegrale(aNumeri,nClasse)
            k = 0
            ReDim aCol(nClasse )
            ' ciclo che continua fino a quando le colonne non finiscono
            Do While GetCombSviluppo  (aCol )
                k = k + 1 ' conteggio colonna corrente
                ' costruisco la stringa che contiene la colonna
                SerieStat (aCol,Ruote,sorte ,rit,max,fre,pre,incr,ini,fin)
                'ic = (fre/EstrazioniArchivio*rit)
                'ic = CalcolaIC(fre,rit,fin)
                '
                ic = ( math.Round ( (fre / EstrazioniArchivio * rit),2) )
                '
                s = StringaNumeri(aCol)
                iw = (EstrazioniArchivio / fre )
                T = {NomeRuota(r),s,fre,rit,Replace (DataEstrazione(EstrazioniArchivio) ,"/" , "." ),ic}
                'Call AddRigaTabella(T)
                Call AddRigaTabella(T,RGB(155,135,255),,,RGB(250,250,250),," Raavi ")
                'Call Scrivi(s & vbTab & fre)
                'Call Messaggio("Colonna " & k)
                If ScriptInterrotto Then Exit Do
            Loop
            Call SetColoreCellaRighe(0,RGB(0,214,153),RGB(0,100,100))
            Call SetColoreCellaRighe(1,RGB(228,228,228),RGB(0,100,100))
            Call SetColoreCellaRighe(2,RGB(0,214,153),RGB(0,100,100))
            Call SetColoreCellaRighe(3,RGB(0,214,153),RGB(0,100,100))
            Call SetColoreCellaRighe(4,RGB(228,228,228),RGB(0,100,100))
            Call SetColoreCellaRighe(5,RGB(0,214,153),RGB(0,100,100))
            Call SetColoreCellaRighe(6,RGB(200,200,224),RGB(0,100,100))
            Call SetColoreCellaRighe(7,RGB(200,200,224),RGB(0,100,100))
            Call SetColoreCellaRighe(8,RGB(200,200,224),RGB(0,100,100))
            Call SetColoreCellaRighe(9,RGB(200,200,224),RGB(0,100,100))
            Call SetColoreCellaRighe(10,RGB(200,200,224),RGB(0,100,100))
            If rit  < 9 Then Call SetColoreCellaRighe (0,RGB(240,240,0),RGB(0,100,100))
            If rit  > 499 Then Call SetColoreCellaRighe (0,RGB(240,240,0),RGB(0,100,100))
            If rit  < 9 Then Call SetColoreCellaRighe (3,RGB(240,240,0),RGB(0,100,100))
            If rit  > 499 Then Call SetColoreCellaRighe (3,RGB(240,240,0),RGB(0,100,100))
            If rit  < 9 Then Call SetColoreCellaRighe (5,RGB(240,240,0),RGB(0,100,100))
            If rit  > 499 Then Call SetColoreCellaRighe (5,RGB(240,240,0),RGB(0,100,100))
        Next
        CreaTabella
    End Sub
End Class

Alien intanto metto questa tabella calcola il rit di un ambo su tutte..
la richiesto Ciro8 e Pandit..
sull'altra tabella dell'ambata contata vediamo se riesco a sistemare i colori della tabella..
per quanto riguarda l'aggiornamento di SpazioLight ce uno script che si aggiorna da SpazioMetria..

Grazie è stupendo!

Zetrix · 24 Ottobre 2024

se avete notato i miei script sono sempre con le tabelle
che sono piu versatile e si lavora meglio..
stasera mi sembra che non e uscito il 31 a GE..
piu tardi aggiorno le tabelle sull'ambata contata..

Pandit · 24 Ottobre 2024

Zetrix, una richiesta, è possibile avere il cruciverba con quattro numeri?

Zetrix · 24 Ottobre 2024

si, si puo fare il cruciverba con quattro numeri,

ma il cruciverba che formato deve avere 2x2 o 4x4

Zetrix · 24 Ottobre 2024

vedete gli altri gli ambi diametrali li vedono su riga io li vedo anche in colonna gli ambi diametrali
ne ho scritti piu di cinquanta script ed evidenzia tutti i numeri in colonna..
anche gli ambi ripetuti in colonna..somme..dist..e tanto altro ancora..

Zetrix · 24 Ottobre 2024

questa e una tabella che mi serve per vedere se un ambo e uscito su tutte nelle ultime 20 estr..
la devo ancora ridifinire meglio con i colori..
si puo scegliere il capogioco e una serie in cadenza questa tabella mi serve per i miei studi sui numeri spia..

Pandit · 24 Ottobre 2024

Credo 4x4 , mi servirebbero le distanze dei 4 numeri..
Ovviamente se puoi, non vorrei chiedere troppo..

xToon

Advanced Premium Member

Advanced Premium Member

Super member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Super member

Member

Advanced Premium Member

Super member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Super member