Buongiorno, chiedo se è possibile fare uno script o inserire in spaziometria i tabelloni analitici comparati.

[silop2005]

x Micro
se elimini gli allegati postati sopra riesco meglio a seguire il tread

Ciao Silop,
ti ho risolto la prima richiesta, x la seconda pare non ci sia possibilità di usare una funzione e devo lavorarci su x aggirare l'ostacolo.
nel frattempo controlla questo output
mancano TO VE NAZ x questione di spazio dello screenshot.
Vedi l'allegato 2208933

buon natale ... e notte

PS: se ti viene in mente a funzione fammi sapere.

========================================

SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9

======================

Ciao Claudio ,

======================

ho controllato ad una ad una le ruote nella tua immagine

e le posizioni sono giuste.

Se già potresti mettere questa prima modifica nello script e pubblicarlo

sarebbe una bella cosa, grazie.

Per la seconda mia richiesta non so se esiste qualche funzione ad oc

in quanto io non so fare gli script, ci vorrebbe un aiutino … dal prof.

Speriamo che in questi giorni passa da queste parti.

======================

Buona serata a tutto il forum.

======================

A presto

Silop

 

[claudio8]

Appena accendo il pc te lo mando.
Non scomodiamo il prof, devo solo memorizzare le posiz. Precedenti e confrontarle con le future
Niente di complicato.
A domani spero.

 

[micro__]

Buongiorno,
per coloro che seguono i terminatori e le lunghette nelle ruote:

Ambi usciti lunedi 28:

Milano --36--61--

Torino --20--25--

Venezia--57--52--



Firenze ---21--- capolista del gruppetto

Buona giornata a tutti
micro

 

[claudio8]

Le lunghette registrano due ambi:
GENOVA -4--25--
PALERMO --13--53 (ruota che non dava un ambo in lunghetta da 42 colpi (contro un max "manuale" a TT e Nz di 47 colpi)
tra le ambate uscite si osservano le due seconde capolista- 4- a Genova e - 8- a Firenze.

i lavori continuano...

Per Claudio8, il file dei terminatori in uscita.
Se noti le posizioni ED diverse dei numeri T. in uscita è perchè le ricopio dalle loro posizioni ED precedenti... in sostanza non è un problema.

Micro, lo ho sacricato, puoi cancellarlo

 

[claudio8]

X Micro e Silop
lo script comprensivo delle tue ultime richieste PostoD e POSIZIONE S o D

Anticipazione (Spoiler): Terminatori e posizioni di esito

Option Explicit
Sub Main()
    Dim Ru,coRu,co,x,y,z,W,cc,lu,coW,numTer,col,coT,insRP1,a,b,Tab_Ana,Coe,retPos,pos
    Dim lunghetta(12,990)
    Dim numLung(12,90)
    Dim posLung(12,90)
    Dim clpLung(12,90)
    Dim aruote(2)
    Dim aPos(1)
    ReDim aNum(0)
    ReDim aRit(0)
    aruote(1) = 11
    aruote(2) = 12
    Dim esR,ini,fin,p,es,esc,rit,num,RuElab,esAn
    Call PiuRitardatari(EstrazioneFin,aruote,aNum,,aRit)
    Tab_Ana = CInt(InputBox(" Scrivo tabellone analitico? " & Chr(13) & Chr(13) & " Scrivo = 1; NON scrivo = 0 o altro","TABELLONE ANALITICO",0))
    Coe = CInt(InputBox(" Scrivo i coestratti dei Terminatori?" & Chr(13) & Chr(13) & " Scrivo = 1; NON scrivo = 0 o altro ","TABELLONE TERMINATORI ",1))
    esAn = aRit(1) 'CInt(InputBox(" Quantità estrazioni in analisi " & Chr(13) & Chr(13) & " Attuale Massimo Ritardo su TT e NZ","ESTRAZIONI In ANALISI",aRit(1)))
    esc = 40'InputBox("Quante estrazioni di controllo Isotopia ","ESTRAZIONI di ISOTOPIA",40)
    coRu =(Ru - 1)*5
    ReDim ArchivioTerm(esAn+1,60)
    Scrivi " Tabellone Analitico Classico e Tabellone TERMINATORI di Micro - Script by Claudio8 - isotopia " & esc & " max rit. " & aRit(1) & " data elaborazione " & DataEstrazione(EstrazioneFin),1,,3,2,1
    Scrivi "   Data   N°estr  Rit  ",1,False,6,,1
    For Ru = 1 To 11
        ArchivioTerm(0,(Ru - 1)*5 + 5) = SiglaRuota(Ru)
        If Ru = 11 Then Ru = 12 : ArchivioTerm(0,(Ru - 2)*5 + 5) = SiglaRuota(Ru)
        If Tab_Ana = 1 Then
            Scrivi "|" & FormatSpace(SiglaRuota(Ru) & " Analitico     Terminatore",33,False),1,False,6,,1
        Else
            Scrivi "|" & FormatSpace(SiglaRuota(Ru) & " Terminatore",16,False),1,False,6,,1
        End If
    Next
    Scrivi
    For W = esAn To 0 Step - 1
        ArchivioTerm(W + 1,0) = W
        If ScriptInterrotto Then Exit For
        ini = EstrazioneFin - esc - W
        ReDim Term(esc,55)
        ReDim TermFin(1,55)
        fin = EstrazioneFin - W
        Call GeneraAnalitico(EstrazioneFin)
        co = 0
        For es = ini To fin - 1
            co = co + 1
            rit = esc - co + 1
            For Ru = 1 To 11
                coRu =(Ru - 1)*5
                If Ru = 11 Then Ru = 12
                For p = 1 To 5
                    For esR = es + 1 To fin
                        If Estratto(esR,Ru,p) = Estratto(es,Ru,p) Then Term(co,coRu + p) = Estratto(esR,Ru,p)
                    Next
                Next
            Next
        Next
        For z = 1 To coRu + p - 1
            For y =(esc) To 1 Step - 1
                If Term(y,z) > 0 Then
                    TermFin(1,z) = Term(y,z)
                    Exit For
                End If
            Next
        Next
        Scrivi DataEstrazione(es) & " [" & es & "] " & FormatSpace(W,3,1) & "  | ",1,False,,,1
        For Ru = 1 To 11
            coRu =(Ru - 1)*5
            If Ru = 11 Then Ru = 12
            If Tab_Ana = 1 Then
                For p = 1 To 5
                    If W <= aRit(1) Then
                        num =(TabelloneAnalitico(W,Ru,p))
                        If num > 0 Then
                            Scrivi FormatSpace(num,2,True) & " ",,False,,,1
                        Else
                            Scrivi "-- ",,False,,,1
                        End If
                    Else
                        Scrivi ".. ",,False,,,1
                    End If
                    If p = 5 Then Scrivi "| ",1,False,,,1
                Next '
            End If
            For p = 1 To 5
                cc = 0
                If W <= aRit(1) Then
                    For es = fin - 1 To ini Step - 1
                        If Estratto(fin,Ru,p) = TermFin(1,coRu + p) Then
                            cc = cc + 1
                        End If
                    Next
                    If cc > 0 And Estratto(fin,Ru,p) = TabelloneAnalitico(W,Ru,p) Then
                        Scrivi FormatSpace((Estratto(fin,Ru,p)),2,True),1,False,vbGreen,,1
                        ArchivioTerm(W + 1,coRu + p) = Estratto(fin,Ru,p)
                        lu = lu + 1
                        lunghetta(Ru,0) = SiglaRuota(Ru)
                        lunghetta(Ru,lu) = Estratto(fin,Ru,p)
                    ElseIf cc > 0 Then
                        Scrivi FormatSpace((Estratto(fin,Ru,p)),2,True),1,False,,,1
                        ArchivioTerm(W + 1,coRu + p) = Estratto(fin,Ru,p)
                    Else
                        If Coe = 1 Then
                            Scrivi FormatSpace((Estratto(fin,Ru,p)),2,True),,False,,6,1
                        Else
                            Scrivi FormatSpace("..",2,True),,False,,,1
                        End If
                    End If
                    If p < 5 Then Scrivi " ",1,False,,,1
                    If p = 5 Then Scrivi " | ",1,False,,,1
                Else
                    For es = fin - 1 To ini Step - 1
                        If Estratto(fin,Ru,p) = TermFin(1,coRu + p) Then
                            cc = cc + 1 '''''''
                        End If
                    Next
                    If cc > 0 Then
                        Scrivi FormatSpace((Estratto(fin,Ru,p)),2,True),1,False,,,1
                        ArchivioTerm(W + 1,coRu + p) = Estratto(fin,Ru,p)
                    Else
                        If Coe = 1 Then
                            Scrivi FormatSpace((Estratto(fin,Ru,p)),2,True),,False,,6,1
                        Else
                            Scrivi FormatSpace("..",2,True),,False,,,1
                        End If
                    End If
                    Scrivi " ",,False
                    If p = 5 Then Scrivi "| ",,False,,,1
                End If
            Next
        Next
        Scrivi
        Messaggio " Data estrazione - " & DataEstrazione(EstrazioneFin - W) & " - estr.da analizzare " & W
        AvanzamentoElab 0,esAn,W
    Next
    Messaggio " Scrittura output - estrazione finale " & DataEstrazione(EstrazioneFin) & " - analizzate " & aRit(1)
    Scrivi "   Data   N°estr  Rit  ",1,False,6,,1
    For Ru = 1 To 11
        If Ru = 11 Then Ru = 12
        If Tab_Ana = 1 Then
            Scrivi "|" & FormatSpace(SiglaRuota(Ru) & " Analitico     Terminatore",33,False),1,False,6,,1
        Else
            Scrivi "|" & FormatSpace(SiglaRuota(Ru) & " Terminatore",16,False),1,False,6,,1
        End If
        co = 1
        For x = 1 To UBound(lunghetta,2)
            If lunghetta(Ru,x) > 0 Then
                co = co + 1
                numLung(Ru,co) = lunghetta(Ru,x)
                numLung(Ru,0) = Ru
            End If
        Next
    Next
    Scrivi
    Scrivi
    Scrivi " Lunghette   Terminatori " & String(12," ") & " Estrazioni analizzate : " & FormatSpace(esAn,4,1) & " al " & DataEstrazione(EstrazioneFin) & " Indice " & EstrazioneFin,1,1,3,2,1
    For Ru = 1 To 11
        AvanzamentoElab 0,11,Ru
        If Ru = 11 Then Ru = 12
        co = 0
        Scrivi FormatSpace("PostoD",12,True) & " : ",1,False,,,1
        For x = 2 To UBound(numLung,2)
            If numLung(Ru,x) > 0 Then
                co = co + 1
                If co = 1 Then numLung(Ru,1) = RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru)
                pos = RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru,,retPos)
                If RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x + 1),EstrazioneFin,Ru) Or RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x - 1),EstrazioneFin,Ru)Then
                    ColoreTesto 2
                    Scrivi FormatSpace(retPos & "°",3,True) & " ",,False,,,1
                    posLung(Ru,x) = retPos
                Else
                    Scrivi FormatSpace(retPos & "°",3,True) & " ",,False,,,1
                    posLung(Ru,x) = retPos
                End If
            End If
            ColoreTesto 0
        Next
        Scrivi String((84 - co*4),".") & "   POSIZIONI",1,,,,1
        co = 0
        Scrivi FormatSpace(NomeRuota(Ru),12,True) & " : ",1,False,4,,1
        For x = 2 To UBound(numLung,2)
            If numLung(Ru,x) > 0 Then
                co = co + 1
                If RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x + 1),EstrazioneFin,Ru) Or RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x - 1),EstrazioneFin,Ru)Then
                    ColoreTesto 2
                    Scrivi FormatSpace(numLung(Ru,x),3,True) & " ",1,False,4,,1
                Else
                    Scrivi FormatSpace(numLung(Ru,x),3,True) & " ",1,False,4,,1
                End If
            End If
            ColoreTesto 0
        Next
        Scrivi String((84 - co*4),".") & Format2(co) & " Numeri",1,,,,1
        co = 0
        Scrivi FormatSpace("Rit.",12,True) & " : ",1,False,,,1
        For x = 2 To UBound(numLung,2)
            If numLung(Ru,x) > 0 Then
                co = co + 1
                If co = 1 Then numLung(Ru,1) = RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru)
                If RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x + 1),EstrazioneFin,Ru) Or RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x - 1),EstrazioneFin,Ru)Then
                    ColoreTesto 2
                    Scrivi FormatSpace(RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru),3,True) & " ",,False,,,1
                Else
                    Scrivi FormatSpace(RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru),3,True) & " ",,False,,,1
                End If
            End If
            ColoreTesto 0
        Next
        Scrivi String((84 - co*4),".") & "   RC",1,,,,1
        co = 0
        ReDim numVer(90)
        ReDim ruoVer(12)
        Dim retClp
        Scrivi FormatSpace("clp1°Esito",12,True) & " : ",1,False,,,1 ' x silop in questa riga, se vuoi modificare clpEsito a tuo piacere, max 12 caratteri compreso spaziature
        For x = 2 To UBound(numLung,2)
            If numLung(Ru,x) > 0 Then
                co = co + 1
                numVer(1) = numLung(Ru,x)
                ruoVer(1) = Ru
                If VerificaEsitoTurbo(numVer,ruoVer,EstrazioneFin + 1,1,(EstrazioniArchivio - EstrazioneFin),,,retClp) = True Then
                    Scrivi FormatSpace(retClp,3,True) & " ",1,False,,,1
                    clpLung(Ru,x) = retClp
                Else
                    Scrivi FormatSpace("--",3,True) & " ",1,False,,,1 ' sostiuito ng con --
                    clpLung(Ru,x) = 0
                End If
            End If
        Next
        Scrivi String((84 - co*4),".") & "   Clp di Risortita",1,,,,1
        co = 0
        Scrivi FormatSpace("pos1°Esito",12,True) & " : ",1,False,,,1
        For x = 2 To UBound(numLung,2)
            If numLung(Ru,x) > 0 Then
                co = co + 1
                If clpLung(Ru,x) > 0 Then
                    If Posizione(EstrazioneFin + clpLung(Ru,x),Ru,numLung(Ru,x)) = posLung(Ru,x) Then
                        Scrivi FormatSpace("D",3,True) & " ",1,False,,2,1 'De
                    Else
                        Scrivi FormatSpace("S",3,True) & " ",1,False,,,1 'Se
                    End If
                Else
                    Scrivi FormatSpace("--",3,True) & " ",1,False,,,1
                End If
            End If
        Next
        Scrivi String((84 - co*4),".") & "   POSIZIONE semplice/Determinata",1,,,,1
        Scrivi ' serve a lasciare una riga vuota tra le ruote
    Next '
    Scrivi "                         Tempo Trascorso : " & TempoTrascorso,1,,,,1
End Sub

X micro, continua pure ad inviare gli aggiornamenti dei rita tt+Naz, tempo permettendo lo inserirò nello script.
Saluti

 

[silop2005]

X Micro e Silop
lo script comprensivo delle tue ultime richieste PostoD e POSIZIONE S o D

Anticipazione (Spoiler): Terminatori e posizioni di esito

Option Explicit
Sub Main()
    Dim Ru,coRu,co,x,y,z,W,cc,lu,coW,numTer,col,coT,insRP1,a,b,Tab_Ana,Coe,retPos,pos
    Dim lunghetta(12,990)
    Dim numLung(12,90)
    Dim posLung(12,90)
    Dim clpLung(12,90)
    Dim aruote(2)
    Dim aPos(1)
    ReDim aNum(0)
    ReDim aRit(0)
    aruote(1) = 11
    aruote(2) = 12
    Dim esR,ini,fin,p,es,esc,rit,num,RuElab,esAn
    Call PiuRitardatari(EstrazioneFin,aruote,aNum,,aRit)
    Tab_Ana = CInt(InputBox(" Scrivo tabellone analitico? " & Chr(13) & Chr(13) & " Scrivo = 1; NON scrivo = 0 o altro","TABELLONE ANALITICO",0))
    Coe = CInt(InputBox(" Scrivo i coestratti dei Terminatori?" & Chr(13) & Chr(13) & " Scrivo = 1; NON scrivo = 0 o altro ","TABELLONE TERMINATORI ",1))
    esAn = aRit(1) 'CInt(InputBox(" Quantità estrazioni in analisi " & Chr(13) & Chr(13) & " Attuale Massimo Ritardo su TT e NZ","ESTRAZIONI In ANALISI",aRit(1)))
    esc = 40'InputBox("Quante estrazioni di controllo Isotopia ","ESTRAZIONI di ISOTOPIA",40)
    coRu =(Ru - 1)*5
    ReDim ArchivioTerm(esAn+1,60)
    Scrivi " Tabellone Analitico Classico e Tabellone TERMINATORI di Micro - Script by Claudio8 - isotopia " & esc & " max rit. " & aRit(1) & " data elaborazione " & DataEstrazione(EstrazioneFin),1,,3,2,1
    Scrivi "   Data   N°estr  Rit  ",1,False,6,,1
    For Ru = 1 To 11
        ArchivioTerm(0,(Ru - 1)*5 + 5) = SiglaRuota(Ru)
        If Ru = 11 Then Ru = 12 : ArchivioTerm(0,(Ru - 2)*5 + 5) = SiglaRuota(Ru)
        If Tab_Ana = 1 Then
            Scrivi "|" & FormatSpace(SiglaRuota(Ru) & " Analitico     Terminatore",33,False),1,False,6,,1
        Else
            Scrivi "|" & FormatSpace(SiglaRuota(Ru) & " Terminatore",16,False),1,False,6,,1
        End If
    Next
    Scrivi
    For W = esAn To 0 Step - 1
        ArchivioTerm(W + 1,0) = W
        If ScriptInterrotto Then Exit For
        ini = EstrazioneFin - esc - W
        ReDim Term(esc,55)
        ReDim TermFin(1,55)
        fin = EstrazioneFin - W
        Call GeneraAnalitico(EstrazioneFin)
        co = 0
        For es = ini To fin - 1
            co = co + 1
            rit = esc - co + 1
            For Ru = 1 To 11
                coRu =(Ru - 1)*5
                If Ru = 11 Then Ru = 12
                For p = 1 To 5
                    For esR = es + 1 To fin
                        If Estratto(esR,Ru,p) = Estratto(es,Ru,p) Then Term(co,coRu + p) = Estratto(esR,Ru,p)
                    Next
                Next
            Next
        Next
        For z = 1 To coRu + p - 1
            For y =(esc) To 1 Step - 1
                If Term(y,z) > 0 Then
                    TermFin(1,z) = Term(y,z)
                    Exit For
                End If
            Next
        Next
        Scrivi DataEstrazione(es) & " [" & es & "] " & FormatSpace(W,3,1) & "  | ",1,False,,,1
        For Ru = 1 To 11
            coRu =(Ru - 1)*5
            If Ru = 11 Then Ru = 12
            If Tab_Ana = 1 Then
                For p = 1 To 5
                    If W <= aRit(1) Then
                        num =(TabelloneAnalitico(W,Ru,p))
                        If num > 0 Then
                            Scrivi FormatSpace(num,2,True) & " ",,False,,,1
                        Else
                            Scrivi "-- ",,False,,,1
                        End If
                    Else
                        Scrivi ".. ",,False,,,1
                    End If
                    If p = 5 Then Scrivi "| ",1,False,,,1
                Next '
            End If
            For p = 1 To 5
                cc = 0
                If W <= aRit(1) Then
                    For es = fin - 1 To ini Step - 1
                        If Estratto(fin,Ru,p) = TermFin(1,coRu + p) Then
                            cc = cc + 1
                        End If
                    Next
                    If cc > 0 And Estratto(fin,Ru,p) = TabelloneAnalitico(W,Ru,p) Then
                        Scrivi FormatSpace((Estratto(fin,Ru,p)),2,True),1,False,vbGreen,,1
                        ArchivioTerm(W + 1,coRu + p) = Estratto(fin,Ru,p)
                        lu = lu + 1
                        lunghetta(Ru,0) = SiglaRuota(Ru)
                        lunghetta(Ru,lu) = Estratto(fin,Ru,p)
                    ElseIf cc > 0 Then
                        Scrivi FormatSpace((Estratto(fin,Ru,p)),2,True),1,False,,,1
                        ArchivioTerm(W + 1,coRu + p) = Estratto(fin,Ru,p)
                    Else
                        If Coe = 1 Then
                            Scrivi FormatSpace((Estratto(fin,Ru,p)),2,True),,False,,6,1
                        Else
                            Scrivi FormatSpace("..",2,True),,False,,,1
                        End If
                    End If
                    If p < 5 Then Scrivi " ",1,False,,,1
                    If p = 5 Then Scrivi " | ",1,False,,,1
                Else
                    For es = fin - 1 To ini Step - 1
                        If Estratto(fin,Ru,p) = TermFin(1,coRu + p) Then
                            cc = cc + 1 '''''''
                        End If
                    Next
                    If cc > 0 Then
                        Scrivi FormatSpace((Estratto(fin,Ru,p)),2,True),1,False,,,1
                        ArchivioTerm(W + 1,coRu + p) = Estratto(fin,Ru,p)
                    Else
                        If Coe = 1 Then
                            Scrivi FormatSpace((Estratto(fin,Ru,p)),2,True),,False,,6,1
                        Else
                            Scrivi FormatSpace("..",2,True),,False,,,1
                        End If
                    End If
                    Scrivi " ",,False
                    If p = 5 Then Scrivi "| ",,False,,,1
                End If
            Next
        Next
        Scrivi
        Messaggio " Data estrazione - " & DataEstrazione(EstrazioneFin - W) & " - estr.da analizzare " & W
        AvanzamentoElab 0,esAn,W
    Next
    Messaggio " Scrittura output - estrazione finale " & DataEstrazione(EstrazioneFin) & " - analizzate " & aRit(1)
    Scrivi "   Data   N°estr  Rit  ",1,False,6,,1
    For Ru = 1 To 11
        If Ru = 11 Then Ru = 12
        If Tab_Ana = 1 Then
            Scrivi "|" & FormatSpace(SiglaRuota(Ru) & " Analitico     Terminatore",33,False),1,False,6,,1
        Else
            Scrivi "|" & FormatSpace(SiglaRuota(Ru) & " Terminatore",16,False),1,False,6,,1
        End If
        co = 1
        For x = 1 To UBound(lunghetta,2)
            If lunghetta(Ru,x) > 0 Then
                co = co + 1
                numLung(Ru,co) = lunghetta(Ru,x)
                numLung(Ru,0) = Ru
            End If
        Next
    Next
    Scrivi
    Scrivi
    Scrivi " Lunghette   Terminatori " & String(12," ") & " Estrazioni analizzate : " & FormatSpace(esAn,4,1) & " al " & DataEstrazione(EstrazioneFin) & " Indice " & EstrazioneFin,1,1,3,2,1
    For Ru = 1 To 11
        AvanzamentoElab 0,11,Ru
        If Ru = 11 Then Ru = 12
        co = 0
        Scrivi FormatSpace("PostoD",12,True) & " : ",1,False,,,1
        For x = 2 To UBound(numLung,2)
            If numLung(Ru,x) > 0 Then
                co = co + 1
                If co = 1 Then numLung(Ru,1) = RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru)
                pos = RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru,,retPos)
                If RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x + 1),EstrazioneFin,Ru) Or RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x - 1),EstrazioneFin,Ru)Then
                    ColoreTesto 2
                    Scrivi FormatSpace(retPos & "°",3,True) & " ",,False,,,1
                    posLung(Ru,x) = retPos
                Else
                    Scrivi FormatSpace(retPos & "°",3,True) & " ",,False,,,1
                    posLung(Ru,x) = retPos
                End If
            End If
            ColoreTesto 0
        Next
        Scrivi String((84 - co*4),".") & "   POSIZIONI",1,,,,1
        co = 0
        Scrivi FormatSpace(NomeRuota(Ru),12,True) & " : ",1,False,4,,1
        For x = 2 To UBound(numLung,2)
            If numLung(Ru,x) > 0 Then
                co = co + 1
                If RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x + 1),EstrazioneFin,Ru) Or RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x - 1),EstrazioneFin,Ru)Then
                    ColoreTesto 2
                    Scrivi FormatSpace(numLung(Ru,x),3,True) & " ",1,False,4,,1
                Else
                    Scrivi FormatSpace(numLung(Ru,x),3,True) & " ",1,False,4,,1
                End If
            End If
            ColoreTesto 0
        Next
        Scrivi String((84 - co*4),".") & Format2(co) & " Numeri",1,,,,1
        co = 0
        Scrivi FormatSpace("Rit.",12,True) & " : ",1,False,,,1
        For x = 2 To UBound(numLung,2)
            If numLung(Ru,x) > 0 Then
                co = co + 1
                If co = 1 Then numLung(Ru,1) = RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru)
                If RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x + 1),EstrazioneFin,Ru) Or RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x - 1),EstrazioneFin,Ru)Then
                    ColoreTesto 2
                    Scrivi FormatSpace(RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru),3,True) & " ",,False,,,1
                Else
                    Scrivi FormatSpace(RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru),3,True) & " ",,False,,,1
                End If
            End If
            ColoreTesto 0
        Next
        Scrivi String((84 - co*4),".") & "   RC",1,,,,1
        co = 0
        ReDim numVer(90)
        ReDim ruoVer(12)
        Dim retClp
        Scrivi FormatSpace("clp1°Esito",12,True) & " : ",1,False,,,1 ' x silop in questa riga, se vuoi modificare clpEsito a tuo piacere, max 12 caratteri compreso spaziature
        For x = 2 To UBound(numLung,2)
            If numLung(Ru,x) > 0 Then
                co = co + 1
                numVer(1) = numLung(Ru,x)
                ruoVer(1) = Ru
                If VerificaEsitoTurbo(numVer,ruoVer,EstrazioneFin + 1,1,(EstrazioniArchivio - EstrazioneFin),,,retClp) = True Then
                    Scrivi FormatSpace(retClp,3,True) & " ",1,False,,,1
                    clpLung(Ru,x) = retClp
                Else
                    Scrivi FormatSpace("--",3,True) & " ",1,False,,,1 ' sostiuito ng con --
                    clpLung(Ru,x) = 0
                End If
            End If
        Next
        Scrivi String((84 - co*4),".") & "   Clp di Risortita",1,,,,1
        co = 0
        Scrivi FormatSpace("pos1°Esito",12,True) & " : ",1,False,,,1
        For x = 2 To UBound(numLung,2)
            If numLung(Ru,x) > 0 Then
                co = co + 1
                If clpLung(Ru,x) > 0 Then
                    If Posizione(EstrazioneFin + clpLung(Ru,x),Ru,numLung(Ru,x)) = posLung(Ru,x) Then
                        Scrivi FormatSpace("D",3,True) & " ",1,False,,2,1 'De
                    Else
                        Scrivi FormatSpace("S",3,True) & " ",1,False,,,1 'Se
                    End If
                Else
                    Scrivi FormatSpace("--",3,True) & " ",1,False,,,1
                End If
            End If
        Next
        Scrivi String((84 - co*4),".") & "   POSIZIONE semplice/Determinata",1,,,,1
        Scrivi ' serve a lasciare una riga vuota tra le ruote
    Next '
    Scrivi "                         Tempo Trascorso : " & TempoTrascorso,1,,,,1
End Sub

X micro, continua pure ad inviare gli aggiornamenti dei rita tt+Naz, tempo permettendo lo inserirò nello script.
Saluti

============================================

SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9

======================

Ciao Claudio ,

======================

grazie grazie grazie

ci hai fatto un bellissimo regalo di fine anno

lo script è FAVOLOSO con le due aggiunte implementate.

Sei un allievo degno del maestro per bravura e generosità, bravissimo.

Ti auguro una buona fine e inizio anno 2021 a te e a tutti gli amici "virtuali di questo forum.

======================

Buona giornata a tutto il forum.

======================

A presto

Silop

PS: sto costruendo anch'io il tabellone

per i ritardi a tutte + NZ

 

[claudio8]

Silop era previsto x Natale ma c'è stato un ritardo del corriere

Non te la cavi mica solo con gli auguri..... ci devi insegnare qualche trucchetto.
Scherzo, è il minimo che ti meriti.
Auguri

 

[micro__]

Grazie infinite, gran bel lavoro Claudio e ancora Tanti Auguri di Buon Anno 2021 a te a Silop e a chi segue!

Le estrazioni del 31_12_2020 hanno dato l'ambo in lunghetta a:

Milano --83--24--

inoltre sono usciti il capolista 49 di Genova e l'85 secondo ritardatario di Torino, caduto anche il 20 a Roma che aveva un max insieme al 20 di Torino (uscito il 28 dicembre 2020) per isocronismo e isotopismo come numero Terminatore. Entrambi sono ri_usciti al loro posto determinato, complimenti a Silop per la notevole intuizione.

Per Claudio8 e Silop (e per chi segue) ecco il foglio excel in formato .txt per vedere l'aggiornamento dei soli numeri Terminatori in ritardo e a colpo a TT+NAZ.

Sono visibili anche le ruote dove si trovano ma chiaramente quello che interessa è la loro posizione di ritardo a TT+NAZ.
Il dato ci permetterà di andare a vedere su quale ruota si trovino i Terminatori con maggior ritardo ( se è il ritardo che interessa...)
Nel file excel alla colonna E.

saluti
micro

 

[claudio8]

Grazie infinite, gran bel lavoro Claudio e ancora Tanti Auguri di Buon Anno 2021 a te a Silop e a chi segue!

Le estrazioni del 31_12_2020 hanno dato l'ambo in lunghetta a:

Milano --83--24--

inoltre sono usciti il capolista 49 di Genova e l'85 secondo ritardatario di Torino, caduto anche il 20 a Roma che aveva un max insieme al 20 di Torino (uscito il 28 dicembre 2020) per isocronismo e isotopismo come numero Terminatore. Entrambi sono ri_usciti al loro posto determinato, complimenti a Silop per la notevole intuizione.

Per Claudio8 e Silop (e per chi segue) ecco il foglio excel in formato .txt per vedere l'aggiornamento dei soli numeri Terminatori in ritardo e a colpo a TT+NAZ.

Sono visibili anche le ruote dove si trovano ma chiaramente quello che interessa è la loro posizione di ritardo a TT+NAZ.
Il dato ci permetterà di andare a vedere su quale ruota si trovino i Terminatori con maggior ritardo ( se è il ritardo che interessa...)
Nel file excel alla colonna E.

saluti
micro

Auguri anche a te Micro, e a chi segue.
cancella pure l'allegato.
Grazie

 

[tiberio1]

Silop era previsto x Natale ma c'è stato un ritardo del corriere

Non te la cavi mica solo con gli auguri..... ci devi insegnare qualche trucchetto.
Scherzo, è il minimo che ti meriti.
Auguri

Auguri a tutti Claudio puoi darmi una mano a trovare script che ho rikiesto sul forum per piacere grazie

 

[claudio8]

Auguri a tutti Claudio puoi darmi una mano a trovare script che ho rikiesto sul forum per piacere grazie

Provo a risponderti.

1) Teorema di Byres - https://m-library.weschool.com/lezi...-esercizi-probabilita-condizionata-14965.html ovviamente se qualcuno la riesce a tradurre in script per il lotto grazie a questo link https://forum.lottoced.com/threads/aiuto-script.2198174/
Innanzitutto devi sapere quale è l'obbiettivo che vuoi raggiungere con questa richiesta, perchè la semplice applicazione del teorema va inserita in un insieme di informazioni che vorresti analizzare.
In rete trovi tranquillamente BayesCalcolator.xls già realizzati in excel e link dove viene spiegato l'alogoritmo ricavato dal teorema e la sue applicazioni/complicazioni https://lorenzogovoni.com/classificatore-naive-bayes/
Eventuali script non sarebbero altro che la copia di quanto potresti trovare in excel e quindi ti consiglio di fare una ricerca su "Classificatori Bayer xls "

per gli altri script, provo ad evidenziarli con un "porto su" nella speranza che qualche new scripter voglia allenarsi a costruirli.
Saluti

 

[micro__]

Per coloro che seguono le lunghette dei terminatori:

BARI, terno in lunghetta con l'estrazione del 02/01/2021

--47--72--85--

Per Claudio8, se vuoi posso mettere il file.txt aggiornato dei terminatori in ritardo e a colpo e a TT+Naz dopo l''estrazione del 02/01/2021.

Buona domenica a tutti
micro

 

[claudio8]

Va bene Micro

 

[micro__]

Eccolo, grazie Claudio!!
micro

 

[claudio8]

X Micro e Silop
script comprensivo di PostoD e POSIZIONE S o D e Terminatori a colpo
da utilizzare x riportare su TABELLONE Analitico Terminatori a TT+Naz ( ruota unica ).

 Option Explicit
Sub Main()
    Dim Ru,coRu,co,x,y,z,W,cc,lu,coW,numTer,col,coT,insRP1,a,b,Tab_Ana,Coe,retPos,pos
    Dim lunghetta(12,990)
    Dim numLung(12,90)
    Dim posLung(12,90)
    Dim clpLung(12,90)
    Dim aruote(2)
    Dim aPos(1)
    ReDim aNum(0)
    ReDim aRit(0)
    aruote(1) = 11
    aruote(2) = 12
    Dim esR,ini,fin,p,es,esc,rit,num,RuElab,esAn
    Call PiuRitardatari(EstrazioneFin,aruote,aNum,,aRit)
    Tab_Ana = CInt(InputBox(" Scrivo tabellone analitico delle singole ruote? " & Chr(13) & Chr(13) & " Scrivo = 1; NON scrivo = 0 o altro"," TABELLONE ANALITICO RUOTE ",0))
    Coe = CInt(InputBox(" Scrivo i coestratti dei Terminatori?" & Chr(13) & Chr(13) & " Scrivo = 1; NON scrivo = 0 o altro ","TABELLONE TERMINATORI ",1))
    esAn = aRit(1) 'CInt(InputBox(" Quantità estrazioni in analisi " & Chr(13) & Chr(13) & " Attuale Massimo Ritardo su TT e NZ","ESTRAZIONI In ANALISI",aRit(1)))
    esc = 40'InputBox("Quante estrazioni di controllo Isotopia ","ESTRAZIONI di ISOTOPIA",40)
    coRu =(Ru - 1)*5
    ReDim ArchivioTerm(esAn+1,60)
    Scrivi " Tabellone Analitico Classico e Tabellone TERMINATORI di Micro - Script by Claudio8 - isotopia " & esc & " max rit. " & aRit(1) & " data elaborazione " & DataEstrazione(EstrazioneFin),1,,3,2,1
    Scrivi "   Data   N°estr  Rit  ",1,False,6,,1
    For Ru = 1 To 11
        ArchivioTerm(0,(Ru - 1)*5 + 5) = SiglaRuota(Ru)
        If Ru = 11 Then Ru = 12 : ArchivioTerm(0,(Ru - 2)*5 + 5) = SiglaRuota(Ru)
        If Tab_Ana = 1 Then
            Scrivi "|" & FormatSpace(SiglaRuota(Ru) & " Analitico     Terminatore",33,False),1,False,6,,1
        Else
            Scrivi "|" & FormatSpace(SiglaRuota(Ru) & " Terminatore",16,False),1,False,6,,1
        End If
    Next
    Scrivi
    For W = esAn To 0 Step - 1
        ArchivioTerm(W + 1,0) = W
        If ScriptInterrotto Then Exit For
        ini = EstrazioneFin - esc - W
        ReDim Term(esc,55)
        ReDim TermFin(1,55)
        fin = EstrazioneFin - W
        Call GeneraAnalitico(EstrazioneFin)
        co = 0
        For es = ini To fin - 1
            co = co + 1
            rit = esc - co + 1
            For Ru = 1 To 11
                coRu =(Ru - 1)*5
                If Ru = 11 Then Ru = 12
                For p = 1 To 5
                    For esR = es + 1 To fin
                        If Estratto(esR,Ru,p) = Estratto(es,Ru,p) Then Term(co,coRu + p) = Estratto(esR,Ru,p)
                    Next
                Next
            Next
        Next
        For z = 1 To coRu + p - 1
            For y =(esc) To 1 Step - 1
                If Term(y,z) > 0 Then
                    TermFin(1,z) = Term(y,z)
                    Exit For
                End If
            Next
        Next
        Scrivi DataEstrazione(es) & " [" & es & "] " & FormatSpace(W,3,1) & "  | ",1,False,,,1
        For Ru = 1 To 11
            coRu =(Ru - 1)*5
            If Ru = 11 Then Ru = 12
            If Tab_Ana = 1 Then
                For p = 1 To 5
                    If W <= aRit(1) Then
                        num =(TabelloneAnalitico(W,Ru,p))
                        If num > 0 Then
                            Scrivi FormatSpace(num,2,True) & " ",,False,,,1
                        Else
                            Scrivi "-- ",,False,,,1
                        End If
                    Else
                        Scrivi ".. ",,False,,,1
                    End If
                    If p = 5 Then Scrivi "| ",1,False,,,1
                Next '
            End If
            For p = 1 To 5
                cc = 0
                If W <= aRit(1) Then
                    For es = fin - 1 To ini Step - 1
                        If Estratto(fin,Ru,p) = TermFin(1,coRu + p) Then
                            cc = cc + 1
                        End If
                    Next
                    If cc > 0 And Estratto(fin,Ru,p) = TabelloneAnalitico(W,Ru,p) Then
                        Scrivi FormatSpace((Estratto(fin,Ru,p)),2,True),1,False,vbGreen,,1
                        ArchivioTerm(W + 1,coRu + p) = Estratto(fin,Ru,p)
                        lu = lu + 1
                        lunghetta(Ru,0) = SiglaRuota(Ru)
                        lunghetta(Ru,lu) = Estratto(fin,Ru,p)
                    ElseIf cc > 0 Then
                        Scrivi FormatSpace((Estratto(fin,Ru,p)),2,True),1,False,,,1
                        ArchivioTerm(W + 1,coRu + p) = Estratto(fin,Ru,p)
                    Else
                        If Coe = 1 Then
                            Scrivi FormatSpace((Estratto(fin,Ru,p)),2,True),,False,,6,1
                        Else
                            Scrivi FormatSpace("..",2,True),,False,,,1
                        End If
                    End If
                    If p < 5 Then Scrivi " ",1,False,,,1
                    If p = 5 Then Scrivi " | ",1,False,,,1
                Else
                    For es = fin - 1 To ini Step - 1
                        If Estratto(fin,Ru,p) = TermFin(1,coRu + p) Then
                            cc = cc + 1 '''''''
                        End If
                    Next
                    If cc > 0 Then
                        Scrivi FormatSpace((Estratto(fin,Ru,p)),2,True),1,False,,,1
                        ArchivioTerm(W + 1,coRu + p) = Estratto(fin,Ru,p)
                    Else
                        If Coe = 1 Then
                            Scrivi FormatSpace((Estratto(fin,Ru,p)),2,True),,False,,6,1
                        Else
                            Scrivi FormatSpace("..",2,True),,False,,,1
                        End If
                    End If
                    Scrivi " ",,False
                    If p = 5 Then Scrivi "| ",,False,,,1
                End If
            Next
        Next
        Scrivi
        Messaggio " Data estrazione - " & DataEstrazione(EstrazioneFin - W) & " - estr.da analizzare " & W
        AvanzamentoElab 0,esAn,W
    Next
    Messaggio " Scrittura output - estrazione finale " & DataEstrazione(EstrazioneFin) & " - analizzate " & aRit(1)
    Scrivi "   Data   N°estr  Rit  ",1,False,6,,1
    For Ru = 1 To 11
        If Ru = 11 Then Ru = 12
        If Tab_Ana = 1 Then
            Scrivi "|" & FormatSpace(SiglaRuota(Ru) & " Analitico     Terminatore",33,False),1,False,6,,1
        Else
            Scrivi "|" & FormatSpace(SiglaRuota(Ru) & " Terminatore",16,False),1,False,6,,1
        End If
        co = 1
        For x = 1 To UBound(lunghetta,2)
            If lunghetta(Ru,x) > 0 Then
                co = co + 1
                numLung(Ru,co) = lunghetta(Ru,x)
                numLung(Ru,0) = Ru
            End If
        Next
    Next
    Scrivi
    Scrivi
    Scrivi " Lunghette   Terminatori " & String(12," ") & " Estrazioni analizzate : " & FormatSpace(esAn,4,1) & " al " & DataEstrazione(EstrazioneFin) & " Indice " & EstrazioneFin,1,1,3,2,1
    For Ru = 1 To 11
        AvanzamentoElab 0,11,Ru
        If Ru = 11 Then Ru = 12
        co = 0
        Scrivi FormatSpace("PostoD",12,True) & " : ",1,False,,,1
        For x = 2 To UBound(numLung,2)
            If numLung(Ru,x) > 0 Then
                co = co + 1
                If co = 1 Then numLung(Ru,1) = RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru)
                pos = RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru,,retPos)
                If RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x + 1),EstrazioneFin,Ru) Or RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x - 1),EstrazioneFin,Ru)Then
                    ColoreTesto 2
                    Scrivi FormatSpace(retPos & "°",3,True) & " ",,False,,,1
                    posLung(Ru,x) = retPos
                Else
                    Scrivi FormatSpace(retPos & "°",3,True) & " ",,False,,,1
                    posLung(Ru,x) = retPos
                End If
            End If
            ColoreTesto 0
        Next
        Scrivi String((84 - co*4),".") & "   POSIZIONI",1,,,,1
        co = 0
        Scrivi FormatSpace(NomeRuota(Ru),12,True) & " : ",1,False,4,,1
        For x = 2 To UBound(numLung,2)
            If numLung(Ru,x) > 0 Then
                co = co + 1
                If RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x + 1),EstrazioneFin,Ru) Or RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x - 1),EstrazioneFin,Ru)Then
                    ColoreTesto 2
                    Scrivi FormatSpace(numLung(Ru,x),3,True) & " ",1,False,4,,1
                Else
                    Scrivi FormatSpace(numLung(Ru,x),3,True) & " ",1,False,4,,1
                End If
            End If
            ColoreTesto 0
        Next
        Scrivi String((84 - co*4),".") & Format2(co) & " Numeri",1,,,,1
        co = 0
        Scrivi FormatSpace("Rit.",12,True) & " : ",1,False,,,1
        For x = 2 To UBound(numLung,2)
            If numLung(Ru,x) > 0 Then
                co = co + 1
                If co = 1 Then numLung(Ru,1) = RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru)
                If RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x + 1),EstrazioneFin,Ru) Or RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x - 1),EstrazioneFin,Ru)Then
                    ColoreTesto 2
                    Scrivi FormatSpace(RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru),3,True) & " ",,False,,,1
                Else
                    Scrivi FormatSpace(RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru),3,True) & " ",,False,,,1
                End If
            End If
            ColoreTesto 0
        Next
        Scrivi String((84 - co*4),".") & "   RC",1,,,,1
        co = 0
        ReDim numVer(90)
        ReDim ruoVer(12)
        Dim retClp
        Scrivi FormatSpace("clp1°Esito",12,True) & " : ",1,False,,,1 ' x silop in questa riga, se vuoi modificare clpEsito a tuo piacere, max 12 caratteri compreso spaziature
        For x = 2 To UBound(numLung,2)
            If numLung(Ru,x) > 0 Then
                co = co + 1
                numVer(1) = numLung(Ru,x)
                ruoVer(1) = Ru
                If VerificaEsitoTurbo(numVer,ruoVer,EstrazioneFin + 1,1,(EstrazioniArchivio - EstrazioneFin),,,retClp) = True Then
                    Scrivi FormatSpace(retClp,3,True) & " ",1,False,,,1
                    clpLung(Ru,x) = retClp
                Else
                    Scrivi FormatSpace("--",3,True) & " ",1,False,,,1 ' sostiuito ng con --
                    clpLung(Ru,x) = 0
                End If
            End If
        Next
        Scrivi String((84 - co*4),".") & "   Clp di Risortita",1,,,,1
        co = 0
        Scrivi FormatSpace("pos1°Esito",12,True) & " : ",1,False,,,1
        For x = 2 To UBound(numLung,2)
            If numLung(Ru,x) > 0 Then
                co = co + 1
                If clpLung(Ru,x) > 0 Then
                    If Posizione(EstrazioneFin + clpLung(Ru,x),Ru,numLung(Ru,x)) = posLung(Ru,x) Then
                        Scrivi FormatSpace("D",3,True) & " ",1,False,,2,1 'De
                    Else
                        Scrivi FormatSpace("S",3,True) & " ",1,False,,,1 'Se
                    End If
                Else
                    Scrivi FormatSpace("--",3,True) & " ",1,False,,,1
                End If
            End If
        Next
        Scrivi String((84 - co*4),".") & "   POSIZIONE semplice/Determinata",1,,,,1
        Scrivi ' serve a lasciare una riga vuota tra le ruote
    Next '
    Scrivi
    If EstrazioneFin = EstrazioniArchivio Then
        Scrivi " TERMINATORI risortiti al 1° colpo per Tabellone Analitico TT + Naz non aggionabile, estrazioni successive inesistenti in archivio",1
    Else
        Messaggio " Elaborazione e Scrittura output - terminatori risortiti " & DataEstrazione(EstrazioneFin)
        Scrivi " Sunto TERMINATORI risortiti al 1° colpo per aggiornamento Tabellone Analitico TT + Naz",1
        Scrivi "Data Risortita N°es Rit  ",1,False,6,,1
        For Ru = 1 To 12
            If Ru = 11 Then Ru = 12
            Scrivi "| " & FormatSpace(SiglaRuota(Ru) & " Te         ",15,False),1,False,6,,1
        Next
        Scrivi
        Scrivi DataEstrazione(EstrazioneFin + 1,,,"/") & "    " & FormatSpace(EstrazioneFin + 1,5,1) & " " & FormatSpace(EstrazioniArchivio - EstrazioneFin,3,1) & "  | ",1,False,,,1
        For Ru = 1 To 12
            AvanzamentoElab 0,11,Ru
            If Ru = 11 Then Ru = 12
            ''''' numeri delle lunghette esitate e posiz di esito
            For p = 1 To 5
                co = 0
                a = Estratto(EstrazioneFin + 1,Ru,p)
                For x = 2 To UBound(numLung,2)
                    If numLung(Ru,x) > 0 And numLung(Ru,x) = a Then
                        Scrivi FormatSpace(a,2,True),1,False,,,1
                        co = co + 1
                        Exit For
                    End If
                Next
                If co = 0 Then Scrivi "--",1,False,,,1
                If p < 5 Then Scrivi " ",1,False,,,1
                If p = 5 Then Scrivi " | ",1,False,,,1
            Next
        Next
        Scrivi
        Scrivi "Data Risortita N°es Rit  ",1,False,6,,1
        For Ru = 1 To 12
            If Ru = 11 Then Ru = 12
            Scrivi "| " & FormatSpace(SiglaRuota(Ru) & " Te         ",15,False),1,False,6,,1
        Next
    End If
    Scrivi
    Scrivi "                         Tempo Trascorso : " & TempoTrascorso,1,,,,1
End Sub

saluti

 

[micro__]

Non so come ringraziarti Claudio8, ora con il tuo script sono aumentate e velocizzate di molto le funzionalità delle lunghette dei terminatori.

Dopo una pausa di paio di colpi in cui sono uscite solo ambate nelle lunghette, ieri sera sono usciti ben 4 ambi in lunghetta e alcune ambate: ambi su FI/MI/PA/TO.

Con l'ultimo script di claudio8 (spettacolare) sono ben visibili. Dopo l'aggiornamento all'estrazione di ieri, è sufficiente reimpostare la data all'estrazione precedente di 1 colpo e visualizzarli in basso al commento " Sunto terminatori risortiti al 1° colpo...."
Chi vuole può ora dedicarsi all'aggiornamento del tabellone analitico dei 90 numeri dei ritardi a colpo dei soli numeri terminatori su TT+Nazionale e confrontarlo con le lunghette, alla ricerca della ruota in cui si trovano!

Buon divertimento e buone vincite!

Un grazie speciale ancora a claudio8 e a Silop entrambi dei veri maestri di capacità e di gentilezza!

Buona domenica
micro