Richiesta

===========================================================================
gio 12.05.2011 [ Ba - 57.85.64.05.77 ] [ 05.77 in 4/5 ^ pos ] Ds 18|Fg 5.5
gio 12.05.2011 [ Ve - 32.42.74.40.22 ] [ 40.22 in 4/5 ^ pos ] Ds 18|Fg 4.4
---------------------------------------------------------------------------
La Distanza uguale è: 18 | La somma delle figure è:(5+5+4+4) = 18
Ambata 27
---------------------------------------------------------------- caso n° 1
===========================================================================
mar 24.05.2011 [ Fi - 31.17.45.70.69 ] [ 45.70 in 3/4 ^ pos ] Ds 25|Fg 9.7
mar 24.05.2011 [ Mi - 52.78.62.37.09 ] [ 62.37 in 3/4 ^ pos ] Ds 25|Fg 8.1
---------------------------------------------------------------------------
La Distanza uguale è: 25 | La somma delle figure è:(9+7+8+1) = 25
Ambata 17
---------------------------------------------------------------- caso n° 2
===========================================================================
gio 26.05.2011 [ Mi - 45.21.01.14.82 ] [ 21.01 in 2/3 ^ pos ] Ds 20|Fg 3.1
gio 26.05.2011 [ Na - 20.61.81.72.22 ] [ 61.81 in 2/3 ^ pos ] Ds 20|Fg 7.9
---------------------------------------------------------------------------
La Distanza uguale è: 20 | La somma delle figure è:(3+1+7+9) = 20
Ambata 82
---------------------------------------------------------------- caso n° 3
===========================================================================
gio 09.06.2011 [ Fi - 49.37.53.62.01 ] [ 49.37 in 1/2 ^ pos ] Ds 12|Fg 4.1
gio 09.06.2011 [ Ve - 32.20.05.77.10 ] [ 32.20 in 1/2 ^ pos ] Ds 12|Fg 5.2
---------------------------------------------------------------------------
La Distanza uguale è: 12 | La somma delle figure è:(4+1+5+2) = 12
Ambata 69
---------------------------------------------------------------- caso n° 4
===========================================================================
mar 14.06.2011 [ Ro - 19.24.16.39.62 ] [ 16.39 in 3/4 ^ pos ] Ds 23|Fg 7.3
mar 14.06.2011 [ Ve - 86.64.58.81.76 ] [ 58.81 in 3/4 ^ pos ] Ds 23|Fg 4.9
---------------------------------------------------------------------------
La Distanza uguale è: 23 | La somma delle figure è:(7+3+4+9) = 23
Ambata 7
---------------------------------------------------------------- caso n° 5
===========================================================================
gio 07.07.2011 [ Mi - 86.32.16.05.40 ] [ 32.16 in 2/3 ^ pos ] Ds 16|Fg 5.7
gio 07.07.2011 [ Ve - 28.75.01.57.69 ] [ 75.01 in 2/3 ^ pos ] Ds 16|Fg 3.1
---------------------------------------------------------------------------
La Distanza uguale è: 16 | La somma delle figure è:(5+7+3+1) = 16
Ambata 17
---------------------------------------------------------------- caso n° 6
===========================================================================
mar 12.07.2011 [ Ca - 33.43.61.41.75 ] [ 61.41 in 3/4 ^ pos ] Ds 20|Fg 7.5
mar 12.07.2011 [ Mi - 40.25.14.84.60 ] [ 14.84 in 3/4 ^ pos ] Ds 20|Fg 5.3
---------------------------------------------------------------------------
La Distanza uguale è: 20 | La somma delle figure è:(7+5+5+3) = 20
Ambata 55
---------------------------------------------------------------- caso n° 7
===========================================================================
mar 12.07.2011 [ Ca - 33.43.61.41.75 ] [ 61.41 in 3/4 ^ pos ] Ds 20|Fg 7.5
mar 12.07.2011 [ Ro - 66.03.32.12.43 ] [ 32.12 in 3/4 ^ pos ] Ds 20|Fg 5.3
---------------------------------------------------------------------------
La Distanza uguale è: 20 | La somma delle figure è:(7+5+5+3) = 20
Ambata 73
---------------------------------------------------------------- caso n° 8

'Forum Superlotto || 29.08.2011
'Morenish M
Sub main()
Dim ruota(2),posta(5)
Dim nu(5)
posta(1)=1 :posta(2)=0

ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",100))
clp=CInt(InputBox("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",9))

casi=0
fin=EstrazioneFin
ini=fin-ee
For es=ini To fin
  Messaggio "elab. n° "&es&" del "&dataestrazione(es)&" [ by Genlotto ]"
 For r1=1 To 9
   For r2=r1+1 To 10
      For p1=1 To 4 :p2=p1+1
        a=Estratto(es,r1,p1) :b=Estratto(es,r1,p2)
        ds1=Distanza(a,b) :f1=Figura(a) :f2=Figura(b)
        c=Estratto(es,r2,p1) :d=Estratto(es,r2,p2)
            ds2=Distanza(c,d) :f3=Figura(c) :f4=Figura(d)
          smf=(f1+f2+f3+f4)
          If ds1=ds2 And smf=ds1 Then
            s1=Fuori90(a+b) :s2=Fuori90(c+d) :s3=Fuori90(a+c)
            s4=Fuori90(b+d) :s5=Fuori90(a+d) :s6=Fuori90(b+c)
            If s1=s2 Then ok=s1
            If s3=s4 Then ok=s3
            If s5=s6 Then ok=s5
            nu(1)=ok
          casi=casi+1:Scrivi String(75,"="),1
          Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&_
          " ] [ "&Format2(a)&"."&Format2(b)&" in "&p1&"/"&p2&" ^ pos ] Ds "&ds1&"|Fg "&f1&"."&f2
          Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&stringaestratti(es,r2)&_
          " ] [ "&Format2(c)&"."&Format2(d)&" in "&p1&"/"&p2&" ^ pos ] Ds "&ds2&"|Fg "&f3&"."&f4
          Scrivi String(75,"-")
ColoreTesto 2 :Scrivi "La Distanza uguale è: "&ds1,1,0 :ColoreTesto 0
ColoreTesto 1 :Scrivi " | La somma delle figure è:("&f1&"+"&f2&"+"&f3&"+"&f4&") = "&smf,1 :ColoreTesto 0
Scrivi "Ambata "&nu(1)
          Scrivi String(64,"-")&" caso n° "&(casi)
'------------------------------------
ruota(1)=r1 :ruota(2)=r2
ImpostaGiocata 1,nu,ruota,posta,clp
Gioca es

             End If
               Next
        Next
     Next
Next
ScriviResoconto
End Sub