Cerco abbinamenti......

[Y10]

Salve , cerco abbinamenti per Ambo all'estratto 5 di BA , qualcuno può aiutarmi ? Grazie

 

[Beppignello]

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

 

[miki55]

 

[Mike58]

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

 

[*blacklotto*]

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*

 

[Alien.]

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?
Grazie.

 

[arizonajoe]

ho un bel 65 BA/CA con 28

 

[Y10]

Grazie a tutti amici e buona giornata.

 

[vidoque]

ciao y10 su ba-na mi ritrovo il 33 se vuoi puoi aggiungere il 39

 

[Mike58]

[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?
Grazie.
/QUOTE]

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

eccolo, fanne buon uso.

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

 

[*blacklotto*]

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*

 

[Alien.]

[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?
Grazie.
/QUOTE]

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

eccolo, fanne buon uso.

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