CODICE
Sub main()
Dim nu1(2),nu2(4),nu3(6),ruote(2),posta(1),poste(2),post(4),pos(5)
posta(1)=1:poste(2)=1
post(2)=1:post(3)=1:post(4)=1
pos(2)=1:pos(3)=1:pos(4)=1:pos(5)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8300) '7029
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "vincere con gli ambi in figura di f_mongillo (script by maxma62)",1
Scrivi String(83,"="),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)
f1=figura(a):f2=figura(b)
If f1=f2 Then
'-----------------------
n1=Fuori90(Decina(a)&cadenza(b)) 'ambata 1
n2=Fuori90(decina(b)&cadenza(a)) 'ambata 2
n3=diametrale(a)
n4=diametrale(b)
n5=Fuori90(n3+1) 'abb
n6=abs(n3-1) 'abb
n7=Fuori90(n4+1) 'abb
n8=abs(n4-1) 'abb
'-----------------------
casi=casi+1:Scrivi String(65,"=")&" script by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&" ] [ "&_
Format2(a)&"."&format2(b)&" ] figura "&(f1)&"."&(f2)&" in "&(p1)&"^/"&(p2)&"^ pos."
Scrivi String(71,"-")&" caso n° "&(casi)
ruote(1)=r1:co=0
nu1(1)=n1:nu1(2)=n2
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k,0 'ambate
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k,0 'ambo
nu2(1)=n1:nu2(2)=n4
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k,0
nu2(2)=n5
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k,0
nu2(2)=n6
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k,0
nu2(2)=n7
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k,0
nu2(2)=n8
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k,0
nu2(1)=n2:nu2(2)=n4
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k,0
nu2(2)=n5
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k,0
nu2(2)=n6
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k,0
nu2(2)=n7
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k,0
nu2(2)=n8
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k,0
nu3(1)=n1:nu3(2)=n2
nu3(3)=n5:nu3(4)=n6
nu3(5)=n7:nu3(6)=n8
co=co+1
ImpostaGiocata co,nu3,ruote,pos,k,0 'lunghetta
Gioca es
End If
Next:Next:Next:Next
Scrivi String(65,"=")&" script by maxma62",1
ScriviResoconto
Scrivi "vincere con gli ambi in figura di f_mongillo (script by maxma62)",1
End Sub