Novità

Bangkok....


41//43 Ambo Spaccanoci il mio obbiettivo...Milano...

18//57 .... Milano ...

Vedendo mirando ... queste palline ... svolazzanti dè quà e dè là....

mirando Genova... 72-73-74 e mirando Milano... numero mancante 75....

Genova 75... 64.. ? vertibile del 46 ?

Milano 75//64 ... Ambo ...

Gioco Aperto .. per estrazione del 28-09-2023...
 
Option Explicit

Sub Main
Dim Nu(4),Ru(1),T,V
Dim Sorte, eIni, eFin, eTot, LivArch
Dim Rit, Max, Incr, Fre
Dim a, b, c, d, k, r
Dim ic, id

Sorte = 1
eIni = EstrazioneFin-100
eFin = EstrazioneFin
eTot = eFin - eIni + 1

T = Array(T,"Ruota","Quartina a coesione Matematica","Ritardo","Storico","Incr","Freq","Indice Convenienza"," LivArch")
Call InitTabella(T)

For LivArch = 0 To 0 ' cambiando il parametri si ottiene la statisticha su uno o più archivi

For r = 1 To 12 : If r = 11 Then r = 12
For a = 1 To 22
k = k + 1
b = 46 - a
c = a+b+k-1
d = 90 - k + 1
Nu(1) = a : Nu(2) = b : Nu(3) = c : Nu (4)= d : Ru(1) = r

Call StatisticaFormazione(Nu,Ru, Sorte,Rit,Max,Incr,Fre,eIni,eFin,LivArch)

ic = Round((Fre/eTot*Rit),2)
Call Messaggio("Elaboro Ruote . . . . " & NomeRuota(r))
Call AvanzamentoElab(1,12,r)
V = Array(V,NomeRuota(r),StringaNumeri(Nu,,1),Rit,Max,Incr,Fre,ic,LivArch)
Call AddRigaTabella(V)
Next
k=0
Next
Next
Call CreaTabellaOrdinabile(3)

End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 26 giugno 2025
    Bari
    46
    67
    85
    51
    41
    Cagliari
    31
    19
    78
    28
    58
    Firenze
    24
    63
    44
    61
    71
    Genova
    76
    74
    77
    65
    58
    Milano
    66
    50
    73
    67
    75
    Napoli
    24
    14
    33
    11
    31
    Palermo
    35
    34
    78
    19
    06
    Roma
    53
    07
    19
    36
    85
    Torino
    67
    66
    87
    10
    81
    Venezia
    14
    03
    67
    49
    17
    Nazionale
    02
    31
    11
    77
    74
    Estrazione Simbolotto
    Napoli
    19
    12
    25
    36
    01
Indietro
Alto