CODICE
Sub main()
Dim nu1(3),nu2(2),nu3(3),ruote(2),ruota(1)
Dim posta(1),poste(2),post(3)
posta(1)=5:poste(2)=5:post(2)=4:post(3)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8200)
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "lotto facile 1 di o_manara (script by maxma62)",1
Scrivi String(76,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione (es,1)
For r1=1 To 9
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto (es,r1,p1)
b=Estratto (es,r1,p2)
a1=Fuori90(a+b)
For r2=r1+1 To 10
If Distanza(r2,r1)=5 Or r2=r1+1 Or r2=r1-11 Then 'lasciare per solo diametr. consec e gemm
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto(es,r2,p3)
d=Estratto(es,r2,p4)
If p3=p1 And p4=p2 Then 'ambi isotopi
a2=Fuori90(c+d)
If (a1)=(a2) Then
n1=Abs(a-d) 'diff matem diag
n2=Abs(b-c) 'diff matem diag
n3=Abs(a-c) 'diff matem vert
n4=Abs(b-d) 'diff matem vert
If n1=n2 And n3=n4 Then 'se le diff sono uguali
n5=Abs(n2-n4)
n6=Fuori90(a2+n5) 'ambata
n7=90-a2 '1^ abb
If n7=0 Then n7=90
n8=Vert(n7) '2^ abb
casi=casi+1:Scrivi String(58,"=")&" script by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "&StringaEstratti(es,r1)&_
" ] ambo somma [ " & Format2(a) &"."& Format2 (b)&" ] "&(p1)&"^/"&(p2)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)&" - "&StringaEstratti(es,r2)&_
" ] ambo somma [ "& Format2 (c) &"."& Format2 (d)&" ] "&(p3)&"^/"&(p4)&"^ pos."
ColoreTesto 0:Scrivi String(64,"-")&" caso n° "&casi
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:co=0
nu1(1)=n6
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k,1
nu2(1)=n6:nu2(2)=n7
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu2(2)=n8
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu3(1)=n6:nu3(2)=n7:nu3(3)=n8
co=co+1
ImpostaGiocata co,nu3,ruote,post,k
co=co+1
ImpostaGiocata co,nu3,ruota,post,k
Gioca es
End If
End If
End If 'ambi isotopi
Next:Next
End If 'lasciare per solo diametr. e consec
Next:Next:Next:Next:Next
Scrivi String(58,"=")&" script by maxma62",1
ScriviResoconto
ColoreTesto 1:scrivi "lotto facile 1 di o_manara (script by maxma62)",1
End Sub
