Codice:
Sub main()
Dim n(2),nm(2),est(7),nr(5)
Dim amb(1)
Dim ruote(10)
Dim ruota(10)
Dim posta(1)
Dim poste(2)
Dim poste1(2)
Dim f(4)
posta(1)=1
nc=12 'Numero di colpi per Ambata
nb=12'Numero colpi per gli ambi
t=0 'Contatore per il numero di giocate
tst=" ********** "
tst1="LA DISTANZA 18"
spc1=(90-Len(tst+tst1+tst))/2
tst2="IN DIAGONALE"
spc2=(90-Len(tst+tst2+tst))/2
Scrivi Space(spc1)&tst&tst1&tst& Chr(10),1
Scrivi Space(spc2)&tst&tst2&tst& Chr(10),1
ColoreTesto 2 : Scrivi Space((90-Len("FRANCO MONGILLO"))/2)&"FRANCO MONGILLO"& Chr(10),1
ColoreTesto 1 : Scrivi String(65,"*")&"listato da Franco Florindi"& Chr(10),1
ColoreTesto 0
rs=InputBox("Quante estrazioni vuoi controllare?",,100)
ini= EstrazioneFin -rs
fin= EstrazioneFin
'--------------------------------------------------------------------------------
Scrivi
Scrivi String(40," ")&"****** Rendiconto ****** ",1
Scrivi String(40," ")& DataEstrazione(ini)&" - "& DataEstrazione(fin)
Scrivi
'--------------------------------------------------------------------------------
stp=InputBox("VUOI INTERROMPERE LE GIOCATE AL 1° ESITO POSITIVO ???"&_
Chr(13)&Chr(13)& "SI = 1" &Chr(13)& "NO = 0",,1)
For es=ini To fin
AvanzamentoElab ini,fin,es
Messaggio (es)
For r=1 To 9 : For p=1 To 4 :For pp=p+1 To 5
a=Estratto (es,r,p) : b=Estratto (es,r,pp)
f(1)=Figura(a) : f(2)=Figura(b)
d1=Distanza(f(1),f(2))
If d1=3 Or d1=6 Then
For rr=r+1 To 12 : For q=1 To 4 : For qq=q+1 To 5
c=Estratto (es,rr,q) : d=Estratto (es,rr,qq)
f(3)=Figura(c) : f(4)=Figura(d)
d2=Distanza(f(3),f(4))
If d2=3 Or d2=6 Then
dd1=Distanza(a,d)
dd2=Distanza(b,c)
If dd1=18 And dd2=18 Then
'Quadratura somme
so1=Fuori90(a+b)
so2=Fuori90(c+d)
sv1=Fuori90(a+c)
sv2=Fuori90(b+d)
sd1=Fuori90(a+d)
sd2=Fuori90(b+c)
s1=Fuori90(so1+so2)
s2=Fuori90(sv1+sv2)
If s1=s2 Then
'Quadratura differenze
do1=Abs (a-b)
do2=Abs (c-d)
dv1=Abs (a-c)
dv2=Abs (b-d)
If do1=do2 Or dv1=dv2 Then
If do1=do2 Then nr(1)=Fuori90(do1*2) : nr(2)=dv1 : nr(3)=dv2 : nr(4)=Fuori90(dv1*2) : nr(5)=Fuori90(dv2*2)
If dv1=dv2 Then nr(1)=Fuori90(dv1*2) : nr(2)=do1 : nr(3)=do2 : nr(4)=Fuori90(do1*2) : nr(5)=Fuori90(do2*2)
amb(1)=Diametrale(s1)
ruote(1)=r
ruote(2)=rr
ruota(1)=11
co=1
ce=0
t=t+1
'Controlla ed elimina la previsione con la presenza dell'ambata o dell'elemento somma.
n(1)=amb(1) : n(2)=s1
sf=SerieFreq(es,es,n,ruote,1)
If sf=0 Then
ColoreTesto 1
Scrivi String(119,"-")& Chr(10)& DataEstrazione(es,1)&" "&Left(NomeRuota(r),2)&" "&_
Format2(a)&" "& Format2(b)&" Dist. Diag." & Format2(dd1)&" Quadr.Somme So1: "&_
Format2(so1)&" Sv1: "& Format2(sv1)&" Sd1: "& Format2(sd1)&" S1: "& Format2(s1)&" Quadr.Diff. Dfo1: "&_
Format2(do1)&" Dfv1: "& Format2(dv1)& Chr(10)&_
DataEstrazione(es,1)&" "&Left(NomeRuota(rr),3)&" "& Format2(c)&" "&_
Format2(d)&" Dist. Diag." & Format2(dd2)& Space(14)&"So2: "& Format2(so2)&_
" Sv2: "& Format2(sv2)&" Sd2: "& Format2(sd2)&" S2: "& Format2(s2)& Space(14)&"Dfo2: "& Format2(do2)&_
" Dfv2: "& Format2(dv2)& Chr(10)&_
String(110,"-")&"Giocata n°"& Format2(t)
ColoreTesto 0
ImpostaGiocata co,amb,ruote,posta,nc,1
For x=1 To 1
nm(1)=amb(x)
For y=1 To 5
co=co+1
nm(2)=nr(y)
poste(2)=1
ImpostaGiocata co,nm,ruote,poste,nb,2
Next
Next
For x=1 To 1
nm(1)=amb(x)
For y=1 To 1
co=co+1
nm(2)=nr(y)
poste1(2)=2
ImpostaGiocata co,nm,ruota,poste1,nb,2
Next
Next
If stp=1 Then
For j=2 To 7
For z=1 To 7
ImpostaInterruzioni z,1,1
ImpostaInterruzioni z,j,2
Next
Next
End If
If es>(fin-nc) Then
Gioca es,,True
Else
Gioca es,True,True
End If
ce=0
For j=1 To 7
If Esito(j)=True Then est(j)=est(j)+1:ce=ce+1
Next
ColoreTesto 2
If ce=0 And es<(fin-nc) Then
Scrivi String(49," ")&"ESITO NEGATIVO al "& DataEstrazione(es+nc)
End If
If ce=0 And es>(fin-nc) Then
Scrivi String(49," ")&"Giocata in corso"
Scrivi
End If
ColoreTesto 0
Scrivi
End If
End If
End If
End If
End If
Next : Next : Next
End If : Next : Next : Next : Next
ScriviResoconto 1
ScriviRes
