Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Le ultime previsioni rimaste in gioco datemi dal programma sono queste.
4926 19-06-2014 Na To 74 24 84 04 14 Att. 0004 28-06-2014
4927 21-06-2014 Ca Na 70 30 50 60 40 Att. 0003 28-06-2014
Dati agg. 28-06-2014
Ciao Enplein in base al tuo procedimento fammi questo calcolo.
24-05 -2014 = 28 38 = 1° 2°
24-05 -2014 = 18 === 1°
La previsione del programma mi dava CA FI Ambata 48
A.T. 48 08 28 38 18 se torna anche a te il tuo calcolo va bene
e va ricorretto lo script.
Ciao Enplein
altri esempi
10/06/2014 = BA ----54 = ---5°
10/06/2014 = TO 64-74 = 1° 5°
Previsione Ambata 84
A.T. 84 44 64 74 54
es.
24/05/2014 = GE ----79 = 3°
24/05/2014 = RO 89--09 = 3° 4°
Previsione
GE RO Ambata 19
A.T. 19 69 89 09 79
es. con l'Ambata + 50
BA 15/05/2014 = -----10 = 4°
MI 15/05/2014 = 90 - 80 = 4° 5°
Previsione Ambata 70
A.T. 70 20 90 80 10
==================================================================================================================================
01.07.2014 - GE - 68.38.11.58.23 ( Ambo in cadenza dist. 10 68.58 ) Terz. Ordin. 58.68.78 - Posiz. 1/4
01.07.2014 - MI - 78.42.56.40.62 ( Numero in cadenza di chiusura 78 ) Num. Manc. 48 - Posiz. 1
========================================================================================================================
Estrazione generatrice del pronostico 08867 [ 78 - 01/07/2014]
G 0001 Numeri in gioco : 48 su GE MI per Estratto
In corso per altre 13 estrazioni
G 0002 Numeri in gioco : 48.88.58.68.78 su GE MI per Ambo,Terno
In corso per altre 13 estrazioni
Sub Main()
Dim nu(2),ru(2),amb(1),lg(5),nr(4),poste(3),posta(1)
poste(2) = 9
poste(3) = 1
posta(1) = 1
quante = CInt(InputBox("Quante estrazioni vuoi analizzare","Quante estrazioni",100))
esPr = CInt(InputBox("QUANTE ESTRAZIONI PRECEDENTI RICERCO NUMERO RETROATTIVO",,0))
Ini = EstrazioneFin - quante
fin = EstrazioneFin
colpi = 13
Scrivi "Metodo La Distanza 10 by alfe & Savlomba *** forum-lottoced *** Richiesta Jure **** ",1,0
Scrivi" Ricerca ambo in cadenza ",0,0
ColoreTesto 2
Scrivi " Listed by Enplein ",1
ColoreTesto 0
For es = Ini To fin
Messaggio "Estrazioni esaminate " & es & " ---> script by Enplein"
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 10
For p = 1 To 4
For pp = p + 1 To 5
e1 = Estratto(es,r1,p)
e2 = Estratto(es,r1,pp)
df = Differenza(e1,e2)
If df = 10 Or df = 80 Then
nu(1) = e1 : nu(2) = e2
OrdinaMatrice nu,1
If df = 10 Then
a = nu(1) : b = nu(2)
End If
If df = 80 Then
a = nu(2) : b = nu(1)
End If
c1 = Fuori90((a + 90) - 10) : c2 = Fuori90(b + 10)
For r2 = 1 To 10
ok = 0 : g = 0
For x = 0 To esPr
ex = es - x
po1 = Posizione(ex,r2,c1) : po2 = Posizione(ex,r2,c2)
If(po1 > 0 Or po2 > 0) And(po1 = p Or po1 = pp Or po2 = p Or po2 = pp) Then
If po1 > 0 Then
g = g + 1 : nr(1) = c1 : nr(2) = a : nr(3) = b : nr(4) = c2 : c = c1 : nc = c2 : e = Fuori90((nr(1) + 90) - 10) : q = po1
End If
If po2 > 0 Then
g = g + 1 : nr(1) = a : nr(2) = b : nr(3) = c2 : nr(4) = c1 : c = c2 : nc = c1 : e = Fuori90(nr(3) + 10): q = po2
End If
ok = 1 : ee = ex
If ok = 1 Then Exit For
End If
Next
If g = 1 Then
If(q = p And Distanza(e1,c) = 10) Or (q = pp And Distanza(e2,c) = 10) Then
amb(1) = nc
lg(1) = amb(1):lg(2) = e:lg(3) = a:lg(4) = b:lg(5) = c
ru(1) = r1 : ru(2) = r2
co = co + 1
Scrivi String(130,"=")
ColoreTesto 1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1,0
ColoreTesto 7
Scrivi " ( Ambo in cadenza dist. 10 " & Format2(e1) & "." & Format2(e2) & " )",1,0
ColoreTesto 1
Scrivi" Terz. Ordin. " & Format2(nr(1)) & "." & Format2(nr(2)) & "." & Format2(nr(3)) & " - Posiz. " & p & "/" & pp,1
Scrivi DataEstrazione(ee) & " - " & SiglaRuota(r2) & " - " & StringaEstratti(ee,r2),1,0
ColoreTesto 7
Scrivi " ( Numero in cadenza di chiusura " & Format2(c) & " )" & " Num. Manc. " & Format2(nc),1,0
ColoreTesto 1
Scrivi" - Posiz. " & q,1
ColoreTesto 0
Scrivi String(120,"=") & " Caso n° " & co
DisegnaCerchioCiclometrico nr,True
ImpostaGiocata 1,amb,ru,posta,colpi,1
ImpostaGiocata 2,lg,ru,poste,colpi,2
Gioca es,,,1
End If
End If
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
Graze prof.....si sono trapezi...aspettiamo Jure per le ultime considerazioni.
Nel ringraziarti di nuovo per il programma Spaziometria e per i continui contributi
ed aggiornamenti, Saluto.
Con stima, Enplein.