CODICE
Sub main()
Dim numeri1(2),numeri2(2),numeri3(3),numeri4(4)
Dim ruote(2),ruot(1)
Dim posta(1),poste(2),post(3),pos(4)
posta(1)=5:poste(2)=2
post(2)=2.5:post(3)=0.5
pos(2)=4.4:pos(3)=0.4:pos(4)=0.2
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8080)
k=InputBox ("Per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "lotto facile 2 di o_manara (script by maxma62)",1
Scrivi String(76,"=")
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)
dis1=Distanza(a,b)
If dis1=45 Then
For r2=r1+1 To 10 'solo ruote cons / diam / simm (gemm)
If r2<>r1 And Distanza(r2,r1)=5 Or r2=r1+1 Or r2=11-r1 Then 'solo ruote cons / diam / simm (gemm)
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto(es,r2,p3):d=Estratto(es,r2,p4)
dis2=Distanza(c,d)
'If p1=p3 And p2=p4 Then 'isotopi
If dis2=45 Then
s1=Fuori90(a+b) 'somma in orr
s2=Fuori90(c+d) 'somma in orr
n3=Fuori90(s1+s2)'numero base 2^ bb
n4=Diametrale(n3)'ambata
d1=Fuori90(90+(a-c)) 'diff in vert 1^ abb
d2=Fuori90(90+(b-d)) 'diff in vert 1^ abb
If d1=d2 Then
n5=d '3^ abb
casi=casi+1:Scrivi String(58,"=")&" script by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "&StringaEstratti(es,r1)&_
" ] [ "&Format2(a)&"."&Format2(b)&" ] in "&(p1)&"^/"&(p2)&"^ pos. dist. "&(dis1)
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)&" - "&StringaEstratti(es,r2)&_
" ] [ "&Format2(c)&"."&Format2(d)&" ] in "&(p3)&"^/"&(p4)&"^ pos. dist. "&(dis2)
Scrivi String(64,"-")&" caso n° "&(casi)
Scrivi "somma orr. [ "&Format2(a)&"."&Format2(b)&" ] = "&(s1)
Scrivi "somma orr. [ "&Format2(c)&"."&Format2(d)&" ] = "&(s2)
Scrivi "dist. vert. [ "&Format2(a)&"."&Format2(c)&" ] = "&(d1)
Scrivi "dist. vert. [ "&Format2(b)&"."&Format2(d)&" ] = "&(d2)
Scrivi "numero base (somme orrizz.) = "&format2(n3)
Scrivi "diametr. numero base = "&format2(n4)&" ambata"
Scrivi String(76,"-")
ruote(1)=r1:ruote(2)=r2:ruot(1)=11:co=0
numeri1(1)=n4
co=co+1
ImpostaGiocata co,numeri1,ruote,posta,k,1
numeri2(1)=n4:numeri2(2)=d1
co=co+1
ImpostaGiocata co,numeri2,ruote,poste,k
numeri2(1)=n4:numeri2(2)=n3
co=co+1
ImpostaGiocata co,numeri2,ruote,poste,k
numeri2(1)=n4:numeri2(2)=n5
co=co+1
ImpostaGiocata co,numeri2,ruote,poste,k
numeri3(1)=d1
numeri3(2)=n3:numeri3(3)=n5
co=co+1
ImpostaGiocata co,numeri3,ruote,post,k
numeri4(1)=d1
numeri4(2)=n4:numeri4(3)=n3:numeri4(4)=n5
co=co+1
ImpostaGiocata co,numeri4,ruote,pos,k
co=co+1
ImpostaGiocata co,numeri4,ruot,pos,k
Gioca es
End If
End If
'End If 'isotopi
Next : Next
End If
Next
End If
Next : Next : Next : Next
Scrivi String(58,"=")&" script by maxma62",1
ScriviResoconto
Scrivi "lotto facile 2 di o_manara (script by maxma62)",1
End Sub
