Chiusura Ciclometrica

Scrivi
ColoreTesto 2
Scrivi String(38," ")&"********** CICLOMETRIA ********** ",1
Scrivi String(30," ")&"******* CHIUSURA CICLOMETRICA VINCENTE ******* ",1
ColoreTesto 0
Scrivi
Scrivi
ColoreTesto 1
Scrivi String(20,"=")&"metodo by Miraglia X Sean69_IL LOTTO DI SEAN69=========================",1
ColoreTesto 0
Sub main()
Dim n(2),nn(2),n2(5)
Dim ruote(3),ruota(2)
Dim ambata(1),ambo1(2),ambo2(2),ambo3(2),ambo4(2),lg(5)
Dim posta(1),poste(2),poste1(4)
posta(1)=1:poste(2)=1
poste1(2)=1:poste1(3)=1:poste1(4)=1
foo=InputBox("Quante estrazioni controllo?",,50)
fin=InputBox("Estrazione finale: ","chilofa",EstrazioneFin)
Scrivi
Scrivi String(35," ")&"****** RENDICONTO ****** ",1
Scrivi
Scrivi String(38," ")& DataEstrazione(ini)&" : "& DataEstrazione(fin)
ColoreTesto 1
Scrivi String(39,"=")&"listato by nonsisa===================",1
ColoreTesto 0

For es=EstrazioneFin-foo To fin
AvanzamentoElab ini,fin,es
Messaggio (es)
For r1=1 To 10

For p1= 1 To 4:For p2=p1+1 To 5
n(1)=Estratto(es,r1,p1): n(2)=Estratto(es,r1,p2)
OrdinaMatrice n
dis1=Abs (n(1)-n(2)):
For r2=r1+1 To 11
If r2=11 Then r2=12
For p3= 1 To 4:For p4=p3+1 To 5

nn(1)=Estratto(es,r2,p3): nn(2)=Estratto(es,r2,p4)
OrdinaMatrice nn
dis2=Abs (nn(1)-nn(2)):
dab1=Abs (n(1)-nn(1)):
dab2=Abs (nn(1)-n(2)):
dab3=Abs (n(2)-nn(1)):

If n(1)<>nn(1) And n(1)<>nn(2) And n(2)<>nn(1) And n(2)<>nn(2) Then

ok=0
If dis1=dis2*2 And dis1=dab1 Then ambat=Fuori90 (n(1)+dis2):ok=1
If dis1=dis2/2 And dis1=dab2 Then ambat=Fuori90 (n(2)+dis2):ok=1
If dis1=dis2 And dab3=dis1*2 Then ambat=Fuori90 (n(2)+dis1):ok=1

If ok=1 Then

n2(1)= n(1) : n2(2)= n(2):n2(3)= nn(1) : n2(4)= nn(2): n2(5)= ambat
OrdinaMatrice n2

ambata(1)=ambat
ambo1(1)=ambat: ambo1(2)=n(1)
ambo2(1)=ambat: ambo2(2)=n(2)
ambo3(1)=ambat: ambo3(2)=nn(1)
ambo4(1)=ambat: ambo4(2)=nn(2)
lg(1)=ambat: lg(2)=n(1): lg(3)=n(2): lg(4)=nn(1):lg(5)=nn(2)
'ruote(1)=r1:ruote(2)=r2:ruote(3)=11
ruota(1)=r1:ruota(2)=r2:co=0

casi=casi+1:Scrivi String(45,"=")&" script by nonsisa==========",1
Scrivi DataEstrazione(es)&" "& SiglaRuota (r1) & " " & Format2(n(1))& " " & Format2(n(2)) &" Dist. "& Format2 (dis1)& Chr (10) &_
DataEstrazione(es)&" "& SiglaRuota (r2) & " " & Format2(nn(1))& " " & Format2(nn(2)) &" Dist. "& Format2 (dis2)& Chr (10) &_
Format2 (n(1))&" ("&dis1&") "& Format2 (n(2))& Space (4) & Format2 (nn(1))&" ("& Format2 (dis2)&" ) "& nn(2)&" ("& Format2 (dis2)&") ",1
Scrivi " cinquina completa " & StringaNumeri (n2)&" numero mancante ("& Format2 (ambat)&") ",1
Scrivi String(62,"-")&" caso n°"&(casi)
co=co+1
ImpostaGiocata co,ambata,ruota,posta,14
co=co+1

ImpostaGiocata co,ambo1,ruota,poste,14
co=co+1

ImpostaGiocata co,ambo2,ruota,poste,14
co=co+1

ImpostaGiocata co,ambo3,ruota,poste,14
co=co+1

ImpostaGiocata co,ambo4,ruota,poste,14
co=co+1

ImpostaGiocata co,lg,ruota,poste1,14
Gioca es

End If
End If

Next
Next
Next

Next
Next
Next
Next
ScriviResoconto
End Sub