Ricontrolla il tutto perche' ad un certo punto mi sono incartato
Ciauz
Sub main()
Dim am(1),ab(6),numeri(2),cic(4)
Dim ruote(2),posta(1),poste(2)
posta(1)=1 : poste(2)=1
Scrivi String(41,32)&"RICERCA DISTANZE UGUALI ORRIZ. O VERTIC.",1
Scrivi String(40,32)&"stessa estrazione",1
q=CInt(InputBox("QUAL' E' LA DISTANZA ORIZZONTALE O VERTICALE DA TROVARE?" &vblf&_
vblf&"Scrivi la distanza orizzontale:","•damper•",30))
quante= CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE?","•damper•",50))
For es = (EstrazioneFin - quante) To EstrazioneFin
Messaggio "Elaboro la DISTANZA "&q&" "&Space(7)&" ["&(es)&"]ª"
For r=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r,p1)
b=Estratto(es,r,p2)
d1=Distanza(a,b)'dist orrizz.
'If d1=q Then
For r1=r+1 To 12
For p3=1 To 4
For p4= p3+1 To 5
c=Estratto(es,r1,p3)
d=Estratto(es,r1,p4)
d2=Distanza(c,d)'dist orrizz.
If r1<>11 Then
dv1=Distanza(a,c) 'distanza vert
dv2=Distanza(b,d) 'distanza vert
dd1=Distanza(a,d)
dd2=Distanza(b,c)
If (dv1=q And dv2=q)Or (d2=q And d1=q) Then
cont=cont+1
Scrivi : Scrivi
ColoreTesto 2 : Scrivi String(40,32)&" Pronostico n° " &cont&"",1
ColoreTesto 0 : Scrivi
If (d2=q And d1=q) Then Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª--"&stringaestratti(es,r)&"---"&_
Left(NomeRuota(r),3)&""&Space(1)&""& Format2(a)&""&Space(1)&""& Format2(b)&_
""&Space(3)&"Dist.orrizz." & Format2(d1)&""&Space(3)&"{Pos."& Format2 (p1)&_
"-"& Format2(p2)&"}",1
If (d2=q And d1=q) Then Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª--"&stringaestratti(es,r1)&"---"&_
Left(NomeRuota(r1),3)&""&Space(1)&""& Format2(c)&""&Space(1)&""& Format2(d)&_
""&Space(3)&"Dist.orrizz." & Format2(d2)&""&Space(3)&"{Pos."& Format2 (p3)&_
"-"& Format2(p4)&"}",1
If (dv1=q And dv2=q) Then Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª--"&stringaestratti(es,r)&"---"&_
Left(NomeRuota(r),3)&""&Space(1)&""& Format2(a)&""&Space(1)&""& Format2(b)&_
""&Space(3)&"Dist.vert." & Format2(dv1)&""&Space(3)&"{Pos."& Format2 (p1)&_
"-"& Format2(p2)&"}",1
If (dv1=q And dv2=q) Then Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª--"&stringaestratti(es,r1)&"---"&_
Left(NomeRuota(r1),3)&""&Space(1)&""& Format2(c)&""&Space(1)&""& Format2(d)&_
""&Space(3)&"Dist.vert." & Format2(dv2)&""&Space(3)&"{Pos."& Format2 (p3)&_
"-"& Format2(p4)&"}",1
Scrivi String(98,164) : Scrivi
cic(1)=a:cic(2)=b:cic(3)=c:cic(4)=d
OrdinaMatrice(cic)
som1=Fuori90(cic(1)+cic(4))
som2=Fuori90(cic(2)+cic(3))
som3=Fuori90(cic(3)+cic(4))
som4=Fuori90(cic(2)+cic(1))
som5=Fuori90(cic(2)+cic(4)) 'diagon
som6=Fuori90(cic(3)+cic(1))'diagon
som7=Fuori90(som1+som2)
som8=Fuori90(som5+som6)
Scrivi "Quadratura "&Format2(cic(4))&""&Space(1)&"+ "& Format2(cic(1))&"-somma--"& Format2(som1),1
Scrivi
Scrivi "---------- "&Format2(cic(3))&""&Space(1)&"+ "& Format2(cic(2))&"-somma--"& Format2(som2),1
Scrivi" == == ",1
Scrivi "somme-vert "&Format2(som3)&""&Space(1)&"- "& Format2(som4),1
Scrivi
Scrivi "Somme-somme orriz. "&Format2(som1)&""&Space(1)&"+ "& Format2(som2)&"=== "&Format2(som7),1
Scrivi
Scrivi
Scrivi "--diagonali- "&Format2(cic(4))&""&Space(1)&"+ "& Format2(cic(2))&"---somma-- "&Format2(som5),1
Scrivi
Scrivi "--diagonali- "&Format2(cic(1))&""&Space(1)&"+ "& Format2(cic(3))&"---somma-- "&Format2(som6),1
Scrivi
Scrivi "Somme-diagon-"&Format2(som5)&""&Space(1)&"+ "& Format2(som6)&"---somma-- "&Format2(som8),1
Scrivi
Scrivi
End If
End If
Next : Next
Next
Next : Next
'Gioca es
Next : Next :
ColoreTesto 2
Scrivi Now,1
ColoreTesto 1
Scrivi "•List. base by damper modificato x rabberto da DjNomade•",1
End Sub
«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin
