Novità

xToon

Stato
Chiusa ad ulteriori risposte.
9417.PNG

Alien ti avevo detto di aggiornare il 31 90 a tutte, va be lo aggiornato su questa tabella
l'indice di convenienza lo da a TO, ma ci possiamo fidare solo dell'indice di convenienza..
buonanotte
 
Zetrix ha scritto:
Codice: 
Option Explicit
Sub Main
 Scrivi "x Zetrix ",1
 Dim r,n,rx,fre,Ini,fin,cam,nu,tn,Iniz,aretritardi,aretidestr,qt,rit,k,ctn,Formazione
 Dim retestratti,retidestr,t,v,frq
 Dim AR(1),anum(50)
 r = InputBox("Ruota",,1)
 fin = InputBox("Estraz.n.2410",,EstrazioneFin)
 Ini = fin - 17 + 1
 Scrivi "Ruota di " & NomeRuota(r),1,5,7
 Scrivi "da : " & Ini & " / " & DataEstrazione(Ini) & " / " & fin & " / " & DataEstrazione(fin)
 Iniz = 2000
 t = 0
 AR(1) = r
 '''loop per ritardi periodo
 For n = 1 To 90
    rit = EstrattoRitardo(r,n,Ini,fin)
    frq = EstrattoFrequenza(r,n,Ini,fin)
    '''''''''''''riepilogo numeri con presenze 0 nei 18 concorsi
    If Int(frq) = 0 Then
       cam = cam & Format2(n) & "."
       t = t + 1
       anum(t) = n
    End If
 Next
 ''''
 Scrivi
 Scrivi "Presenze 0 Periodo: " & Ini & " / " & fin
 Scrivi "Totale " & t & "    Numeri: " & cam,1,2,4
 Scrivi
 Scrivi "Verifica risultati nei 18 concorsi successivi dall'estrazione n." & fin + 1,1,2,3
 Scrivi "Sulla Ruota di " & SiglaRuota(r) & "    " & StringaNumeri(anum," "),1,2,7
 For v = 1 To 18
    Call VerificaEsitoTurbo(anum,AR,fin + v,1,1,,,,retestratti,retidestr)
    If retestratti <> "" Then
       Scrivi fin + 1 & " : " & retidestr & "  " & retestratti & "  colpo  " & retidestr -(fin),1,2,3
    End If
 Next
End Sub

Alien mica e questo lo script che dicevi te
questo script me la scritto Beppignello, vedi se va bene..
Clicca per espandere...
Ciao Zetrix scusami ma sono molto occupato devo ristrutturare "casa" tra negozi ed maestranze non ho tempo.
per il listato non va bene , la cosa è molto semplice iniziamo da una estrazione es: prima del mese. Prendi il primo estratto lo togli dai 90 numeri poi vai indietro nelle estrazioni e togli sempre il primo numero fino a quando non ne rimane 1/2 numeri cosi anche per gli altri 4 numeri, mi sono spiegato bene ,grazie.
 
Alien non mi chiedere di fare gli script sull'indice mensile non li ho mai scritti questi script
per l'altra risposta intendevo dire le tabelle che mettevi sulle frequenze degli ambi che erano
usciti su tutte dall'inizio di quest'anno..
comunque ho degli script scritti su SpazioLight che fanno quelle tabelle che ho messo nel forum
me la scritti MiKE58 ne ho diversi di script su SpazioLight..
soltanto che quella tabella considera tutto l'archivio da quanto sono iniziate le estrazioni con le Venus,
adesso vedo di fare una modifica allo script e metto la data di inizio quest,anno e cosi vediamo la nuova tabella..
 
9418.png

VE 45 ambata contata 9 diretto alla stazione di TO

Numeri in gioco 09 su VE per Estratto
[VE] [.. .. .. 09 ..] C.1 Estratto 02415 [22/10/2024] [59.56.65.09.26]
Interrotta per esito verificato

Numeri in gioco 09.90 su TT NZ per Ambo
In corso

avete visto il 9 a VE si e fermato alla stazione di VE , ora fate attenzione a questo 9-90 su tutte
questo perche il 45 di VE e sceso alla stazione di TO e a fatto salire il 9 diretto alla stazione di VE
immaginate i numeri estratti su tanti binari che scendono e salgono sui treni..
e ovvio che poi ci sono dei treni lenti e altri treni che sono express come il 9 diretto a VE..
queste cose credo che nessuno ve li a spiegati nel forum..
 
Ultima modifica:
Alien se ai il programma Spaziolight vi posso dare diversi script ho fatto anche uno script sull'ambata contata..
però questi script non funzionano su Spaziometria dato che sono scritti con codice diverso..
 
9420.PNG

ok Pandit, ho fatto questa tabella sull'ambata contata ditemi se va bene cosi la tabella
ho messo lo sfondo nero cosi si leggono meglio i numeri
se no ditemi che colore dobbiamo mettere sullo sfondo della tabella
e dopo vi metto lo script
questo script funziona solo su SpazioLight..
voglio evidenziare che la base dello script la scritto Mike58 per un altra tabella e io lo ridefinita meglio la tabella
sull'ambata contata
i numeri colorati in giallo sono le ambate contate e i numeri in arancio sono le stazioni dove si ferma il treno..
e qui avviene l'interscambio dei numeri..uno scende e l'altro sale sul treno diretto nella stazione di bari..
ho messo inputbox quindi ce la possibilità di scegliere la ruota
se mettiamo lo sfondo bianco da troppo fastidio a leggere i numeri almeno a me da un po fastidio lo sfondo bianco..
specie la sera..
cmq se mi date ok vi metto lo script..
 
Ultima modifica:
Metti pure, penso faccia piacere a tutti quelli che hanno Spaziolight, poi sono lavori che possono dare spunti a nuovi script.
Grazie in anticipo Zetrix..
 
ok , ma adesso ce la pausa pranzo dopo la pausa caffè vi metto lo script..
diciamo che tutti gli script su SpazioLight li a scritti Mike58 e io li ho ridefiniti meglio le tabelle
e colorate anche le tabelle..ma mi trovo meglio a scrivere gli script su SpazioMetria..
a dopo
 
Pandit ha scritto:
Metti pure, penso faccia piacere a tutti quelli che hanno Spaziolight, poi sono lavori che possono dare spunti a nuovi script.
Grazie in anticipo Zetrix..
Clicca per espandere...
Ciao Pandit io ho spazioLight ma non l'ho mai aggiornato e fermo al 2021 ma poi come si usa mi sa che poi non l'ho più guardato.
 
Zetrix ha scritto:
Vedi l'allegato 2292067

ok Pandit, ho fatto questa tabella sull'ambata contata ditemi se va bene cosi la tabella
ho messo lo sfondo nero cosi si leggono meglio i numeri
se no ditemi che colore dobbiamo mettere sullo sfondo della tabella
e dopo vi metto lo script
questo script funziona solo su SpazioLight..
voglio evidenziare che la base dello script la scritto Mike58 per un altra tabella e io lo ridefinita meglio la tabella
sull'ambata contata
i numeri colorati in giallo sono le ambate contate e i numeri in arancio sono le stazioni dove si ferma il treno..
e qui avviene l'interscambio dei numeri..uno scende e l'altro sale sul treno diretto nella stazione di bari..
ho messo inputbox quindi ce la possibilità di scegliere la ruota
se mettiamo lo sfondo bianco da troppo fastidio a leggere i numeri almeno a me da un po fastidio lo sfondo bianco..
specie la sera..
cmq se mi date ok vi metto lo script..
Clicca per espandere...
Ciao Zetrix metti i numeri in "bianco" oppure sfondo bianco con numeri neri. Perchè mi sa che con i numeri bianchi poi si vede male l'evidenziato.
 
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..
 
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
 
Ultima modifica:
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    lunedì 03 novembre 2025
    Bari
    80
    28
    11
    67
    50
    Cagliari
    20
    29
    71
    33
    15
    Firenze
    33
    50
    21
    09
    11
    Genova
    32
    15
    90
    09
    23
    Milano
    66
    22
    48
    03
    77
    Napoli
    57
    64
    27
    20
    26
    Palermo
    22
    65
    78
    90
    74
    Roma
    32
    57
    43
    20
    08
    Torino
    74
    80
    66
    54
    01
    Venezia
    01
    75
    82
    13
    11
    Nazionale
    71
    05
    55
    77
    61
    Estrazione Simbolotto
    Torino
    13
    06
    40
    02
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto