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.
Scusami 80Sete, c'è qualcosa che non torma nei tuoi conteggi, forse hai l'archivio sballato.Grazie Donatella anche per questo metodo.
ho fatto uno specchietto in excel, dove mi basta scrivere l'estrazione,
e i calcoli sono in automatico.
Ho provato solo questa dall'ultima di febbraio
somma delle differenze BA 52 fig. 7 ---- VE 79 fig 7
VE 52 al 2° colpo Ambata
BA 79 - 8 al 4° colpo Ambata e ambetto
Vedi l'allegato 2231251
Buon week end
' Metodo Donatella-ambata: figura-ambo somma distanze estratti e figura - su 2 ruote ( esclusa NZ) e tutte per ambo
Sub Main()
Dim n(2),n1(2),ru(1),ru1(1),rur(1),ab(1),ab1(1),ps(1),ps1(2)
ps(1)=1
ps1(2)=1
cl=20
rr=11
rur(1)=rr
For es=9867 To EstrazioneFin
co=0
If IndiceMensile(es+1)=1 Then
'If Indicemensile(es)=1 Then
For r=1 To 9
For r1=r+1 To 10
ru(1)=r
ru1(1)=r1
a=Estratto(es,r,1)
b=Estratto(es,r,2)
c=Estratto(es,r,3)
d=Estratto(es,r,4)
e=Estratto(es,r,5)
da=Distanza(a,b)
db=Distanza(b,c)
dc=Distanza(c,d)
dd=Distanza(d,e)
sd=Fuori90(da+db+dc+dd)
fsd=Figura(sd)
'------------------------------
a1=Estratto(es,r1,1)
b1=Estratto(es,r1,2)
c1=Estratto(es,r1,3)
d1=Estratto(es,r1,4)
e1=Estratto(es,r1,5)
da1=Distanza(a1,b1)
db1=Distanza(b1,c1)
dc1=Distanza(c1,d1)
dd1=Distanza(d1,e1)
sd1=Fuori90(da1+db1+dc1+dd1)
fsd1=Figura(sd1)
'------------------------------
If fsd=fsd1 Then
ru(1)=r
ru1(1)=r1
ab(1)=sd
n(1)=sd
n(2)=fsd
ab1(1)=sd1
n1(1)=sd1
n1(2)=fsd1
co=co+1
If co>1 And r1=r-1 Then
ImpostaGiocata 1,ab,ru,ps,cl,1
ImpostaGiocata 2,n,ru,ps1,cl,2
ImpostaGiocata 3,ab1,ru1,ps,cl,1
ImpostaGiocata 4,n1,ru1,ps1,cl,2
ImpostaGiocata 5,n,rur,ps1,cl,2
ImpostaGiocata 6,n1,rur,ps1,cl,2
Else
If co>0 And co<2 Then
ImpostaGiocata 1,ab,ru,ps,cl,1
ImpostaGiocata 2,n,ru,ps1,cl,2
ImpostaGiocata 3,ab1,ru1,ps,cl,1
ImpostaGiocata 4,n1,ru1,ps1,cl,2
ImpostaGiocata 5,n,rur,ps1,cl,2
ImpostaGiocata 6,n1,rur,ps1,cl,2
Gioca es
End If
End If
End If
Next
Next
End If
Next
ScriviResoconto
End SubBuongiorno Donatella,
' Metodo Donatella-ambata: figura-ambo somma distanze estratti e figura - su 2 ruote ( esclusa NZ) e tutte per ambo
Sub Main()
Dim num(10),ruota(12),ambata(1),posta(1)
Dim a,b,c,d,e,f,g,h,i,l,m,n,o,p,q,r,s,t,u,v,z,w,y,j,k,x
Dim somma
Dim colpi
posta(1) = 1
colpi = 0
'rv = InputBox("Quale numero vuoi controllare?",,0)
rs = InputBox("Quante estrazioni vuoi controllare?",,0)
colpi = 0
For es = EstrazioneFin - rs To EstrazioneFin
AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
For r = 1 To 12
For rx = rv To rv
If r = 11 Then r = 12 End If
a = Estratto(es,r,1)
b = Estratto(es,r,2)
c = Estratto(es,r,3)
d = Estratto(es,r,4)
e = Estratto(es,r,5)
num(1) = Distanza(a,b)
num(2) = Distanza(b,c)
num(3) = Distanza(c,d)
num(4) = Distanza(d,e)
somma = Fuori90(num(1) + num(2) + num(3) + num(4))
x = somma
'-------------------------------------------------
'If rx = somma Then
ruota(1) = r
ambata(1) = somma
ReDim MatriceCaselleDaEvid(5,1)
' Primo elemento
MatriceCaselleDaEvid(1,0) = r ' ruota di bari
MatriceCaselleDaEvid(1,1) = 1 ' primo estratto
' secondo elemento
MatriceCaselleDaEvid(2,0) = r ' ruota di bari
MatriceCaselleDaEvid(2,1) = 2 ' secondo estratto
' terzo elemento
MatriceCaselleDaEvid(3,0) = r ' ruota di bari
MatriceCaselleDaEvid(3,1) = 3 ' terzo estratto
' quarto elemento
MatriceCaselleDaEvid(4,0) = r ' ruota di bari
MatriceCaselleDaEvid(4,1) = 4 ' quarto estratto
' quarto elemento
MatriceCaselleDaEvid(5,0) = r ' ruota di bari
MatriceCaselleDaEvid(5,1) = 5 ' quinto estratto
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
Scrivi StringaNumeri(num),0,1,7,4,3
Scrivi
Scrivi("" & Format2(x) & "") & "",0,1,4,7,8
Scrivi
ImpostaGiocata 1,ambata,ruota,posta,colpi,0
Gioca es,1,,1
Scrivi
'End If
Next
Next
Next
End Sub
Ciao LOTTO2021 : la differenza si intende quella ciclometrica ( o distanza )
