ciao Pesciolina
controlla che gli esiti siano esatti con le tue ricerche
Sub main()
Dim num(3)
Dim ruote(10)
Dim ruot(1)
Dim posta(2)
Dim poste(3)
Dim post(3)
posta(1)=1
posta(2)=1
poste(2)=0.5
poste(3)=0.5
post(2)=0.5
post(3)=0.5
tmp=InputBox("Quante estrazioni controllo?",,50)
fin=EstrazioneFin
ini=fin-tmp
ruot(1)=11'<<<<<<<<<
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
For r=1 To 9'<<<<<<<<<<
r1=r+1'<<<<<<<<<<<
For p= 1 To 5
'For p1=p+1 To 5
a=Estratto (es,r,p)
b=Estratto (es,r1,p)'<<<<<<<<<<<<
If Distanza (a,b)=30 Then 'Controlla se la coppia appartiene alla terzina simmetrica
'Calcola l'elemento mancante della terzina simmetrica
sx=(a+b)/2 :sa=Cadenza (a)
If sa=Cadenza (sx) Then c=sx Else c=Diametrale (sx)
'---------------------------------------------------------------
a1=Fuori90(a+b)
a2=Abs(90-a1)
ruote(1)=r
ruote(2)=r1'<<<<<<<<<
Scrivi DataEstrazione(es),True
Scrivi Left(NomeRuota(r),2)&" "& StringaEstratti(es,r)& " ["&Format2(a)&"]"
Scrivi Left(NomeRuota(r+1),2)&" "& StringaEstratti(es,r+1)& " ["&Format2(b)&"] Num. manc. "& Format2 (c)
num(1)=a1
num(2)=a2
num(3)= c
ImpostaGiocata 1,num,ruote,poste,12
num(1)=a1
num(2)=a2
num(3)= c
ImpostaGiocata 2,num,ruot,post,12
Gioca es
Scrivi"*****************************************"
End If
Next
Next
Next
ScriviResoconto
End Sub
buon pomeriggio
