SCRIPT - XI

Roby · 11 Luglio 2018

L'unica spiegazione corretta è nel messaggio #17, non ve ne sono altre.

Joe si è avvicinato, ma gli mancano 2 calcoli da eliminare.

ripeto guardate il messaggio 17 con attenzione, è tutto spiegato.

il messaggio iniziale era dovuto a una mia svista con 11 numeri inesistenti.
per quello cercavo il verifica esito che adesso non centra più nulla.

un saluto a tutti

i legend · 11 Luglio 2018

Cerberus;n2122975 ha scritto:
Facciamo chiarezza

Lo script cerca una spia "x" decisa in precedenza con input box.
Quando su una ruota si trova la spia x, esegue dei calcoli su quei 5 estratti di quell'estrazione e su quella ruota.

I calcoli in realtà si riducono a 10 somme, per ciascuna posizione della caduta della spia.
quindi lo script prende in considerazione solo i 10 calcoli che partono da quella spia in quella posizione.

Esempio reale sulla spia "x" posta a "1".

29/05/2018 - Bari - 89.79.46.17.01

Per Intenderci:

a = 89
b = 79
c = 46
d = 17
e = 01

Abbiamo trovato la spia "x" che in questo caso cade sulla "e", il numero "01".
-----------------------------------------------------------------------------

Quando nello script arriva questo, lo salta perchè non è la "e", non esegue nemmeno i calcoli, dato che ripeto non è la "e", ma la "a"

Codice:

If a = x Then am(1) = Fuori90(a + b) am(2) = Fuori90(a + c) am(3) = Fuori90(a + d) am(4) = Fuori90(a + e) am(5) = Fuori90(b + c) am(6) = Fuori90(b + d) am(7) = Fuori90(b + e) am(8) = Fuori90(c + d) am(9) = Fuori90(c + e) am(10) = Fuori90(d + e)

in realtà è questo :

Codice:

If a = x Then am(1) = Fuori90(89 + 79) = 78 am(2) = Fuori90(89 + 46) = 45 am(3) = Fuori90(89 + 17) = 16 am(4) = Fuori90(89 + 1) = 90 am(5) = Fuori90(79 + 46) = 35 am(6) = Fuori90(79 + 17) = 06 am(7) = Fuori90(79 + 1) = 80 am(8) = Fuori90(46 + 17) = 63 am(9) = Fuori90(46 + 1) = 47 am(10) = Fuori90(17 + 1) = 18

10 numeri nessun ripetuto
---------------------------------------------

Quando nello script arriva questo, lo salta perchè non è la "e", non esegue nemmeno i calcoli, dato che ripeto non è la "e", ma la "b"

Codice:

If b = x Then am(1) = Fuori90(b + a) am(2) = Fuori90(b + c) am(3) = Fuori90(b + d) am(4) = Fuori90(b + e) am(5) = Fuori90(a + c) am(6) = Fuori90(a + d) am(7) = Fuori90(a + e) am(8) = Fuori90(c + d) am(9) = Fuori90(c + e) am(10) = Fuori90(d + e)

in realtà è questo

Codice:

If b = x Then am(1) = Fuori90(79 + 89) = 78 am(2) = Fuori90(79 + 46) = 35 am(3) = Fuori90(79 + 17) = 06 am(4) = Fuori90(79 + 1) = 80 am(5) = Fuori90(89 + 46) = 45 am(6) = Fuori90(89 + 17) = 16 am(7) = Fuori90(89 + 1) = 90 am(8) = Fuori90(46 + 17) = 63 am(9) = Fuori90(46 + 1) = 47 am(10) = Fuori90(17 + 1) = 18

10 numeri nessun ripetuto
---------------------------------------------

Quando nello script arriva questo, lo salta perchè non è la "e", non esegue nemmeno i calcoli, dato che ripeto non è la "e", ma la "c"

Codice:

If c = x Then am(1) = Fuori90(c + a) am(2) = Fuori90(c + b) am(3) = Fuori90(c + d) am(4) = Fuori90(c + e) am(5) = Fuori90(a + c) am(6) = Fuori90(a + d) am(7) = Fuori90(a + e) am(8) = Fuori90(b + d) am(9) = Fuori90(b + e) am(10) = Fuori90(d + e)

in realtà è questo

Codice:

If c = x Then am(1) = Fuori90(46 + 89) = 45 am(2) = Fuori90(46 + 79) = 35 am(3) = Fuori90(46 + 17) = 63 am(4) = Fuori90(46 + 1) = 47 am(5) = Fuori90(89 + 46) = 45 -----> Numero ripetuto am(6) = Fuori90(89 + 17) = 16 am(7) = Fuori90(89 + 1) = 90 am(8) = Fuori90(79 + 17) = 06 am(9) = Fuori90(79 + 1) = 80 am(10) = Fuori90(17 + 1) = 18

numeri eliminati: 01 Numeri rimasti : 09
---------------------------------------------

Quando nello script arriva questo, lo salta perchè non è la "e", non esegue nemmeno i calcoli, dato che ripeto non è la "e", ma la "d"

Codice:

If d = x Then am(1) = Fuori90(d + a) am(2) = Fuori90(d + b) am(3) = Fuori90(d + c) am(4) = Fuori90(d + e) am(5) = Fuori90(a + c) am(6) = Fuori90(a + d) am(7) = Fuori90(a + e) am(8) = Fuori90(b + d) am(9) = Fuori90(b + e) am(10) = Fuori90(c + e)

in realtà è questo

Codice:

If d = x Then am(1) = Fuori90(17 + 89) = 16 am(2) = Fuori90(17 + 79) = 06 am(3) = Fuori90(17 + 46) = 63 am(4) = Fuori90(17 + 1) = 18 am(5) = Fuori90(89 + 46) = 45 am(6) = Fuori90(89 + 17) = 16 -----> Numero ripetuto am(7) = Fuori90(89 + 1) = 90 am(8) = Fuori90(79 + 17) = 06 -----> Numero ripetuto am(9) = Fuori90(79 + 1) = 80 am(10) = Fuori90(46 + 1) = 47

numeri eliminati: 02 Numeri rimasti : 08
---------------------------------------------

questo invece è quello che ci interessa perchè la spia è caduta in 5 pos come segnalato dalla lettera "e".

quindi questi saranno gli unici numeri che lo script prenderà per buoni e se ci sono ripetuti li elimina, tutto qui!

questo pezzo è l'unico che lo script considera giusto secondo i dati inseriti con la spia "1" capitata in 5° pos. inerente alla "e".

Codice:

If e = x Then am(1) = Fuori90(e + a) am(2) = Fuori90(e + b) am(3) = Fuori90(e + c) am(4) = Fuori90(e + d) am(5) = Fuori90(a + c) am(6) = Fuori90(a + d) am(7) = Fuori90(a + e) am(8) = Fuori90(b + d) am(9) = Fuori90(b + e) am(10) = Fuori90(c + e)

in realtà è questo

Codice:

If e = x Then am(1) = Fuori90(1 + 89) = 90 am(2) = Fuori90(1 + 79) = 80 am(3) = Fuori90(1 + 46) = 47 am(4) = Fuori90(1 + 17) = 18 am(5) = Fuori90(89 + 46) = 45 am(6) = Fuori90(89 + 17) = 16 am(7) = Fuori90(89 + 1) = 90 -----> Numero ripetuto am(8) = Fuori90(79 + 17) = 06 am(9) = Fuori90(79 + 1) = 80 -----> Numero ripetuto am(10) = Fuori90(46 + 1) = 47 -----> Numero ripetuto

numeri eliminati: 03 Numeri rimasti : 07
---------------------------------------------

spero che ci sia più chiarezza adesso che come è adesso, non si può sapere a prescindere, come capitano le cose e quindi quali calcoli eliminare.

ci si può riuscire?, certo!

Si può farlo, decidendo in input box la posizione della spia, e quindi sarebbe sempre quella la serie di calcoli da eseguire, quindi se c'è qualcuno da eliminare...

Comunque a scanso di altri equivoci, i calcoli sono quelli che vi ho fatto appena vedere, qualsiasi cosa di diverso, non è quello.

Provando mi sto accorgendo adesso che :

la 5° posizione della spia "1", produce sempre 7 numeri.
la 4° posizione della spia "1", produce sempre 8 numeri.
la 3° posizione della spia "1", produce sempre 9 numeri.
la 2° posizione della spia "1", produce sempre 10 numeri.
la 1° posizione della spia "1", produce sempre 10 numeri.

Esiste uno schema standard per ogni posizione, come vedete in "e" sempre 3 ripetuti, in "d" sempre 2 ripetuti, in "c" sempre 1 ripetuto,
in "b" e in "a" sempre nessun ripetuto.

I calcoli da eliminare sono quelli dove capita il numero ripetuto a seconda della lettera e della posizione.

scrivi :
Per Intenderci:

a = 89
b = 79
c = 46
d = 17
e = 01

If e = x Then
am(1) = Fuori90(1 + 89) = 90
am(2) = Fuori90(1 + 79) = 80
am(3) = Fuori90(1 + 46) = 47
am(4) = Fuori90(1 + 17) = 18
am(5) = Fuori90(89 + 46) = 45
am(6) = Fuori90(89 + 17) = 16
am(7) = Fuori90(89 + 1) = 90 -----> Numero ripetuto
am(8) = Fuori90(79 + 17) = 06
am(9) = Fuori90(79 + 1) = 80 -----> Numero ripetuto
am(10) = Fuori90(46 + 1) = 47 -----> Numero ripetuto
[/CODE]
numeri eliminati: 03 Numeri rimasti : 07
Ciao Cerberus
i numeri ripetuti sono frutto degli stessi numeri sommati seguendo il tuo esempio

ora ti posto dei casi reali con le 10 somme per la spia 1 nelle varie posizioni
in alcuni di essi ci sono dei numeri ripetuti nonostante vengano eseguiti 10 calcoli differenti
per favore potresti sviluppare i casi che ti posto come li vorresti?
in base a quello che posti costruiamo l algoritmo

Codice:

Alcuni esempi reali della spia 1 in ogni posizione è stata eseguita sempre la stessa somma
Fuori90(a+b)
Fuori90(a+c)
Fuori90(a+d)
Fuori90(a+e)
Fuori90(b+c)
Fuori90(b+d)
Fuori90(b+e)
Fuori90(c+d)
Fuori90(c+e)
Fuori90(d+e)




9489----- FI -----01.20.74.07.51----------21.75.08.52.04.27.71.81.35.58  
9481-----RO-----01.28.55.57.43----------29.56.58.44.83.85.71.22.08.10  
9465-----MI-----01.90.41.74.58 ----------01.[COLOR=#FF0000]42[/COLOR].75.59.41.74.58.25.09.[COLOR=#FF0000]42[/COLOR] ----------[COLOR=#FF0000][B]42[/B][/COLOR]
-----------------------------------------------------------------
9492 ----------VE  36.01.25.20.21  37.61.56.57.26.21.22.45.46.41  
9489 ----------CA  53.01.26.46.08 [COLOR=#FF0000][B] 54[/B][/COLOR].79.[B][COLOR=#FF0000]09[/COLOR][/B].61.27.47[COLOR=#FF0000][B].09[/B][/COLOR].72.34.[B][COLOR=#FF0000]54   9.54[/COLOR][/B]
9457---------- BA  82.01.13.58.56  83.05.50.48.14.59.57.71.69.24  
-----------------------------------------------------------------
9481 ---------- FI ---------- 73.85.01.17.47----------  68.74.90.30.86.12.42.18.48.64  
9428  ----------MI ---------- 81.86.01.66.90----------  77.82.57.81.87.62.86.67.01.66  
9413 ---------- VE ---------- 42.49.01.83.29----------  01.43.35.71.50.42.78.84.30.22  
9180 ---------- VE  ----------69.06.01.74.11----------  [COLOR=#FF0000]75[/COLOR].70.53.[COLOR=#FF0000]80[/COLOR].07.[COLOR=#FF0000]80[/COLOR].17.[COLOR=#FF0000]75[/COLOR].12.85----------   [B][COLOR=#FF0000]75.80[/COLOR][/B]
--------------------------------------------------------------------
9493 ---------- VE----------  06.27.36.01.55 ---------- 33.42.07.61.63.28.82.37.01.56  
9487 ---------- PA ---------- 21.43.77.01.74 ---------- 64.08.22.05.30.44.27.78.61.75  
9475----------  MI  ----------65.16.47.01.39 ---------- 81.22.66.14.63.17.55.48.86.40  
----------------------------------------------------------------------
9496 ---------- VE  46.76.06.90.01----------  32.52.46.47.82.76.77.06.07.01  
9495----------  NA  50.72.62.45.01 ---------- 32.22.05.51.44.27.73.17.63.46  
9479 ---------- BA  89.79.46.17.01 ---------- 78.45.16.90.35.06.80.63.47.18

ciao

joe · 11 Luglio 2018

Si ... ma ci devi mettere assieme anche quanto hanno scritto Ilegend, Claudio e gli altri.

Le somme duplicate escludono matematicamente alcuni numeri ...

perchè raddoppiano alcuni risultati ed essi "prendono" il posto delle legittime somme,

che, nelle loro veci, non vengono calcolate divenendo "escluse".

... Poi ...

Ci può essere anche una esclusione aleatoria che dipende dal fatto

che casualmente si possano verificare dei risultati di somme che si ripetono.

In sintesi,

come è già successo e succederà sia qui che altrove il metodo è tuo

Se ti va bene, va bene.

Sia che sia con 20 numeri ... che con metà

o che questi numeri ne rimangano "solo" 6 / 7 / 8 / 9.

joe · 11 Luglio 2018

Quest'ultima versione,

dovrebbe riassumere un pò tutto quanto s'è detto,

soprattutto per recuperare anche i pronostici plurimi,

e correggere il mio errore ... pur discostandosi parecchio dallo script iniziale.

Codice:

Option Explicit
Sub Main
  Dim es,Ini,Fin,r0,r1,nRic,Clp,ok,x
  Dim ruota(12)
  Dim ruote(12)
  Dim poste(10)
  Dim am(10)
  Dim na(10)
  Dim co
  Dim g,e,l,m,n
  poste(2) = 1
  poste(3) = 1
  poste(4) = 1
  poste(5) = 1
  x = CInt(InputBox(" Scegli Spia Base ",,"1"))
  'r0 = CInt(InputBox(" Scegli la ruota Base ",,"1"))
  ruote(1) = 11
  nRic = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"1000"))
  Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"6"))
  Ini = EstrazioneFin - nRic
  Fin = EstrazioneFin
  co = 0
  For es = Ini To Fin
    Messaggio "elab. estr. [" &(es) & "]"' di " & DataEstrazione(es,1)
    Call AvanzamentoElab(Ini,Fin,es)
    g = 0
    For r0 = 1 To 10
      'ruota(1) = r0
      If Posizione(es,r0,x) > 0 Then
        Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r0) & " " & StringaEstratti(es,r0) & " ] " & " Spia " & x,1,,,1
        g = g + 1
        l = 0 : GetArrayNumeriRuota es,r0,e
        For m = 1 To 4
          For n = m + 1 To 5
            l = l + 1
            na(l) = Fuori90(e(m) + e(n))
          Next
        Next
        EliminaRipetuti na
        co = co + 1
        ImpostaGiocata g,na,ruote,poste,Clp,4
      End If
    Next
    If g > 0 Then
      Gioca es,True,,1
      Scrivi String(120,"-")
    End If
    If ScriptInterrotto Then Exit For
  Next
  Scrivi
  Scrivi String(100,"*")
  ColoreTesto 2
  Scrivi" casi trovati : " & co,1
  ColoreTesto 0
  Scrivi String(100,"*")
  TestoInBandaPassante(" D A  U N  I D E A  D I  C E R B E R U S "),1,3,0
  ScriviResoconto',False
End Sub

Buona giornata a tutte/i.

Roby · 11 Luglio 2018

i legend;n2123034 ha scritto:
9489----- FI -----01.20.74.07.51----------21.75.08.52.04.27.71.81.35.58
9481-----RO-----01.28.55.57.43----------29.56.58.44.83.85.71.22.08.10
9465-----MI-----01.90.41.74.58 ----------01.42.75.59.41.74.58.25.09.42 ----------42
-----------------------------------------------------------------
9492 ----------VE 36.01.25.20.21 37.61.56.57.26.21.22.45.46.41
9489 ----------CA 53.01.26.46.08 54.79.09.61.27.47.09.72.34.54 9.54
9457---------- BA 82.01.13.58.56 83.05.50.48.14.59.57.71.69.24
-----------------------------------------------------------------
9481 ---------- FI ---------- 73.85.01.17.47---------- 68.74.90.30.86.12.42.18.48.64
9428 ----------MI ---------- 81.86.01.66.90---------- 77.82.57.81.87.62.86.67.01.66
9413 ---------- VE ---------- 42.49.01.83.29---------- 01.43.35.71.50.42.78.84.30.22
9180 ---------- VE ----------69.06.01.74.11---------- 75.70.53.80.07.80.17.75.12.85---------- 75.80
--------------------------------------------------------------------
9493 ---------- VE---------- 06.27.36.01.55 ---------- 33.42.07.61.63.28.82.37.01.56
9487 ---------- PA ---------- 21.43.77.01.74 ---------- 64.08.22.05.30.44.27.78.61.75
9475---------- MI ----------65.16.47.01.39 ---------- 81.22.66.14.63.17.55.48.86.40
----------------------------------------------------------------------
9496 ---------- VE 46.76.06.90.01---------- 32.52.46.47.82.76.77.06.07.01
9495---------- NA 50.72.62.45.01 ---------- 32.22.05.51.44.27.73.17.63.46
9479 ---------- BA 89.79.46.17.01 ---------- 78.45.16.90.35.06.80.63.47.18
[/code]
ciao

Queste sono dal mio script, e sono quelle esatte.

Estrazione generatrice del pronostico 09489 [ 74 - 21/06/2018]
G 0001 Numeri in gioco : 04.08.21.27.35.52.58.71.75.81 su TT per Ambo,Terno,Quaterna,Cinquina

Estrazione generatrice del pronostico 09481 [ 66 - 04/06/2018]
G 0001 Numeri in gioco : 08.10.22.29.44.56.58.71.83.85 su TT per Ambo,Terno,Quaterna,Cinquina

...inutile continuare, tanto sono tutte diverse, è ovvio che i calcoli sono diversi.

Non so piu che dire, il mio script è questo, dove evidenzio gli unici calcoli che si ripetono.
che rimandano comunque alla spiegazione già fatta che rimane e sarà sempre quella.

Si è creato casino all'inizio per il verifica esito e gli 11 numeri, per via di una mia svista.

il resto è un altra cosa.

Accidenti, certo che ne faccio di cose strane...lottosticamente...

Questo è lo script, con evidenziati i calcoli ripetuti, ma solo in c,d,e, rispettivamente con 1, 2, 3, ripetizioni.
a= da 10 numeri come b, invece c= 9 numeri, d= 8 numeri, e=7 numeri.
non so, se si potrebbe togliere elimina ripetuti e trafficare con quei calcoli, per farli capitare in a 10, in b 10, in c 9, in d 8, e in e 7.

Non so neanche come si potrebbe fare in un altra maniera più sofisticata, ma se non fa i calcoli giusti, non è quello giusto.

Mi è venuta così, ma gli esperti siete voi...

Codice:

Option Explicit
Sub Main
   Dim es,Ini,Fin,r0,r1,nRic,Clp,ok,x
   Dim ruota(12)
   Dim ruote(12)
   Dim poste(10)
   Dim am(10)
   Dim na(10)
   Dim a,b,c,d,e,co
   poste(2) = 1
   poste(3) = 1
   poste(4) = 1
   poste(5) = 1
   x = CInt(InputBox(" Scegli Spia Base ",,"1"))
   'r0 = CInt(InputBox(" Scegli la ruota Base ",,"1"))
   r1 = 11
   nRic = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"1000"))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"6"))
   Ini = EstrazioneFin - nRic
   Fin = EstrazioneFin
   co = 0
   For es = Ini To Fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,Fin,es)
      For r0 = 1 To 10
         ruota(1) = r0
         ruote(1) = r1
         ok = 0
         a = Estratto(es,r0,1)
         b = Estratto(es,r0,2)
         c = Estratto(es,r0,3)
         d = Estratto(es,r0,4)
         e = Estratto(es,r0,5)
         If a = x Then
            am(1) = Fuori90(a + b)
            am(2) = Fuori90(a + c)
            am(3) = Fuori90(a + d)
            am(4) = Fuori90(a + e)
            am(5) = Fuori90(b + c)
            am(6) = Fuori90(b + d)
            am(7) = Fuori90(b + e)
            am(8) = Fuori90(c + d)
            am(9) = Fuori90(c + e)
            am(10) = Fuori90(d + e)
            ok = 1
         End If
         If b = x Then
            am(1) = Fuori90(b + a)
            am(2) = Fuori90(b + c)
            am(3) = Fuori90(b + d)
            am(4) = Fuori90(b + e)
            am(5) = Fuori90(a + c)
            am(6) = Fuori90(a + d)
            am(7) = Fuori90(a + e)
            am(8) = Fuori90(c + d)
            am(9) = Fuori90(c + e)
            am(10) = Fuori90(d + e)
            ok = 1
         End If
         If c = x Then
            am(1) = Fuori90(c + a)
            am(2) = Fuori90(c + b)
            am(3) = Fuori90(c + d)
            am(4) = Fuori90(c + e)
            am(5) = Fuori90(a + c)' -----> Numero ripetuto da am(1)
            am(6) = Fuori90(a + d)
            am(7) = Fuori90(a + e)
            am(8) = Fuori90(b + d)
            am(9) = Fuori90(b + e)
            am(10) = Fuori90(d + e)
            ok = 1
         End If
         If d = x Then
            am(1) = Fuori90(d + a)
            am(2) = Fuori90(d + b)
            am(3) = Fuori90(d + c)
            am(4) = Fuori90(d + e)
            am(5) = Fuori90(a + c)
            am(6) = Fuori90(a + d)' -----> Numero ripetuto da am(1)
            am(7) = Fuori90(a + e)
            am(8) = Fuori90(b + d)' -----> Numero ripetuto da am(2)
            am(9) = Fuori90(b + e)
            am(10) = Fuori90(c + e)
            ok = 1
         End If
         If e = x Then
            am(1) = Fuori90(e + a)
            am(2) = Fuori90(e + b)
            am(3) = Fuori90(e + c)
            am(4) = Fuori90(e + d)
            am(5) = Fuori90(a + c)
            am(6) = Fuori90(a + d)
            am(7) = Fuori90(a + e)' -----> Numero ripetuto da am(1)
            am(8) = Fuori90(b + d)
            am(9) = Fuori90(b + e)' -----> Numero ripetuto da am(2)
            am(10) = Fuori90(c + e)' -----> Numero ripetuto da am(3)
            ok = 1
         End If
         If ok = 1 Then
            na(1) = am(1)
            na(2) = am(2)
            na(3) = am(3)
            na(4) = am(4)
            na(5) = am(5)
            na(6) = am(6)
            na(7) = am(7)
            na(8) = am(8)
            na(9) = am(9)
            na(10) = am(10)
            EliminaRipetuti na
            co = co + 1
            Scrivi String(70,"-")
            Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r0) & " " & StringaEstratti(es,r0) & " ] " & " Spia " & x,1,,,1
            ImpostaGiocata 1,na,ruote,poste,Clp,4
            Gioca es,True,,1
            If ScriptInterrotto Then Exit For
         End If
      Next
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" D A  U N  I D E A  D I  C E R B E R U S "),1,3,0
   'ScriviResoconto,False
End Sub

Roby · 11 Luglio 2018

joe;n2123045 ha scritto:

Quest'ultima versione,

dovrebbe riassumere un pò tutto quanto s'è detto,

soprattutto per recuperare anche i pronostici plurimi,

e correggere il mio errore ... pur discostandosi parecchio dallo script iniziale.

Codice:

Option Explicit
Sub Main
Dim es,Ini,Fin,r0,r1,nRic,Clp,ok,x
Dim ruota(12)
Dim ruote(12)
Dim poste(10)
Dim am(10)
Dim na(10)
Dim co
Dim g,e,l,m,n
poste(2) = 1
poste(3) = 1
poste(4) = 1
poste(5) = 1
x = CInt(InputBox(" Scegli Spia Base ",,"1"))
'r0 = CInt(InputBox(" Scegli la ruota Base ",,"1"))
ruote(1) = 11
nRic = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"1000"))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"6"))
Ini = EstrazioneFin - nRic
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
Messaggio "elab. estr. [" &(es) & "]"' di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
g = 0
For r0 = 1 To 10
'ruota(1) = r0
If Posizione(es,r0,x) > 0 Then
Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r0) & " " & StringaEstratti(es,r0) & " ] " & " Spia " & x,1,,,1
g = g + 1
l = 0 : GetArrayNumeriRuota es,r0,e
For m = 1 To 4
For n = m + 1 To 5
l = l + 1
na(l) = Fuori90(e(m) + e(n))
Next
Next
EliminaRipetuti na
co = co + 1
ImpostaGiocata g,na,ruote,poste,Clp,4
End If
Next
If g > 0 Then
Gioca es,True,,1
Scrivi String(120,"-")
End If
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100,"*")
TestoInBandaPassante(" D A U N I D E A D I C E R B E R U S "),1,3,0
ScriviResoconto',False
End Sub

Buona giornata a tutte/i.

*****************************************

Mi dispiace, ma nemmeno questo fa i calcoli uguali, se ne va da un altra parte come quello di ilegend, non me ne vogliate, non centro.

Ho fatto questo ultimo script a proposito, semplicissimo, magari non corretto nella forma, ma fa tutto esatto, e quello conta per me.

Oltre a scegliere la spia, ho aggiunto la posizione a scelta in maniera da estendere la ricerca a tutto campo.

un saluto a tutti

Codice:

Option Explicit
Sub Main
   Dim es,Ini,Fin,r0,r1,nRic,Clp,ok,x,pos
   Dim ruota(12)
   Dim ruote(12)
   Dim poste(10)
   Dim am(10)
   Dim na(10)
   Dim a,b,c,d,e,co
   poste(2) = 1
   poste(3) = 1
   poste(4) = 1
   poste(5) = 1
   x = CInt(InputBox(" Scegli la Spia Base ",,"90"))
   pos = CInt(InputBox(" Scegli la posizione della Spia ",,"5"))
   r1 = 11
   nRic = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"1000"))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"6"))
   Ini = EstrazioneFin - nRic
   Fin = EstrazioneFin
   co = 0
   For es = Ini To Fin
      Messaggio " elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,Fin,es)
      For r0 = 1 To 10
         ruota(1) = r0
         ruote(1) = r1
         ok = 0
         If pos = 1 Then
            a = Estratto(es,r0,1)
            b = Estratto(es,r0,2)
            c = Estratto(es,r0,3)
            d = Estratto(es,r0,4)
            e = Estratto(es,r0,5)
            If a = x Then
               am(1) = Fuori90(a + b)
               am(2) = Fuori90(a + c)
               am(3) = Fuori90(a + d)
               am(4) = Fuori90(a + e)
               am(5) = Fuori90(b + c)
               am(6) = Fuori90(b + d)
               am(7) = Fuori90(b + e)
               am(8) = Fuori90(c + d)
               am(9) = Fuori90(c + e)
               am(10) = Fuori90(d + e)
               ok = 1
            End If
         End If
         If pos = 2 Then
            a = Estratto(es,r0,1)
            b = Estratto(es,r0,2)
            c = Estratto(es,r0,3)
            d = Estratto(es,r0,4)
            e = Estratto(es,r0,5)
            If b = x Then
               am(1) = Fuori90(b + a)
               am(2) = Fuori90(b + c)
               am(3) = Fuori90(b + d)
               am(4) = Fuori90(b + e)
               am(5) = Fuori90(a + c)
               am(6) = Fuori90(a + d)
               am(7) = Fuori90(a + e)
               am(8) = Fuori90(c + d)
               am(9) = Fuori90(c + e)
               am(10) = Fuori90(d + e)
               ok = 1
            End If
         End If
         If pos = 3 Then
            a = Estratto(es,r0,1)
            b = Estratto(es,r0,2)
            c = Estratto(es,r0,3)
            d = Estratto(es,r0,4)
            e = Estratto(es,r0,5)
            If c = x Then
               am(1) = Fuori90(c + a)
               am(2) = Fuori90(c + b)
               am(3) = Fuori90(c + d)
               am(4) = Fuori90(c + e)
               am(5) = Fuori90(a + c)' -----> Numero ripetuto am(1)
               am(6) = Fuori90(a + d)
               am(7) = Fuori90(a + e)
               am(8) = Fuori90(b + d)
               am(9) = Fuori90(b + e)
               am(10) = Fuori90(d + e)
               ok = 1
            End If
         End If
         If pos = 4 Then
            a = Estratto(es,r0,1)
            b = Estratto(es,r0,2)
            c = Estratto(es,r0,3)
            d = Estratto(es,r0,4)
            e = Estratto(es,r0,5)
            If d = x Then
               am(1) = Fuori90(d + a)
               am(2) = Fuori90(d + b)
               am(3) = Fuori90(d + c)
               am(4) = Fuori90(d + e)
               am(5) = Fuori90(a + c)
               am(6) = Fuori90(a + d)' -----> Numero ripetuto am(1)
               am(7) = Fuori90(a + e)
               am(8) = Fuori90(b + d)' -----> Numero ripetuto am(2)
               am(9) = Fuori90(b + e)
               am(10) = Fuori90(c + e)
               ok = 1
            End If
         End If
         If pos = 5 Then
            a = Estratto(es,r0,1)
            b = Estratto(es,r0,2)
            c = Estratto(es,r0,3)
            d = Estratto(es,r0,4)
            e = Estratto(es,r0,5)
            If e = x Then
               am(1) = Fuori90(e + a)
               am(2) = Fuori90(e + b)
               am(3) = Fuori90(e + c)
               am(4) = Fuori90(e + d)
               am(5) = Fuori90(a + c)
               am(6) = Fuori90(a + d)
               am(7) = Fuori90(a + e)' -----> Numero ripetuto am(1)
               am(8) = Fuori90(b + d)
               am(9) = Fuori90(b + e)' -----> Numero ripetuto am(2)
               am(10) = Fuori90(c + e)' ----> Numero ripetuto am(3)
               ok = 1
            End If
         End If
         If ok = 1 Then
            na(1) = am(1)
            na(2) = am(2)
            na(3) = am(3)
            na(4) = am(4)
            na(5) = am(5)
            na(6) = am(6)
            na(7) = am(7)
            na(8) = am(8)
            na(9) = am(9)
            na(10) = am(10)
            EliminaRipetuti na
            co = co + 1
            Scrivi String(70,"-")
            Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r0) & " " & StringaEstratti(es,r0) & " ] " & " Spia " & x & " in " & pos & " Pos.",1,,,1
            ImpostaGiocata 1,na,ruote,poste,Clp
            Gioca es,True,,1
            If ScriptInterrotto Then Exit For
         End If
      Next
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" D A  U N  I D E A   PaZzA  D I  C E R B E R U S "),1,3,0
   ScriviResoconto,False
End Sub

Questa idea, mi è venuta per costruire una base per un costruttore sommativo inedito
e non so nemmeno io dove vado a parare...

joe · 12 Luglio 2018

Ciao ... come vedi

... il mio script è sufficientemente flessibile

da potersi adattare facilmente, ad elaborare l'output voluto

a fronte delle tue nuove specificazioni.

Ma questo è del tutto inutile perché sei autonomo ed ognuno diverso ...

... non potrebbe che stare "a rimorchio" di dette manovre repentine.

Cerca

Cerca

SCRIPT - XI

Roby

Guest

i legend

Premium Member

joe

Advanced Member >PLATINUM PLUS<

joe

Advanced Member >PLATINUM PLUS<

Roby

Guest

Roby

Guest

joe

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi