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.
volevo ringraziare lottomimmo per il bel metodo!!
grazie!!
ps.
solo una cosetta: ho visto che non si riesce a capire bene il metodo spero che lottomimmo ci illumini,
ad esempio nell ultima estrazione tra ca- fi si è formata un doppia L in cadenza 1 in mezzo c é il numero 22 (che darebbe ambata 67)
solo chiedo potrebbe funzionare nella stessa estrazione a due ruote? grazie a chi mi darà una risposta![]()
grazie per il suo capolavoro, volevo sapere se la condizione del31.10 edel 2.11 su roma e giusto per giocarla cond.... roma 56.36
roma 64.86 grazie.
Con l'estrazione di ieri si son formate anche queste previsioni,
Ambata ROSSA, e in Verdino l'abbinamento principale e quindi relative distanza 30/60
]![]()
ciao Mauro, scusandomi con lottomimmo mi permetto di inserire le ultime previsioni dal 19 ottobre in poi, sono un po' tante, ma credo che ognuno possa seguire, quelle che si ritengono convergenti con i propri numeri.Ciao 80sete , grazie per la tabella , potresti postarne lo scaricamento ?.
Buonissima giornata.
ciao Mauro, scusandomi con lottomimmo mi permetto di inserire le ultime previsioni dal 19 ottobre in poi, sono un po' tante, ma credo che ognuno possa seguire, quelle che si ritengono convergenti con i propri numeri.
scaricare il file excel da qui By Lottomimmo
ciao e buona domenica a..... chi mi legge![]()
Sub Main()
Dim num(10):Dim num1(10):Dim num2(10):Dim num3(10):Dim num4(10)
Dim ruote(10)
Dim poste(1):Dim post(2):Dim pos(4):poste(1)=1
post(2)=1:pos(2)=1:pos(3)=1:pos(4)=1
tmp=InputBox("Quante estrazioni controllo?",,50)
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
For r=1 To 12
If r=11 Then r=12
For p=1 To 4
p1=p+1
For pp=1 To 5
a=Estratto(es-1,r,p) :b=Estratto(es-1,r,p1):c=Estratto(es,r,pp)
If Distanza(a,b)=30 Or Distanza(a,c)=30 Or Distanza(b,c)=30 Then
If Cadenza(c)=Cadenza(a) Then
If Posizione(es,r,c)=Posizione(es-1,r,a)Or Posizione(es,r,c)=Posizione(es-1,r,b) Then
If Posizione(es,r,c)=Posizione(es-1,r,a) Then d=Estratto(es,r,pp+1)
If Posizione(es,r,c)=Posizione(es-1,r,b) Then d=Estratto(es,r,pp-1)
Scrivi Left(NomeRuota(r),3)&" "& StringaEstratti(es-1,r)&" ---> "&DataEstrazione(es-1),True
Scrivi Left(NomeRuota(r),3)&" "& StringaEstratti(es,r)&" ---> "&DataEstrazione(es),True
Scrivi Format2(a)&"-"&Format2(b)
Scrivi Format2(c)&"-"&Format2(d)
a1=Diametrale(d):a2=Fuori90(d+c):a3=Fuori90(a2+30):a4=Fuori90(a2+60)
Scrivi "Ambata ---> "&Format2(a1)
Scrivi "Abbinamento principale ---> "&Format2(a2)
Scrivi "Abbinamento secondari ---> "&Format2(a3)&"-"&Format2(a4)
ruote(1)=r:ruote(2)=r+5
If ruote(1)>5 Then ruote(2)=r-5
num(1)=a1
ImpostaGiocata 1,num,ruote,poste,10,1
num1(1)=a1:num1(2)=a2
ImpostaGiocata 2,num1,ruote,post,10,2
num2(1)=a1:num2(2)=a3
ImpostaGiocata 3,num2,ruote,post,10,2
num3(1)=a1:num3(2)=a4
ImpostaGiocata 4,num3,ruote,post,10,2
num4(1)=a1:num4(2)=a2:num4(3)=a3:num4(4)=a4
ImpostaGiocata 5,num4,ruote,pos,10,3
Gioca es
Scrivi"**********************************************"
End If
End If
End If
Next:Next:Next:Next
ScriviResoconto
End Sub