Novità

Cerco abbinamenti......

Y10

Advanced Member >PLATINUM<
Salve , cerco abbinamenti per Ambo all'estratto 5 di BA , qualcuno può aiutarmi ? Grazie
 
quelli proposti da Giuseppa sono buoni

mio riscontro 05 15 il migliore

BARI 05 15

lo giocherei però anche a Tutte, tarda da 61 colpi è buono anche qui.

ciao
 
STATISTICHE ABBINAMENTI 5 RUOTA DI BARI

NR. 66 --> 28 volte
NR. 04 --> 24 volte
NR. 59 --> 23 volte
NR. 30 --> 20 volte
NR. 75 --> 20 volte
NR. 78 --> 20 volte
NR. 87 --> 20 volte
NR. 88 --> 20 volte
 
Ciao Y10,

le mie proposte sono queste : ambo secco 05 - 38

se vuoi osare di più :

ambo/terno 05 - 38 - 01
ambo/terno 05 - 38 - 02
ambo/terno 05 - 38 - 03


*blacklotto*
 
Mike58;n2030316 ha scritto:
STATISTICHE ABBINAMENTI 5 RUOTA DI BARI

NR. 66 --> 28 volte
NR. 04 --> 24 volte
NR. 59 --> 23 volte
NR. 30 --> 20 volte
NR. 75 --> 20 volte
NR. 78 --> 20 volte
NR. 87 --> 20 volte
NR. 88 --> 20 volte

ciao Mike,per caso c'è uno script come questo,dato un numero mi dia gli 8/10 ecc numeri con maggior frequenza con il numero dato?
1) freq su ruota e a scelta su tutte?:p
Grazie.
 
[ciao Mike,per caso c'è uno script come questo,dato un numero mi dia gli 8/10 ecc numeri con maggior frequenza con il numero dato?
1) freq su ruota e a scelta su tutte?:p
Grazie.
/QUOTE]

si Alien, di script cosi c'è ne sono e ne ho fatti a iosa.

eccolo, fanne buon uso.

Codice:
Sub Main
Dim n1,n2,anum(2),spia(1),abb(1)
'Dim ruote(1)
'r = InputBox("Quale Ruota",,1)
qn = CInt(InputBox("Quale Capogioco",,15))
'qe = InputBox("QUante estrazioni vuoi analizzare",,1000)
ReDim ruote(0)
'ruote(1) = r
r = ScegliRuote(ruote)
ReDim atitoli(11)
atitoli(1) = " Data "
atitoli(2) = " Ruota "
atitoli(3) = " Numero "
atitoli(4) = " Ritardo "
atitoli(5) = " Rit Max "
atitoli(6) = " incr Max "
atitoli(7) = " frequenza "
atitoli(8) = "  Esito ultimo "
atitoli(9) = " Tipo esito "
atitoli(10) = " Data esito "
atitoli(11) = "Ritardo abbinamento"
Call InitTabella(atitoli,1,,3,5)
spia(1) = qn
Ini = 3950'EstrazioneIni'Fin - qe
fin = EstrazioneFin
df = fin - Ini
sp = SerieFreq(Ini,fin,spia,ruote,1)
Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " --> Totali estraz. " & df + 1,1,- 1,3
Scrivi "presenze del numero Capogioco.... " & sp,1
Messaggio "elaboro... ruota di  " '& NomeRuota(r)
Call AvanzamentoElab(1,10,100)
n1 = qn
For n2 = 1 To 90
If n1 <> n2 Then
anum(1) = n1
anum(2) = n2
abb(1) = n2
Call StatisticaFormazioneTurbo(anum,ruote,2,rit,ritmax,Incrmax,freq,Ini,fin)
Call StatisticaFormazioneTurbo(abb,ruote,1,rit1,,,,Ini,fin)
Call VerificaEsitoTurbo(anum,ruote,fin - rit,2,,,retesito,,retestratti,retidestr)
ReDim avalori(11)
avalori(1) = DataEstrazione(fin)
avalori(2) = StringaRuote(ruote)
avalori(3) = StringaNumeri(anum,,1)
avalori(4) = rit
avalori(5) = ritmax
avalori(6) = Incrmax
avalori(7) = freq
avalori(8) = retestratti
avalori(9) = retesito
If retesito <> "" Then avalori(10) = DataEstrazione(retidestr)
If retesito = "" Then avalori(10) = " -- "
avalori(11) = rit1
Call AddRigaTabella(avalori,,,3)
Call SetColoreCella(4,vbMagenta)
Call SetColoreCella(3,,1)
Call SetColoreCella(8,,7)
Call SetColoreCella(7,vbGreen)
If rit = 0 Then Call SetColoreCella(10,vbYellow)
End If
Next
Call SetTableWidth("100%")
Call CreaTabellaOrdinabile(7,,,100) ' riga x ordinamento colonna
Call Scrivi("  *******   Tabella by Mike58   *******    ",True,True,2,4,4)
End Sub
 
Ultima modifica:
Ciao Y10,

presa solo ambata 01

le mie nuove proposte sono queste : ambo secco 05 - 38

se vuoi osare di più :

ambo/terno 05 - 38 - 17
ambo/terno 05 - 38 - 18
ambo/terno 05 - 38 - 19


*blacklotto*
 
Mike58;n2030453 ha scritto:
[ciao Mike,per caso c'è uno script come questo,dato un numero mi dia gli 8/10 ecc numeri con maggior frequenza con il numero dato?
1) freq su ruota e a scelta su tutte?:p
Grazie.
/QUOTE]

si Alien, di script cosi c'è ne sono e ne ho fatti a iosa.

eccolo, fanne buon uso.

Codice:
Sub Main
Dim n1,n2,anum(2),spia(1),abb(1)
'Dim ruote(1)
'r = InputBox("Quale Ruota",,1)
qn = CInt(InputBox("Quale Capogioco",,15))
'qe = InputBox("QUante estrazioni vuoi analizzare",,1000)
ReDim ruote(0)
'ruote(1) = r
r = ScegliRuote(ruote)
ReDim atitoli(11)
atitoli(1) = " Data "
atitoli(2) = " Ruota "
atitoli(3) = " Numero "
atitoli(4) = " Ritardo "
atitoli(5) = " Rit Max "
atitoli(6) = " incr Max "
atitoli(7) = " frequenza "
atitoli(8) = " Esito ultimo "
atitoli(9) = " Tipo esito "
atitoli(10) = " Data esito "
atitoli(11) = "Ritardo abbinamento"
Call InitTabella(atitoli,1,,3,5)
spia(1) = qn
Ini = 3950'EstrazioneIni'Fin - qe
fin = EstrazioneFin
df = fin - Ini
sp = SerieFreq(Ini,fin,spia,ruote,1)
Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " --> Totali estraz. " & df + 1,1,- 1,3
Scrivi "presenze del numero Capogioco.... " & sp,1
Messaggio "elaboro... ruota di " '& NomeRuota(r)
Call AvanzamentoElab(1,10,100)
n1 = qn
For n2 = 1 To 90
If n1 <> n2 Then
anum(1) = n1
anum(2) = n2
abb(1) = n2
Call StatisticaFormazioneTurbo(anum,ruote,2,rit,ritmax,Incrmax,freq,Ini,fin)
Call StatisticaFormazioneTurbo(abb,ruote,1,rit1,,,,Ini,fin)
Call VerificaEsitoTurbo(anum,ruote,fin - rit,2,,,retesito,,retestratti,retidestr)
ReDim avalori(11)
avalori(1) = DataEstrazione(fin)
avalori(2) = StringaRuote(ruote)
avalori(3) = StringaNumeri(anum,,1)
avalori(4) = rit
avalori(5) = ritmax
avalori(6) = Incrmax
avalori(7) = freq
avalori(8) = retestratti
avalori(9) = retesito
If retesito <> "" Then avalori(10) = DataEstrazione(retidestr)
If retesito = "" Then avalori(10) = " -- "
avalori(11) = rit1
Call AddRigaTabella(avalori,,,3)
Call SetColoreCella(4,vbMagenta)
Call SetColoreCella(3,,1)
Call SetColoreCella(8,,7)
Call SetColoreCella(7,vbGreen)
If rit = 0 Then Call SetColoreCella(10,vbYellow)
End If
Next
Call SetTableWidth("100%")
Call CreaTabellaOrdinabile(7,,,100) ' riga x ordinamento colonna
Call Scrivi(" ******* Tabella by Mike58 ******* ",True,True,2,4,4)
End Sub



si si certo ne farò buon uso.....ma ci vuole anche tanto K hahahahahahah grazie ciao Mike
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 18 febbraio 2025
    Bari
    72
    83
    64
    59
    43
    Cagliari
    60
    55
    49
    07
    14
    Firenze
    11
    68
    62
    04
    21
    Genova
    86
    23
    44
    85
    71
    Milano
    11
    82
    42
    09
    14
    Napoli
    89
    86
    65
    49
    14
    Palermo
    79
    34
    80
    78
    20
    Roma
    26
    21
    13
    64
    57
    Torino
    64
    11
    17
    02
    58
    Venezia
    64
    82
    30
    04
    19
    Nazionale
    26
    37
    68
    54
    87
    Estrazione Simbolotto
    Cagliari
    39
    30
    04
    11
    14
Indietro
Alto