Novità

Per gli scripter

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 .
 
Ricontrolla il tutto perche' ad un certo punto mi sono incartato :D

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
 
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.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 24 luglio 2025
    Bari
    71
    27
    87
    61
    39
    Cagliari
    69
    17
    79
    09
    04
    Firenze
    32
    13
    25
    58
    22
    Genova
    24
    41
    61
    66
    16
    Milano
    55
    59
    33
    80
    38
    Napoli
    18
    52
    32
    12
    72
    Palermo
    49
    77
    78
    90
    60
    Roma
    35
    04
    30
    02
    44
    Torino
    19
    79
    56
    77
    26
    Venezia
    82
    59
    68
    24
    21
    Nazionale
    81
    32
    19
    60
    38
    Estrazione Simbolotto
    Nazionale
    32
    07
    29
    37
    28
Indietro
Alto