CODICE
Sub main()
Dim nu1(2),nu2(2),nu3(6),ruote(2),ruota(1),posta(1),poste(2),post(5)
posta(1)=1:poste(2)=3:post(2)=1:post(3)=1:post(4)=1:post(5)=1
cep=CInt(InputBox("quante estrazioni precedenti vuoi controllare? ","contr. estr. prec.",1)) 'contr. estr. prec.
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8310)
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "divisore comune 45 di ciro vitale (script by maxma62)",1
Scrivi String(72,"="),1
Scrivi "resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)",1
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione(es,1)
For r1= 1 To 12
If r1=11 Then r1=12
For p1=1 To 4
For p2=p1+1 To 5
'If (p2=p1+1) Or (p2=5 And p1=1) Then 'per pos consec e 1/5
a=Estratto(es,r1,p1):b=Estratto(es,r1,p2)
'------------------------------------
'controllo estr. precenti
For ex= es-cep To es-1 'es-1 = da estr. preced.
For r2= 1 To 12
If r2=11 Then r2=12
If r2<>r1 Then
For p3=1 To 4
For p4=p3+1 To 5
'If (p4=p3+1) Or (p4=5 And p3=1) Then 'per pos consec e 1/5
c=Estratto(ex,r2,p3):d=Estratto(ex,r2,p4)
'------------------------------------
If (a=Diametrale(c) And b=Diametrale(d)) Or (a=Diametrale(d) And b=Diametrale(c)) Then 'x diam. ver/dia
so1=Fuori90(a+b):so2=Fuori90(c+d)
sv1=Fuori90(a+c):sv2=Fuori90(b+d)
sd1=Fuori90(a+d):sd2=Fuori90(b+c)
If so1=so2 And sv1=sv2 Then n1=so1 : n2=sv1
If sv1=sv2 And sd1=sd2 Then n1=sv1 : n2=sd1
If sd1=sd2 And so1=so2 Then n1=sd1 : n2=so1
n3=a
n4=b
n5=c
n6=d
casi=casi+1:Scrivi String(54,"=")&" script by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&_
" ] ambo [ "&Format2(a)&"."&Format2(b)&" ] in "&(p1)&"^/"&(p2)&"^ pos."
Scrivi DataEstrazione(ex,1)&" [ "&SiglaRuota(r2)&" - "&StringaEstratti(ex,r2)&_
" ] ambo [ "&Format2(c)&"."&Format2(d)&" ] in "&(p3)&"^/"&(p4)&"^ pos."
Scrivi String(72,"-")
If a=Diametrale(c) Then Scrivi "diametrali in verticale"
If a=Diametrale(d) Then Scrivi "diametrali in diagonale"
Scrivi String(60,"-")&" caso n° "&(casi)
Scrivi "ambate in gioco [ "&format2(n1)&"."&format2(n2)&" ] abb. [ "&format2(n3)&"."&_
Format2(n4)&"."&format2(n5)&"."&format2(n6)&" ]"
Scrivi String(72,"-")
ruote(1)=r1:ruote(2)=r2:cg=0
nu1(1)=n1:nu1(2)=n2
cg=cg+1
ImpostaGiocata cg,nu1,ruote,posta,k
nu2(1)=n1:nu2(2)=n2
cg=cg+1
ImpostaGiocata cg,nu2,ruote,poste,k
nu3(1)=n1:nu3(2)=n2
nu3(3)=n3:nu3(4)=n4
nu3(5)=n5:nu3(6)=n6
cg=cg+1
ImpostaGiocata cg,nu3,ruote,post,k
Gioca es
End If
'End If 'pos cons r2
Next
Next
End If
Next
Next 'estr. prec
'End If 'pos cons r1
next:Next:Next:Next
Scrivi String(54,"=")&" script by maxma62",1
ScriviResoconto
Scrivi "divisore comune 45 di ciro vitale (script by maxma62)",1
End Sub
