Novità

Per Rubino e LuigiB

S

sorujoe

Advanced Member >GOLD<
lo script che mi hai fatto al 10elotto non funziona piu ho reistallato la versione 32 di spaziometria ma non va il tutto è iniziato con la versione 33. Ti allego script e immagine
Option Explicit
Sub Main
Dim coltot,i,acol,ctr,Classe,nsorte,x,minr,frer,aretri tardi,Inizio,fine,aretidestr,aretcol,h,rit,z,svi,n ,LISTA,LISTA1,LISTA2,lista3
Dim gl,retestratti,retidestr,ritardo,ritardomax,freque nza,he,fissi,hv,cf,cfi,tre,due,uno
Dim anum(90),comb(500000,3),MINMIN(30,9)
svi = InputBox("Sviluppo I / R ",,"R")
Classe = InputBox("Classe",,5)
nsorte = InputBox("Sorte",,3)
MINMIN(3,2) = 7
MINMIN(3,3) = 500
MINMIN(4,2) = 5
MINMIN(4,3) = 220
MINMIN(4,4) = 4800
MINMIN(5,2) = 11
MINMIN(5,3) = 105
MINMIN(5,4) = 1138
MINMIN(6,3) = 56
MINMIN(6,4) = 392
MINMIN(6,5) = 5000
MINMIN(7,3) = 36
MINMIN(7,4) = 215
MINMIN(7,5) = 1800
MINMIN(8,5) = 900
''''carica 90 numeri
Call ScegliNumeri(anum)
n = UBound(anum)
LISTA = StringaNumeri(anum,".")
LISTA1 = Mid(LISTA,1,80)
LISTA2 = Mid(LISTA,82,89)
lista3 = Mid(LISTA,172,90)
Call ImpostaArchivio10ELotto(1)
Inizio = EstrazioneIniDL
fine = InputBox("Estraz.m.",,EstrazioneFinDL)
fissi = InputBox("Fissi ? ",,"0.0.0")
ReDim fnum(3)
Call SplitByChar(fissi,".",fnum)
ColoreTesto(2)
Scrivi "--Combinazioni in Ritardo al 10 E Lotto (BEPP-Rubino DL-1) ",1
Scrivi "Situazione 10 E LOTTO - Combinazioni in ritardo ",1
Scrivi "Periodo: " & EstrazioneIniDL & " / " & fine & " - " & DataEstrazioneDL(fine),1
ColoreTesto(1)
Scrivi "Sviluppo in Classe " & Classe,1
Scrivi "Sorte " & nsorte,1
Scrivi "Ritardo Minimo " & MINMIN(Classe,nsorte),1
Scrivi "Fissi da Controllare in esiti " & fissi,1
Scrivi
ColoreTesto(0)
Scrivi "Tot.Numeri Scelti.." & n,1
Scrivi "Numeri " & LISTA1,1
Scrivi "Numeri " & LISTA2,1
Scrivi "Numeri " & lista3,1
ColoreTesto(2)
If svi = "I" Then Scrivi "Sviluppo Richiesto I N T E G R A L E ",1
If svi = "R" Then Scrivi "Sviluppo Richiesto R I D O T T O ",1
ColoreTesto(0)
Scrivi "---------------------------------------------------------------------",1
'''rileva a campione Ritardo Minimo di classe scelta
minr = MINMIN(Classe,nsorte)
''''
coltot = InitSviluppoIntegrale(anum,Classe)
If svi = "I" Then
If coltot > 0 Then
'''' I N T E G R A L E
Do While GetCombSviluppo(acol) = True
i = i + 1
Call Messaggio("Col.Tot. " & coltot & " / Int." & i & " Trovate " & h & " Fissi " & fissi)
If ScriptInterrotto Then Exit Do
rit = RitardoCombinazioneDL(acol,nsorte,fine)
If rit >= minr Then
h = h + 1
comb(h,1) = StringaNumeri(acol,".")
comb(h,2) = FormattaStringa(rit,"0000")
End If
Loop
End If
End If
'''' R I D O T T O
If svi = "R" Then
If coltot > 0 Then
Do While GetCombSviluppoRid(acol,nsorte) = True
i = i + 1
Call Messaggio("Col.Tot. " & coltot & " / Rid." & i & " Trovate " & h & " Fissi " & fissi)
If ScriptInterrotto Then Exit Do
rit = RitardoCombinazioneDL(acol,nsorte,fine)
If rit >= minr Then
h = h + 1
comb(h,1) = StringaNumeri(acol,".")
comb(h,2) = FormattaStringa(rit,"0000")
End If
Loop
End If
End If
Scrivi "Combinazioni Elaborate..." & i,1
Scrivi
''''RIEPILOGO COMBINAZIONI FILTRATE
Call OrdinaMatrice(comb,- 1,2)
ReDim num(Classe)
Scrivi "Combinazioni RitAtt./R.Max Freq. ",1
For z = 1 To h
ReDim an(0)
Call SplitByChar(comb(z,1),".",an)
For gl = 0 To UBound(an)
num(gl + 1) = an(gl)
Next
'''''---------------------------------------------------------
If fissi = "0.0.0" Then '''nessun fisso
''''''condizioni imposta d'obbligo Ritardo >= ritardomax
Call StatisticaFormazioneDL(num,nsorte,ritardo,ritardom ax,,frequenza,EstrazioneIniDL,fine)
If ritardo >= ritardomax Then
hv = 1
Scrivi StringaNumeri(num,".") & "...." & FormattaStringa(ritardo,"0000") & " / " & FormattaStringa(ritardomax,"0000") & " " & FormattaStringa(frequenza,"0000"),1
''verificaesito
Call VerificaEsitoDL(num,fine + 1,nsorte,,,,retestratti,retidestr)
If retestratti <> "" Then
ColoreTesto(2)
he = he + 1
Scrivi "----> Esito " & retidestr & " colpo n." & Format2(retidestr - fine) & " " & retestratti,1
ColoreTesto(0)
End If
End If
End If
''''''----------------------------------------------------------
If Int(fnum(2)) <> 0 Then '''3 fissi
'''''controlla se combinazione contiene i 3 fissi
cf = 0
For tre = 0 To 2
For cfi = 1 To Classe
If Int(num(cfi)) = Int(fnum(tre)) Then
cf = cf + 1
End If
Next
Next
If cf = 3 Then
''''''condizioni imposta d'obbligo Ritardo >= ritardomax
Call StatisticaFormazioneDL(num,nsorte,ritardo,ritardom ax,,frequenza,EstrazioneIniDL,fine)
If ritardo >= ritardomax Then
hv = 1
Scrivi StringaNumeri(num,".") & "...." & FormattaStringa(ritardo,"0000") & " / " & FormattaStringa(ritardomax,"0000") & " " & FormattaStringa(frequenza,"0000"),1
''verificaesito
Call VerificaEsitoDL(num,fine + 1,nsorte,,,,retestratti,retidestr)
If retestratti <> "" Then
ColoreTesto(2)
he = he + 1
Scrivi "----> Esito " & retidestr & " colpo n." & Format2(retidestr - fine) & " " & retestratti,1
ColoreTesto(0)
End If
End If
End If
End If
''''''----------------------------------------------------------
If Int(fnum(1)) <> 0 And Int(fnum(2)) = 0 Then '''2 fissi
''''''condizioni imposta d'obbligo Ritardo >= ritardomax
cf = 0
For due = 0 To 1
For cfi = 1 To Classe
If Int(num(cfi)) = Int(fnum(due)) Then
cf = cf + 1
End If
Next
Next
If cf = 2 Then
Call StatisticaFormazioneDL(num,nsorte,ritardo,ritardom ax,,frequenza,EstrazioneIniDL,fine)
If ritardo >= ritardomax Then
hv = 1
Scrivi StringaNumeri(num,".") & "...." & FormattaStringa(ritardo,"0000") & " / " & FormattaStringa(ritardomax,"0000") & " " & FormattaStringa(frequenza,"0000"),1
''verificaesito
Call VerificaEsitoDL(num,fine + 1,nsorte,,,,retestratti,retidestr)
If retestratti <> "" Then
ColoreTesto(2)
he = he + 1
Scrivi "----> Esito " & retidestr & " colpo n." & Format2(retidestr - fine) & " " & retestratti,1
ColoreTesto(0)
End If
End If
End If
End If
''''''----------------------------------------------------------
If Int(fnum(0)) <> 0 And Int(fnum(1)) = 0 And Int(fnum(2)) = 0 Then '''1 fissi
''''''condizioni imposta d'obbligo Ritardo >= ritardomax
cf = 0
For cfi = 1 To Classe
If Int(num(cfi)) = Int(fnum(0)) Then
cf = cf + 1
End If
Next
If cf = 1 Then
Call StatisticaFormazioneDL(num,nsorte,ritardo,ritardom ax,,frequenza,EstrazioneIniDL,fine)
If ritardo >= ritardomax Then
hv = 1
Scrivi StringaNumeri(num,".") & "...." & FormattaStringa(ritardo,"0000") & " / " & FormattaStringa(ritardomax,"0000") & " " & FormattaStringa(frequenza,"0000"),1
''verificaesito
Call VerificaEsitoDL(num,fine + 1,nsorte,,,,retestratti,retidestr)
If retestratti <> "" Then
ColoreTesto(2)
he = he + 1
Scrivi "----> Esito " & retidestr & " colpo n." & Format2(retidestr - fine) & " " & retestratti,1
ColoreTesto(0)
End If
End If
End If
End If
''''''----------------------------------------------------------
Next
Scrivi:Scrivi
If hv = 0 Then
ColoreTesto(1)
Scrivi "Nessuna Combinazione con Ritardo >= RitardoMax",1
ColoreTesto(0)
End If
Scrivi
Scrivi "Combinazioni trovate..." & h,1
Scrivi "Combinazione Esito Fav." & he,1
Scrivi
Scrivi TempoTrascorso,1
End Sub


Ecco ERRORE
a parte che mi dice estrazione 9760 e nemmeno ci sono tante estrazioni ma questo è l'errore
Cattura.PNG
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 28 aprile 2026
    Bari
    68
    50
    33
    31
    23
    Cagliari
    47
    80
    44
    24
    13
    Firenze
    62
    05
    49
    26
    47
    Genova
    22
    34
    29
    35
    86
    Milano
    33
    45
    55
    78
    27
    Napoli
    58
    36
    88
    47
    46
    Palermo
    21
    59
    73
    72
    46
    Roma
    40
    59
    74
    02
    32
    Torino
    64
    70
    36
    73
    13
    Venezia
    77
    64
    06
    84
    69
    Nazionale
    01
    14
    24
    04
    56
    Estrazione Simbolotto
    Genova
    05
    45
    04
    44
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto