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ì 09 settembre 2025
    Bari
    80
    40
    25
    05
    49
    Cagliari
    88
    51
    28
    38
    67
    Firenze
    83
    86
    78
    03
    77
    Genova
    29
    67
    66
    25
    63
    Milano
    85
    66
    63
    75
    60
    Napoli
    78
    60
    75
    41
    69
    Palermo
    49
    50
    88
    34
    19
    Roma
    40
    47
    61
    57
    09
    Torino
    20
    86
    42
    53
    28
    Venezia
    33
    60
    83
    75
    14
    Nazionale
    87
    81
    08
    22
    78
    Estrazione Simbolotto
    Palermo
    42
    33
    44
    16
    36

Ultimi Messaggi

Indietro
Alto