Bangkok....
- Creatore Discussione שוע
- Data di inizio
Icioicio
Banned
* HULK *
Banned
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...
zimulin
Advanced Member >PLATINUM<
Si genova e milano!
Ciao
Codicebinario
Advanced Member >PLATINUM<
Ciao a tutti!
la 40^ su Milano e' in netto recupero.....consiglio lo stesso ambo 41.43 anche in ambetto....a breve avremo un ambo in stessa decina....guardate lo script....saluti e che la ...il...sia con noi.....
la 40^ su Milano e' in netto recupero.....consiglio lo stesso ambo 41.43 anche in ambetto....a breve avremo un ambo in stessa decina....guardate lo script....saluti e che la ...il...sia con noi.....
Codicebinario
Advanced Member >PLATINUM<
41.43
Codicebinario
Advanced Member >PLATINUM<
cazz non riesco a pubblicare lo script.....
Codicebinario
Advanced Member >PLATINUM<
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
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
sabato 01 giugno 2024Bari5560748315Cagliari4908827984Firenze1052673443Genova7678575480Milano0801122139Napoli8321875411Palermo2461752109Roma1869306831Torino7111571532Venezia0320078119Nazionale2388335176Estrazione Simbolotto
Napoli
4507333935
