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ì 11 dicembre 2025
    Bari
    06
    84
    62
    37
    14
    Cagliari
    86
    18
    11
    39
    61
    Firenze
    45
    02
    23
    17
    68
    Genova
    81
    24
    16
    23
    55
    Milano
    32
    77
    56
    40
    71
    Napoli
    11
    76
    86
    55
    90
    Palermo
    89
    56
    20
    68
    38
    Roma
    39
    17
    70
    19
    41
    Torino
    41
    54
    74
    26
    09
    Venezia
    36
    07
    82
    39
    81
    Nazionale
    61
    14
    50
    12
    08
    Estrazione Simbolotto
    Venezia
    12
    10
    18
    16
    20

Ultimi Messaggi

Indietro
Alto