Novità

Sistemi virtuali

Ciao Nannolo,
esattamente,tieni in considerazione che ad ogni estrazione devi sommare +7
9 -44- 4-82-80 estrazione 10/04/2012
16-51-11-89-87 estrazione 12/04/2012
puoi usarli anche come capogioco con le tue convergenze.
se non ricordo male una cinquina sincrona per estratto max storico 49.

il programma funziona con Excel 2010
 
Ultima modifica:
Uscito il 4 a palermo al primo colpo.
Uscito anche il 31 Rp3 D29 di Venezia primo colpo
 
Ultima modifica:
Grande Atlantis ... complimenti per gli studi.
Volevo chiederti qnte estrazioni consideri nei tuoi calcoli (360 come nella vecchissima versione che ho io...che del resto e' sempre un tuo prodotto).
Nel tempo perso, inquanto ho smesso di giocare, ho buttato giu' uno script che calcoli il solo Rp1 nel sistema reale (D00) ... ma comunque da risultati un po scemi :)
A tempo perso, se qlkuno puo' capire che cosa sbaglio...

Codice:
'Calcola Rp1 dei maggiori ritardatari di ogni ruota v1.0 by gennaro fu sangennaro

Sub Main()
    Dim matr(10,4)
    
    ini = EstrazioneFin - 360
    fin = EstrazioneFin


    For r = 1 To 10 'Cicliamo sulle 10 ruote
        matr(r,1) = PiuRitardatario(EstrazioneFin, r) 'Rilevo il massimo ritardatario della ruota r
        matr(r,2) = RitardoEstratto(matr(r, 1), EstrazioneFin, r) 'Rilevo il suo Ritardo Cronologico
        matr(r,3) = RitPos(matr(r,1), r, EstrazioneFin) - 1 'Rilevo il suo Rp1
        matr(r,4) = r 'Memorizzo anche la ruota perche perderei le informazioni in caso di un seguente ordinamento
        Messaggio "Ruota " & r & ", Numero " & matr(r,1)
    Next 'r
        
    Scrivi
    Scrivi "Riepilogo nel sistema virtuale D00 (quindi quello reale):"
    Scrivi
    
    'OrdinaMatrice matr,- 1,2 'Ordino per Rc
    
    For j = 1 To 10
        Scrivi Format2(j) & " Ruota= " & Left(NomeRuota(matr(j,4)),2) & ", Num= " & Format2(matr(j,1)) & _
        ", Rc= " & FormatSpace(matr(j,2),3,1) & ", Rp1= " & FormatSpace(matr(j,3),3,1)
    Next
    
    Scrivi
    Scrivi "Estremi di ricerca: Dalla " & ini & " del " & DataEstrazione(ini) & " alla " & fin & " del " & DataEstrazione(fin)


End Sub
 
... i risultati sono un po scemi perche' non mi sembra che a MILANO il 25 sia il maggior ritardatario :)

Codice:
[FONT=Courier New][SIZE=2][COLOR=#000000]
Riepilogo nel sistema virtuale D00 (quindi quello reale):


01 Ruota= Ba, Num= 58, Rc=  99, Rp1=  31
02 Ruota= Ca, Num= 14, Rc=   6, Rp1=   0
03 Ruota= Fi, Num= 85, Rc=  94, Rp1=  26
04 Ruota= Ge, Num= 27, Rc= 114, Rp1=  27
[B]05 Ruota= Mi, Num= 25, Rc=  21, Rp1=   0[/B]
06 Ruota= Na, Num= 56, Rc=  98, Rp1=  25
07 Ruota= Pa, Num= 78, Rc=   1, Rp1=   0
08 Ruota= Ro, Num= 68, Rc= 106, Rp1=  46
09 Ruota= To, Num= 64, Rc=  12, Rp1=   0
10 Ruota= Ve, Num= 12, Rc=  69, Rp1=   1


Estremi di ricerca: Dalla 8160 del 22.12.2009 alla 8520 del 10.04.2012
[/COLOR][/SIZE][/FONT]
 
Misteri della fede

Misteri della fede

Facendogli caricare prima i 10 numeri piu ritardatari... sembra funzionare :(

Codice:
'Calcola Rp1 dei maggiori ritardatari di ogni ruota v1.1 by gennaro fu sangennaro
Sub Main()
 Dim matr(10,4)
 ini = EstrazioneFin - 360
 fin = EstrazioneFin
 
 For r = 1 To 10  
  matr(r,1) = PiuRitardatario(EstrazioneFin,r)
 Next
 
 For r = 1 To 10 'Cicliamo sulle 10 ruote
  'matr(r,1) = PiuRitardatario(EstrazioneFin,r)
  matr(r,2) = RitardoEstratto(matr(r,1),EstrazioneFin,r) 'Rilevo il suo Ritardo Cronologico
  matr(r,3) = RitPos(matr(r,1),r,EstrazioneFin) - 1 'Rilevo il suo Rp1
  matr(r,4) = r 'Memorizzo anche la ruota perche perderei le informazioni in caso di un seguente ordinamento
  Messaggio "Ruota " & r & ", Numero " & matr(r,1)
 Next 'r
 
 Scrivi
 Scrivi "Riepilogo nel sistema virtuale D00 (quindi quello reale):"
 Scrivi
 
 'OrdinaMatrice matr,- 1,2 'Ordino per Rc
 
 For j = 1 To 10
  Scrivi Format2(j) & " Ruota= " & Left(NomeRuota(matr(j,4)),2) & ", Num= " & Format2(matr(j,1)) & _
  ", Rc= " & FormatSpace(matr(j,2),3,1) & ", Rp1= " & FormatSpace(matr(j,3),3,1)
 Next
 Scrivi
 Scrivi "Estremi di ricerca: Dalla " & ini & " del " & DataEstrazione(ini) & " alla " & fin & " del " & DataEstrazione(fin)
End Sub
 
X atlantis :)

X atlantis :)

Ciao Atla, puoi verificarmi se i dati di qsto script sono coindicenti coi tuoi?
tnx

Codice:
'Calcola Rp1 dei maggiori ritardatari di ogni ruota v2.2 by gennaro fu sangennaro, scritto per SpazioMetria 1.3.63 o superiore

Sub Main()
 Dim matr(12,5), Rp1(12,5), ruo(1), num(1)
 
 ini = EstrazioneFin - 360
 fin = EstrazioneFin
 
For estr = 5 To 0 Step-1
 
 For r = 1 To 11
  If r = 11 Then r = 12
  matr(r,1) = PiuRitardatario(fin-estr, r)
 Next 'r

 For r = 1 To 11
  If r = 11 Then r = 12
  ruo(1) = r
  num(1) = matr(r,1)
  Call StatisticaFormazione(num, ruo, 1, Rit, RitMax, IncrRitMax, Freq, ini, fin-estr)
  matr(r,2) = Rit

  matr(r,3) = RitPos(matr(r,1), r, fin-estr) - 1
  Rp1(r, estr) = matr(r,3)

  matr(r,4) = r
  matr(r,5) = RitMax
  Messaggio "Ruota: " & Format2(r) & ", Numero: " & matr(r,1)
  Call AvanzamentoElab(1,11,r)
  If ScriptInterrotto Then Exit For
 Next 'r

Next 'estr
  
 Scrivi "Riepilogo nel sistema virtuale SV00 (quindi quello reale):",1
 Scrivi

 
 For r = 1 To 11
  If r = 11 Then r = 12 
  Scrivi "Ruota__" & Left(NomeRuota(matr(r,4)),3) & "   Num__" & Format2(matr(r,1)) & _
  "  Rc__" & FormatSpace(matr(r,2),3,1) & "  RcMax__" & FormatSpace(matr(r,5),3,1) & _
  "  Rp1__" & FormatSpace(matr(r,3),3,1) & "  Rp1(-1)__" & FormatSpace(Rp1(r,1),3,1) & "  Rp1(-2)__" & FormatSpace(Rp1(r,2),3,1) & _
  "  Rp1(-3)__" & FormatSpace(Rp1(r,3),3,1) & "  Rp1(-4)__" & FormatSpace(Rp1(r,4),3,1) & "  Rp1(-5)__" & FormatSpace(Rp1(r,5),3,1)

 Next
 
 Scrivi
 Scrivi "Estremi di ricerca: Dalla " & ini & " del " & DataEstrazione(ini) & " alla " & fin & " del " & DataEstrazione(fin)
 Scrivi
 Call TestoInBandaPassante(" ~ ~ ~ ~ ~ Scripted by gennaro! " & Chr(169) & _
 " 2012 ... San Gennà, pienz'c tu! ~ ~ ~ ~ ~ ",1,vbYellow,1) 

End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 09 maggio 2025
    Bari
    23
    87
    53
    62
    33
    Cagliari
    16
    38
    41
    62
    87
    Firenze
    19
    52
    85
    23
    13
    Genova
    01
    61
    85
    60
    48
    Milano
    87
    80
    07
    41
    50
    Napoli
    53
    32
    83
    31
    78
    Palermo
    12
    58
    56
    50
    82
    Roma
    06
    48
    17
    12
    75
    Torino
    89
    26
    30
    01
    20
    Venezia
    32
    21
    20
    82
    49
    Nazionale
    68
    44
    32
    49
    83
    Estrazione Simbolotto
    Milano
    20
    19
    43
    18
    17
Indietro
Alto