Per gli scripter

[rabberto]

Ciao DjNomade grazie ancora per la tua infinita disponibilita' , ora ti faccio un esempio per farmi capire meglio :

Quadratura 84 - 23 = 17

---------- 54 - 53 = 17
-----------==---==
---------- 48 - 76
Ciauz


COSI VA BENISSIMO MANCA SOLO SE POSSIBILE LA SOMMA DIAGONALE DI :

( 84 + 53 ) = 47
( 54 + 23 ) = 77

E LA SOMMA DI ( 17 + 17 ) E ( 47 + 77 )

COSI' SAREBBE PERFETTO , ECCEZZIONALE .
SPERO MI SONO SPIEGATO BENE , GRAZIE , CIAO .

 

[DjNomade]

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

 

[rabberto]

MAMMA MIA DjNomade SEI UN FENOMENO SEI UN GRANDE E' TUTTO PERFETTO IN OGNI MINIMO PARTICOLARE , SOLO UN'ULTIMA COSA VOGLIO DIRTI :

GRAZIEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE.
GRAZIEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE.
GRAZIEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE.
GRAZIEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE.
GRAZIEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE.

CIAO.