CODICE
Sub main()
Dim nu1(1),nu2(2),nu3(3),nu4(4)
Dim ruote(2),ruot(2),ruo(2),ru(2)
Dim posta(1),poste(2),post(3),pos(4)
posta(1)=1
pos(2)=1
casi=0
ds=CInt(InputBox("distanza? ","distanza",30))
ce=InputBox("quante estrazioni vuoi controllare? ","controllo estrazioni",8100) '6807
k=InputBox ("Per quanti colpi?","colpi di gioco",16)
Scrivi "lotto facile 4 di o. manara (list by maxma62)",1:scrivi
ini=ce
fin=EstrazioneFin
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "& DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)":scrivi
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)
For r2=r1+1 To 10
c=Estratto(es,r2,p1)
d=Estratto(es,r2,p2)
d1=Distanza(a,b) 'dis orr
d2=Distanza(c,d) 'dis orr
d3=Distanza(a,c) 'dis vert
d4=Distanza(b,d) 'dis vert
d5=Distanza(a,d) 'dis diag
d6=Distanza(b,c) 'dis diag
If (d1=ds And d2=ds) Or (d3=ds And d4=ds) Or (d5=ds And d6=ds) Then
casi=casi+1:Scrivi String(52,"=")&" script by maxma62",1
'scrivi"lotto facile 4 di o. manara (list by maxma62)"
'Scrivi String(70,"-")
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "&StringaEstratti(es,r1)&_
" ] [ "&Format2(a)&"."&Format2(b)&" ]"
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)&" - "&StringaEstratti(es,r2)&_
" ] [ "&Format2(c)&"."&Format2(d)&" ]"
Scrivi String(58,"-")&" caso n° "&(casi)
If (d1=ds And d2=ds) Then
Scrivi "distanza in orrizontale = "&(ds)
Else If (d3=ds And d4=ds) Then
Scrivi "distanza in verticale = "&(ds)
Else If (d5=ds And d6=ds) Then
Scrivi "distanza in diagonale = "&(ds)
End if:end if:end If
Scrivi String(70,"-"),1
'ruote(1)=r1:ruote(2)=r2::ruot(1)=11:co=0
n1=Fuori90(a+b+c+d)
n2=Fuori90(n1*2)
n3=Diametrale(n2) 'ambata
n4=Fuori90 (n3+30)
n5=Fuori90 (n3+60)
Scrivi "gioca da "&DataEstrazione(es+1,1)&" su "&siglaRuota(r1)&" e "&siglaRuota(r2)
Scrivi "ambata [ "&format2(n3)&" ] abbin. [ "&format2(n2)&"."&format2(n4)&"."&format2(n5)&" ]"
'Scrivi String(58,"-")&" caso n° "&(casi)
Scrivi String(70,"-")
ruote(1)=r1:ruote(2)=r2:ruot(1)=12:ruot(2)=11:co=0
nu1(1)=n3
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k
nu2(1)=n3
nu2(2)=n4
co=co+1
ImpostaGiocata co,nu2,ruote,pos,k
nu2(1)=n3
nu2(2)=n5
co=co+1
ImpostaGiocata co,nu2,ruote,pos,k
nu2(1)=n3
nu2(2)=n2
co=co+1
ImpostaGiocata co,nu2,ruote,pos,k
nu3(1)=n2
nu3(2)=n4
nu3(3)=n5
co=co+1
ImpostaGiocata co,nu3,ruote,pos,k
nu4(1)=n3
nu4(2)=n2
nu4(3)=n4
nu4(4)=n5
co=co+1
ImpostaGiocata co,nu4,ruote,pos,k
Gioca es
End If
Next:Next:Next:Next:Next
ScriviResoconto
End Sub
