Novità

A GENTILE RICHIESTA Modifica

trivellatomariotretre33

Super Member >PLATINUM<
Avrei Bisogno solo di 2 modifiche per questo listato
ID Mensile A scelta
e Colpi a scelta
vi ringrazio.




Option Explicit
Sub Main
Dim Ini,fine,ct,retestratti,retidestr,nu,j,r1,ru2,rudue,p2,p3,p4,p5,p6,es2,es1,i,ct2
Dim an(1),ar(10),dati(10,5),cip
cip = 10220
r1 = 1 ' <-------------- 1^ ruota
rudue = 12 ' <---------- 2^ ruota
Ini = cip
fine = 10274
For j = 1 To 1
ar(j) = j
Next
For Ini = Ini + 1 To 10274
nu = Estratto(Ini,r1,1)
an(1) = nu
Call VerificaEsitoTurbo(an,ar,Ini + 1,1,1,,,,retestratti,retidestr)
If retestratti <> "" Then
ct = ct + 1
End If
Next
ColoreTesto 1
Scrivi"volte che si è ripetuto il 1° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
ColoreTesto 0
Scrivi
Ini = cip
For Ini = Ini + 1 To 10274
es1 = Estratto(Ini,r1,1)
i = Ini
For ru2 = rudue To rudue
For p2 = 1 To 5
es2 = Estratto(i + 1,ru2,p2)
If es1 = es2 Then
ct2 = ct2 + 1
Scrivi Ini & " / " & Ini + 1 & " 1° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
End If
Next
Next
Next
Scrivi
ColoreTesto 1
Scrivi"volte che si è ripetuto il 2° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
ColoreTesto 0
Scrivi
Ini = cip
For Ini = Ini + 1 To 10274
es1 = Estratto(Ini,r1,2)
i = Ini
For ru2 = rudue To rudue
For p3 = 1 To 5
es2 = Estratto(i + 1,ru2,p3)
If es1 = es2 Then
ct2 = ct2 + 1
ColoreTesto 0
Scrivi Ini & " / " & Ini + 1 & " 2° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
ColoreTesto 1
End If
Next
Next
Next
Scrivi
ColoreTesto 1
Scrivi"volte che si è ripetuto il 3° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
ColoreTesto 0
Scrivi
Ini = cip
For Ini = Ini + 1 To 10274
es1 = Estratto(Ini,1,3)
i = Ini
For ru2 = rudue To rudue
For p4 = 1 To 5
es2 = Estratto(i + 1,ru2,p4)
If es1 = es2 Then
ct2 = ct2 + 1
ColoreTesto 0
Scrivi Ini & " / " & Ini + 1 & " 3° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
ColoreTesto 0
End If
Next
Next
Next
Scrivi
ColoreTesto 1
Scrivi"volte che si è ripetuto il 4° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
ColoreTesto 0
Scrivi
Ini = cip
For Ini = Ini + 1 To 10274
es1 = Estratto(Ini,1,4)
i = Ini
For ru2 = rudue To rudue
For p5 = 1 To 5
es2 = Estratto(i + 1,ru2,p5)
If es1 = es2 Then
ct2 = ct2 + 1
ColoreTesto 0
Scrivi Ini & " / " & Ini + 1 & " 4° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
ColoreTesto 0
End If
Next
Next
Next
Scrivi
ColoreTesto 1
Scrivi"volte che si è ripetuto il 5° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
ColoreTesto 0
Scrivi
Ini = cip
For Ini = Ini + 1 To 10274
es1 = Estratto(Ini,1,5)
i = Ini
For ru2 = rudue To rudue
For p6 = 1 To 5
es2 = Estratto(i + 1,ru2,p6)
If es1 = es2 Then
ct2 = ct2 + 1
ColoreTesto 0
Scrivi Ini & " / " & Ini + 1 & " 5° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
ColoreTesto 0
End If
Next
Next
Next
Scrivi
Scrivi
Scrivi "le totali ripetizioni dei 5 estratti sono " & ct2 & " volte ",1
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 13 settembre 2025
    Bari
    85
    57
    40
    76
    14
    Cagliari
    90
    15
    68
    63
    76
    Firenze
    81
    74
    71
    25
    06
    Genova
    21
    47
    44
    02
    06
    Milano
    83
    39
    31
    84
    55
    Napoli
    74
    41
    24
    47
    38
    Palermo
    54
    25
    61
    22
    68
    Roma
    60
    72
    38
    55
    03
    Torino
    10
    45
    56
    54
    63
    Venezia
    14
    38
    66
    36
    28
    Nazionale
    85
    48
    38
    22
    81
    Estrazione Simbolotto
    Palermo
    08
    42
    27
    30
    20
Indietro
Alto