Novità

Per luigib---->urgente

rob.

rob.

Advanced Member >PLATINUM<
CIAO LUIGI,SCUSAMI MA DA QUANDO E' CAMBIATO IL FORUM, NON RIESCO A FAR FUNZIONARE LO SCRIPT CHE MI HAI FATTO,PER CORTESIA ME LO PUOI RIPOSTARE??-L'ALTRA VOLTA PURTROPPO PER NEGLIGENZA NON LO SALVAI SUL MIO DESKTOP E ORA FACENDO IL "COPIA E INCOLLA" DEL CODICE SUL NUOVO FORUM NON MI FUNZIONA PIU'!!- CLICCA SUL LINK PER VEDERE IL POST DOVE C'E' IL CODICE!!-CI TENGO TANTISSIMO...GRAZIE MILLE

http://forum.lottoced.com/showthrea...-CHE-POTREBBE-APRIRE-NUOVI-ORIZZONTI!!!/page3
 
Vedi se per caso è questo, e se funziona.



Codice: 
Option Explicit
Dim aEstrRit()
Dim aColori()
Dim nLenRiga
Dim nIdPrimaEstr
Sub Main
    Dim Inizio,Fine
    Dim r,k,e,i
    Dim RitDelRit,FreqDelRit
    Dim sRiga
    Dim nCol
    Dim aR(1)
    Dim aN(1)
    Inizio = EstrazioneIni
    Fine = EstrazioneFin
    ReDim aEstrRit(EstrazioniArchivio,12,5)
    Call InitAlimentaTabella
    ReDim FreqDelRit(12,250)
    Call Messaggio("Calcolo tabella ritardi")
    nIdPrimaEstr = Inizio - 200
    nIdPrimaEstr = CInt(InputBox("Inserire la prima estrazione dalla quale conteggiare i ritardi (per default è 200 estrazioni indietro rispetto all'inizio range in analisi)","Prima estrazione",nIdPrimaEstr))
    If nIdPrimaEstr & lt; = 0 Then nIdPrimaEstr = 1
    For k = nIdPrimaEstr To Inizio - 1
        For r = 1 To 12
            If r & lt; & gt; 11 Then
                aR(1) = r
                For e = 1 To 5
                    aN(1) = Estratto(k,r,e)
                    aEstrRit(k,r,e) = RitardoCombinazione(aR,aN,1,k - 1)
                    If aEstrRit(k,r,e) & gt; 250 Then aEstrRit(k,r,e) = 250
                    FreqDelRit(r,aEstrRit(k,r,e)) = FreqDelRit(r,aEstrRit(k,r,e)) + 1
                Next
            End If
        Next
        Call AvanzamentoElab(nIdPrimaEstr,Inizio - 1,k)
        If ScriptInterrotto Then Exit Sub
    Next
    Call Messaggio("Analisi range in corso...")
    For k = Inizio To Fine
        ReDim aRigaNumeri(57)
        ReDim aRigaRitardi(57)
        ReDim aRigaRitardiDei(57)
        ReDim aRigaFrequenzaDei(57)
        aRigaNumeri(1) = DataEstrazione(k)
        aRigaNumeri(2) = k
        aRigaRitardi(1) = "Rit"
        aRigaRitardiDei(1) = "RitDeiRit"
        aRigaFrequenzaDei(1) = "FrqRit"
        nCol = 2
        For r = 1 To 12
            If r & lt; & gt; 11 Then
                aR(1) = r
                For e = 1 To 5
                    nCol = nCol + 1
                    aN(1) = Estratto(k,r,e)
                    aEstrRit(k,r,e) = RitardoCombinazione(aR,aN,1,k - 1)
                    RitDelRit = GetRitardoDelRitardo(aEstrRit(k,r,e),k - 1,r)
                    If aEstrRit(k,r,e) & gt; 250 Then aEstrRit(k,r,e) = 250
                    FreqDelRit(r,aEstrRit(k,r,e)) = FreqDelRit(r,aEstrRit(k,r,e)) + 1
                    aRigaNumeri(nCol) = aN(1)
                    aRigaRitardi(nCol) = aEstrRit(k,r,e)
                    aRigaRitardiDei(nCol) = RitDelRit
                    aRigaFrequenzaDei(nCol) = FreqDelRit(r,aEstrRit(k,r,e))
                Next
            End If
        Next
        Call Scriviriga(aRigaNumeri,DataEstrazione(k),k)
        Call Scriviriga(aRigaRitardi,"Ritardi","")
        Call Scriviriga(aRigaRitardiDei,"RitDeiRit","")
        Call Scriviriga(aRigaFrequenzaDei,"FreqDeiRit","")
        sRiga = String(nLenRiga,"-")
        Call Scrivi(sRiga)
        Call AvanzamentoElab(Inizio,Fine,k)
        If ScriptInterrotto Then Exit For
    Next
End Sub
Sub InitAlimentaTabella()
    Dim sRiga
    Dim r
    nLenRiga = 11 + 5 +(29*11) +(11*3) + 1
    sRiga = String(nLenRiga,"-")
    Call Scrivi(sRiga)
    sRiga = "|" & FormatSpace("Data",10) & "|"
    sRiga = sRiga & FormatSpace("Id",4) & "|"
    For r = 1 To 12
        If r & lt; & gt; 11 Then
            sRiga = sRiga & " " & FormatSpace(NomeRuota(r),28) & "|*|"
        End If
    Next
    Call Scrivi(sRiga)
    sRiga = String(nLenRiga,"-")
    Call Scrivi(sRiga)
End Sub
Sub Scriviriga(aRiga,sData,Id)
    Dim sRiga
    Dim r,e,nCol
    sRiga = "|" & FormatSpace(sData,10) & "|"
    sRiga = sRiga & FormatSpace(Id,4,True) & "|"
    nCol = 2
    For r = 1 To 12
        If r & lt; & gt; 11 Then
            For e = 1 To 5
                nCol = nCol + 1
                sRiga = sRiga & FormatSpace(aRiga(nCol),5,True) & "|"
            Next
            sRiga = sRiga & "*|"
        End If
    Next
    Call Scrivi(sRiga)
End Sub
Function GetRitardoDelRitardo(RitDaEsaminare,IdEstr,ruota)
    Dim k,e,b
    Dim RitDelRit
    RitDelRit = 0
    b = False
    For k = IdEstr To nIdPrimaEstr Step - 1
        For e = 1 To 5
            If aEstrRit(k,ruota,e) = RitDaEsaminare Then
                b = True
                Exit For
            End If
        Next
        If b Then Exit For
        RitDelRit = RitDelRit + 1
    Next
    GetRitardoDelRitardo = RitDelRit
End Function
 
CIAO BAFFO,PURTROPPO MI DA ERRORE!!!-IO NON SO SE FACCIO BENE (EVENTUALMENTE CORREGGIMI SE SBAGLIO) PRIMA DI INCOLLARE LO SCRIPT CANCELLO-----> Option Explicit---Sub Main----End Sub FACCIO BENE O NO???


33wxele.jpg
 
rob, sono questi maledetti codici & lt; & gt che equivalgono al <> (MAGGIORE E MINORE) che nei copia&Incolla si sputtanano ... :(
 
Ultima modifica:
vedi adesso...

vedi adesso...

Option Explicit
Dim aEstrRit()
Dim aColori()
Dim nLenRiga
Dim nIdPrimaEstr
Sub Main
Dim Inizio,Fine
Dim r,k,e,i
Dim RitDelRit,FreqDelRit

Dim sRiga
Dim nCol
Dim aR(1)
Dim aN(1)
Inizio = EstrazioneIni
Fine = EstrazioneFin
ReDim aEstrRit(EstrazioniArchivio,12,5)
Call InitAlimentaTabella

ReDim FreqDelRit(12,250)
Call Messaggio("Calcolo tabella ritardi")
nIdPrimaEstr = Inizio - 200
nIdPrimaEstr = CInt(InputBox("Inserire la prima estrazione dalla quale conteggiare i ritardi (per default è 200 estrazioni indietro rispetto all'inizio range in analisi)","Prima estrazione",nIdPrimaEstr))

If nIdPrimaEstr <= 0 Then nIdPrimaEstr = 1

For k = nIdPrimaEstr To Inizio - 1
For r = 1 To 12
If r <> 11 Then
aR(1) = r
For e = 1 To 5
aN(1) = Estratto(k,r,e)
aEstrRit(k,r,e) = RitardoCombinazione(aR,aN,1,k - 1)
If aEstrRit(k,r,e) > 250 Then aEstrRit(k,r,e) = 250
FreqDelRit(r,aEstrRit(k,r,e)) = FreqDelRit(r,aEstrRit(k,r,e)) + 1
Next
End If
Next
Call AvanzamentoElab(nIdPrimaEstr,Inizio - 1,k)
If ScriptInterrotto Then Exit Sub
Next
Call Messaggio("Analisi range in corso...")
For k = Inizio To Fine
ReDim aRigaNumeri(57)
ReDim aRigaRitardi(57)
ReDim aRigaRitardiDei(57)
ReDim aRigaFrequenzaDei(57)
aRigaNumeri(1) = DataEstrazione(k)
aRigaNumeri(2) = k
aRigaRitardi(1) = "Rit"
aRigaRitardiDei(1) = "RitDeiRit"
aRigaFrequenzaDei(1) = "FrqRit"
nCol = 2
For r = 1 To 12
If r <> 11 Then
aR(1) = r
For e = 1 To 5
nCol = nCol + 1
aN(1) = Estratto(k,r,e)
aEstrRit(k,r,e) = RitardoCombinazione(aR,aN,1,k - 1)
RitDelRit = GetRitardoDelRitardo(aEstrRit(k,r,e),k - 1,r)
If aEstrRit(k,r,e) > 250 Then aEstrRit(k,r,e) = 250
FreqDelRit(r,aEstrRit(k,r,e)) = FreqDelRit(r,aEstrRit(k,r,e)) + 1
aRigaNumeri(nCol) = aN(1)
aRigaRitardi(nCol) = aEstrRit(k,r,e)
aRigaRitardiDei(nCol) = RitDelRit
aRigaFrequenzaDei(nCol) = FreqDelRit(r,aEstrRit(k,r,e))
Next
End If
Next
Call Scriviriga(aRigaNumeri,DataEstrazione(k),k)
Call Scriviriga(aRigaRitardi,"Ritardi","")
Call Scriviriga(aRigaRitardiDei,"RitDeiRit","")
Call Scriviriga(aRigaFrequenzaDei,"FreqDeiRit","")
sRiga = String(nLenRiga,"-")
Call Scrivi(sRiga)


Call AvanzamentoElab(Inizio,Fine,k)
If ScriptInterrotto Then Exit For
Next

End Sub
Sub InitAlimentaTabella()
Dim sRiga
Dim r
nLenRiga = 11 + 5 +(29*11) +(11*3) + 1
sRiga = String(nLenRiga,"-")
Call Scrivi(sRiga)
sRiga = "|" & FormatSpace("Data",10) & "|"
sRiga = sRiga & FormatSpace("Id",4) & "|"
For r = 1 To 12
If r <> 11 Then
sRiga = sRiga & " " & FormatSpace(NomeRuota(r),28) & "|*|"
End If
Next
Call Scrivi(sRiga)
sRiga = String(nLenRiga,"-")
Call Scrivi(sRiga)
End Sub
Sub Scriviriga(aRiga,sData,Id)
Dim sRiga
Dim r,e,nCol


sRiga = "|" & FormatSpace(sData,10) & "|"
sRiga = sRiga & FormatSpace(Id,4,True) & "|"
nCol = 2
For r = 1 To 12
If r <> 11 Then
For e = 1 To 5
nCol = nCol + 1
sRiga = sRiga & FormatSpace(aRiga(nCol),5,True) & "|"
Next
sRiga = sRiga & "*|"
End If
Next
Call Scrivi(sRiga)

End Sub
Function GetRitardoDelRitardo(RitDaEsaminare,IdEstr,ruota)
Dim k,e,b
Dim RitDelRit
RitDelRit = 0
b = False
For k = IdEstr To nIdPrimaEstr Step - 1
For e = 1 To 5
If aEstrRit(k,ruota,e) = RitDaEsaminare Then
b = True
Exit For
End If

Next

If b Then Exit For
RitDelRit = RitDelRit + 1
Next
GetRitardoDelRitardo = RitDelRit
End Function
 
Codice: 
Option Explicit
Dim aEstrRit()
Dim aColori()
Dim nLenRiga
Dim nIdPrimaEstr

Sub Main
    Dim Inizio,Fine
    Dim r,k,e,i
    Dim RitDelRit,FreqDelRit
    
    Dim sRiga
    Dim nCol
    Dim aR(1)
    Dim aN(1)
    Inizio = EstrazioneIni
    Fine = EstrazioneFin
    ReDim aEstrRit(EstrazioniArchivio,12,5)
    Call InitAlimentaTabella
    
    ReDim FreqDelRit(12,250)
    Call Messaggio("Calcolo tabella ritardi")
    nIdPrimaEstr = Inizio - 200
    nIdPrimaEstr = CInt(InputBox("Inserire la prima estrazione dalla quale conteggiare i ritardi (per default è 200 estrazioni indietro rispetto all'inizio range in analisi)","Prima estrazione",nIdPrimaEstr))
    
    If nIdPrimaEstr <= 0 Then nIdPrimaEstr = 1
    
    For k = nIdPrimaEstr To Inizio - 1
        For r = 1 To 12
            If r <> 11 Then
                aR(1) = r
                For e = 1 To 5
                    aN(1) = Estratto(k,r,e)
                    aEstrRit(k,r,e) = RitardoCombinazione(aR,aN,1,k - 1)
                    If aEstrRit(k,r,e) > 250 Then aEstrRit(k,r,e) = 250
                    FreqDelRit(r,aEstrRit(k,r,e)) = FreqDelRit(r,aEstrRit(k,r,e)) + 1
                Next
            End If
        Next
        Call AvanzamentoElab(nIdPrimaEstr,Inizio - 1,k)
        If ScriptInterrotto Then Exit Sub
    Next
    Call Messaggio("Analisi range in corso...")
    For k = Inizio To Fine
        ReDim aRigaNumeri(57)
        ReDim aRigaRitardi(57)
        ReDim aRigaRitardiDei(57)
        ReDim aRigaFrequenzaDei(57)
        aRigaNumeri(1) = DataEstrazione(k)
        aRigaNumeri(2) = k
        aRigaRitardi(1) = "Rit"
        aRigaRitardiDei(1) = "RitDeiRit"
        aRigaFrequenzaDei(1) = "FrqRit"
        nCol = 2
        For r = 1 To 12
            If r <> 11 Then
                aR(1) = r
                For e = 1 To 5
                    nCol = nCol + 1
                    aN(1) = Estratto(k,r,e)
                    aEstrRit(k,r,e) = RitardoCombinazione(aR,aN,1,k - 1)
                    RitDelRit = GetRitardoDelRitardo(aEstrRit(k,r,e),k - 1,r)
                    If aEstrRit(k,r,e) > 250 Then aEstrRit(k,r,e) = 250
                    FreqDelRit(r,aEstrRit(k,r,e)) = FreqDelRit(r,aEstrRit(k,r,e)) + 1
                    aRigaNumeri(nCol) = aN(1)
                    aRigaRitardi(nCol) = aEstrRit(k,r,e)
                    aRigaRitardiDei(nCol) = RitDelRit
                    aRigaFrequenzaDei(nCol) = FreqDelRit(r,aEstrRit(k,r,e))
                Next
            End If
        Next
        Call Scriviriga(aRigaNumeri,DataEstrazione(k),k)
        Call Scriviriga(aRigaRitardi,"Ritardi","")
        Call Scriviriga(aRigaRitardiDei,"RitDeiRit","")
        Call Scriviriga(aRigaFrequenzaDei,"FreqDeiRit","")
        sRiga = String(nLenRiga,"-")
        Call Scrivi(sRiga)
    
        
        Call AvanzamentoElab(Inizio,Fine,k)
        If ScriptInterrotto Then Exit For
    Next
    
End Sub
Sub InitAlimentaTabella()
    Dim sRiga
    Dim r
    nLenRiga = 11 + 5 +(29*11) +(11*3) + 1
    sRiga = String(nLenRiga,"-")
    Call Scrivi(sRiga)
    sRiga = "|" & FormatSpace("Data",10) & "|"
    sRiga = sRiga & FormatSpace("Id",4) & "|"
    For r = 1 To 12
        If r <> 11 Then
            sRiga = sRiga & " " & FormatSpace(NomeRuota(r),28) & "|*|"
        End If
    Next
    Call Scrivi(sRiga)
    sRiga = String(nLenRiga,"-")
    Call Scrivi(sRiga)
End Sub
Sub Scriviriga(aRiga,sData,Id)
    Dim sRiga
    Dim r,e,nCol
    
    
    sRiga = "|" & FormatSpace(sData,10) & "|"
    sRiga = sRiga & FormatSpace(Id,4,True) & "|"
    nCol = 2
    For r = 1 To 12
        If r <> 11 Then
            For e = 1 To 5
                nCol = nCol + 1
                sRiga = sRiga & FormatSpace(aRiga(nCol),5,True) & "|"
            Next
            sRiga = sRiga & "*|"
        End If
    Next
    Call Scrivi(sRiga)
    
End Sub

Function GetRitardoDelRitardo(RitDaEsaminare,IdEstr,ruota)
    Dim k,e,b
    Dim RitDelRit
    RitDelRit = 0
    b = False
    For k = IdEstr To nIdPrimaEstr Step - 1
        For e = 1 To 5
            If aEstrRit(k,ruota,e) = RitDaEsaminare Then
                b = True
                Exit For
            End If
            
        Next
        
        If b Then Exit For
        RitDelRit = RitDelRit + 1
    Next
    GetRitardoDelRitardo = RitDelRit
End Function
 
Grazie gennaro e mazuma funzionano entrambi!!!-pero' sono un po' lenti,quello di luigib era molto veloce,non ricordo pero' se nel calcolo c'era anche la ruota "nazionale"

grazie ancora rob
 
...noi ti abbiamo aiutato... tu ora ci aiuti a capire come sfruttare l'analisi di questo script? ehhehehe ;)
 
Ciao,volentieri ma anche x me e' l'inizio di una nuova avventura!!-sto' facendo delle prove e mi e' capitato x diverse volte di scegliere (con i miei criteri di valutazione) 2 numeri in una ruota e con mio stupore sono usciti in ambo secco e mi e' capitato 3-4 volte!!!!-se continuiamo a sentirci in questa discussione a breve esporro' il mio criterio per valutare e scegliere i numeri che potrebbero uscite in futuro!!-a presto rob
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 01 agosto 2026
    Bari
    46
    54
    36
    47
    01
    Cagliari
    77
    30
    04
    79
    18
    Firenze
    84
    76
    10
    27
    44
    Genova
    32
    13
    71
    38
    46
    Milano
    10
    23
    18
    20
    03
    Napoli
    73
    36
    10
    90
    07
    Palermo
    61
    46
    24
    57
    32
    Roma
    89
    78
    23
    07
    35
    Torino
    21
    59
    34
    73
    86
    Venezia
    74
    01
    30
    46
    54
    Nazionale
    71
    65
    17
    09
    20
    Estrazione Simbolotto
    Nazionale
    03
    09
    37
    30
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto