A volte basta uno script facile per tutti.

[Sakti]

Io aspetto 78 a BA e 13 NZ e VE.
Che pensate del 23 55 a BA?

 

[adeleadele]

Io aspetto 78 a BA e 13 NZ e VE.
Che pensate del 23 55 a BA?

oggi 13 in 5 b c naz

 

[Codicebinario]

Io aspetto 78 a BA e 13 NZ e VE.
Che pensate del 23 55 a BA?

il 23 Papabile(occhio ai laterali)per il 55 non saprei....avrei un 35 ma non mi sconquiffera...ma il suo vertibile e' vicino al tuo 55...e tu sai che a volte,spesso ,i vertibili e limitrofi ti fanno lo "scherzone" vedi tu

 

[Missione Impossibile.]

Io aspetto 78 a BA e 13 NZ e VE.
Che pensate del 23 55 a BA?

Mi dispiace Toon,ho visto troppo tardi, vedo solo cosi' al volo il 55-56

 

[Missione Impossibile.]

oggi 13 in 5 b c naz

Benvenuta adeleadele

 

[Missione Impossibile.]

Nuova previsione BA/CA dal 20/02/2024
2X1: 1-7
Abbinamenti: 4-24-32 x 8 colpi.

La previsione nasce dalle spie 63 e 64

Al 4° colpo esce il 7 del 2x1,peccato esce il 25 anziche' del 24, il 4 esce a bari.

 

[Sakti]

Perfetto uscito 13 VE in 3° posizione..

 

[Missione Impossibile.]

Perfetto uscito 13 VE in 3° posizione..

Bravo Toon io a cagliari Bari avevo 1-7-78 a cagliari mi esce 2-7-78 metto lo scontrino per condividerlo con voi mangiandomi le unghie

 

[Missione Impossibile.]

Bravo Toon io a cagliari Bari avevo 1-7-78 a cagliari mi esce 2-7-78 metto lo scontrino per condividerlo con voi mangiandomi le unghie

Giocando all ultimo minuto

 

[Sakti]

Un ambo in terzina non è poco, calcola che è tutto guadagno, il bicchiere
è sempre pieno, mezzo di qualsiasi cosa Tu voglia e mezzo d'aria...
Complimenti..

 

[genios]

Si sono aperti cicli di alta frequenza nelle decine

BA DECINA 71 80

CA DECINA 11 20

PA DECINA 11 20



nelle prossime 12 estrazioni avremmo ambi specialmente nella ruota di BA .

CIAO EUGENIO

 

[Missione Impossibile.]

Vedi l'allegato 2279078Vedi l'allegato 2279079

 

[adeleadele]

oggi 13 in 5 b c naz

inserito venezia

 

[Missione Impossibile.]

Penso credo verifico anzi forse... GE/MI ambata secca 90 convergenze entro 6 colpi?

 

[genios]

Missione impossibile ma è stato prubblicato lo script che ricerca le decine dalla spai ?

Ciao Eugenio

 

[Missione Impossibile.]

Missione impossibile ma è stato prubblicato lo script che ricerca le decine dalla spai ?

Ciao Eugenio

Si, si trova in qualche post leggi dall 'inizio

 

[KEN]

Milano 2x1 9 70 7colpi

 

[genios]

Si, si trova in qualche post leggi dall 'inizio

nei meandri di questo post non sono riuscito a trovarlopotresti ripostarlo Missione Impossibile .

Ciao Eugenio

 

[KEN]

nei meandri di questo post non sono riuscito a trovarlopotresti ripostarlo Missione Impossibile .

Ciao Eugenio

Vai nelle prime 2 pagine

 

[Missione Impossibile.]

nei meandri di questo post non sono riuscito a trovarlopotresti ripostarlo Missione Impossibile .

Ciao Eugenio

Sub Main()
Dim ru(3)
Dim terni(4005,13)
Dim nn(3)
Dim spia(1)
r = InputBox("Ruota della spia....(1-10)",,2)
rr = InputBox("Ruota di gioco....(1-10)",,r)
sp = CInt(InputBox("Numero Spia",,77))
'ee = InputBox("Estrazioni da controllare",,200)
c = InputBox("Numero colpi di gioco",,18)
sorte = CInt(InputBox("Quale sorte vuoi considerare...","1,2,3",1))
'------- titoli tabella ---------------------
ReDim atitoli(11)
atitoli(1) = " Casi "
atitoli(2) = " Numeri "
atitoli(3) = " Presenze "
atitoli(4) = " esito % "
atitoli(5) = " ret_estratti fin-colpi "
atitoli(6) = " colpo "
atitoli(7) = " Data esito ultimo "
atitoli(8) = " Ritardo serie "
atitoli(9) = " Presenza serie "
atitoli(10) = " Rit. Max "
atitoli(11) = "Pres ambate singole e in Posizioni"
Call InitTabella(atitoli,1,,3,5)
For i = 1 To 4005
terni(i,1) = 0
terni(i,2) = 0
terni(i,3) = 0
terni(i,4) = 0
terni(i,5) = 0
terni(i,6) = 0
terni(i,7) = 0
terni(i,8) = 0
terni(i,9) = 0
terni(i,10) = 0
terni(i,11) = 0
terni(i,12) = 0
terni(i,13) = 0
Next
casi = 0
co = 0
ini = 8950'EstrazioneFin - ee
fin = EstrazioneFin
For es = ini To fin
Messaggio "casi trovati....... " & casi & " ****** Script by Mike58 ****** "
AvanzamentoElab ini,fin,es
If Posizione(es,r,sp) > 0 Then
spia(1) = sp
rsp = SerieRitardoTurbo(Ini,fin,spia,ru,1)
Inco = fin - es
clp = fin - es
casi = casi + 1
Tot = fin - Ini
ess = es + c
If ess > fin Then ess = fin End If
co = 0
For x = 1 To 89
For y = x + 1 To 90
co = co + 1
If DecinaNaturale(x) = DecinaNaturale And DecinaNaturale(x) = DecinaNaturale(sp) Then
terni(co,1) = co
terni(co,2) = x
terni(co,3) = y

nn(1) = x
nn(2) = y
ru(1) = rr
presenze = SerieFreqTurbo(es + 1,ess,nn,ru,1)
If presenze > 0 Then 'condizione da non eliminare perch'e se capitano + terni(es. 10..eccediamo)
'nello stesso caso in analisi, il resoconto finale viene falsato da tutti questi errori.
terni(co,5) = terni(co,5) + 1
cef = fin - rsp + 1' inizio estrazione di verifica
clp = c - rsp
Call VerificaEsitoTurbo(nn,ru,fin - rsp + 1,sorte,rsp,,resito,retcolpi,retestratti,idd)
'End If
Call StatisticaFormazioneTurbo(nn,ru,sorte,rerit,reritmax,Incrmax,refre,Ini,fin)
ef1 = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin)
ef2 = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin)
ReDim eff1(5)
ReDim eff2(5)
For x1 = 1 To 5
ReDim aPos(x1)
aPos(x1) = True
eff1(x1) = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin,,,aPos)
eff2(x1) = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin,,,aPos)
Next
'sr = SerieRitardoTurbo(Ini,fin,nn,ru,sorte)
'fr = SerieFreqTurbo(Ini,fin,nn,ru,sorte)
terni(co,6) = terni(co,5) / casi *100
terni(co,7) = retestratti
terni(co,8) = retcolpi
terni(co,10) = rerit
terni(co,11) = refre
terni(co,12) = reritmax
terni(co,13) = FormatSpace(ef1,3,1) & " [ " & StringaNumeri(eff1,,1) & " ] - " & FormatSpace(ef2,3,1) & " [ " & StringaNumeri(eff2,,1) & " ]"
'If DataEstrazione(retidestr) > DataEstrazione(fin) Then terni(co,9) = " In corso "
If resito = "" Then terni(co,9) = ""
If resito <> "" Then terni(co,9) = GetInfoEstrazione(idd)
If resito = "" Then terni(co,9) = " in corso "
End If
End If
Next
Next
End If
Next
OrdinaMatrice terni,- 1,5
ColoreTesto 1
Scrivi "spia " & CInt(sp) & " su " & NomeRuota(r) & " - Ritarda da... " & Inco,1
ColoreTesto 2
If rsp < c Then Scrivi "SPIA ATTIVA ",1:End If
If rsp > c Then Scrivi "SPIA NON ATTIVA":End If
ColoreTesto 1
Scrivi "Coppie più frequenti entro " & c & " colpi sulla a ruota di " & NomeRuota(rr) & " Per sorte di " & NomeSorte(sorte)
Scrivi "N. " & CInt(casi) & " casi " & "dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin)
Scrivi
Scrivi "Totali estrazioni esaminate.... " & Tot,1
Scrivi "Sviluppo solo coppie in decina spia " & sp,1,,,2,3
ColoreTesto 0
For x = 1 To 15
'----------- valori tabella ------------------
ReDim avalori(11)
avalori(1) = x
avalori(2) = Format2(terni(x,2)) & "." & Format2(terni(x,3))' & "." & Format2(terni(x,4))
avalori(3) = Format2(terni(x,5))
avalori(4) = Round(terni(x,6),2)
avalori(5) = terni(x,7)
avalori(6) = terni(x,8)
avalori(7) = terni(x,9)
avalori(8) = terni(x,10)
avalori(9) = terni(x,11)
avalori(10) = terni(x,12)
avalori(11) = terni(x,13)
'If casi = terni(x,5) Then
Call AddRigaTabella(avalori,,,3)
'End If
If avalori(4) = "Ambo" Then Call SetColoreCella(4,2,4)
If avalori(4) = "Estratto" Then Call SetColoreCella(4,3,0)
If avalori(8) = 0 Then Call SetColoreCella(7,4,1)
Next
Call SetTableWidth("100%")
Call CreaTabella(0,0,0,15)
Scrivi
Scrivi " ********* Tabella List by Mike58 *********** ",1,- 1,3
End Sub