L'AmmazzaCaffè

BaffoBlù · 14 Giugno 2024

Marco-elle ha scritto:
Immaginavo! in effetti dovrebbe essere il 3° di FI
questo listato mi ha reso del tutto scemo!
e vedrai che....vengono a rilievo più esiti

ok, modifica fatta,

adesso dovrebbe essere coerente con le tue idee

Codice:

Option Explicit
Sub Main()
   ColoreTesto 2
   Scrivi " CHI VUOL ESSERE MILIONARIO "
   Scrivi " CON L'AMBO [15-76] Ispirato by BaffoBlù "
   Scrivi " STRONZATE NUMERICHE  BY Marco * Revisione Script by BaffoBlù"
   ColoreTesto 0
   Dim r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r12
   Dim clp,Ini,fin,co,ok,es,p1,p2
   Dim a,b,c,d,e,f,g,h,i,l,m,n,o,p,q,r,s,t,u,v,z,j,x1,x2,ra
   Dim posta(5)
   Dim ruota(1)
   Dim n1(5)
   Dim n2(5)
   posta(2) = 1
   posta(3) = 1
   posta(4) = 1
   posta(5) = 1
   clp = 15
   Ini = 173
   fin = EstrazioneFin
   co = 0
   ResetTimer
   For es = Ini To fin
      Messaggio "Spunta la Luna dal Monte... [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,fin,es)
      ok = 0
      For r1 = 1 To 1
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r1,p2)
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  n1(1) = Fuori90((Diametrale(Estratto(es,6,1)) + Estratto(es,7,4) + 14))
                  n1(2) = Fuori90((Figura(Estratto(es,8,1)) + Estratto(es,6,4) + 9))
                  n1(3) = Fuori90((Diametrale(Estratto(es,5,2)) + Estratto(es,7,4) + 50))
                  n1(4) = Fuori90((Cadenza(Estratto(es,4,1)) + Estratto(es,5,2) + 1))
                  n1(5) = Fuori90((Diametrale(Estratto(es,2,3)) + Estratto(es,5,4) + 3))
                  n2(1) = Fuori90(Estratto(es,4,4) + Estratto(es,10,5) + 29)
                  n2(2) = Fuori90((Diametrale(Estratto(es,7,2)) + Estratto(es,9,3) + 50))
                  n2(3) = Fuori90((Diametrale(Estratto(es,7,3)) + Estratto(es,4,4) + 27))
                  n2(4) = Fuori90((Decina(Estratto(es,2,4)) + Estratto(es,8,3) + 88))
                  n2(5) = Fuori90((DiametraleD(Estratto(es,7,3)) + Estratto(es,1,2) + 58))
                  ImpostaGiocata 1,n1,ruota,posta,clp
                  ImpostaGiocata 2,n2,ruota,posta,clp
                  ruota(1) = 1
                  x1 = a
                  x2 = b
                  ra = r1
                  ok = 1
               End If
            Next
         Next
      Next
      For r2 = 2 To 2
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               c = Estratto(es,r2,p1)
               d = Estratto(es,r2,p2)
               If c = 15 And d = 76 Or c = 76 And d = 15 Then
                  n1(1) = Fuori90((ComplAdX(Estratto(es,1,4)) + Estratto(es,5,2) + 77))
                  n1(2) = Fuori90((Decina(Estratto(es,2,3)) + Estratto(es,1,1) + 13))
                  n1(3) = Fuori90((DiametraleD(Estratto(es,2,4)) + Estratto(es,7,3) + 17))
                  n1(4) = Fuori90((Decina(Estratto(es,8,3)) + Estratto(es,5,5) + 3))
                  n1(5) = Fuori90((Vert(Estratto(es,2,3)) + Estratto(es,1,5) + 2))
                  n2(1) = Fuori90((ComplAdX(Estratto(es,4,2)) + Estratto(es,7,3) + 77))
                  n2(2) = Fuori90((Vert(Estratto(es,6,2)) + Estratto(es,4,1) + 16))
                  n2(3) = Fuori90((ComplAdX(Estratto(es,1,4)) + Estratto(es,3,2) + 6))
                  n2(4) = Fuori90(Estratto(es,9,1) + Estratto(es,6,3) + 15)
                  n2(5) = Fuori90((Cadenza(Estratto(es,5,4)) + Estratto(es,2,3) + 2))
                  ImpostaGiocata 1,n1,ruota,posta,clp
                  ImpostaGiocata 2,n2,ruota,posta,clp
                  ruota(1) = 1
                  x1 = c
                  x2 = d
                  ra = r2
                  ok = 1
               End If
            Next
         Next
      Next
      For r3 = 3 To 3
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               e = Estratto(es,r3,p1)
               f = Estratto(es,r3,p2)
               If e = 15 And e = 76 Or e = 76 And f = 15 Then
                  n1(1) = Fuori90((Vert(Estratto(es,9,1)) + Estratto(es,3,2) + 6))
                  n1(2) = Fuori90((Decina(Estratto(es,9,1)) + Estratto(es,8,4) + 7))
                  n1(3) = Fuori90((DiametraleD(Estratto(es,2,2)) + Estratto(es,7,5) + 14))
                  n1(4) = Fuori90((Diametrale(Estratto(es,8,1)) + Estratto(es,12,4) + 6))
                  n1(5) = Fuori90((Diametrale(Estratto(es,3,4)) + Estratto(es,1,2) + 1))
                  n2(1) = Fuori90((ComplAdX(Estratto(es,7,3)) + Estratto(es,8,1) + 17))
                  n2(2) = Fuori90(Estratto(es,12,3) + Estratto(es,1,1) + 3)
                  n2(3) = Fuori90((Diametrale(Estratto(es,7,3)) + Estratto(es,5,3) + 1))
                  n2(4) = Fuori90((ComplAdX(Estratto(es,1,1)) + Estratto(es,10,1) + 30))
                  n2(5) = Fuori90((Vert(Estratto(es,10,4)) + Estratto(es,7,3) + 3))
                  ImpostaGiocata 1,n1,ruota,posta,clp
                  ImpostaGiocata 2,n2,ruota,posta,clp
                  ruota(1) = 1
                  x1 = e
                  x2 = f
                  ra = r3
                  ok = 1
               End If
            Next
         Next
      Next
      For r4 = 4 To 4
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               g = Estratto(es,r4,p1)
               h = Estratto(es,r4,p2)
               If g = 15 And h = 76 Or g = 76 And h = 15 Then
                  n1(1) = Fuori90((DiametraleD(Estratto(es,2,3)) + Estratto(es,12,1) + 52))
                  n1(2) = Fuori90(Estratto(es,6,4) + Estratto(es,4,1) + 46)
                  n1(3) = Fuori90(Estratto(es,1,2) + Estratto(es,9,4) + 3)
                  n1(4) = Fuori90((Cadenza(Estratto(es,2,1)) + Estratto(es,12,4) + 13))
                  n1(5) = Fuori90(Estratto(es,8,2) + Estratto(es,3,3) + 2)
                  n2(1) = Fuori90((Vert(Estratto(es,7,1)) + Estratto(es,10,3) + 56))
                  n2(2) = Fuori90(Estratto(es,7,1) + Estratto(es,10,5) + 3)
                  n2(3) = Fuori90((Figura(Estratto(es,1,5)) + Estratto(es,5,1) + 52))
                  n2(4) = Fuori90((Decina(Estratto(es,5,1)) + Estratto(es,6,2) + 53))
                  n2(5) = Fuori90((ComplAdX(Estratto(es,12,3)) + Estratto(es,10,5) + 1))
                  ImpostaGiocata 1,n1,ruota,posta,clp
                  ImpostaGiocata 2,n2,ruota,posta,clp
                  ruota(1) = 1
                  x1 = g
                  x2 = h
                  ra = r4
                  ok = 1
               End If
            Next
         Next
      Next
      For r5 = 5 To 5
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               i = Estratto(es,r5,p1)
               l = Estratto(es,r5,p2)
               If i = 15 And l = 76 Or i = 76 And l = 15 Then
                  n1(1) = Fuori90(((Decina(Estratto(es,3,5)) +(Cadenza(Estratto(es,3,5))) + Estratto(es,9,1) + 9)))
                  n1(2) = Fuori90((Cadenza(Estratto(es,3,4)) + Estratto(es,4,3) + 77))
                  n1(3) = Fuori90((ComplAdX(Estratto(es,9,2)) + Estratto(es,5,1) + 12))
                  n1(4) = Fuori90((Decina(Estratto(es,1,4)) + Estratto(es,2,3) + 24))
                  n1(5) = Fuori90((Cadenza(Estratto(es,7,1)) + Estratto(es,2,3) + 8))
                  n2(1) = Fuori90(((Decina(Estratto(es,3,5)) +(Cadenza(Estratto(es,3,5))) + Estratto(es,9,1) + 9)))
                  n2(2) =((Decina(Estratto(es,1,2)) + Estratto(es,8,5) + 38))
                  n2(3) = Fuori90((DiametraleD(Estratto(es,7,2)) + Estratto(es,9,2) + 7))
                  n2(4) = Fuori90((Cadenza(Estratto(es,2,2)) + Estratto(es,1,1) + 57))
                  n2(5) = Fuori90((Figura(Estratto(es,6,5)) + Estratto(es,5,4) + 3))
                  ImpostaGiocata 1,n1,ruota,posta,clp
                  ImpostaGiocata 2,n2,ruota,posta,clp
                  ruota(1) = 1
                  x1 = i
                  x2 = l
                  ra = r5
                  ok = 1
               End If
            Next
         Next
      Next
      For r6 = 6 To 6
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               m = Estratto(es,r6,p1)
               n = Estratto(es,r6,p2)
               If m = 15 And n = 76 Or m = 76 And n = 15 Then
                  n1(1) = Fuori90(((Decina(Estratto(es,7,2)) +(Cadenza(Estratto(es,7,2))) + Estratto(es,6,5) + 1)))
                  n1(2) = Fuori90((Cadenza(Estratto(es,10,2)) + 37))
                  n1(3) = Fuori90((DiametraleD(Estratto(es,10,5)) + Estratto(es,9,3) + 42))
                  n1(4) = Fuori90((Cadenza(Estratto(es,8,1)) + Estratto(es,7,2) + 22))
                  n1(5) = Fuori90((DiametraleD(Estratto(es,7,2)) + Estratto(es,2,5) + 1))
                  n2(1) = Fuori90(((Decina(Estratto(es,1,3)) +(Cadenza(Estratto(es,1,3))) + Estratto(es,12,3) + 13)))
                  n2(2) = Fuori90(Estratto(es,5,1) + Estratto(es,2,2) + 79)
                  n2(3) = Fuori90((Cadenza(Estratto(es,1,2)) + Estratto(es,2,4) + 5))
                  n2(4) = Fuori90((Diametrale(Estratto(es,2,1)) + Estratto(es,6,3) + 3))
                  n2(5) = Fuori90((Cadenza(Estratto(es,6,1)) + Estratto(es,6,3) + 1))
                  ImpostaGiocata 1,n1,ruota,posta,clp
                  ImpostaGiocata 2,n2,ruota,posta,clp
                  ruota(1) = 1
                  x1 = m
                  x2 = n
                  ra = r6
                  ok = 1
               End If
            Next
         Next
      Next
      For r7 = 7 To 7
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               o = Estratto(es,r7,p1)
               p = Estratto(es,r7,p2)
               If o = 15 And p = 76 Or o = 76 And p = 15 Then
                  n1(1) = Fuori90((Decina(Estratto(es,12,5)) + Estratto(es,4,2) + 34))
                  n1(2) = Fuori90((ComplAdX(Estratto(es,2,5)) + Estratto(es,6,2) + 24))
                  n1(3) = Fuori90((Cadenza(Estratto(es,12,3)) + Estratto(es,10,5) + 2))
                  n1(4) = Fuori90((Diametrale(Estratto(es,2,1)) + Estratto(es,5,2) + 2))
                  n1(5) = Fuori90(((Decina(Estratto(es,2,5)) +(Cadenza(Estratto(es,2,5))) + Estratto(es,3,2) + 8)))
                  n2(1) = Fuori90((Figura(Estratto(es,8,3)) + Estratto(es,2,4) + 20))
                  n2(2) = Fuori90((Decina(Estratto(es,12,3)) + Estratto(es,12,1) + 7))
                  n2(3) = Fuori90((Cadenza(Estratto(es,6,1)) + Estratto(es,6,4) + 81))
                  n2(4) = Fuori90(Estratto(es,8,2) + Estratto(es,10,5) + 5)
                  n2(5) = Fuori90((Figura(Estratto(es,4,5)) + Estratto(es,10,3) + 1))
                  ImpostaGiocata 1,n1,ruota,posta,clp
                  ImpostaGiocata 2,n2,ruota,posta,clp
                  ruota(1) = 1
                  x1 = o
                  x2 = p
                  ra = r7
                  ok = 1
               End If
            Next
         Next
      Next
      For r8 = 8 To 8
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               q = Estratto(es,r8,p1)
               r = Estratto(es,r8,p2)
               If q = 15 And r = 76 Or q = 76 And r = 15 Then
                  n1(1) = Fuori90(((Decina(Estratto(es,10,1)) +(Cadenza(Estratto(es,10,1))) + Estratto(es,2,2) + 2)))
                  n1(2) = Fuori90(((Decina(Estratto(es,7,5)) +(Cadenza(Estratto(es,7,5))) + Estratto(es,7,4) + 9)))
                  n1(3) = Fuori90((ComplAdX(Estratto(es,10,4)) + Estratto(es,9,2) + 76))
                  n1(4) = Fuori90((Cadenza(Estratto(es,10,1)) + Estratto(es,1,2) + 28))
                  n1(5) = Fuori90(Estratto(es,2,2) + Estratto(es,4,1) + 43)
                  n2(1) = Fuori90((ComplAdX(Estratto(es,2,4)) + Estratto(es,1,1) + 3))
                  n2(2) = Fuori90((Vert(Estratto(es,10,3)) + 50))
                  n2(3) = Fuori90((DiametraleD(Estratto(es,8,5)) + Estratto(es,6,4) + 28))
                  n2(4) = Fuori90((Vert(Estratto(es,8,5)) + Estratto(es,1,1) + 6))
                  n2(5) = Fuori90((Vert(Estratto(es,10,3)) + Estratto(es,6,4) + 1))
                  ImpostaGiocata 1,n1,ruota,posta,clp
                  ImpostaGiocata 2,n2,ruota,posta,clp
                  ruota(1) = 1
                  x1 = q
                  x2 = r
                  ra = r8
                  ok = 1
               End If
            Next
         Next
      Next
      For r9 = 9 To 9
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               s = Estratto(es,r9,p1)
               t = Estratto(es,r9,p2)
               If s = 15 And t = 76 Or s = 76 And t = 15 Then
                  n1(1) = Fuori90((Figura(Estratto(es,2,1)) + Estratto(es,12,1) + 90))
                  n1(2) = Fuori90((Vert(Estratto(es,4,5)) + Estratto(es,10,3) + 14))
                  n1(3) = Fuori90(((Decina(Estratto(es,10,4)) +(Cadenza(Estratto(es,10,4))) + 2)))
                  n1(4) = Fuori90((Vert(Estratto(es,9,1)) + Estratto(es,9,4) + 16))
                  n1(5) = Fuori90((ComplAdX(Estratto(es,9,2)) + Estratto(es,8,3) + 2))
                  n2(1) = Fuori90((Figura(Estratto(es,2,1)) + Estratto(es,12,1) + 90))
                  n2(2) = Fuori90((Cadenza(Estratto(es,12,5)) + Estratto(es,3,3) + 2))
                  n2(3) = Fuori90((Vert(Estratto(es,8,3)) + Estratto(es,3,3) + 34))
                  n2(4) = Fuori90((Decina(Estratto(es,12,1)) + Estratto(es,7,5) + 2))
                  n2(5) = Fuori90((Diametrale(Estratto(es,8,5)) + Estratto(es,8,2) + 1))
                  ImpostaGiocata 1,n1,ruota,posta,clp
                  ImpostaGiocata 2,n2,ruota,posta,clp
                  ruota(1) = 1
                  x1 = s
                  x2 = t
                  ra = r9
                  ok = 1
               End If
            Next
         Next
      Next
      For r10 = 10 To 10
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               u = Estratto(es,r10,p1)
               v = Estratto(es,r10,p2)
               If u = 15 And v = 76 Or u = 76 And v = 15 Then
                  n1(1) = Fuori90(Estratto(es,1,4) + Estratto(es,9,5) + 30)
                  n1(2) = Fuori90((DiametraleD(Estratto(es,1,3)) + Estratto(es,3,5) + 1))
                  n1(3) = Fuori90((Vert(Estratto(es,1,3)) + Estratto(es,1,5) + 19))
                  n1(4) = Fuori90((Diametrale(Estratto(es,8,5)) + Estratto(es,9,2) + 8))
                  n1(5) = Fuori90((Diametrale(Estratto(es,10,5)) + Estratto(es,8,4) + 2))
                  n2(1) = Fuori90(Estratto(es,9,5) + Estratto(es,1,4) + 30)
                  n2(2) = Fuori90((Vert(Estratto(es,6,4)) + Estratto(es,7,1) + 2))
                  n2(3) = Fuori90((Figura(Estratto(es,2,3)) + Estratto(es,7,1) + 5))
                  n2(4) = Fuori90(((Decina(Estratto(es,8,5)) +(Cadenza(Estratto(es,8,5))) + Estratto(es,10,3) + 12)))
                  n2(5) = Fuori90(((Decina(Estratto(es,1,4)) +(Cadenza(Estratto(es,1,4))) + Estratto(es,5,2) + 3)))
                  ImpostaGiocata 1,n1,ruota,posta,clp
                  ImpostaGiocata 2,n2,ruota,posta,clp
                  ruota(1) = 1
                  x1 = u
                  x2 = v
                  ra = r10
                  ok = 1
               End If
            Next
         Next
      Next
      For r12 = 12 To 12
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               z = Estratto(es,r12,p1)
               j = Estratto(es,r12,p2)
               If z = 15 And j = 76 Or z = 76 And j = 15 Then
                  n1(1) = Fuori90(((Decina(Estratto(es,1,1)) +(Cadenza(Estratto(es,1,1))) + Estratto(es,1,2) + 18)))
                  n1(2) = Fuori90((ComplAdX(Estratto(es,12,3)) + Estratto(es,10,3) + 11))
                  n1(3) = Fuori90((Cadenza(Estratto(es,9,5)) + Estratto(es,4,2) + 35))
                  n1(4) = Fuori90((DiametraleD(Estratto(es,12,5)) + Estratto(es,3,5) + 40))
                  n1(5) = Fuori90((Vert(Estratto(es,2,2)) + Estratto(es,3,1) + 1))
                  n2(1) = Fuori90((Vert(Estratto(es,12,5)) + Estratto(es,1,1) + 4))
                  n2(2) = Fuori90((Figura(Estratto(es,12,2)) + Estratto(es,9,2) + 78))
                  n2(3) = Fuori90((ComplAdX(Estratto(es,8,5)) + Estratto(es,1,1) + 3))
                  n2(4) = Fuori90((Decina(Estratto(es,1,1)) + Estratto(es,9,3) + 53))
                  n2(5) = Fuori90((Diametrale(Estratto(es,7,3)) + Estratto(es,7,3) + 1))
                  ImpostaGiocata 1,n1,ruota,posta,clp
                  ImpostaGiocata 2,n2,ruota,posta,clp
                  ruota(1) = 1
                  x1 = z
                  x2 = j
                  ra = r12
                  ok = 1
               End If
            Next
         Next
      Next
      If ok = 1 Then
         co = co + 1
         ColoreTesto 1
         Scrivi String(80,"^") & " Caso n°" & co,1
         Scrivi DataEstrazione(es) & " - " & SiglaRuota(ra) & " - " & StringaEstratti(es,ra) & " * Ambo Spia : " & x1 & " - " & x2,1,,,1,2
         Scrivi String(60,"^"),1
         ColoreTesto 0
         Gioca es,1,,1
      End If
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Stronzate Numeriche e Script by Marco-elle *** MOD-Script by BaffoBlù "),1,3,0
   ScriviResoconto
End Sub

Marco-elle · 14 Giugno 2024

Il primo Output è il tuo
il 2° Output è il mio con
l'aggiustaggio del 3° di FI
o sul mio o sul tuo o.....entrambi
c'è qualcosa che non va
Troppi milioni di Euro per Spaziometria

Marco-elle · 15 Giugno 2024

Questa è una variante ammazzacaffè...ricava 4 algoritmi
per un gioco di speculazione e come dice il buon Geronimo
le banche ti danno zero e pittosto di niente è meglio puttosto!
Non è inserita nessun aumento di posta incrementale quindi
l'Output non è rilevante ma la ricerca epocale....quella si!
PS: la ricerca parte con l'arrivo della ruota di gioco

Codice:

Sub Main()
   ColoreTesto 1 :Scrivi "VARIANTE AMMAZZACAFFE' ",1
   ColoreTesto 1 :Scrivi "Ricerca by Marco",1
   Scrivi : ColoreTesto 0
   Dim ruota(3),pt(5),ruote(10),n(5)
   pt(1) = 1
   pt(2) = 1
 
   clp = 15
   co = 0
   ini = 150
   For es = ini To EstrazioneFin
      Messaggio(es)
      For r = 1 To 12
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r,p1)
               b = Estratto(es,r,p2)
               ok = 0
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  :ok = 1
                  If ok = 1 Then
                     ColoreTesto 2
                     Scrivi String(65,"=") : ColoreTesto 0
                     Scrivi "Data " & DataEstrazione(es) & " "
                     Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
                     Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
                     Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b
                     Scrivi
                     ruote(1) = 1
                     n(1) = Fuori90((Figura(Estratto(es,1,3)) + Estratto(es,4,1) + 90))
                     n(2) = Fuori90((Cadenza(Estratto(es,2,4)) + Estratto(es,2,4) + 90))
                     n(3) = Fuori90(Estratto(es,2,3) + Estratto(es,10,2) + 65)
                     n(4) = Fuori90((DiametraleD(Estratto(es,8,2)) + Estratto(es,2,5) + 37))
                     EliminaRipetuti n
                     ImpostaGiocata 1,n,ruote,pt,clp
                     Gioca es,1
                  End If
               End If
            Next
         Next
      Next
   Next
   Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
   ScriviResoconto
End Sub

BaffoBlù · 15 Giugno 2024

Marco-elle ha scritto:
Il primo Output è il tuo
il 2° Output è il mio con
l'aggiustaggio del 3° di FI
o sul mio o sul tuo o.....entrambi
c'è qualcosa che non va
Troppi milioni di Euro per Spaziometria
Vedi l'allegato 2285367 Vedi l'allegato 2285368

Allora Marco, è il tuo script ad avere qualcosa che non va.

Te lo dimostro.

Premetto pero che lo script si poteva impostare in tutt'altro modo,
molto più efficiente e sopratutto veloce...
( esperti di mia conoscenza, si stanno a fare già 2 risate, sapendo che lo so
ma che non ne sono capace al 100%, misto a pigrizia...

comunque io mi sono limitato a modificare il tuo che era già pronto
e mi sono dovuto adeguare senza farlo dall'inizio...
(parlo della grossa modifica che hai già visto, con i riscontri visivi
delle estrazioni e dell'ambo spia "Visivamente Giusto")

ma veniamo al tuo script

seguimi così non farai gli stessi errori in altri script,
o almeno provaci, perché mi dispiace che una cosa che dovrebbe avere la linea verde in alto
non ce l'ha per incongruenze involontarie anche se lo script va.

Ricorda, ci stiamo divertendo a collaborare, ma io anche se non sembra ne traggo sempre lezioni per avanzare,
mi basta pure una cosa stupida a cui non avevo pensato e mi si apre un mondo che parla di tutt'altro...
fai lo stesso anche tu con spirito aperto...

Hi hi hi, Marco, io e te non siamo veri scripter, però possiamo fare tanti buchi con linee verdi in alto...

veniamo al tuo script, stai attento se ti interessa progredire (sto usando il mio tempo...)

A parte che analizzando 10450 estrazioni ci porta in data prima della ruota di bari.
quindi i primi pronostici sono falsati perché non trova la ruota di bari nell'immediato.
Lo script becca comunque l'ambo 15-76 su ogni ruota.
grazie alla linea if a = 15 etc...

Ad ogni modo penso che di questo te ne eri già accorto.

Ma

nel tuo script originale, Ho voluto inserire un controllo a video
con i riscontri visivi delle estrazioni e dell'ambo spia)

non ho modificato nient'altro a parte l'indicazione ruota 13 che deve essere 3 come tu hai detto

per farti capire dove sta la stranezza, il collo di bottiglia o come lo vuoi chiamare,
ho inserito nel tuo script queste poche righe per fare quel controllo visivo che taglia la testa al toro.

Quelle che vengono dopo (if ok = 1 then) con le parentesi
penso che capisci quello che mostrano
dovrebbe far vedere a video anche l'ambo spia 15-76

ma il tuo script non lo fa.

Queste linee sono inequivocabili su cosa devono mostrare.

.......................................
If ok = 1 Then
co = co + 1
ColoreTesto 1
((((((((((((( ((((Scrivi String(80,"^") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(1) & " - " & StringaEstratti(es,1)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(2) & " - " & StringaEstratti(es,2)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(3) & " - " & StringaEstratti(es,3)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(4) & " - " & StringaEstratti(es,4)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(5) & " - " & StringaEstratti(es,5)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(6) & " - " & StringaEstratti(es,6)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(7) & " - " & StringaEstratti(es,7)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(8) & " - " & StringaEstratti(es,8)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(9) & " - " & StringaEstratti(es,9)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(10) & " - " & StringaEstratti(es,10)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(12) & " - " & StringaEstratti(es,12)
Scrivi "Ambo Spia " & a & " - " & b,1,,,1)))))))))))))))))))
Scrivi String(80,"^"),1
ColoreTesto 0
Gioca es,1
................................

fai girare il Tuo script con l'aggiunta di quelle linee

Rimarrai sorpreso e non poco...

eccolo solo con quelle linee in più...

Codice:

Sub Main()
   ColoreTesto 2
   Scrivi " CHI VUOL ESSERE MILIONARIO "
   Scrivi " CON L'AMBO !5-76) "
   Scrivi " STRONZATE NUMERICHE  BY Marco"
   ColoreTesto 0
   Dim posta(5)
   Dim ruota(1)
   Dim n1(5)
   Dim n2(5)
   posta(2) = 1
   posta(3) = 1
   posta(4) = 1
   posta(5) = 1
   clp = 15
   ini = EstrazioneFin - 10450
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      ok = 0
      For r1 = 1 To 1
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r1,p2)
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  n1(1) = Fuori90((Diametrale(Estratto(es,6,1)) + Estratto(es,7,4) + 14))
                  n1(2) = Fuori90((Figura(Estratto(es,8,1)) + Estratto(es,6,4) + 9))
                  n1(3) = Fuori90((Diametrale(Estratto(es,5,2)) + Estratto(es,7,4) + 50))
                  n1(4) = Fuori90((Cadenza(Estratto(es,4,1)) + Estratto(es,5,2) + 1))
                  n1(5) = Fuori90((Diametrale(Estratto(es,2,3)) + Estratto(es,5,4) + 3))
                  ImpostaGiocata 1,n1,ruota,posta,clp
                  n2(1) = Fuori90(Estratto(es,4,4) + Estratto(es,10,5) + 29)
                  n2(2) = Fuori90((Diametrale(Estratto(es,7,2)) + Estratto(es,9,3) + 50))
                  n2(3) = Fuori90((Diametrale(Estratto(es,7,3)) + Estratto(es,4,4) + 27))
                  n2(4) = Fuori90((Decina(Estratto(es,2,4)) + Estratto(es,8,3) + 88))
                  n2(5) = Fuori90((DiametraleD(Estratto(es,7,3)) + Estratto(es,1,2) + 58))
                  ImpostaGiocata 2,n2,ruota,posta,clp
                  ruota(1) = 1
                  ok = 1
               End If
            Next
         Next
      Next
      For r2 = 2 To 2
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r2,p1)
               b = Estratto(es,r2,p2)
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  n1(1) = Fuori90((ComplAdX(Estratto(es,1,4)) + Estratto(es,5,2) + 77))
                  n1(2) = Fuori90((Decina(Estratto(es,2,3)) + Estratto(es,1,1) + 13))
                  n1(3) = Fuori90((DiametraleD(Estratto(es,2,4)) + Estratto(es,7,3) + 17))
                  n1(4) = Fuori90((Decina(Estratto(es,8,3)) + Estratto(es,5,5) + 3))
                  n1(5) = Fuori90((Vert(Estratto(es,2,3)) + Estratto(es,1,5) + 2))
                  ImpostaGiocata 1,n1,ruota,posta,clp
                  n2(1) = Fuori90((ComplAdX(Estratto(es,4,2)) + Estratto(es,7,3) + 77))
                  n2(2) = Fuori90((Vert(Estratto(es,6,2)) + Estratto(es,4,1) + 16))
                  n2(3) = Fuori90((ComplAdX(Estratto(es,1,4)) + Estratto(es,3,2) + 6))
                  n2(4) = Fuori90(Estratto(es,9,1) + Estratto(es,6,3) + 15)
                  n2(5) = Fuori90((Cadenza(Estratto(es,5,4)) + Estratto(es,2,3) + 2))
                  ImpostaGiocata 2,n2,ruota,posta,clp
                  ruota(1) = 1
                  ok = 1
               End If
            Next
         Next
      Next
      For r3 = 3 To 3
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r3,p1)
               b = Estratto(es,r3,p2)
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  n1(1) = Fuori90((Vert(Estratto(es,9,1)) + Estratto(es,3,2) + 6))
                  n1(2) = Fuori90((Decina(Estratto(es,9,1)) + Estratto(es,8,4) + 7))
                  n1(3) = Fuori90((DiametraleD(Estratto(es,2,2)) + Estratto(es,7,5) + 14))
                  n1(4) = Fuori90((Diametrale(Estratto(es,8,1)) + Estratto(es,12,4) + 6))
                  n1(5) = Fuori90((Diametrale(Estratto(es,3,4)) + Estratto(es,1,2) + 1))
                  ImpostaGiocata 1,n1,ruota,posta,clp
                  n2(1) = Fuori90((ComplAdX(Estratto(es,7,3)) + Estratto(es,8,1) + 17))
                  n2(2) = Fuori90(Estratto(es,12,3) + Estratto(es,1,1) + 3)
                  n2(3) = Fuori90((Diametrale(Estratto(es,7,3)) + Estratto(es,5,3) + 1))
                  n2(4) = Fuori90((ComplAdX(Estratto(es,1,1)) + Estratto(es,10,1) + 30))
                  n2(5) = Fuori90((Vert(Estratto(es,10,4)) + Estratto(es,7,3) + 3))
                  ImpostaGiocata 2,n2,ruota,posta,clp
                  ruota(1) = 1
                  ok = 1
               End If
            Next
         Next
      Next
      For r4 = 4 To 4
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r4,p1)
               b = Estratto(es,r4,p2)
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  n1(1) = Fuori90((DiametraleD(Estratto(es,2,3)) + Estratto(es,12,1) + 52))
                  n1(2) = Fuori90(Estratto(es,6,4) + Estratto(es,4,1) + 46)
                  n1(3) = Fuori90(Estratto(es,1,2) + Estratto(es,9,4) + 3)
                  n1(4) = Fuori90((Cadenza(Estratto(es,2,1)) + Estratto(es,12,4) + 13))
                  n1(5) = Fuori90(Estratto(es,8,2) + Estratto(es,3,3) + 2)
                  ImpostaGiocata 1,n1,ruota,posta,clp
                  n2(1) = Fuori90((Vert(Estratto(es,7,1)) + Estratto(es,10,3) + 56))
                  n2(2) = Fuori90(Estratto(es,7,1) + Estratto(es,10,5) + 3)
                  n2(3) = Fuori90((Figura(Estratto(es,1,5)) + Estratto(es,5,1) + 52))
                  n2(4) = Fuori90((Decina(Estratto(es,5,1)) + Estratto(es,6,2) + 53))
                  n2(5) = Fuori90((ComplAdX(Estratto(es,12,3)) + Estratto(es,10,5) + 1))
                  ImpostaGiocata 2,n2,ruota,posta,clp
                  ruota(1) = 1
                  ok = 1
               End If
            Next
         Next
      Next
      For r5 = 5 To 5
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r4,p1)
               b = Estratto(es,r4,p2)
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  n1(1) = Fuori90(((Decina(Estratto(es,3,5)) +(Cadenza(Estratto(es,3,5))) + Estratto(es,9,1) + 9)))
                  n1(2) = Fuori90((Cadenza(Estratto(es,3,4)) + Estratto(es,4,3) + 77))
                  n1(3) = Fuori90((ComplAdX(Estratto(es,9,2)) + Estratto(es,5,1) + 12))
                  n1(4) = Fuori90((Decina(Estratto(es,1,4)) + Estratto(es,2,3) + 24))
                  n1(5) = Fuori90((Cadenza(Estratto(es,7,1)) + Estratto(es,2,3) + 8))
                  ImpostaGiocata 1,n1,ruota,posta,clp
                  n2(1) = Fuori90(((Decina(Estratto(es,3,5)) +(Cadenza(Estratto(es,3,5))) + Estratto(es,9,1) + 9)))
                  n2(2) =((Decina(Estratto(es,1,2)) + Estratto(es,8,5) + 38))
                  n2(3) = Fuori90((DiametraleD(Estratto(es,7,2)) + Estratto(es,9,2) + 7))
                  n2(4) = Fuori90((Cadenza(Estratto(es,2,2)) + Estratto(es,1,1) + 57))
                  n2(5) = Fuori90((Figura(Estratto(es,6,5)) + Estratto(es,5,4) + 3))
                  ImpostaGiocata 2,n2,ruota,posta,clp
                  ruota(1) = 1
                  ok = 1
               End If
            Next
         Next
      Next
      For r6 = 6 To 6
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r6,p1)
               b = Estratto(es,r6,p2)
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  n1(1) = Fuori90(((Decina(Estratto(es,7,2)) +(Cadenza(Estratto(es,7,2))) + Estratto(es,6,5) + 1)))
                  n1(2) = Fuori90((Cadenza(Estratto(es,10,2)) + 37))
                  n1(3) = Fuori90((DiametraleD(Estratto(es,10,5)) + Estratto(es,9,3) + 42))
                  n1(4) = Fuori90((Cadenza(Estratto(es,8,1)) + Estratto(es,7,2) + 22))
                  n1(5) = Fuori90((DiametraleD(Estratto(es,7,2)) + Estratto(es,2,5) + 1))
                  ImpostaGiocata 1,n1,ruota,posta,clp
                  n2(1) = Fuori90(((Decina(Estratto(es,1,3)) +(Cadenza(Estratto(es,1,3))) + Estratto(es,12,3) + 13)))
                  n2(2) = Fuori90(Estratto(es,5,1) + Estratto(es,2,2) + 79)
                  n2(3) = Fuori90((Cadenza(Estratto(es,1,2)) + Estratto(es,2,4) + 5))
                  n2(4) = Fuori90((Diametrale(Estratto(es,2,1)) + Estratto(es,6,3) + 3))
                  n2(5) = Fuori90((Cadenza(Estratto(es,6,1)) + Estratto(es,6,3) + 1))
                  ImpostaGiocata 2,n2,ruota,posta,clp
                  ruota(1) = 1
                  ok = 1
               End If
            Next
         Next
      Next
      For r7 = 7 To 7
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r7,p1)
               b = Estratto(es,r7,p2)
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  n1(1) = Fuori90((Decina(Estratto(es,12,5)) + Estratto(es,4,2) + 34))
                  n1(2) = Fuori90((ComplAdX(Estratto(es,2,5)) + Estratto(es,6,2) + 24))
                  n1(3) = Fuori90((Cadenza(Estratto(es,12,3)) + Estratto(es,10,5) + 2))
                  n1(4) = Fuori90((Diametrale(Estratto(es,2,1)) + Estratto(es,5,2) + 2))
                  n1(5) = Fuori90(((Decina(Estratto(es,2,5)) +(Cadenza(Estratto(es,2,5))) + Estratto(es,3,2) + 8)))
                  ImpostaGiocata 1,n1,ruota,posta,clp
                  n2(1) = Fuori90((Figura(Estratto(es,8,3)) + Estratto(es,2,4) + 20))
                  n2(2) = Fuori90((Decina(Estratto(es,12,3)) + Estratto(es,12,1) + 7))
                  n2(3) = Fuori90((Cadenza(Estratto(es,6,1)) + Estratto(es,6,4) + 81))
                  n2(4) = Fuori90(Estratto(es,8,2) + Estratto(es,10,5) + 5)
                  n2(5) = Fuori90((Figura(Estratto(es,4,5)) + Estratto(es,10,3) + 1))
                  ImpostaGiocata 2,n2,ruota,posta,clp
                  ruota(1) = 1
                  ok = 1
               End If
            Next
         Next
      Next
      For r8 = 8 To 8
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r8,p1)
               b = Estratto(es,r8,p2)
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  n1(1) = Fuori90(((Decina(Estratto(es,10,1)) +(Cadenza(Estratto(es,10,1))) + Estratto(es,2,2) + 2)))
                  n1(2) = Fuori90(((Decina(Estratto(es,7,5)) +(Cadenza(Estratto(es,7,5))) + Estratto(es,7,4) + 9)))
                  n1(3) = Fuori90((ComplAdX(Estratto(es,10,4)) + Estratto(es,9,2) + 76))
                  n1(4) = Fuori90((Cadenza(Estratto(es,10,1)) + Estratto(es,1,2) + 28))
                  n1(5) = Fuori90(Estratto(es,2,2) + Estratto(es,4,1) + 43)
                  ImpostaGiocata 1,n1,ruota,posta,clp
                  n2(1) = Fuori90((ComplAdX(Estratto(es,2,4)) + Estratto(es,1,1) + 3))
                  n2(2) = Fuori90((Vert(Estratto(es,10,3)) + 50))
                  n2(3) = Fuori90((DiametraleD(Estratto(es,8,5)) + Estratto(es,6,4) + 28))
                  n2(4) = Fuori90((Vert(Estratto(es,8,5)) + Estratto(es,1,1) + 6))
                  n2(5) = Fuori90((Vert(Estratto(es,10,3)) + Estratto(es,6,4) + 1))
                  ImpostaGiocata 2,n2,ruota,posta,clp
                  ruota(1) = 1
                  ok = 1
               End If
            Next
         Next
      Next
      For r9 = 9 To 9
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r9,p1)
               b = Estratto(es,r9,p2)
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  n1(1) = Fuori90((Figura(Estratto(es,2,1)) + Estratto(es,12,1) + 90))
                  n1(2) = Fuori90((Vert(Estratto(es,4,5)) + Estratto(es,10,3) + 14))
                  n1(3) = Fuori90(((Decina(Estratto(es,10,4)) +(Cadenza(Estratto(es,10,4))) + 2)))
                  n1(4) = Fuori90((Vert(Estratto(es,9,1)) + Estratto(es,9,4) + 16))
                  n1(5) = Fuori90((ComplAdX(Estratto(es,9,2)) + Estratto(es,8,3) + 2))
                  ImpostaGiocata 1,n1,ruota,posta,clp
                  n2(1) = Fuori90((Figura(Estratto(es,2,1)) + Estratto(es,12,1) + 90))
                  n2(2) = Fuori90((Cadenza(Estratto(es,12,5)) + Estratto(es,3,3) + 2))
                  n2(3) = Fuori90((Vert(Estratto(es,8,3)) + Estratto(es,3,3) + 34))
                  n2(4) = Fuori90((Decina(Estratto(es,12,1)) + Estratto(es,7,5) + 2))
                  n2(5) = Fuori90((Diametrale(Estratto(es,8,5)) + Estratto(es,8,2) + 1))
                  ImpostaGiocata 2,n2,ruota,posta,clp
                  ruota(1) = 1
                  ok = 1
               End If
            Next
         Next
      Next
      For r10 = 10 To 10
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r10,p1)
               b = Estratto(es,r10,p2)
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  n1(1) = Fuori90(Estratto(es,1,4) + Estratto(es,9,5) + 30)
                  n1(2) = Fuori90((DiametraleD(Estratto(es,1,3)) + Estratto(es,3,5) + 1))
                  n1(3) = Fuori90((Vert(Estratto(es,1,3)) + Estratto(es,1,5) + 19))
                  n1(4) = Fuori90((Diametrale(Estratto(es,8,5)) + Estratto(es,9,2) + 8))
                  n1(5) = Fuori90((Diametrale(Estratto(es,10,5)) + Estratto(es,8,4) + 2))
                  ImpostaGiocata 1,n1,ruota,posta,clp
                  n2(1) = Fuori90(Estratto(es,9,5) + Estratto(es,1,4) + 30)
                  n2(2) = Fuori90((Vert(Estratto(es,6,4)) + Estratto(es,7,1) + 2))
                  n2(3) = Fuori90((Figura(Estratto(es,2,3)) + Estratto(es,7,1) + 5))
                  n2(4) = Fuori90(((Decina(Estratto(es,8,5)) +(Cadenza(Estratto(es,8,5))) + Estratto(es,10,3) + 12)))
                  n2(5) = Fuori90(((Decina(Estratto(es,1,4)) +(Cadenza(Estratto(es,1,4))) + Estratto(es,5,2) + 3)))
                  ImpostaGiocata 2,n2,ruota,posta,clp
                  ruota(1) = 1
                  ok = 1
               End If
            Next
         Next
      Next
      For r12 = 12 To 12
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r12,p1)
               b = Estratto(es,r12,p2)
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  n1(1) = Fuori90(((Decina(Estratto(es,1,1)) +(Cadenza(Estratto(es,1,1))) + Estratto(es,1,2) + 18)))
                  n1(2) = Fuori90((ComplAdX(Estratto(es,12,3)) + Estratto(es,10,3) + 11))
                  n1(3) = Fuori90((Cadenza(Estratto(es,9,5)) + Estratto(es,4,2) + 35))
                  n1(4) = Fuori90((DiametraleD(Estratto(es,12,5)) + Estratto(es,3,5) + 40))
                  n1(5) = Fuori90((Vert(Estratto(es,2,2)) + Estratto(es,3,1) + 1))
                  ImpostaGiocata 1,n1,ruota,posta,clp
                  n2(1) = Fuori90((Vert(Estratto(es,12,5)) + Estratto(es,1,1) + 4))
                  n2(2) = Fuori90((Figura(Estratto(es,12,2)) + Estratto(es,9,2) + 78))
                  n2(3) = Fuori90((ComplAdX(Estratto(es,8,5)) + Estratto(es,1,1) + 3))
                  n2(4) = Fuori90((Decina(Estratto(es,1,1)) + Estratto(es,9,3) + 53))
                  n2(5) = Fuori90((Diametrale(Estratto(es,7,3)) + Estratto(es,7,3) + 1))
                  ImpostaGiocata 2,n2,ruota,posta,clp
                  ruota(1) = 1
                  ok = 1
               End If
            Next
         Next
      Next
      If ok = 1 Then
         co = co + 1
         ColoreTesto 1
         Scrivi String(80,"^") & " Caso n°" & co,1
         Scrivi DataEstrazione(es) & " - " & SiglaRuota(1) & " - " & StringaEstratti(es,1)
         Scrivi DataEstrazione(es) & " - " & SiglaRuota(2) & " - " & StringaEstratti(es,2)
         Scrivi DataEstrazione(es) & " - " & SiglaRuota(3) & " - " & StringaEstratti(es,3)
         Scrivi DataEstrazione(es) & " - " & SiglaRuota(4) & " - " & StringaEstratti(es,4)
         Scrivi DataEstrazione(es) & " - " & SiglaRuota(5) & " - " & StringaEstratti(es,5)
         Scrivi DataEstrazione(es) & " - " & SiglaRuota(6) & " - " & StringaEstratti(es,6)
         Scrivi DataEstrazione(es) & " - " & SiglaRuota(7) & " - " & StringaEstratti(es,7)
         Scrivi DataEstrazione(es) & " - " & SiglaRuota(8) & " - " & StringaEstratti(es,8)
         Scrivi DataEstrazione(es) & " - " & SiglaRuota(9) & " - " & StringaEstratti(es,9)
         Scrivi DataEstrazione(es) & " - " & SiglaRuota(10) & " - " & StringaEstratti(es,10)
         Scrivi DataEstrazione(es) & " - " & SiglaRuota(12) & " - " & StringaEstratti(es,12)
         Scrivi "Ambo Spia " & a & " - " & b,1,,,1
         Scrivi String(80,"^"),1
         ColoreTesto 0
         Gioca es,1
      End If
   Next
   ScriviResoconto
End Sub

nel 1871 becca l'ambo 15-76, ma la ruota di bari deve ancora nascere

Qui vediamo quando inizia il primo caso utile per bari
Ovviamente manca Ca,Ge e Nz

Guardiamo a video l'ambo spia che dovrebbe essere 15-76,
ma non lo è, è Zero

E' questo fino al 8 gennaio 2005

sempre ambo zero-zero

l'estrazione successiva arriva la ruota nazionale

guarda un po'

ci dice ambo spia 07-52

il 4° e il 5° estratti della nazionale

quando invece dovrebbe segnalare l'ambo 15-76 su Milano

così fino all'ultima previsione

ci dice ambo spia 43-09

SEMPRE il 4° e il 5° estratti della nazionale...

quando invece dovrebbe segnalare l'ambo 76-15 su roma

Ma ti anticipo che l'inghippo si scopre in queste linee

For r12 = 12 To 12
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r12,p1)
b = Estratto(es,r12,p2)
If a = 15 And b = 76 Or a = 76 And b = 15 Then

-------------------------------------------

Tu hai usato "a" e "b" per identificare l'ambo spia 15-76 di qualunque ruota, da r1 a r12.

Ma usando a e b per mandare a video l'ambo spia, viene fuori sempre l'ultima
elaborazione di a e b su r12, mandando a video sempre il 4° e il 5° estratto di tale ruota (NZ)

non lo trovi strano?

per quello che ho fatto quella grossa modifica...(tutto deve essere al suo posto...)

BaffoBlù · 15 Giugno 2024

Marco-elle ha scritto:

Questa è una variante ammazzacaffè...ricava 4 algoritmi
per un gioco di speculazione e come dice il buon Geronimo
le banche ti danno zero e pittosto di niente è meglio puttosto!
Non è inserita nessun aumento di posta incrementale quindi
l'Output non è rilevante ma la ricerca epocale....quella si!
PS: la ricerca parte con l'arrivo della ruota di gioco

Codice:

Sub Main()
   ColoreTesto 1 :Scrivi "VARIANTE AMMAZZACAFFE' ",1
   ColoreTesto 1 :Scrivi "Ricerca by Marco",1
   Scrivi : ColoreTesto 0
   Dim ruota(3),pt(5),ruote(10),n(5)
   pt(1) = 1
   pt(2) = 1
 
   clp = 15
   co = 0
   ini = 150
   For es = ini To EstrazioneFin
      Messaggio(es)
      For r = 1 To 12
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r,p1)
               b = Estratto(es,r,p2)
               ok = 0
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  :ok = 1
                  If ok = 1 Then
                     ColoreTesto 2
                     Scrivi String(65,"=") : ColoreTesto 0
                     Scrivi "Data " & DataEstrazione(es) & " "
                     Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
                     Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
                     Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b
                     Scrivi
                     ruote(1) = 1
                     n(1) = Fuori90((Figura(Estratto(es,1,3)) + Estratto(es,4,1) + 90))
                     n(2) = Fuori90((Cadenza(Estratto(es,2,4)) + Estratto(es,2,4) + 90))
                     n(3) = Fuori90(Estratto(es,2,3) + Estratto(es,10,2) + 65)
                     n(4) = Fuori90((DiametraleD(Estratto(es,8,2)) + Estratto(es,2,5) + 37))
                     EliminaRipetuti n
                     ImpostaGiocata 1,n,ruote,pt,clp
                     Gioca es,1
                  End If
               End If
            Next
         Next
      Next
   Next
   Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
   ScriviResoconto
End Sub

No caro Marco, non ci siamo...
Sai quanti ammazzacaffè devo ancora tirar fuori?
Della serie : I dolcetti migliori si servono a fine pasto...
Se fai una variante deve avere la linea verde delle vincite in cima a tutte
Anche se di poco, ma deve stare in cima...

Capito mi hai?

Passiamo al tuo script :

Marco, hai l'abilità di incartarti da solo come a volte capitava a me
certi incartocciamenti...ma per fortuna sempre meno.
ma assimila di qua e assimila di là, e piano piano...

Non ti serve quell' "ok" e tanto meno if ok = 1 then

Poi la ruota "r1" non esiste da nessuna parte
ma l'hai inserita per mostrare a video il (Nulla...)
Poi non mostra i casi e i casi totali..

usa quel benedetto Option Explicit
sta li apposta per guidarti specie in script "Rotoloni"

Individuare gli errori è molto più facile se dichiari tutto con Option Explicit.

Lezione fondamentale imparata dal grande LuigiB.

Linea verde delle vincite in cima...

anche di poco, tipo così :

Codice:

Option Explicit
Sub Main()
   ColoreTesto 1 :Scrivi "VARIANTE AMMAZZACAFFE' ",1
   ColoreTesto 1 :Scrivi "Ricerca by Marco",1
   Scrivi : ColoreTesto 0
   Dim clp,co,Ini,fin,es,r,p1,p2,a,b
   Dim ruota(3),pt1(5),pt2(5),ruote(10),n(5)
   pt1(1) = 1
   pt2(2) = 1
   clp = 15
   co = 0
   Ini = 173
   fin = EstrazioneFin
   ResetTimer
   For es = Ini To EstrazioneFin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,fin,es)
      For r = 1 To 11
         If r = 11 Then r = 12 End If
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r,p1)
               b = Estratto(es,r,p2)
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  co = co + 1
                  Scrivi String(100,"°") & " Caso n°" & co,1,,,1
                  ColoreTesto 0
                  Scrivi "Data " & DataEstrazione(es) & " "
                  Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
                  Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b
                  Scrivi
                  ruote(1) = 1
                  n(1) = Fuori90((Figura(Estratto(es,1,3)) + Estratto(es,4,1) + 90))
                  n(2) = Fuori90((Cadenza(Estratto(es,2,4)) + Estratto(es,2,4) + 90))
                  n(3) = Fuori90(Estratto(es,2,3) + Estratto(es,10,2) + 65)
                  n(4) = Fuori90((DiametraleD(Estratto(es,8,2)) + Estratto(es,2,5) + 37))
                  EliminaRipetuti n
                  ImpostaGiocata 1,n,ruote,pt1,clp,1
                  ImpostaGiocata 2,n,ruote,pt2,clp,2
                  Gioca es,1
               End If
            Next
         Next
      Next
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   ScriviResoconto
End Sub

Marco-elle · 15 Giugno 2024

BaffoBlù ha scritto:
No caro Marco, non ci siamo...
Sai quanti ammazzacaffè devo ancora tirar fuori?
Della serie : I dolcetti migliori si servono a fine pasto...
Se fai una variante deve avere la linea verde delle vincite in cima a tutte
Anche se di poco, ma deve stare in cima...

Capito mi hai?

Passiamo al tuo script :

Marco, hai l'abilità di incartarti da solo come a volte capitava a me
certi incartocciamenti...ma per fortuna sempre meno.
ma assimila di qua e assimila di là, e piano piano...

Non ti serve quell' "ok" e tanto meno if ok = 1 then

Poi la ruota "r1" non esiste da nessuna parte
ma l'hai inserita per mostrare a video il (Nulla...)
Poi non mostra i casi e i casi totali..

usa quel benedetto Option Explicit
sta li apposta per guidarti specie in script "Rotoloni"

Individuare gli errori è molto più facile se dichiari tutto con Option Explicit.

Lezione fondamentale imparata dal grande LuigiB.

Linea verde delle vincite in cima...

anche di poco, tipo così :

Vedi l'allegato 2285407

Codice:

Option Explicit Sub Main() ColoreTesto 1 :Scrivi "VARIANTE AMMAZZACAFFE' ",1 ColoreTesto 1 :Scrivi "Ricerca by Marco",1 Scrivi : ColoreTesto 0 Dim clp,co,Ini,fin,es,r,p1,p2,a,b Dim ruota(3),pt1(5),pt2(5),ruote(10),n(5) pt1(1) = 1 pt2(2) = 1 clp = 15 co = 0 Ini = 173 fin = EstrazioneFin ResetTimer For es = Ini To EstrazioneFin Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1) Call AvanzamentoElab(Ini,fin,es) For r = 1 To 11 If r = 11 Then r = 12 End If For p1 = 1 To 4 For p2 = p1 + 1 To 5 a = Estratto(es,r,p1) b = Estratto(es,r,p2) If a = 15 And b = 76 Or a = 76 And b = 15 Then co = co + 1 Scrivi String(100,"°") & " Caso n°" & co,1,,,1 ColoreTesto 0 Scrivi "Data " & DataEstrazione(es) & " " Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r) Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b Scrivi ruote(1) = 1 n(1) = Fuori90((Figura(Estratto(es,1,3)) + Estratto(es,4,1) + 90)) n(2) = Fuori90((Cadenza(Estratto(es,2,4)) + Estratto(es,2,4) + 90)) n(3) = Fuori90(Estratto(es,2,3) + Estratto(es,10,2) + 65) n(4) = Fuori90((DiametraleD(Estratto(es,8,2)) + Estratto(es,2,5) + 37)) EliminaRipetuti n ImpostaGiocata 1,n,ruote,pt1,clp,1 ImpostaGiocata 2,n,ruote,pt2,clp,2 Gioca es,1 End If Next Next Next Next Scrivi Scrivi String(100,"*") ColoreTesto 2 Scrivi" casi trovati : " & co,1 ColoreTesto 0 Scrivi String(100," * ") ScriviResoconto End Sub

Quindi mi invochi a studiare

purtroppo non ho tempo! e neppure la voglia....sono un giocatore di Lotto incallito e niente più però ti prometto
che quando sarò pensionato(ormai quasi ci sono) vi faccio
vedere i sorci verdi

Marco-elle · 15 Giugno 2024

Cmq...in genere inserisco sempre le ruote in video da dove escono le condizioni e è anche vero che per pigrizia non sono
mai evoluto per scarso interesse.Ho voluto togliere tutto e lasciare
la NZ per capire il tuo discorso ma sembra che la stranezza sia che l'ambo è sempre uscito in quelle posizioni quelle poche volte che si è verificato l'evento.... essendo l'ultima ruota nata e con minor statistica

Codice:

 CHI VUOL ESSERE MILIONARIO
 CON L'AMBO !5-76)
 STRONZATE NUMERICHE  BY Marco
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Caso n°1
28.09.2006 - BA - 58.79.18.39.12
28.09.2006 - CA - 24.40.07.52.72
28.09.2006 - FI - 69.37.30.33.25
28.09.2006 - GE - 74.14.61.79.36
28.09.2006 - MI - 65.79.90.22.24
28.09.2006 - NA - 52.20.29.88.04
28.09.2006 - PA - 62.43.68.29.56
28.09.2006 - RO - 61.43.31.82.39
28.09.2006 - TO - 70.45.27.07.61
28.09.2006 - VE - 69.53.03.35.07
28.09.2006 - NZ - 66.53.70.76.15
Ambo Spia 76 - 15
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Estrazione generatrice del pronostico 07653 [116 - 28/09/2006]
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Caso n°2
03.11.2007 - BA - 64.18.70.17.48
03.11.2007 - CA - 87.68.27.01.28
03.11.2007 - FI - 11.79.88.89.06
03.11.2007 - GE - 01.81.06.27.75
03.11.2007 - MI - 44.12.34.47.40
03.11.2007 - NA - 31.88.21.78.69
03.11.2007 - PA - 31.89.71.12.32
03.11.2007 - RO - 83.11.58.90.79
03.11.2007 - TO - 70.74.77.53.23
03.11.2007 - VE - 34.36.63.78.45
03.11.2007 - NZ - 37.76.08.34.15
Ambo Spia 34 - 15
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Estrazione generatrice del pronostico 07825 [132 - 03/11/2007]
G 0001 Numeri in gioco : 46.66.29.56.08 su BA per Ambo,Terno,Quaterna,Cinquina
V N. [46.66.29.56.08                ] [BA]     [.. 08 29 66 46] C.   1 Quaterna   07826 [133 - 06/11/2007]
V N. [46.66.29.56.08                ] [BA]     [29 66 .. .. ..] C.   2 Ambo       07827 [134 - 08/11/2007]
V N. [46.66.29.56.08                ] [BA]     [66 .. 29 .. ..] C.  11 Ambo       07836 [143 - 29/11/2007]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 29.66.78.46.08 su BA per Ambo,Terno,Quaterna,Cinquina
V N. [29.66.78.46.08                ] [BA]     [78 08 29 66 46] C.   1 Cinquina   07826 [133 - 06/11/2007]
V N. [29.66.78.46.08                ] [BA]     [29 66 .. .. ..] C.   2 Ambo       07827 [134 - 08/11/2007]
V N. [29.66.78.46.08                ] [BA]     [66 .. 29 78 ..] C.  11 Terno      07836 [143 - 29/11/2007]
V N. [29.66.78.46.08                ] [BA]     [.. .. 78 66 ..] C.  12 Ambo       07837 [144 - 01/12/2007]
Interrotta per raggiunta durata

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Caso n°3
08.04.2008 - BA - 12.24.55.46.53
08.04.2008 - CA - 50.22.20.40.39
08.04.2008 - FI - 51.68.07.40.58
08.04.2008 - GE - 62.13.29.46.67
08.04.2008 - MI - 56.44.21.81.17
08.04.2008 - NA - 49.42.39.79.01
08.04.2008 - PA - 74.90.48.33.46
08.04.2008 - RO - 21.18.82.60.46
08.04.2008 - TO - 28.79.04.40.72
08.04.2008 - VE - 08.35.17.28.87
08.04.2008 - NZ - 76.15.67.25.43
Ambo Spia 25 - 43
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Estrazione generatrice del pronostico 07892 [ 43 - 08/04/2008]
G 0001 Numeri in gioco : 45.51.50.56.81 su BA per Ambo,Terno,Quaterna,Cinquina
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 50.73.59.58.52 su BA per Ambo,Terno,Quaterna,Cinquina
V N. [50.73.59.58.52                ] [BA]     [52 .. 50 .. ..] C.   5 Ambo       07897 [ 48 - 19/04/2008]
Interrotta per raggiunta durata

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Caso n°4
04.11.2008 - BA - 57.25.46.39.69
04.11.2008 - CA - 51.04.11.66.47
04.11.2008 - FI - 06.48.18.69.78
04.11.2008 - GE - 14.58.77.21.50
04.11.2008 - MI - 32.12.26.79.17
04.11.2008 - NA - 85.43.30.28.87
04.11.2008 - PA - 39.07.55.13.19
04.11.2008 - RO - 28.04.45.37.69
04.11.2008 - TO - 89.09.44.84.50
04.11.2008 - VE - 47.62.54.02.50
04.11.2008 - NZ - 51.15.76.25.81
Ambo Spia 25 - 81
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Estrazione generatrice del pronostico 07982 [133 - 04/11/2008]
G 0001 Numeri in gioco : 55.79.03.24.47 su BA per Ambo,Terno,Quaterna,Cinquina
V N. [55.79.03.24.47                ] [BA]     [.. 79 .. .. 03] C.  14 Ambo       07996 [147 - 06/12/2008]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 79.03.81.12.66 su BA per Ambo,Terno,Quaterna,Cinquina
V N. [79.03.81.12.66                ] [BA]     [.. 79 .. .. 03] C.  14 Ambo       07996 [147 - 06/12/2008]
Interrotta per raggiunta durata

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Caso n°5
19.10.2013 - BA - 52.45.89.60.73
19.10.2013 - CA - 31.21.45.65.37
19.10.2013 - FI - 19.09.42.68.40
19.10.2013 - GE - 01.13.69.12.35
19.10.2013 - MI - 17.70.67.65.66
19.10.2013 - NA - 65.86.11.79.82
19.10.2013 - PA - 44.28.46.22.64
19.10.2013 - RO - 36.81.24.04.15
19.10.2013 - TO - 12.02.77.06.33
19.10.2013 - VE - 02.81.28.50.58
19.10.2013 - NZ - 62.30.40.15.76
Ambo Spia 15 - 76
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Estrazione generatrice del pronostico 08758 [126 - 19/10/2013]
G 0001 Numeri in gioco : 70.89.51.61.32 su BA per Ambo,Terno,Quaterna,Cinquina
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 33.83.40.45.48 su BA per Ambo,Terno,Quaterna,Cinquina
V N. [33.83.40.45.48                ] [BA]     [.. 33 .. .. 45] C.   1 Ambo       08759 [127 - 22/10/2013]
V N. [33.83.40.45.48                ] [BA]     [83 40 45 .. 33] C.   7 Quaterna   08765 [133 - 05/11/2013]
Interrotta per raggiunta durata

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Caso n°6
15.04.2014 - BA - 52.53.40.15.83
15.04.2014 - CA - 77.82.51.07.30
15.04.2014 - FI - 64.17.60.85.42
15.04.2014 - GE - 07.89.20.02.63
15.04.2014 - MI - 77.21.70.49.89
15.04.2014 - NA - 72.54.25.67.53
15.04.2014 - PA - 38.33.10.47.68
15.04.2014 - RO - 73.79.10.70.37
15.04.2014 - TO - 86.16.68.72.69
15.04.2014 - VE - 90.59.88.12.57
15.04.2014 - NZ - 84.15.09.44.76
Ambo Spia 44 - 76
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Estrazione generatrice del pronostico 08834 [ 45 - 15/04/2014]
G 0001 Numeri in gioco : 78.90.43.63.03 su BA per Ambo,Terno,Quaterna,Cinquina
V N. [78.90.43.63.03                ] [BA]     [43 78 .. 03 90] C.   3 Quaterna   08837 [ 48 - 22/04/2014]
V N. [78.90.43.63.03                ] [BA]     [.. 43 .. 90 ..] C.   9 Ambo       08843 [ 54 - 06/05/2014]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 33.10.18.36.66 su BA per Ambo,Terno,Quaterna,Cinquina
V N. [33.10.18.36.66                ] [BA]     [.. 33 .. 10 ..] C.  13 Ambo       08847 [ 58 - 15/05/2014]
Interrotta per raggiunta durata

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Caso n°7
26.07.2014 - BA - 83.50.37.41.11
26.07.2014 - CA - 70.63.72.13.21
26.07.2014 - FI - 19.11.36.20.42
26.07.2014 - GE - 34.63.69.66.67
26.07.2014 - MI - 21.52.49.69.53
26.07.2014 - NA - 69.02.19.63.26
26.07.2014 - PA - 32.02.11.29.33
26.07.2014 - RO - 50.71.48.75.83
26.07.2014 - TO - 17.06.20.29.21
26.07.2014 - VE - 86.81.71.82.20
26.07.2014 - NZ - 36.49.87.76.15
Ambo Spia 76 - 15
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Estrazione generatrice del pronostico 08878 [ 89 - 26/07/2014]
G 0001 Numeri in gioco : 79.85.09.02.56 su BA per Ambo,Terno,Quaterna,Cinquina
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 48.88.03.81.68 su BA per Ambo,Terno,Quaterna,Cinquina
Interrotta per raggiunta durata

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Caso n°8
29.02.2024 - BA - 51.81.12.32.04
29.02.2024 - CA - 05.55.46.01.20
29.02.2024 - FI - 74.26.33.50.80
29.02.2024 - GE - 75.82.27.22.54
29.02.2024 - MI - 72.58.60.41.33
29.02.2024 - NA - 03.43.24.25.78
29.02.2024 - PA - 89.58.41.11.15
29.02.2024 - RO - 75.39.65.17.31
29.02.2024 - TO - 22.81.90.48.77
29.02.2024 - VE - 90.74.39.63.67
29.02.2024 - NZ - 21.23.15.35.76
Ambo Spia 35 - 76
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Estrazione generatrice del pronostico 10396 [ 34 - 29/02/2024]
G 0001 Numeri in gioco : 15.35.34.11.44 su BA per Ambo,Terno,Quaterna,Cinquina
V N. [15.35.34.11.44                ] [BA]     [35 .. .. .. 34] C.   6 Ambo       10402 [ 40 - 09/03/2024]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 32.74.23.58.38 su BA per Ambo,Terno,Quaterna,Cinquina
V N. [32.74.23.58.38                ] [BA]     [32 .. .. 74 ..] C.   1 Ambo       10397 [ 35 - 01/03/2024]
V N. [32.74.23.58.38                ] [BA]     [.. .. .. 38 32] C.   7 Ambo       10403 [ 41 - 12/03/2024]
Interrotta per raggiunta durata

+----------------------------------------+
| Prima Giocata      : 7653              |
| Ultima Giocata     : 10396             |
| Range              : 2744              |
| Casi giocab perc.  : 0,292%            |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
|               RESOCONTO                | |       DISTRIBUZIONE ESITI        | | DISTRIBUZIONE ESITI PERCENTUALI  | |        DISTRIBUZIONE CASI        |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati     :                8  | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT |  Q  |                       |
| Casi vincenti      :                6  | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos.   :             75 %  | | BA |     |   44|   23|    8|    1| | BA |     |  100|  100|  100|  100| | BA |   14|                       |
| Pronostici totali  :               14  | | CA |     |     |     |     |     | | CA |     |     |     |     |     | | CA |     |                       |
| Pronostici vinc.   :               10  | | FI |     |     |     |     |     | | FI |     |     |     |     |     | | FI |     |                       |
| Percentuale pos.   :          71,43 %  | | GE |     |     |     |     |     | | GE |     |     |     |     |     | | GE |     |                       |
| Giocate in corso   :                0  | | MI |     |     |     |     |     | | MI |     |     |     |     |     | | MI |     |                       |
| Giocate terminate  :               14  | | NA |     |     |     |     |     | | NA |     |     |     |     |     | | NA |     |                       |
| Bollette giocate   :              210  | | PA |     |     |     |     |     | | PA |     |     |     |     |     | | PA |     |                       |
| Bollette vincenti  :               18  | | RO |     |     |     |     |     | | RO |     |     |     |     |     | | RO |     |                       |
| Attesa media       :                6  | | TO |     |     |     |     |     | | TO |     |     |     |     |     | | TO |     |                       |
| Spesa              :         840,00 €  | | VE |     |     |     |     |     | | VE |     |     |     |     |     | | VE |     |                       |
| Vincita            :   5.831.243,00 €  | | NZ |     |     |     |     |     | | NZ |     |     |     |     |     | | NZ |     |                       |
| Guadagno           :   5.830.403,00 €  | | TT |     |     |     |     |     | | TT |     |     |     |     |     | | TT |     |                       |
| Perc. Rendimento   :     694095,595 %  | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Mass. Esposizione  :         240,00 €  |  
| Estratto su ruota  :               46  |                                                                                                              
| Ambo su ruota      :               44  |                                                                                                              
| Terno su ruota     :               23  |                                                                                                              
| Quaterna su ruota  :                8  |                                                                                                              
| Cinquina su ruota  :                1  |                                                                                                              
|                                        |                                                                                                              
+----------------------------------------+

Marco-elle · 15 Giugno 2024

Va bene ora la linea verde della ruota NZ?

Marco-elle · 15 Giugno 2024

Allora Baffone.....
ho inserito option explicit sul listato base e.....una miriadi di errori e bisogna assegnare anche la carta da culo!
ho tolto tutti gli for e if assegnando solo la ruota con r
e quindi inserito (for r = 1 to 11 then r = 1 e via dicendo)
morale della favola....Spaziometria dopo che ho tolto tutti
gli errori (almeno credo) si è incartata

però lascio tutto acceso e vediamo se per il prossimo mese
mi di qualcosa

BaffoBlù · 15 Giugno 2024

Marco-elle ha scritto:
Quindi mi invochi a studiare
purtroppo non ho tempo! e neppure la voglia....sono un giocatore di Lotto incallito e niente più però ti prometto
che quando sarò pensionato(ormai quasi ci sono) vi faccio
vedere i sorci verdi

non è che voglio farti studiare per forza, ma solo avvertirti di certi incartamenti che è meglio evitare...

Marco-elle · 15 Giugno 2024

Ok...nella mia pochezza ho rivoluzionato lo script base ma....
ho provato in tutte le salse con un FOR di azzerare i calcoli
ma niet!....in pratica gli algoritmi fanno il menga che vogliono
HELP ME
PS: ho diminuito le estrazioni perchè era più veloce prima

Codice:

Option Explicit
Sub Main()
   ColoreTesto 2
   Scrivi " CHI VUOL ESSERE MILIONARIO "
   Scrivi " CON L'AMBO !5-76) "
   Scrivi " STRONZATE NUMERICHE  BY Marco"
   ColoreTesto 0
   Dim Ini
   Dim fin
   Dim ok
   Dim co
   Dim p1
   Dim p2
   Dim r
   Dim a
   Dim b
   Dim clp
   Dim es
   Dim posta(5)
   Dim ruota(1)
   Dim n1(5)
   Dim n2(5)
   posta(2) = 1
   posta(3) = 1
   posta(4) = 1
   posta(5) = 1
   clp = 15
   Ini = EstrazioneIni
   fin = EstrazioneFin - 9000
   co = 0
   For es = Ini To fin
      For r = 1 To 11
         If r = 11 Then r = 12
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r,p1)
               b = Estratto(es,r,p2)
               Messaggio es
               Call AvanzamentoElab(Ini,fin,es)
               ok = 0
               If r = 11 Then r = 1
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  n1(1) = Fuori90((Diametrale(Estratto(es,6,1)) + Estratto(es,7,4) + 14))
                  n1(2) = Fuori90((Figura(Estratto(es,8,1)) + Estratto(es,6,4) + 9))
                  n1(3) = Fuori90((Diametrale(Estratto(es,5,2)) + Estratto(es,7,4) + 50))
                  n1(4) = Fuori90((Cadenza(Estratto(es,4,1)) + Estratto(es,5,2) + 1))
                  n1(5) = Fuori90((Diametrale(Estratto(es,2,3)) + Estratto(es,5,4) + 3))
                  n2(1) = Fuori90(Estratto(es,4,4) + Estratto(es,10,5) + 29)
                  n2(2) = Fuori90((Diametrale(Estratto(es,7,2)) + Estratto(es,9,3) + 50))
                  n2(3) = Fuori90((Diametrale(Estratto(es,7,3)) + Estratto(es,4,4) + 27))
                  n2(4) = Fuori90((Decina(Estratto(es,2,4)) + Estratto(es,8,3) + 88))
                  n2(5) = Fuori90((DiametraleD(Estratto(es,7,3)) + Estratto(es,1,2) + 58))
                  ok = 1
               End If
               If r = 11 Then r = 2
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  n1(1) = Fuori90((ComplAdX(Estratto(es,1,4)) + Estratto(es,5,2) + 77))
                  n1(2) = Fuori90((Decina(Estratto(es,2,3)) + Estratto(es,1,1) + 13))
                  n1(3) = Fuori90((DiametraleD(Estratto(es,2,4)) + Estratto(es,7,3) + 17))
                  n1(4) = Fuori90((Decina(Estratto(es,8,3)) + Estratto(es,5,5) + 3))
                  n1(5) = Fuori90((Vert(Estratto(es,2,3)) + Estratto(es,1,5) + 2))
                  n2(1) = Fuori90((ComplAdX(Estratto(es,4,2)) + Estratto(es,7,3) + 77))
                  n2(2) = Fuori90((Vert(Estratto(es,6,2)) + Estratto(es,4,1) + 16))
                  n2(3) = Fuori90((ComplAdX(Estratto(es,1,4)) + Estratto(es,3,2) + 6))
                  n2(4) = Fuori90(Estratto(es,9,1) + Estratto(es,6,3) + 15)
                  n2(5) = Fuori90((Cadenza(Estratto(es,5,4)) + Estratto(es,2,3) + 2))
                  ok = 1
               End If
               If r = 11 Then r = 3
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  n1(1) = Fuori90((Vert(Estratto(es,9,1)) + Estratto(es,3,2) + 6))
                  n1(2) = Fuori90((Decina(Estratto(es,9,1)) + Estratto(es,8,4) + 7))
                  n1(3) = Fuori90((DiametraleD(Estratto(es,2,2)) + Estratto(es,7,5) + 14))
                  n1(4) = Fuori90((Diametrale(Estratto(es,8,1)) + Estratto(es,12,4) + 6))
                  n1(5) = Fuori90((Diametrale(Estratto(es,3,4)) + Estratto(es,1,2) + 1))
                  n2(1) = Fuori90((ComplAdX(Estratto(es,7,3)) + Estratto(es,8,1) + 17))
                  n2(2) = Fuori90(Estratto(es,12,3) + Estratto(es,1,1) + 3)
                  n2(3) = Fuori90((Diametrale(Estratto(es,7,3)) + Estratto(es,5,3) + 1))
                  n2(4) = Fuori90((ComplAdX(Estratto(es,1,1)) + Estratto(es,10,1) + 30))
                  n2(5) = Fuori90((Vert(Estratto(es,10,4)) + Estratto(es,7,3) + 3))
                  ok = 1
               End If
               If r = 11 Then r = 4
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  n1(1) = Fuori90((DiametraleD(Estratto(es,2,3)) + Estratto(es,12,1) + 52))
                  n1(2) = Fuori90(Estratto(es,6,4) + Estratto(es,4,1) + 46)
                  n1(3) = Fuori90(Estratto(es,1,2) + Estratto(es,9,4) + 3)
                  n1(4) = Fuori90((Cadenza(Estratto(es,2,1)) + Estratto(es,12,4) + 13))
                  n1(5) = Fuori90(Estratto(es,8,2) + Estratto(es,3,3) + 2)
                  n2(1) = Fuori90((Vert(Estratto(es,7,1)) + Estratto(es,10,3) + 56))
                  n2(2) = Fuori90(Estratto(es,7,1) + Estratto(es,10,5) + 3)
                  n2(3) = Fuori90((Figura(Estratto(es,1,5)) + Estratto(es,5,1) + 52))
                  n2(4) = Fuori90((Decina(Estratto(es,5,1)) + Estratto(es,6,2) + 53))
                  n2(5) = Fuori90((ComplAdX(Estratto(es,12,3)) + Estratto(es,10,5) + 1))
                  ok = 1
               End If
               If r = 11 Then r = 5
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  n1(1) = Fuori90(((Decina(Estratto(es,3,5)) +(Cadenza(Estratto(es,3,5))) + Estratto(es,9,1) + 9)))
                  n1(2) = Fuori90((Cadenza(Estratto(es,3,4)) + Estratto(es,4,3) + 77))
                  n1(3) = Fuori90((ComplAdX(Estratto(es,9,2)) + Estratto(es,5,1) + 12))
                  n1(4) = Fuori90((Decina(Estratto(es,1,4)) + Estratto(es,2,3) + 24))
                  n1(5) = Fuori90((Cadenza(Estratto(es,7,1)) + Estratto(es,2,3) + 8))
                  n2(1) = Fuori90(((Decina(Estratto(es,3,5)) +(Cadenza(Estratto(es,3,5))) + Estratto(es,9,1) + 9)))
                  n2(2) =((Decina(Estratto(es,1,2)) + Estratto(es,8,5) + 38))
                  n2(3) = Fuori90((DiametraleD(Estratto(es,7,2)) + Estratto(es,9,2) + 7))
                  n2(4) = Fuori90((Cadenza(Estratto(es,2,2)) + Estratto(es,1,1) + 57))
                  n2(5) = Fuori90((Figura(Estratto(es,6,5)) + Estratto(es,5,4) + 3))
                  ok = 1
               End If
               If r = 11 Then r = 6
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  n1(1) = Fuori90(((Decina(Estratto(es,7,2)) +(Cadenza(Estratto(es,7,2))) + Estratto(es,6,5) + 1)))
                  n1(2) = Fuori90((Cadenza(Estratto(es,10,2)) + 37))
                  n1(3) = Fuori90((DiametraleD(Estratto(es,10,5)) + Estratto(es,9,3) + 42))
                  n1(4) = Fuori90((Cadenza(Estratto(es,8,1)) + Estratto(es,7,2) + 22))
                  n1(5) = Fuori90((DiametraleD(Estratto(es,7,2)) + Estratto(es,2,5) + 1))
                  n2(1) = Fuori90(((Decina(Estratto(es,1,3)) +(Cadenza(Estratto(es,1,3))) + Estratto(es,12,3) + 13)))
                  n2(2) = Fuori90(Estratto(es,5,1) + Estratto(es,2,2) + 79)
                  n2(3) = Fuori90((Cadenza(Estratto(es,1,2)) + Estratto(es,2,4) + 5))
                  n2(4) = Fuori90((Diametrale(Estratto(es,2,1)) + Estratto(es,6,3) + 3))
                  n2(5) = Fuori90((Cadenza(Estratto(es,6,1)) + Estratto(es,6,3) + 1))
                  ok = 1
               End If
               If r = 11 Then r = 7
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  n1(1) = Fuori90((Decina(Estratto(es,12,5)) + Estratto(es,4,2) + 34))
                  n1(2) = Fuori90((ComplAdX(Estratto(es,2,5)) + Estratto(es,6,2) + 24))
                  n1(3) = Fuori90((Cadenza(Estratto(es,12,3)) + Estratto(es,10,5) + 2))
                  n1(4) = Fuori90((Diametrale(Estratto(es,2,1)) + Estratto(es,5,2) + 2))
                  n1(5) = Fuori90(((Decina(Estratto(es,2,5)) +(Cadenza(Estratto(es,2,5))) + Estratto(es,3,2) + 8)))
                  n2(1) = Fuori90((Figura(Estratto(es,8,3)) + Estratto(es,2,4) + 20))
                  n2(2) = Fuori90((Decina(Estratto(es,12,3)) + Estratto(es,12,1) + 7))
                  n2(3) = Fuori90((Cadenza(Estratto(es,6,1)) + Estratto(es,6,4) + 81))
                  n2(4) = Fuori90(Estratto(es,8,2) + Estratto(es,10,5) + 5)
                  n2(5) = Fuori90((Figura(Estratto(es,4,5)) + Estratto(es,10,3) + 1))
                  ok = 1
               End If
               If r = 11 Then r = 8
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  n1(1) = Fuori90(((Decina(Estratto(es,10,1)) +(Cadenza(Estratto(es,10,1))) + Estratto(es,2,2) + 2)))
                  n1(2) = Fuori90(((Decina(Estratto(es,7,5)) +(Cadenza(Estratto(es,7,5))) + Estratto(es,7,4) + 9)))
                  n1(3) = Fuori90((ComplAdX(Estratto(es,10,4)) + Estratto(es,9,2) + 76))
                  n1(4) = Fuori90((Cadenza(Estratto(es,10,1)) + Estratto(es,1,2) + 28))
                  n1(5) = Fuori90(Estratto(es,2,2) + Estratto(es,4,1) + 43)
                  n2(1) = Fuori90((ComplAdX(Estratto(es,2,4)) + Estratto(es,1,1) + 3))
                  n2(2) = Fuori90((Vert(Estratto(es,10,3)) + 50))
                  n2(3) = Fuori90((DiametraleD(Estratto(es,8,5)) + Estratto(es,6,4) + 28))
                  n2(4) = Fuori90((Vert(Estratto(es,8,5)) + Estratto(es,1,1) + 6))
                  n2(5) = Fuori90((Vert(Estratto(es,10,3)) + Estratto(es,6,4) + 1))
                  ok = 1
               End If
               If r = 11 Then r = 9
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  n1(1) = Fuori90((Figura(Estratto(es,2,1)) + Estratto(es,12,1) + 90))
                  n1(2) = Fuori90((Vert(Estratto(es,4,5)) + Estratto(es,10,3) + 14))
                  n1(3) = Fuori90(((Decina(Estratto(es,10,4)) +(Cadenza(Estratto(es,10,4))) + 2)))
                  n1(4) = Fuori90((Vert(Estratto(es,9,1)) + Estratto(es,9,4) + 16))
                  n1(5) = Fuori90((ComplAdX(Estratto(es,9,2)) + Estratto(es,8,3) + 2))
                  n2(1) = Fuori90((Figura(Estratto(es,2,1)) + Estratto(es,12,1) + 90))
                  n2(2) = Fuori90((Cadenza(Estratto(es,12,5)) + Estratto(es,3,3) + 2))
                  n2(3) = Fuori90((Vert(Estratto(es,8,3)) + Estratto(es,3,3) + 34))
                  n2(4) = Fuori90((Decina(Estratto(es,12,1)) + Estratto(es,7,5) + 2))
                  n2(5) = Fuori90((Diametrale(Estratto(es,8,5)) + Estratto(es,8,2) + 1))
                  ok = 1
               End If
               If r = 11 Then r = 2
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  n1(1) = Fuori90(Estratto(es,1,4) + Estratto(es,9,5) + 30)
                  n1(2) = Fuori90((DiametraleD(Estratto(es,1,3)) + Estratto(es,3,5) + 1))
                  n1(3) = Fuori90((Vert(Estratto(es,1,3)) + Estratto(es,1,5) + 19))
                  n1(4) = Fuori90((Diametrale(Estratto(es,8,5)) + Estratto(es,9,2) + 8))
                  n1(5) = Fuori90((Diametrale(Estratto(es,10,5)) + Estratto(es,8,4) + 2))
                  n2(1) = Fuori90(Estratto(es,9,5) + Estratto(es,1,4) + 30)
                  n2(2) = Fuori90((Vert(Estratto(es,6,4)) + Estratto(es,7,1) + 2))
                  n2(3) = Fuori90((Figura(Estratto(es,2,3)) + Estratto(es,7,1) + 5))
                  n2(4) = Fuori90(((Decina(Estratto(es,8,5)) +(Cadenza(Estratto(es,8,5))) + Estratto(es,10,3) + 12)))
                  n2(5) = Fuori90(((Decina(Estratto(es,1,4)) +(Cadenza(Estratto(es,1,4))) + Estratto(es,5,2) + 3)))
                  ok = 1
               End If
               If r = 11 Then r = 12
               If a = 15 And b = 76 Or a = 76 And b = 15 Then
                  n1(1) = Fuori90(((Decina(Estratto(es,1,1)) +(Cadenza(Estratto(es,1,1))) + Estratto(es,1,2) + 18)))
                  n1(2) = Fuori90((ComplAdX(Estratto(es,12,3)) + Estratto(es,10,3) + 11))
                  n1(3) = Fuori90((Cadenza(Estratto(es,9,5)) + Estratto(es,4,2) + 35))
                  n1(4) = Fuori90((DiametraleD(Estratto(es,12,5)) + Estratto(es,3,5) + 40))
                  n1(5) = Fuori90((Vert(Estratto(es,2,2)) + Estratto(es,3,1) + 1))
                  n2(1) = Fuori90((Vert(Estratto(es,12,5)) + Estratto(es,1,1) + 4))
                  n2(2) = Fuori90((Figura(Estratto(es,12,2)) + Estratto(es,9,2) + 78))
                  n2(3) = Fuori90((ComplAdX(Estratto(es,8,5)) + Estratto(es,1,1) + 3))
                  n2(4) = Fuori90((Decina(Estratto(es,1,1)) + Estratto(es,9,3) + 53))
                  n2(5) = Fuori90((Diametrale(Estratto(es,7,3)) + Estratto(es,7,3) + 1))
                  ok = 1
               End If
               ruota(1) = 1
               ImpostaGiocata 1,n1,ruota,posta,clp
               ImpostaGiocata 2,n2,ruota,posta,clp
               If ok = 1 Then
                  co = co + 1
                  ColoreTesto 1
                  Scrivi String(80,"^") & " Caso n°" & co,1
                  Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
                  Scrivi "Su " & FormatSpace(NomeRuota(r),12) & " Spie " & a & " " & b
                  Scrivi String(80,"^"),1
                  ColoreTesto 0
                  Gioca es,1
               End If
            Next
         Next
      Next
   Next
   ScriptInterrotto
   ScriviResoconto
End Sub

Marco-elle · 15 Giugno 2024

Per colpa del Baffone,oggi mi sono rincoglionito più del solito
e ho risolto così...probabilmente non va ancora bene ma ha restituito 1 cinquina ,qualche quaterna e terni in più.
Per fortuna che domani si va al mare col carico di benzina....
scampi in saor e prosecco a gogò
sciau beli!
PS: Baffone hai visto la linea verde?

Codice:

Option Explicit
Sub Main()
   ColoreTesto 2
   Scrivi " CHI VUOL ESSERE MILIONARIO "
   Scrivi " CON L'AMBO !5-76) "
   Scrivi " STRONZATE NUMERICHE  BY Marco"
   ColoreTesto 0
   Dim Ini,fin,ok,co,p1,p2,r,a,b,clp,es,posta(5),ruota(1),n1(5),n2(5)
   posta(2) = 1
   posta(3) = 1
   posta(4) = 1
   posta(5) = 1
   clp = 15
   Ini = EstrazioneIni
   fin = EstrazioneFin
   co = 0
   For es = Ini To fin
      For r = 1 To 11
         If r = 11 Then r = 12
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r,p1)
               b = Estratto(es,r,p2)
               Messaggio es
               Call AvanzamentoElab(Ini,fin,es)
               ok = 0
               If r = 1 Then
                  If a = 15 And b = 76 Or a = 76 And b = 15 Then
                     n1(1) = Fuori90((Diametrale(Estratto(es,6,1)) + Estratto(es,7,4) + 14))
                     n1(2) = Fuori90((Figura(Estratto(es,8,1)) + Estratto(es,6,4) + 9))
                     n1(3) = Fuori90((Diametrale(Estratto(es,5,2)) + Estratto(es,7,4) + 50))
                     n1(4) = Fuori90((Cadenza(Estratto(es,4,1)) + Estratto(es,5,2) + 1))
                     n1(5) = Fuori90((Diametrale(Estratto(es,2,3)) + Estratto(es,5,4) + 3))
                     n2(1) = Fuori90(Estratto(es,4,4) + Estratto(es,10,5) + 29)
                     n2(2) = Fuori90((Diametrale(Estratto(es,7,2)) + Estratto(es,9,3) + 50))
                     n2(3) = Fuori90((Diametrale(Estratto(es,7,3)) + Estratto(es,4,4) + 27))
                     n2(4) = Fuori90((Decina(Estratto(es,2,4)) + Estratto(es,8,3) + 88))
                     n2(5) = Fuori90((DiametraleD(Estratto(es,7,3)) + Estratto(es,1,2) + 58))
                     ok = 1
                  End If
               End If
               If r = 2 Then
                  If a = 15 And b = 76 Or a = 76 And b = 15 Then
                     n1(1) = Fuori90((ComplAdX(Estratto(es,1,4)) + Estratto(es,5,2) + 77))
                     n1(2) = Fuori90((Decina(Estratto(es,2,3)) + Estratto(es,1,1) + 13))
                     n1(3) = Fuori90((DiametraleD(Estratto(es,2,4)) + Estratto(es,7,3) + 17))
                     n1(4) = Fuori90((Decina(Estratto(es,8,3)) + Estratto(es,5,5) + 3))
                     n1(5) = Fuori90((Vert(Estratto(es,2,3)) + Estratto(es,1,5) + 2))
                     n2(1) = Fuori90((ComplAdX(Estratto(es,4,2)) + Estratto(es,7,3) + 77))
                     n2(2) = Fuori90((Vert(Estratto(es,6,2)) + Estratto(es,4,1) + 16))
                     n2(3) = Fuori90((ComplAdX(Estratto(es,1,4)) + Estratto(es,3,2) + 6))
                     n2(4) = Fuori90(Estratto(es,9,1) + Estratto(es,6,3) + 15)
                     n2(5) = Fuori90((Cadenza(Estratto(es,5,4)) + Estratto(es,2,3) + 2))
                     ok = 1
                  End If
               End If
               If r = 3 Then
                  If a = 15 And b = 76 Or a = 76 And b = 15 Then
                     n1(1) = Fuori90((Vert(Estratto(es,9,1)) + Estratto(es,3,2) + 6))
                     n1(2) = Fuori90((Decina(Estratto(es,9,1)) + Estratto(es,8,4) + 7))
                     n1(3) = Fuori90((DiametraleD(Estratto(es,2,2)) + Estratto(es,7,5) + 14))
                     n1(4) = Fuori90((Diametrale(Estratto(es,8,1)) + Estratto(es,12,4) + 6))
                     n1(5) = Fuori90((Diametrale(Estratto(es,3,4)) + Estratto(es,1,2) + 1))
                     n2(1) = Fuori90((ComplAdX(Estratto(es,7,3)) + Estratto(es,8,1) + 17))
                     n2(2) = Fuori90(Estratto(es,12,3) + Estratto(es,1,1) + 3)
                     n2(3) = Fuori90((Diametrale(Estratto(es,7,3)) + Estratto(es,5,3) + 1))
                     n2(4) = Fuori90((ComplAdX(Estratto(es,1,1)) + Estratto(es,10,1) + 30))
                     n2(5) = Fuori90((Vert(Estratto(es,10,4)) + Estratto(es,7,3) + 3))
                     ok = 1
                  End If
               End If
               If r = 4 Then
                  If a = 15 And b = 76 Or a = 76 And b = 15 Then
                     n1(1) = Fuori90((DiametraleD(Estratto(es,2,3)) + Estratto(es,12,1) + 52))
                     n1(2) = Fuori90(Estratto(es,6,4) + Estratto(es,4,1) + 46)
                     n1(3) = Fuori90(Estratto(es,1,2) + Estratto(es,9,4) + 3)
                     n1(4) = Fuori90((Cadenza(Estratto(es,2,1)) + Estratto(es,12,4) + 13))
                     n1(5) = Fuori90(Estratto(es,8,2) + Estratto(es,3,3) + 2)
                     n2(1) = Fuori90((Vert(Estratto(es,7,1)) + Estratto(es,10,3) + 56))
                     n2(2) = Fuori90(Estratto(es,7,1) + Estratto(es,10,5) + 3)
                     n2(3) = Fuori90((Figura(Estratto(es,1,5)) + Estratto(es,5,1) + 52))
                     n2(4) = Fuori90((Decina(Estratto(es,5,1)) + Estratto(es,6,2) + 53))
                     n2(5) = Fuori90((ComplAdX(Estratto(es,12,3)) + Estratto(es,10,5) + 1))
                     ok = 1
                  End If
               End If
               If r = 5 Then
                  If a = 15 And b = 76 Or a = 76 And b = 15 Then
                     n1(1) = Fuori90(((Decina(Estratto(es,3,5)) +(Cadenza(Estratto(es,3,5))) + Estratto(es,9,1) + 9)))
                     n1(2) = Fuori90((Cadenza(Estratto(es,3,4)) + Estratto(es,4,3) + 77))
                     n1(3) = Fuori90((ComplAdX(Estratto(es,9,2)) + Estratto(es,5,1) + 12))
                     n1(4) = Fuori90((Decina(Estratto(es,1,4)) + Estratto(es,2,3) + 24))
                     n1(5) = Fuori90((Cadenza(Estratto(es,7,1)) + Estratto(es,2,3) + 8))
                     n2(1) = Fuori90(((Decina(Estratto(es,3,5)) +(Cadenza(Estratto(es,3,5))) + Estratto(es,9,1) + 9)))
                     n2(2) =((Decina(Estratto(es,1,2)) + Estratto(es,8,5) + 38))
                     n2(3) = Fuori90((DiametraleD(Estratto(es,7,2)) + Estratto(es,9,2) + 7))
                     n2(4) = Fuori90((Cadenza(Estratto(es,2,2)) + Estratto(es,1,1) + 57))
                     n2(5) = Fuori90((Figura(Estratto(es,6,5)) + Estratto(es,5,4) + 3))
                     ok = 1
                  End If
               End If
               If r = 6 Then
                  If a = 15 And b = 76 Or a = 76 And b = 15 Then
                     n1(1) = Fuori90(((Decina(Estratto(es,7,2)) +(Cadenza(Estratto(es,7,2))) + Estratto(es,6,5) + 1)))
                     n1(2) = Fuori90((Cadenza(Estratto(es,10,2)) + 37))
                     n1(3) = Fuori90((DiametraleD(Estratto(es,10,5)) + Estratto(es,9,3) + 42))
                     n1(4) = Fuori90((Cadenza(Estratto(es,8,1)) + Estratto(es,7,2) + 22))
                     n1(5) = Fuori90((DiametraleD(Estratto(es,7,2)) + Estratto(es,2,5) + 1))
                     n2(1) = Fuori90(((Decina(Estratto(es,1,3)) +(Cadenza(Estratto(es,1,3))) + Estratto(es,12,3) + 13)))
                     n2(2) = Fuori90(Estratto(es,5,1) + Estratto(es,2,2) + 79)
                     n2(3) = Fuori90((Cadenza(Estratto(es,1,2)) + Estratto(es,2,4) + 5))
                     n2(4) = Fuori90((Diametrale(Estratto(es,2,1)) + Estratto(es,6,3) + 3))
                     n2(5) = Fuori90((Cadenza(Estratto(es,6,1)) + Estratto(es,6,3) + 1))
                     ok = 1
                  End If
               End If
               If r = 7 Then
                  If a = 15 And b = 76 Or a = 76 And b = 15 Then
                     n1(1) = Fuori90((Decina(Estratto(es,12,5)) + Estratto(es,4,2) + 34))
                     n1(2) = Fuori90((ComplAdX(Estratto(es,2,5)) + Estratto(es,6,2) + 24))
                     n1(3) = Fuori90((Cadenza(Estratto(es,12,3)) + Estratto(es,10,5) + 2))
                     n1(4) = Fuori90((Diametrale(Estratto(es,2,1)) + Estratto(es,5,2) + 2))
                     n1(5) = Fuori90(((Decina(Estratto(es,2,5)) +(Cadenza(Estratto(es,2,5))) + Estratto(es,3,2) + 8)))
                     n2(1) = Fuori90((Figura(Estratto(es,8,3)) + Estratto(es,2,4) + 20))
                     n2(2) = Fuori90((Decina(Estratto(es,12,3)) + Estratto(es,12,1) + 7))
                     n2(3) = Fuori90((Cadenza(Estratto(es,6,1)) + Estratto(es,6,4) + 81))
                     n2(4) = Fuori90(Estratto(es,8,2) + Estratto(es,10,5) + 5)
                     n2(5) = Fuori90((Figura(Estratto(es,4,5)) + Estratto(es,10,3) + 1))
                     ok = 1
                  End If
               End If
               If r = 8 Then
                  If a = 15 And b = 76 Or a = 76 And b = 15 Then
                     n1(1) = Fuori90(((Decina(Estratto(es,10,1)) +(Cadenza(Estratto(es,10,1))) + Estratto(es,2,2) + 2)))
                     n1(2) = Fuori90(((Decina(Estratto(es,7,5)) +(Cadenza(Estratto(es,7,5))) + Estratto(es,7,4) + 9)))
                     n1(3) = Fuori90((ComplAdX(Estratto(es,10,4)) + Estratto(es,9,2) + 76))
                     n1(4) = Fuori90((Cadenza(Estratto(es,10,1)) + Estratto(es,1,2) + 28))
                     n1(5) = Fuori90(Estratto(es,2,2) + Estratto(es,4,1) + 43)
                     n2(1) = Fuori90((ComplAdX(Estratto(es,2,4)) + Estratto(es,1,1) + 3))
                     n2(2) = Fuori90((Vert(Estratto(es,10,3)) + 50))
                     n2(3) = Fuori90((DiametraleD(Estratto(es,8,5)) + Estratto(es,6,4) + 28))
                     n2(4) = Fuori90((Vert(Estratto(es,8,5)) + Estratto(es,1,1) + 6))
                     n2(5) = Fuori90((Vert(Estratto(es,10,3)) + Estratto(es,6,4) + 1))
                     ok = 1
                  End If
               End If
               If r = 9 Then
                  If a = 15 And b = 76 Or a = 76 And b = 15 Then
                     n1(1) = Fuori90((Figura(Estratto(es,2,1)) + Estratto(es,12,1) + 90))
                     n1(2) = Fuori90((Vert(Estratto(es,4,5)) + Estratto(es,10,3) + 14))
                     n1(3) = Fuori90(((Decina(Estratto(es,10,4)) +(Cadenza(Estratto(es,10,4))) + 2)))
                     n1(4) = Fuori90((Vert(Estratto(es,9,1)) + Estratto(es,9,4) + 16))
                     n1(5) = Fuori90((ComplAdX(Estratto(es,9,2)) + Estratto(es,8,3) + 2))
                     n2(1) = Fuori90((Figura(Estratto(es,2,1)) + Estratto(es,12,1) + 90))
                     n2(2) = Fuori90((Cadenza(Estratto(es,12,5)) + Estratto(es,3,3) + 2))
                     n2(3) = Fuori90((Vert(Estratto(es,8,3)) + Estratto(es,3,3) + 34))
                     n2(4) = Fuori90((Decina(Estratto(es,12,1)) + Estratto(es,7,5) + 2))
                     n2(5) = Fuori90((Diametrale(Estratto(es,8,5)) + Estratto(es,8,2) + 1))
                     ok = 1
                  End If
               End If
               If r = 10 Then
                  If a = 15 And b = 76 Or a = 76 And b = 15 Then
                     n1(1) = Fuori90(Estratto(es,1,4) + Estratto(es,9,5) + 30)
                     n1(2) = Fuori90((DiametraleD(Estratto(es,1,3)) + Estratto(es,3,5) + 1))
                     n1(3) = Fuori90((Vert(Estratto(es,1,3)) + Estratto(es,1,5) + 19))
                     n1(4) = Fuori90((Diametrale(Estratto(es,8,5)) + Estratto(es,9,2) + 8))
                     n1(5) = Fuori90((Diametrale(Estratto(es,10,5)) + Estratto(es,8,4) + 2))
                     n2(1) = Fuori90(Estratto(es,9,5) + Estratto(es,1,4) + 30)
                     n2(2) = Fuori90((Vert(Estratto(es,6,4)) + Estratto(es,7,1) + 2))
                     n2(3) = Fuori90((Figura(Estratto(es,2,3)) + Estratto(es,7,1) + 5))
                     n2(4) = Fuori90(((Decina(Estratto(es,8,5)) +(Cadenza(Estratto(es,8,5))) + Estratto(es,10,3) + 12)))
                     n2(5) = Fuori90(((Decina(Estratto(es,1,4)) +(Cadenza(Estratto(es,1,4))) + Estratto(es,5,2) + 3)))
                     ok = 1
                  End If
               End If
               If r = 12 Then
                  If a = 15 And b = 76 Or a = 76 And b = 15 Then
                     n1(1) = Fuori90(((Decina(Estratto(es,1,1)) +(Cadenza(Estratto(es,1,1))) + Estratto(es,1,2) + 18)))
                     n1(2) = Fuori90((ComplAdX(Estratto(es,12,3)) + Estratto(es,10,3) + 11))
                     n1(3) = Fuori90((Cadenza(Estratto(es,9,5)) + Estratto(es,4,2) + 35))
                     n1(4) = Fuori90((DiametraleD(Estratto(es,12,5)) + Estratto(es,3,5) + 40))
                     n1(5) = Fuori90((Vert(Estratto(es,2,2)) + Estratto(es,3,1) + 1))
                     n2(1) = Fuori90((Vert(Estratto(es,12,5)) + Estratto(es,1,1) + 4))
                     n2(2) = Fuori90((Figura(Estratto(es,12,2)) + Estratto(es,9,2) + 78))
                     n2(3) = Fuori90((ComplAdX(Estratto(es,8,5)) + Estratto(es,1,1) + 3))
                     n2(4) = Fuori90((Decina(Estratto(es,1,1)) + Estratto(es,9,3) + 53))
                     n2(5) = Fuori90((Diametrale(Estratto(es,7,3)) + Estratto(es,7,3) + 1))
                     ok = 1
                  End If
               End If
               ruota(1) = 1
               ImpostaGiocata 1,n1,ruota,posta,clp
               ImpostaGiocata 2,n2,ruota,posta,clp
               If ok = 1 Then
                  co = co + 1
                  ColoreTesto 1
                  Scrivi String(80,"^") & " Caso n°" & co,1
                  Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
                  Scrivi "Su " & FormatSpace(NomeRuota(r),12) & " Spie " & a & " " & b
                  Scrivi String(80,"^"),1
                  ColoreTesto 0
                  Gioca es,1
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub

claudio8 · 16 Giugno 2024

BaffoBlù ha scritto:
No caro Marco, non ci siamo...

"Sai quanti ammazzacaffè devo ancora tirar fuori?
Della serie : I dolcetti migliori si servono a fine pasto...
Se fai una variante deve avere la linea verde delle vincite in cima a tutte
Anche se di poco, ma deve stare in cima...

Capito mi hai?

Passiamo al tuo script :

Marco, hai l'abilità di incartarti da solo come a volte capitava a me
certi incartocciamenti...ma per fortuna sempre meno.
ma assimila di qua e assimila di là, e piano piano...

Non ti serve quell' "ok" e tanto meno if ok = 1 then

Poi la ruota "r1" non esiste da nessuna parte
ma l'hai inserita per mostrare a video il (Nulla...)
Poi non mostra i casi e i casi totali..

usa quel benedetto Option Explicit
sta li apposta per guidarti specie in script "Rotoloni"

Individuare gli errori è molto più facile se dichiari tutto con Option Explicit.

Lezione fondamentale imparata dal grande LuigiB.

Linea verde delle vincite in cima...

anche di poco, tipo così :"

SIAMO RIMASTI IN TRE ... Benvenuto VICERE'

Cerca

Cerca

L'AmmazzaCaffè

BaffoBlù

Advanced Member >PLATINUM<

Marco-elle

Banned

Marco-elle

Banned

BaffoBlù

Advanced Member >PLATINUM<

BaffoBlù

Advanced Member >PLATINUM<

Marco-elle

Banned

Marco-elle

Banned

Marco-elle

Banned

Marco-elle

Banned

BaffoBlù

Advanced Member >PLATINUM<

Marco-elle

Banned

Marco-elle

Banned

claudio8

Premium Member

Ultima estrazione Lotto

Ultimi Messaggi