annuncio

Comprimi
Ancora nessun annuncio.

aiuto per script complicato

Comprimi
X
  • Filtro
  • Ora
  • Visualizza
Elimina tutto
nuovi messaggi

  • #31
    ma questa cosa non la so decifrare.

    uno script che arriva da L8 e da errore, nel nome di chi l'ha fatto e con la data di elaborazione.

    allora, siccome non centrano nulla con l'elaborazione dei dati.

    queste due righe, remmatele, cioè mettete un apice all'inizio di queste due righe,

    o cancellatele , intanto non servono all'elaborazione dei dati.
    fate come vedete scritto sotto

    ' Scrivi Date & _
    ' Chr(32) & Chr(98) & Chr(121) & Chr(32) & Chr(106) & Chr(101) & Chr(115) & Chr(121)

    salvate di nuovo lo script

    e rilanciate lo script su L8 per vedere se da altri errori.




    ...ciao

    Commenta


    • #32
      QUALCOSA RUBINO NON COMBINA GUARDA LA RUOTA DI GENOVA 2*3*4 ESTRATTO 72 PRIMO DI BA 66 4DI NAPOLI 68 2DI TORINO NELL ESTRAZIONE PRIMA O SBAGLIO

      Commenta


      • #33
        Ciao ghio
        ho bisogno di sapere, stai facendo riferimento ai dati ottenuti dallo script che ho fatto su spaziometria o a quello per L8.

        Vorrei sapere se devo continuare con l uno o con l altro.

        domani ci guarderò, ma dimmi a quale dei 2 script devo continuare a sistemare ed eventualmente fare aggiunte che ritieni opportune.

        aspetto tue info.
        Ultima modifica di Rubino; 11-07-2019, 22:43.
        ...ciao

        Commenta


        • #34
          SPAZIOMETRIA

          Commenta


          • #35
            RNBINO NELL CODICE POSTATO PREVISIONE,ELABORANDO CON SPAZIOM VEDRAI AGGIORNANDO LE ESTRAZIONI
            VEDRAI L USCITA DI BEN 6 AMBI CHE PERO NON NE ESISTE TRACCIA NELSUDETTO CODICE

            Commenta


            • #36
              ho guardato velocemente
              ma lo script di spaziometria, elenco nella lista solo i casi che hanno già fatto una verifica esito di almeno 1 colpo

              in questo caso, i tre numeri di genova che agganciano le altre ruote, sono nati in questa estrazione, quindi non ha
              potuto fare nessuna verifica esito, perchè la farà il prossimo colpo.
              in altre parole fa i controlli solo nelle ultime tre estrazioni e non nelle ultime due.

              domani ci guardo, se possibile elencarli a colpo 0 o come fare per elencare quelli appena nati.


              questi sono gli ultimi in lista attualmente:
              ------> 9652 e 9653 pos.NA-3 / PA-5 nr. 72.07 9654 NA .. .. .. 72 07
              ------> 9652 e 9653 pos.VE-4 / FI-4 nr. 18.60 9654 VE 18 .. .. .. 60
              ------> 9652 e 9653 pos.VE-4 / PA-4 nr. 18.60 9654 VE 18 .. .. .. 60
              ------> 9652 e 9653 pos.VE-4 / CA-2 nr. 18.08 9654 VE 18 .. 08 .. ..

              mancano tutti i nati con collegamento tra l'estrazione di questa sera e di quella precedente.

              domani ci guardo
              .
              Ultima modifica di Rubino; 11-07-2019, 23:56.
              ...ciao

              Commenta


              • #37
                Ciao,

                se può interessare :

                www.lottodesk.it/forum/index.php?topic=303.0

                Commenta


                • #38
                  Modificato !!!!
                  lo script che useremo e da controlli miei per quanto fatto fino a questo punto, mi sembra esatto.
                  se vuoi darci un'occhiata anche tu?
                  poi se anche per te è Ok, puoi descrivermi cosa vuoi fare, per ridurli o per puntare dritto la mira solo su alcuni.



                  codice:
                  E l e n c o  A m b i  R i l e v a t i  Ultime 2 Estrazione In Archivio
                  ----------
                  9652 / 9653  Ruote BA-1 / RO-1  Nr.88-88   In gioco per n.colpi..1  Ambo...88 28
                  9652 / 9653  Ruote BA-1 / RO-1  Nr.88-88   In gioco per n.colpi..1  Ambo...88 23
                  9652 / 9653  Ruote BA-1 / RO-1  Nr.88-88   In gioco per n.colpi..1  Ambo...88 60
                  9652 / 9653  Ruote BA-1 / RO-1  Nr.88-88   In gioco per n.colpi..1  Ambo...88 49
                  ----------
                  9652 / 9653  Ruote BA-1 / VE-4  Nr.88-88   In gioco per n.colpi..1  Ambo...88 43
                  9652 / 9653  Ruote BA-1 / VE-4  Nr.88-88   In gioco per n.colpi..1  Ambo...88 56
                  9652 / 9653  Ruote BA-1 / VE-4  Nr.88-88   In gioco per n.colpi..1  Ambo...88 16
                  9652 / 9653  Ruote BA-1 / VE-4  Nr.88-88   In gioco per n.colpi..1  Ambo...88 74
                  ----------
                  9652 / 9653  Ruote BA-2 / BA-1  Nr.72-72   In gioco per n.colpi..1  Ambo...72 8
                  9652 / 9653  Ruote BA-2 / BA-1  Nr.72-72   In gioco per n.colpi..1  Ambo...72 1
                  9652 / 9653  Ruote BA-2 / BA-1  Nr.72-72   In gioco per n.colpi..1  Ambo...72 28
                  9652 / 9653  Ruote BA-2 / BA-1  Nr.72-72   In gioco per n.colpi..1  Ambo...72 5
                  ----------
                  9652 / 9653  Ruote BA-3 / FI-5  Nr.27-27   In gioco per n.colpi..1  Ambo...27 20
                  9652 / 9653  Ruote BA-3 / FI-5  Nr.27-27   In gioco per n.colpi..1  Ambo...27 63
                  9652 / 9653  Ruote BA-3 / FI-5  Nr.27-27   In gioco per n.colpi..1  Ambo...27 61
                  9652 / 9653  Ruote BA-3 / FI-5  Nr.27-27   In gioco per n.colpi..1  Ambo...27 60
                  ----------
                  9652 / 9653  Ruote BA-4 / FI-4  Nr.60-60   In gioco per n.colpi..1  Ambo...60 20
                  9652 / 9653  Ruote BA-4 / FI-4  Nr.60-60   In gioco per n.colpi..1  Ambo...60 63
                  9652 / 9653  Ruote BA-4 / FI-4  Nr.60-60   In gioco per n.colpi..1  Ambo...60 61
                  9652 / 9653  Ruote BA-4 / FI-4  Nr.60-60   In gioco per n.colpi..1  Ambo...60 27
                  ----------
                  9652 / 9653  Ruote BA-4 / PA-4  Nr.60-60   In gioco per n.colpi..1  Ambo...60 43
                  9652 / 9653  Ruote BA-4 / PA-4  Nr.60-60   In gioco per n.colpi..1  Ambo...60 61
                  9652 / 9653  Ruote BA-4 / PA-4  Nr.60-60   In gioco per n.colpi..1  Ambo...60 62
                  9652 / 9653  Ruote BA-4 / PA-4  Nr.60-60   In gioco per n.colpi..1  Ambo...60 7
                  ----------
                  9652 / 9653  Ruote BA-4 / RO-4  Nr.60-60   In gioco per n.colpi..1  Ambo...60 88
                  9652 / 9653  Ruote BA-4 / RO-4  Nr.60-60   In gioco per n.colpi..1  Ambo...60 28
                  9652 / 9653  Ruote BA-4 / RO-4  Nr.60-60   In gioco per n.colpi..1  Ambo...60 23
                  9652 / 9653  Ruote BA-4 / RO-4  Nr.60-60   In gioco per n.colpi..1  Ambo...60 49
                  ----------
                  9652 / 9653  Ruote CA-2 / RO-5  Nr.49-49   In gioco per n.colpi..1  Ambo...49 88
                  9652 / 9653  Ruote CA-2 / RO-5  Nr.49-49   In gioco per n.colpi..1  Ambo...49 28
                  9652 / 9653  Ruote CA-2 / RO-5  Nr.49-49   In gioco per n.colpi..1  Ambo...49 23
                  9652 / 9653  Ruote CA-2 / RO-5  Nr.49-49   In gioco per n.colpi..1  Ambo...49 60
                  ----------
                  9652 / 9653  Ruote CA-3 / FI-1  Nr.20-20   In gioco per n.colpi..1  Ambo...20 63
                  9652 / 9653  Ruote CA-3 / FI-1  Nr.20-20   In gioco per n.colpi..1  Ambo...20 61
                  9652 / 9653  Ruote CA-3 / FI-1  Nr.20-20   In gioco per n.colpi..1  Ambo...20 60
                  9652 / 9653  Ruote CA-3 / FI-1  Nr.20-20   In gioco per n.colpi..1  Ambo...20 27
                  ----------
                  9652 / 9653  Ruote CA-4 / MI-5  Nr.50-50   In gioco per n.colpi..1  Ambo...50 79
                  9652 / 9653  Ruote CA-4 / MI-5  Nr.50-50   In gioco per n.colpi..1  Ambo...50 39
                  9652 / 9653  Ruote CA-4 / MI-5  Nr.50-50   In gioco per n.colpi..1  Ambo...50 6
                  9652 / 9653  Ruote CA-4 / MI-5  Nr.50-50   In gioco per n.colpi..1  Ambo...50 48
                  ----------
                  9652 / 9653  Ruote FI-1 / BA-4  Nr.28-28   In gioco per n.colpi..1  Ambo...28 72
                  9652 / 9653  Ruote FI-1 / BA-4  Nr.28-28   In gioco per n.colpi..1  Ambo...28 8
                  9652 / 9653  Ruote FI-1 / BA-4  Nr.28-28   In gioco per n.colpi..1  Ambo...28 1
                  9652 / 9653  Ruote FI-1 / BA-4  Nr.28-28   In gioco per n.colpi..1  Ambo...28 5
                  ----------
                  9652 / 9653  Ruote FI-1 / RO-2  Nr.28-28   In gioco per n.colpi..1  Ambo...28 88
                  9652 / 9653  Ruote FI-1 / RO-2  Nr.28-28   In gioco per n.colpi..1  Ambo...28 23
                  9652 / 9653  Ruote FI-1 / RO-2  Nr.28-28   In gioco per n.colpi..1  Ambo...28 60
                  9652 / 9653  Ruote FI-1 / RO-2  Nr.28-28   In gioco per n.colpi..1  Ambo...28 49
                  ----------
                  9652 / 9653  Ruote FI-2 / MI-4  Nr.48-48   In gioco per n.colpi..1  Ambo...48 79
                  9652 / 9653  Ruote FI-2 / MI-4  Nr.48-48   In gioco per n.colpi..1  Ambo...48 39
                  9652 / 9653  Ruote FI-2 / MI-4  Nr.48-48   In gioco per n.colpi..1  Ambo...48 6
                  9652 / 9653  Ruote FI-2 / MI-4  Nr.48-48   In gioco per n.colpi..1  Ambo...48 50
                  ----------
                  9652 / 9653  Ruote FI-5 / NA-5  Nr.29-29   In gioco per n.colpi..1  Ambo...29 46
                  9652 / 9653  Ruote FI-5 / NA-5  Nr.29-29   In gioco per n.colpi..1  Ambo...29 71
                  9652 / 9653  Ruote FI-5 / NA-5  Nr.29-29   In gioco per n.colpi..1  Ambo...29 63
                  9652 / 9653  Ruote FI-5 / NA-5  Nr.29-29   In gioco per n.colpi..1  Ambo...29 66
                  ----------
                  9652 / 9653  Ruote GE-2 / PA-5  Nr.7-7   In gioco per n.colpi..1  Ambo...7 43
                  9652 / 9653  Ruote GE-2 / PA-5  Nr.7-7   In gioco per n.colpi..1  Ambo...7 61
                  9652 / 9653  Ruote GE-2 / PA-5  Nr.7-7   In gioco per n.colpi..1  Ambo...7 62
                  9652 / 9653  Ruote GE-2 / PA-5  Nr.7-7   In gioco per n.colpi..1  Ambo...7 60
                  ----------
                  9652 / 9653  Ruote MI-1 / BA-5  Nr.5-5   In gioco per n.colpi..1  Ambo...5 72
                  9652 / 9653  Ruote MI-1 / BA-5  Nr.5-5   In gioco per n.colpi..1  Ambo...5 8
                  9652 / 9653  Ruote MI-1 / BA-5  Nr.5-5   In gioco per n.colpi..1  Ambo...5 1
                  9652 / 9653  Ruote MI-1 / BA-5  Nr.5-5   In gioco per n.colpi..1  Ambo...5 28
                  ----------
                  9652 / 9653  Ruote MI-5 / NA-2  Nr.71-71   In gioco per n.colpi..1  Ambo...71 46
                  9652 / 9653  Ruote MI-5 / NA-2  Nr.71-71   In gioco per n.colpi..1  Ambo...71 63
                  9652 / 9653  Ruote MI-5 / NA-2  Nr.71-71   In gioco per n.colpi..1  Ambo...71 66
                  9652 / 9653  Ruote MI-5 / NA-2  Nr.71-71   In gioco per n.colpi..1  Ambo...71 29
                  ----------
                  9652 / 9653  Ruote NA-2 / MI-1  Nr.79-79   In gioco per n.colpi..1  Ambo...79 39
                  9652 / 9653  Ruote NA-2 / MI-1  Nr.79-79   In gioco per n.colpi..1  Ambo...79 6
                  9652 / 9653  Ruote NA-2 / MI-1  Nr.79-79   In gioco per n.colpi..1  Ambo...79 48
                  9652 / 9653  Ruote NA-2 / MI-1  Nr.79-79   In gioco per n.colpi..1  Ambo...79 50
                  ----------
                  9652 / 9653  Ruote NA-3 / BA-1  Nr.72-72   In gioco per n.colpi..1  Ambo...72 8
                  9652 / 9653  Ruote NA-3 / BA-1  Nr.72-72   In gioco per n.colpi..1  Ambo...72 1
                  9652 / 9653  Ruote NA-3 / BA-1  Nr.72-72   In gioco per n.colpi..1  Ambo...72 28
                  9652 / 9653  Ruote NA-3 / BA-1  Nr.72-72   In gioco per n.colpi..1  Ambo...72 5
                  ----------
                  9652 / 9653  Ruote NA-5 / PA-1  Nr.43-43   In gioco per n.colpi..1  Ambo...43 61
                  9652 / 9653  Ruote NA-5 / PA-1  Nr.43-43   In gioco per n.colpi..1  Ambo...43 62
                  9652 / 9653  Ruote NA-5 / PA-1  Nr.43-43   In gioco per n.colpi..1  Ambo...43 60
                  9652 / 9653  Ruote NA-5 / PA-1  Nr.43-43   In gioco per n.colpi..1  Ambo...43 7
                  ----------
                  9652 / 9653  Ruote NA-5 / VE-1  Nr.43-43   In gioco per n.colpi..1  Ambo...43 56
                  9652 / 9653  Ruote NA-5 / VE-1  Nr.43-43   In gioco per n.colpi..1  Ambo...43 16
                  9652 / 9653  Ruote NA-5 / VE-1  Nr.43-43   In gioco per n.colpi..1  Ambo...43 88
                  9652 / 9653  Ruote NA-5 / VE-1  Nr.43-43   In gioco per n.colpi..1  Ambo...43 74
                  ----------
                  9652 / 9653  Ruote PA-1 / VE-3  Nr.16-16   In gioco per n.colpi..1  Ambo...16 43
                  9652 / 9653  Ruote PA-1 / VE-3  Nr.16-16   In gioco per n.colpi..1  Ambo...16 56
                  9652 / 9653  Ruote PA-1 / VE-3  Nr.16-16   In gioco per n.colpi..1  Ambo...16 88
                  9652 / 9653  Ruote PA-1 / VE-3  Nr.16-16   In gioco per n.colpi..1  Ambo...16 74
                  ----------
                  9652 / 9653  Ruote PA-2 / CA-3  Nr.73-73   In gioco per n.colpi..1  Ambo...73 31
                  9652 / 9653  Ruote PA-2 / CA-3  Nr.73-73   In gioco per n.colpi..1  Ambo...73 8
                  9652 / 9653  Ruote PA-2 / CA-3  Nr.73-73   In gioco per n.colpi..1  Ambo...73 67
                  9652 / 9653  Ruote PA-2 / CA-3  Nr.73-73   In gioco per n.colpi..1  Ambo...73 19
                  ----------
                  9652 / 9653  Ruote PA-4 / BA-3  Nr.1-1   In gioco per n.colpi..1  Ambo...1 72
                  9652 / 9653  Ruote PA-4 / BA-3  Nr.1-1   In gioco per n.colpi..1  Ambo...1 8
                  9652 / 9653  Ruote PA-4 / BA-3  Nr.1-1   In gioco per n.colpi..1  Ambo...1 28
                  9652 / 9653  Ruote PA-4 / BA-3  Nr.1-1   In gioco per n.colpi..1  Ambo...1 5
                  ----------
                  9652 / 9653  Ruote RO-3 / MI-1  Nr.79-79   In gioco per n.colpi..1  Ambo...79 39
                  9652 / 9653  Ruote RO-3 / MI-1  Nr.79-79   In gioco per n.colpi..1  Ambo...79 6
                  9652 / 9653  Ruote RO-3 / MI-1  Nr.79-79   In gioco per n.colpi..1  Ambo...79 48
                  9652 / 9653  Ruote RO-3 / MI-1  Nr.79-79   In gioco per n.colpi..1  Ambo...79 50
                  ----------
                  9652 / 9653  Ruote RO-4 / PA-1  Nr.43-43   In gioco per n.colpi..1  Ambo...43 61
                  9652 / 9653  Ruote RO-4 / PA-1  Nr.43-43   In gioco per n.colpi..1  Ambo...43 62
                  9652 / 9653  Ruote RO-4 / PA-1  Nr.43-43   In gioco per n.colpi..1  Ambo...43 60
                  9652 / 9653  Ruote RO-4 / PA-1  Nr.43-43   In gioco per n.colpi..1  Ambo...43 7
                  ----------
                  9652 / 9653  Ruote RO-4 / VE-1  Nr.43-43   In gioco per n.colpi..1  Ambo...43 56
                  9652 / 9653  Ruote RO-4 / VE-1  Nr.43-43   In gioco per n.colpi..1  Ambo...43 16
                  9652 / 9653  Ruote RO-4 / VE-1  Nr.43-43   In gioco per n.colpi..1  Ambo...43 88
                  9652 / 9653  Ruote RO-4 / VE-1  Nr.43-43   In gioco per n.colpi..1  Ambo...43 74
                  ----------
                  9652 / 9653  Ruote RO-5 / CA-3  Nr.73-73   In gioco per n.colpi..1  Ambo...73 31
                  9652 / 9653  Ruote RO-5 / CA-3  Nr.73-73   In gioco per n.colpi..1  Ambo...73 8
                  9652 / 9653  Ruote RO-5 / CA-3  Nr.73-73   In gioco per n.colpi..1  Ambo...73 67
                  9652 / 9653  Ruote RO-5 / CA-3  Nr.73-73   In gioco per n.colpi..1  Ambo...73 19
                  ----------
                  9652 / 9653  Ruote TO-3 / BA-4  Nr.28-28   In gioco per n.colpi..1  Ambo...28 72
                  9652 / 9653  Ruote TO-3 / BA-4  Nr.28-28   In gioco per n.colpi..1  Ambo...28 8
                  9652 / 9653  Ruote TO-3 / BA-4  Nr.28-28   In gioco per n.colpi..1  Ambo...28 1
                  9652 / 9653  Ruote TO-3 / BA-4  Nr.28-28   In gioco per n.colpi..1  Ambo...28 5
                  ----------
                  9652 / 9653  Ruote TO-3 / RO-2  Nr.28-28   In gioco per n.colpi..1  Ambo...28 88
                  9652 / 9653  Ruote TO-3 / RO-2  Nr.28-28   In gioco per n.colpi..1  Ambo...28 23
                  9652 / 9653  Ruote TO-3 / RO-2  Nr.28-28   In gioco per n.colpi..1  Ambo...28 60
                  9652 / 9653  Ruote TO-3 / RO-2  Nr.28-28   In gioco per n.colpi..1  Ambo...28 49
                  ----------
                  9652 / 9653  Ruote TO-5 / FI-2  Nr.63-63   In gioco per n.colpi..1  Ambo...63 20
                  9652 / 9653  Ruote TO-5 / FI-2  Nr.63-63   In gioco per n.colpi..1  Ambo...63 61
                  9652 / 9653  Ruote TO-5 / FI-2  Nr.63-63   In gioco per n.colpi..1  Ambo...63 60
                  9652 / 9653  Ruote TO-5 / FI-2  Nr.63-63   In gioco per n.colpi..1  Ambo...63 27
                  ----------
                  9652 / 9653  Ruote TO-5 / NA-3  Nr.63-63   In gioco per n.colpi..1  Ambo...63 46
                  9652 / 9653  Ruote TO-5 / NA-3  Nr.63-63   In gioco per n.colpi..1  Ambo...63 71
                  9652 / 9653  Ruote TO-5 / NA-3  Nr.63-63   In gioco per n.colpi..1  Ambo...63 66
                  9652 / 9653  Ruote TO-5 / NA-3  Nr.63-63   In gioco per n.colpi..1  Ambo...63 29
                  ----------
                  9652 / 9653  Ruote VE-1 / FI-3  Nr.61-61   In gioco per n.colpi..1  Ambo...61 20
                  9652 / 9653  Ruote VE-1 / FI-3  Nr.61-61   In gioco per n.colpi..1  Ambo...61 63
                  9652 / 9653  Ruote VE-1 / FI-3  Nr.61-61   In gioco per n.colpi..1  Ambo...61 60
                  9652 / 9653  Ruote VE-1 / FI-3  Nr.61-61   In gioco per n.colpi..1  Ambo...61 27
                  ----------
                  9652 / 9653  Ruote VE-1 / PA-2  Nr.61-61   In gioco per n.colpi..1  Ambo...61 43
                  9652 / 9653  Ruote VE-1 / PA-2  Nr.61-61   In gioco per n.colpi..1  Ambo...61 62
                  9652 / 9653  Ruote VE-1 / PA-2  Nr.61-61   In gioco per n.colpi..1  Ambo...61 60
                  9652 / 9653  Ruote VE-1 / PA-2  Nr.61-61   In gioco per n.colpi..1  Ambo...61 7
                  ----------
                  9652 / 9653  Ruote VE-2 / CA-4  Nr.67-67   In gioco per n.colpi..1  Ambo...67 31
                  9652 / 9653  Ruote VE-2 / CA-4  Nr.67-67   In gioco per n.colpi..1  Ambo...67 8
                  9652 / 9653  Ruote VE-2 / CA-4  Nr.67-67   In gioco per n.colpi..1  Ambo...67 73
                  9652 / 9653  Ruote VE-2 / CA-4  Nr.67-67   In gioco per n.colpi..1  Ambo...67 19
                  ----------
                  9653 / 9654  Ruote BA-1 / GE-2  Nr.72-72   In gioco per n.colpi..2  Ambo...72 83
                  9653 / 9654  Ruote BA-1 / GE-2  Nr.72-72   In gioco per n.colpi..2  Ambo...72 66
                  9653 / 9654  Ruote BA-1 / GE-2  Nr.72-72   In gioco per n.colpi..2  Ambo...72 68
                  9653 / 9654  Ruote BA-1 / GE-2  Nr.72-72   In gioco per n.colpi..2  Ambo...72 14
                  ----------
                  9653 / 9654  Ruote BA-1 / NA-4  Nr.72-72   In gioco per n.colpi..2  Ambo...72 8
                  9653 / 9654  Ruote BA-1 / NA-4  Nr.72-72   In gioco per n.colpi..2  Ambo...72 68
                  9653 / 9654  Ruote BA-1 / NA-4  Nr.72-72   In gioco per n.colpi..2  Ambo...72 78
                  9653 / 9654  Ruote BA-1 / NA-4  Nr.72-72   In gioco per n.colpi..2  Ambo...72 7
                  ----------
                  9653 / 9654  Ruote BA-2 / FI-4  Nr.8-8   In gioco per n.colpi..2  Ambo...8 10
                  9653 / 9654  Ruote BA-2 / FI-4  Nr.8-8   In gioco per n.colpi..2  Ambo...8 13
                  9653 / 9654  Ruote BA-2 / FI-4  Nr.8-8   In gioco per n.colpi..2  Ambo...8 41
                  9653 / 9654  Ruote BA-2 / FI-4  Nr.8-8   In gioco per n.colpi..2  Ambo...8 37
                  ----------
                  9653 / 9654  Ruote BA-2 / NA-1  Nr.8-8   In gioco per n.colpi..2  Ambo...8 68
                  9653 / 9654  Ruote BA-2 / NA-1  Nr.8-8   In gioco per n.colpi..2  Ambo...8 78
                  9653 / 9654  Ruote BA-2 / NA-1  Nr.8-8   In gioco per n.colpi..2  Ambo...8 72
                  9653 / 9654  Ruote BA-2 / NA-1  Nr.8-8   In gioco per n.colpi..2  Ambo...8 7
                  ----------
                  9653 / 9654  Ruote BA-2 / VE-3  Nr.8-8   In gioco per n.colpi..2  Ambo...8 18
                  9653 / 9654  Ruote BA-2 / VE-3  Nr.8-8   In gioco per n.colpi..2  Ambo...8 33
                  9653 / 9654  Ruote BA-2 / VE-3  Nr.8-8   In gioco per n.colpi..2  Ambo...8 87
                  9653 / 9654  Ruote BA-2 / VE-3  Nr.8-8   In gioco per n.colpi..2  Ambo...8 60
                  ----------
                  9653 / 9654  Ruote CA-2 / FI-4  Nr.8-8   In gioco per n.colpi..2  Ambo...8 10
                  9653 / 9654  Ruote CA-2 / FI-4  Nr.8-8   In gioco per n.colpi..2  Ambo...8 13
                  9653 / 9654  Ruote CA-2 / FI-4  Nr.8-8   In gioco per n.colpi..2  Ambo...8 41
                  9653 / 9654  Ruote CA-2 / FI-4  Nr.8-8   In gioco per n.colpi..2  Ambo...8 37
                  ----------
                  9653 / 9654  Ruote CA-2 / NA-1  Nr.8-8   In gioco per n.colpi..2  Ambo...8 68
                  9653 / 9654  Ruote CA-2 / NA-1  Nr.8-8   In gioco per n.colpi..2  Ambo...8 78
                  9653 / 9654  Ruote CA-2 / NA-1  Nr.8-8   In gioco per n.colpi..2  Ambo...8 72
                  9653 / 9654  Ruote CA-2 / NA-1  Nr.8-8   In gioco per n.colpi..2  Ambo...8 7
                  ----------
                  9653 / 9654  Ruote CA-2 / VE-3  Nr.8-8   In gioco per n.colpi..2  Ambo...8 18
                  9653 / 9654  Ruote CA-2 / VE-3  Nr.8-8   In gioco per n.colpi..2  Ambo...8 33
                  9653 / 9654  Ruote CA-2 / VE-3  Nr.8-8   In gioco per n.colpi..2  Ambo...8 87
                  9653 / 9654  Ruote CA-2 / VE-3  Nr.8-8   In gioco per n.colpi..2  Ambo...8 60
                  ----------
                  9653 / 9654  Ruote CA-4 / BA-2  Nr.67-67   In gioco per n.colpi..2  Ambo...67 56
                  9653 / 9654  Ruote CA-4 / BA-2  Nr.67-67   In gioco per n.colpi..2  Ambo...67 3
                  9653 / 9654  Ruote CA-4 / BA-2  Nr.67-67   In gioco per n.colpi..2  Ambo...67 45
                  9653 / 9654  Ruote CA-4 / BA-2  Nr.67-67   In gioco per n.colpi..2  Ambo...67 57
                  ----------
                  9653 / 9654  Ruote CA-4 / MI-1  Nr.67-67   In gioco per n.colpi..2  Ambo...67 65
                  9653 / 9654  Ruote CA-4 / MI-1  Nr.67-67   In gioco per n.colpi..2  Ambo...67 62
                  9653 / 9654  Ruote CA-4 / MI-1  Nr.67-67   In gioco per n.colpi..2  Ambo...67 47
                  9653 / 9654  Ruote CA-4 / MI-1  Nr.67-67   In gioco per n.colpi..2  Ambo...67 25
                  ----------
                  9653 / 9654  Ruote FI-4 / VE-5  Nr.60-60   In gioco per n.colpi..2  Ambo...60 18
                  9653 / 9654  Ruote FI-4 / VE-5  Nr.60-60   In gioco per n.colpi..2  Ambo...60 33
                  9653 / 9654  Ruote FI-4 / VE-5  Nr.60-60   In gioco per n.colpi..2  Ambo...60 8
                  9653 / 9654  Ruote FI-4 / VE-5  Nr.60-60   In gioco per n.colpi..2  Ambo...60 87
                  ----------
                  9653 / 9654  Ruote NA-4 / GE-3  Nr.66-66   In gioco per n.colpi..2  Ambo...66 83
                  9653 / 9654  Ruote NA-4 / GE-3  Nr.66-66   In gioco per n.colpi..2  Ambo...66 72
                  9653 / 9654  Ruote NA-4 / GE-3  Nr.66-66   In gioco per n.colpi..2  Ambo...66 68
                  9653 / 9654  Ruote NA-4 / GE-3  Nr.66-66   In gioco per n.colpi..2  Ambo...66 14
                  ----------
                  9653 / 9654  Ruote PA-3 / MI-3  Nr.62-62   In gioco per n.colpi..2  Ambo...62 67
                  9653 / 9654  Ruote PA-3 / MI-3  Nr.62-62   In gioco per n.colpi..2  Ambo...62 65
                  9653 / 9654  Ruote PA-3 / MI-3  Nr.62-62   In gioco per n.colpi..2  Ambo...62 47
                  9653 / 9654  Ruote PA-3 / MI-3  Nr.62-62   In gioco per n.colpi..2  Ambo...62 25
                  ----------
                  9653 / 9654  Ruote PA-4 / VE-5  Nr.60-60   In gioco per n.colpi..2  Ambo...60 18
                  9653 / 9654  Ruote PA-4 / VE-5  Nr.60-60   In gioco per n.colpi..2  Ambo...60 33
                  9653 / 9654  Ruote PA-4 / VE-5  Nr.60-60   In gioco per n.colpi..2  Ambo...60 8
                  9653 / 9654  Ruote PA-4 / VE-5  Nr.60-60   In gioco per n.colpi..2  Ambo...60 87
                  ----------
                  9653 / 9654  Ruote PA-5 / NA-5  Nr.7-7   In gioco per n.colpi..2  Ambo...7 8
                  9653 / 9654  Ruote PA-5 / NA-5  Nr.7-7   In gioco per n.colpi..2  Ambo...7 68
                  9653 / 9654  Ruote PA-5 / NA-5  Nr.7-7   In gioco per n.colpi..2  Ambo...7 78
                  9653 / 9654  Ruote PA-5 / NA-5  Nr.7-7   In gioco per n.colpi..2  Ambo...7 72
                  ----------
                  9653 / 9654  Ruote PA-5 / RO-5  Nr.7-7   In gioco per n.colpi..2  Ambo...7 52
                  9653 / 9654  Ruote PA-5 / RO-5  Nr.7-7   In gioco per n.colpi..2  Ambo...7 22
                  9653 / 9654  Ruote PA-5 / RO-5  Nr.7-7   In gioco per n.colpi..2  Ambo...7 34
                  9653 / 9654  Ruote PA-5 / RO-5  Nr.7-7   In gioco per n.colpi..2  Ambo...7 84
                  ----------
                  9653 / 9654  Ruote RO-1 / TO-1  Nr.88-88   In gioco per n.colpi..2  Ambo...88 83
                  9653 / 9654  Ruote RO-1 / TO-1  Nr.88-88   In gioco per n.colpi..2  Ambo...88 42
                  9653 / 9654  Ruote RO-1 / TO-1  Nr.88-88   In gioco per n.colpi..2  Ambo...88 54
                  9653 / 9654  Ruote RO-1 / TO-1  Nr.88-88   In gioco per n.colpi..2  Ambo...88 15
                  ----------
                  9653 / 9654  Ruote RO-4 / VE-5  Nr.60-60   In gioco per n.colpi..2  Ambo...60 18
                  9653 / 9654  Ruote RO-4 / VE-5  Nr.60-60   In gioco per n.colpi..2  Ambo...60 33
                  9653 / 9654  Ruote RO-4 / VE-5  Nr.60-60   In gioco per n.colpi..2  Ambo...60 8
                  9653 / 9654  Ruote RO-4 / VE-5  Nr.60-60   In gioco per n.colpi..2  Ambo...60 87
                  ----------
                  9653 / 9654  Ruote RO-5 / CA-5  Nr.49-49   In gioco per n.colpi..2  Ambo...49 2
                  9653 / 9654  Ruote RO-5 / CA-5  Nr.49-49   In gioco per n.colpi..2  Ambo...49 32
                  9653 / 9654  Ruote RO-5 / CA-5  Nr.49-49   In gioco per n.colpi..2  Ambo...49 18
                  9653 / 9654  Ruote RO-5 / CA-5  Nr.49-49   In gioco per n.colpi..2  Ambo...49 64
                  ----------
                  9653 / 9654  Ruote TO-1 / FI-2  Nr.13-13   In gioco per n.colpi..2  Ambo...13 10
                  9653 / 9654  Ruote TO-1 / FI-2  Nr.13-13   In gioco per n.colpi..2  Ambo...13 41
                  9653 / 9654  Ruote TO-1 / FI-2  Nr.13-13   In gioco per n.colpi..2  Ambo...13 8
                  9653 / 9654  Ruote TO-1 / FI-2  Nr.13-13   In gioco per n.colpi..2  Ambo...13 37
                  ----------
                  9653 / 9654  Ruote TO-2 / GE-4  Nr.68-68   In gioco per n.colpi..2  Ambo...68 83
                  9653 / 9654  Ruote TO-2 / GE-4  Nr.68-68   In gioco per n.colpi..2  Ambo...68 72
                  9653 / 9654  Ruote TO-2 / GE-4  Nr.68-68   In gioco per n.colpi..2  Ambo...68 66
                  9653 / 9654  Ruote TO-2 / GE-4  Nr.68-68   In gioco per n.colpi..2  Ambo...68 14
                  ----------
                  9653 / 9654  Ruote TO-2 / NA-2  Nr.68-68   In gioco per n.colpi..2  Ambo...68 8
                  9653 / 9654  Ruote TO-2 / NA-2  Nr.68-68   In gioco per n.colpi..2  Ambo...68 78
                  9653 / 9654  Ruote TO-2 / NA-2  Nr.68-68   In gioco per n.colpi..2  Ambo...68 72
                  9653 / 9654  Ruote TO-2 / NA-2  Nr.68-68   In gioco per n.colpi..2  Ambo...68 7
                  ----------
                  9653 / 9654  Ruote VE-2 / BA-1  Nr.56-56   In gioco per n.colpi..2  Ambo...56 67
                  9653 / 9654  Ruote VE-2 / BA-1  Nr.56-56   In gioco per n.colpi..2  Ambo...56 3
                  9653 / 9654  Ruote VE-2 / BA-1  Nr.56-56   In gioco per n.colpi..2  Ambo...56 45
                  9653 / 9654  Ruote VE-2 / BA-1  Nr.56-56   In gioco per n.colpi..2  Ambo...56 57
                  ----------
                  9653 / 9654  Ruote VE-4 / TO-1  Nr.88-88   In gioco per n.colpi..2  Ambo...88 83
                  9653 / 9654  Ruote VE-4 / TO-1  Nr.88-88   In gioco per n.colpi..2  Ambo...88 42
                  9653 / 9654  Ruote VE-4 / TO-1  Nr.88-88   In gioco per n.colpi..2  Ambo...88 54
                  9653 / 9654  Ruote VE-4 / TO-1  Nr.88-88   In gioco per n.colpi..2  Ambo...88 15
                   Totale Ambi in Elenco x  2  colpi di gioco sulle 2 ruote di elaborazione...236
                  Ultima modifica di Rubino; 12-07-2019, 07:59.
                  ...ciao

                  Commenta


                  • #39
                    codice:
                    Sub Main()
                       Dim dati(10,5)
                       Dim dati2(10,5,10) '''estrattiUGUALIqta 2 estraz.consec.
                       Dim dati3(10,5,10) '''ambi qta
                       Dim rie(999)
                       es = InputBox("Quante estrazioni vuoi controllare ?",,100)
                       v = CInt(InputBox("Ambi Verifica in n.colpi",,2))
                       det = InputBox("Vuoi Lista ambi Usciti?  S/N ",,"N")
                       es = CInt(es)
                       inizio = EstrazioneFin - es
                       oggi = EstrazioneFin - 1
                       For ru = 1 To 10
                          For p = 1 To 5
                             For ru2 = 1 To 10
                                dati2(ru,p,ru2) = 0
                             Next
                          Next
                       Next
                       ColoreTesto 2
                       Scrivi String(90,Chr(11)):ColoreTesto(0) :Scrivi " Mod. GHIO-15 (Spaz.) e (L8)  ",1
                       Scrivi "Condizione :   Verifica Ambi n.colpi di gioco  " & v,1
                       Scrivi "Condizione :   Vuoi Lista degli Ambi Usciti?  " & det,1
                       Scrivi: ColoreTesto(1)
                       Scrivi "Tabella 1"
                       Scrivi "La tabella indica la presenza di ogni singolo estratto nell'estrazione successiva."
                       Scrivi "Esempio: E1 = 45 indica che il primo estratto su Bari è sortito 45 volte nelle "
                       Scrivi "estrazioni successive."
                       ColoreTesto 2
                       Scrivi String(90,Chr(11)): ColoreTesto 1
                       For i = inizio To EstrazioneFin
                          AvanzamentoElab inizio,EstrazioneFin,i
                          Messaggio "Stò elaborando l'estrazione del " & DataEstrazione(i)
                          If i = EstrazioneFin Then Exit For
                          For ru = 1 To 10
                             For p = 1 To 5
                                es1 = Estratto(i,ru,p)
                                For ru2 = 1 To 10
                                   For p2 = 1 To 5
                                      es2 = Estratto(i + 1,ru2,p2)
                                      If es1 = es2 Then
                                         '''calcola uscite
                                         dati(ru,p) = dati(ru,p) + 1
                                         dati2(ru,p,ru2) = dati2(ru,p,ru2) + 1
                                         '''controlla se ambo uscito a colpo
                                         ReDim an(2),ar(2),matriceestrritorno(10,5)
                                         For rr = 1 To 10
                                            For w = 1 To 5
                                               matriceestrritorno(rr,w) = Estratto(i,rr,w)
                                            Next
                                         Next
                                         ''''
                                         For b = 1 To 5
                                            an(1) = es1
                                            an(2) = Estratto(i + 1,ru2,b)
                                            '''verifica esito
                                            '''''
                                            For z1 = 1 To v ''' ncolpi
                                               '
                                               For z2 = 1 To 10 '''' nruote
                                                  If z2 = ru Or z2 = ru2 Then
                                                     '
                                                     ca = 0:cz = 0
                                                     For z3 = 1 To 5 ''' estratti
                                                        If Int(Estratto(i + 1 + z1,z2,z3)) = Int(an(1)) Or Int(Estratto(i + 1 + z1,z2,z3)) = Int(an(2)) Then
                                                           ca = ca + 1
                                                        End If
                                                     Next
                                                     If ca = 2 Then
                                                        ColoreTesto(0)
                                                        dati3(ru,p,ru2) = dati3(ru,p,ru2) + 1
                                                        cg = cg + 1
                                                        cz = 1
                                                        If det = "S" Then Scrivi "-ESITO---> " & i & " e " & i + 1 & "   pos." & SiglaRuota(ru) & "-" & p & " / " & SiglaRuota(ru2) & "-" & p2 & " nr.  " & Format2(an(1)) & "." & Format2(an(2)) & "    " & i + 1 + z1 & " Colpo n." & z1 & "   " & an(1) & "." & an(2) ,1
                                                        ColoreTesto(0)
                                                     End If
                                                  End If
                                               Next
                                            Next
                                            '''''riepiloga previsioni in corso
                    
                                            If cz = 0 And ca <> 2 And i >= oggi And an(1) <> an(2) Then
                                               qq = qq + 1
                                               rie(qq) = i & " / " & i + 1 & "  Ruote " & SiglaRuota(ru) & "-" & p & " / " & SiglaRuota(ru2) & "-" & p2 & "  Nr." & es1 & "-" & es2 & "   In gioco per n.colpi.." &(i + 1 + v) - EstrazioneFin & "  Ambo..." & an(1) & " " & an(2)
                                            End If
                                         Next
                                         '''''
                                      End If
                                   Next
                                Next
                             Next
                          Next
                       Next
                       ColoreTesto 1
                       Scrivi
                       Scrivi Space(20) & "Tabella 1 Resoconto Complessivo"
                       Scrivi
                       Scrivi "       E1   E2   E3   E4   E5   "
                       ColoreTesto 2
                       ScriviMatrice dati,,4
                       Scrivi String(90,Chr(11)): ColoreTesto 1
                       Scrivi "Tabella 2"
                       Scrivi "Questa tabella indica, in maniera dettagliata, quante volte l'estratto"
                       Scrivi "in una determinata posizione, si ripete in ogni ruota. Esempio:"
                       Scrivi "(Ba Pos1 3 0 1) indica che il 1° estratto su Bari si è ripetuto 3 volte a"
                       Scrivi "Bari, 0 volte a Cagliari e 1 volta a Firenze."
                       ColoreTesto 2
                       Scrivi String(90,Chr(11)): ColoreTesto 1
                       Scrivi
                       Scrivi Space(20) & "Tabella 2 Resoconto Dettagliato  estraz.n." & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin),1
                       Scrivi
                       ColoreTesto(0)
                       Scrivi Space(20) & "E   S   T   R   A   T   T   I " & Space(20) & "       A      M      B      I   ",1
                       For ru = 1 To 10
                          ColoreTesto(0)
                          Scrivi Space(13) & "Ba" & Space(3) & "Ca" & Space(3) & "Fi" & Space(3) & "Ge" & _
                          Space(3) & "Mi" & Space(3) & "Na" & Space(3) & "Pa" & Space(3) & "Ro" & _
                          Space(3) & "To" & Space(3) & "Ve" & Space(2) & "|-|" & Space(2) & "Ba" & Space(3) & "Ca" & Space(3) & "Fi" & Space(3) & "Ge" & _
                          Space(3) & "Mi" & Space(3) & "Na" & Space(3) & "Pa" & Space(3) & "Ro" & _
                          Space(3) & "To" & Space(3) & "Ve" & Space(2) & "|-|" & Space(2) & "NR-2E   NR-1E  NR-UE",1
                          ColoreTesto(1)
                          For p = 1 To 5
                             Scrivi FormatSpace(Left(NomeRuota(ru),2),5) + FormatSpace("Pos",4) + FormatSpace(p,4) + _
                             FormatSpace(dati2(ru,p,1),5) + _
                             FormatSpace(dati2(ru,p,2),5) + FormatSpace(dati2(ru,p,3),5) + _
                             FormatSpace(dati2(ru,p,4),5) + FormatSpace(dati2(ru,p,5),5) + _
                             FormatSpace(dati2(ru,p,6),5) + FormatSpace(dati2(ru,p,7),5) + _
                             FormatSpace(dati2(ru,p,8),5) + FormatSpace(dati2(ru,p,9),5) + _
                             FormatSpace(dati2(ru,p,10),4) + "|" + FormatSpace(p,1) + FormatSpace("|",3) + _
                             FormatSpace(dati3(ru,p,1),5) + _
                             FormatSpace(dati3(ru,p,2),5) + FormatSpace(dati3(ru,p,3),5) + _
                             FormatSpace(dati3(ru,p,4),5) + FormatSpace(dati3(ru,p,5),5) + _
                             FormatSpace(dati3(ru,p,6),5) + FormatSpace(dati3(ru,p,7),5) + _
                             FormatSpace(dati3(ru,p,8),5) + FormatSpace(dati3(ru,p,9),5) + _
                             FormatSpace(dati3(ru,p,10),4) + "|" + FormatSpace(p,1) + + FormatSpace("|",3) + _
                             Format2(Estratto(EstrazioneFin - 2,ru,p)) + "      " + Format2(Estratto(EstrazioneFin - 1,ru,p)) + "     " + Format2(Estratto(EstrazioneFin,ru,p))
                          Next
                          Scrivi String(161,"-")
                       Next
                       ColoreTesto(0)
                       Scrivi " Totale Ambi usciti in " & V & "  colpi di gioco sulle 2 ruote di elaborazione..." & cg,1
                       ''''riepilogo previsioni in corso
                       Scrivi
                       Scrivi "E l e n c o  A m b i  R i l e v a t i  Ultime 2 Estrazione In Archivio  ",1
                       For n = 1 To qq
                          key2 = Mid(rie(n),20,11)
                          If key1 <> key2 Then
                          Scrivi "----------"
                          key1 = key2
                          End If
                          Scrivi rie(n)
                       Next
                       Scrivi " Totale Ambi in Elenco x  " & V & "  colpi di gioco sulle 2 ruote di elaborazione..." & qq,1
                    End Sub
                    Ultima modifica di Rubino; 12-07-2019, 08:18.
                    ...ciao

                    Commenta


                    • #40
                      Grazie Rubino

                      Commenta


                      • #41
                        RUBINO SCUSA MA AVEVO IL PC IN PALLA,O FATTO LE VERIFICHE E VANNO BENE,

                        Commenta


                        • #42
                          11.07.2019 9653 To 88
                          09.07.2019 9652 To
                          06.07.2019 9651 To 18 65 63 usciti 3 al 3° colpo Ritardo attuale 2
                          04.07.2019 9650 To 65
                          02.07.2019 9649 To 36 39 usciti 2 al 2° colpo
                          29.06.2019 9648 To
                          27.06.2019 9647 To 57
                          25.06.2019 9646 To 52 46 19 usciti 3 al 3° colpo
                          22.06.2019 9645 To 74 17 usciti 2 al 1° colpo
                          20.06.2019 9644 To 21 51 usciti 2 al 1° colpo
                          18.06.2019 9643 To 80 59 usciti 2 al 1° colpo
                          15.06.2019 9642 To 14 51 usciti 2 al 1° colpo
                          13.06.2019 9641 To 22 11 usciti 2 al 1° colpo
                          11.06.2019 9640 To 13 01 85 69 usciti 4 al 1° colpo
                          08.06.2019 9639 To 01 82 10 usciti 3 al 1° colpo
                          06.06.2019 9638 To 51 45 31 usciti 3 al 1° colpo
                          04.06.2019 9637 To 45 17 58 usciti 3 al 1° colpo
                          01.06.2019 9636 To 09 41 45 usciti 3 al 1° colpo
                          30.05.2019 9635 To 52 13 79 usciti 3 al 1° colpo
                          28.05.2019 9634 To 64 52 usciti 2 al 1° colpo
                          25.05.2019 9633 To 61
                          CALCOLANDO ,SE IO METTO INDIETRO L ARCHIVIO SI POSSONO EFETTIVAMENTE VEDERE QUANTI NE ESCONO.?
                          ESEMPIO PRATICO
                          TORINO ESSENDO GIA 2 COME RITARDO PROBABILE CHE DIA ESITO
                          MA RIUSCENDO A SAPERE EFFETTIVAMENTE IL VERO
                          RITARDO STORICO SI ANDREBBE A CENTRARE A COLPO

                          Commenta


                          • #43
                            9653 / 9654 Ruote RO-1 / TO-1 Nr.88-88 In gioco per n.colpi..2 Ambo...88 83
                            9653 / 9654 Ruote RO-1 / TO-1 Nr.88-88 In gioco per n.colpi..2 Ambo...88 42
                            9653 / 9654 Ruote RO-1 / TO-1 Nr.88-88 In gioco per n.colpi..2 Ambo...88 54
                            9653 / 9654 Ruote RO-1 / TO-1 Nr.88-88 In gioco per n.colpi..2 Ambo...88 15
                            IO METTERO IN GIOCO QUESTI PROVO CON LA RIDUZIONE

                            Commenta


                            • #44
                              ciao
                              solo una informazione perchè ho bisogno di capire:
                              MA RIUSCENDO A SAPERE EFFETTIVAMENTE IL VERO
                              RITARDO STORICO SI ANDREBBE A CENTRARE A COLPO
                              Cosa intendi per ritardo storico?
                              ritardo dei colpi
                              ritardo reale dell'ambo



                              Buona Domenica.

                              Ultima modifica di Rubino; 14-07-2019, 07:22.
                              ...ciao

                              Commenta


                              • #45
                                ho messo due cose:

                                1) non ho capito se devo fare il verifica esiti ma da quando o da che estrazione?


                                2) nelle possibili richiesti che lo script chiede all'inizio puoi mettere """ v = CInt(InputBox("Ambi Verifica in n.colpi",,2)) """"
                                avevi chiesto , di avere un elenco nei due colpi successivi alla rilevazione
                                se tu modifichi a tua piacimento in 2,6,9,13 colpi
                                lo script ti elencherà in fondo tutti gli ambi rimasti inevasi o non usciti, così puoi seguire o guardare anche gli ambi con ritardo > 2
                                poi fai tu, se serve o non questo non lo so. per default lo script imposta 2 come concordato.

                                3) ho messo il ritardo di colpo, dalla rilevazione degli ambi sulle 2 ruote.

                                attendo qualche tua istruzione precisa per far diminuire il numero delle combinazioni, perchè sono tante.

                                non ho capito cosa intendi nell'esempio che hai postato sopra.
                                perchè se facciamo il verificaesiti di tutti gli ambi rilevati, possiamo stilare una sorta di riepilogo del nr.di colpi dove si infrangono
                                maggiormente gli ambi, uscendo, ma mi sembra che comunque è un dato poco significativo, perchè gli ambi sono molti ed in mezzo
                                a tanti, è molto facile scegliere quelli sbagliati.

                                a meno che trovare una condizione precisa che si verifica molte volte.

                                fammi sapere.


                                codice:
                                Sub Main()
                                   Dim dati(10,5)
                                   Dim dati2(10,5,10) '''estrattiUGUALIqta 2 estraz.consec.
                                   Dim dati3(10,5,10) '''ambi qta
                                   Dim rie(999)
                                   es = InputBox("Quante estrazioni vuoi controllare ?",,100)
                                   v = CInt(InputBox("Ambi Verifica in n.colpi",,2))
                                   det = InputBox("Vuoi Lista ambi Usciti?  S/N ",,"N")
                                   es = CInt(es)
                                   inizio = EstrazioneFin - es
                                   oggi = EstrazioneFin - v
                                   For ru = 1 To 10
                                      For p = 1 To 5
                                         For ru2 = 1 To 10
                                            dati2(ru,p,ru2) = 0
                                         Next
                                      Next
                                   Next
                                   ColoreTesto 2
                                   Scrivi String(90,Chr(11)):ColoreTesto(0) :Scrivi " Mod. GHIO-15 (Spaz.) e (L8)  ",1
                                   Scrivi "Condizione :   Verifica Ambi n.colpi di gioco  " & v,1
                                   Scrivi "Condizione :   Vuoi Lista degli Ambi Usciti?  " & det,1
                                   Scrivi: ColoreTesto(1)
                                   Scrivi "Tabella 1"
                                   Scrivi "La tabella indica la presenza di ogni singolo estratto nell'estrazione successiva."
                                   Scrivi "Esempio: E1 = 45 indica che il primo estratto su Bari è sortito 45 volte nelle "
                                   Scrivi "estrazioni successive."
                                   ColoreTesto 2
                                   Scrivi String(90,Chr(11)): ColoreTesto 1
                                   For i = inizio To EstrazioneFin
                                      AvanzamentoElab inizio,EstrazioneFin,i
                                      Messaggio "Stò elaborando l'estrazione del " & DataEstrazione(i)
                                      If i = EstrazioneFin Then Exit For
                                      For ru = 1 To 10
                                         For p = 1 To 5
                                            es1 = Estratto(i,ru,p)
                                            For ru2 = 1 To 10
                                               For p2 = 1 To 5
                                                  es2 = Estratto(i + 1,ru2,p2)
                                                  If es1 = es2 Then
                                                     '''calcola uscite
                                                     dati(ru,p) = dati(ru,p) + 1
                                                     dati2(ru,p,ru2) = dati2(ru,p,ru2) + 1
                                                     '''controlla se ambo uscito a colpo
                                                     ReDim an(2),ar(2),matriceestrritorno(10,5)
                                                     For rr = 1 To 10
                                                        For w = 1 To 5
                                                           matriceestrritorno(rr,w) = Estratto(i,rr,w)
                                                        Next
                                                     Next
                                                     ''''
                                                     For b = 1 To 5
                                                        an(1) = es1
                                                        an(2) = Estratto(i + 1,ru2,b)
                                                        '''verifica esito
                                                        '''''
                                                        For z1 = 1 To v ''' ncolpi
                                                           '
                                                           For z2 = 1 To 10 '''' nruote
                                                              If z2 = ru Or z2 = ru2 Then
                                                                 '
                                                                 ca = 0:cz = 0
                                                                 For z3 = 1 To 5 ''' estratti
                                                                    If Int(Estratto(i + 1 + z1,z2,z3)) = Int(an(1)) Or Int(Estratto(i + 1 + z1,z2,z3)) = Int(an(2)) Then
                                                                       ca = ca + 1
                                                                    End If
                                                                 Next
                                                                 If ca = 2 Then
                                                                    ColoreTesto(0)
                                                                    dati3(ru,p,ru2) = dati3(ru,p,ru2) + 1
                                                                    cg = cg + 1
                                                                    cz = 1
                                                                    If det = "S" Then Scrivi "-ESITO---> " & i & " e " & i + 1 & "   pos." & SiglaRuota(ru) & "-" & p & " / " & SiglaRuota(ru2) & "-" & p2 & " nr.  " & Format2(an(1)) & "." & Format2(an(2)) & "    " & i + 1 + z1 & " Colpo n." & z1 & "   " & an(1) & "." & an(2),1
                                                                    ColoreTesto(0)
                                                                 End If
                                                              End If
                                                           Next
                                                        Next
                                                        '''''riepiloga previsioni in corso
                                                        If i >= oggi And an(1) <> an(2) Then
                                                           ar(1) = ru
                                                           ar(2) = ru2
                                                           Call StatisticaFormazioneTurbo(an,ar,2,retrit,retritmax,,,3950,EstrazioneFin)
                                                           qq = qq + 1
                                                           rie(qq) = i & " / " & i + 1 & "  Ruote " & SiglaRuota(ru) & "-" & p & " / " & SiglaRuota(ru2) & "-" & p2 & "  Nr." & es1 & "-" & es2 & "   In gioco per n.colpi.." &(i + 1 + v) - EstrazioneFin & "  Ambo..." & an(1) & " " & FormatSpace(an(2),5) & "    Ritn.colpi  " & EstrazioneFin -(i + 1)
                                                        End If
                                                     Next
                                                     '''''
                                                  End If
                                               Next
                                            Next
                                         Next
                                      Next
                                   Next
                                   ColoreTesto 1
                                   Scrivi
                                   Scrivi Space(20) & "Tabella 1 Resoconto Complessivo"
                                   Scrivi
                                   Scrivi "       E1   E2   E3   E4   E5   "
                                   ColoreTesto 2
                                   ScriviMatrice dati,,4
                                   Scrivi String(90,Chr(11)): ColoreTesto 1
                                   Scrivi "Tabella 2"
                                   Scrivi "Questa tabella indica, in maniera dettagliata, quante volte l'estratto"
                                   Scrivi "in una determinata posizione, si ripete in ogni ruota. Esempio:"
                                   Scrivi "(Ba Pos1 3 0 1) indica che il 1° estratto su Bari si è ripetuto 3 volte a"
                                   Scrivi "Bari, 0 volte a Cagliari e 1 volta a Firenze."
                                   ColoreTesto 2
                                   Scrivi String(90,Chr(11)): ColoreTesto 1
                                   Scrivi
                                   Scrivi Space(20) & "Tabella 2 Resoconto Dettagliato  estraz.n." & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin),1
                                   Scrivi
                                   ColoreTesto(0)
                                   Scrivi Space(20) & "E   S   T   R   A   T   T   I " & Space(20) & "       A      M      B      I   ",1
                                   For ru = 1 To 10
                                      ColoreTesto(0)
                                      Scrivi Space(13) & "Ba" & Space(3) & "Ca" & Space(3) & "Fi" & Space(3) & "Ge" & _
                                      Space(3) & "Mi" & Space(3) & "Na" & Space(3) & "Pa" & Space(3) & "Ro" & _
                                      Space(3) & "To" & Space(3) & "Ve" & Space(2) & "|-|" & Space(2) & "Ba" & Space(3) & "Ca" & Space(3) & "Fi" & Space(3) & "Ge" & _
                                      Space(3) & "Mi" & Space(3) & "Na" & Space(3) & "Pa" & Space(3) & "Ro" & _
                                      Space(3) & "To" & Space(3) & "Ve" & Space(2) & "|-|" & Space(2) & "NR-2E   NR-1E  NR-UE",1
                                      ColoreTesto(1)
                                      For p = 1 To 5
                                         Scrivi FormatSpace(Left(NomeRuota(ru),2),5) + FormatSpace("Pos",4) + FormatSpace(p,4) + _
                                         FormatSpace(dati2(ru,p,1),5) + _
                                         FormatSpace(dati2(ru,p,2),5) + FormatSpace(dati2(ru,p,3),5) + _
                                         FormatSpace(dati2(ru,p,4),5) + FormatSpace(dati2(ru,p,5),5) + _
                                         FormatSpace(dati2(ru,p,6),5) + FormatSpace(dati2(ru,p,7),5) + _
                                         FormatSpace(dati2(ru,p,8),5) + FormatSpace(dati2(ru,p,9),5) + _
                                         FormatSpace(dati2(ru,p,10),4) + "|" + FormatSpace(p,1) + FormatSpace("|",3) + _
                                         FormatSpace(dati3(ru,p,1),5) + _
                                         FormatSpace(dati3(ru,p,2),5) + FormatSpace(dati3(ru,p,3),5) + _
                                         FormatSpace(dati3(ru,p,4),5) + FormatSpace(dati3(ru,p,5),5) + _
                                         FormatSpace(dati3(ru,p,6),5) + FormatSpace(dati3(ru,p,7),5) + _
                                         FormatSpace(dati3(ru,p,8),5) + FormatSpace(dati3(ru,p,9),5) + _
                                         FormatSpace(dati3(ru,p,10),4) + "|" + FormatSpace(p,1) + + FormatSpace("|",3) + _
                                         Format2(Estratto(EstrazioneFin - 2,ru,p)) + "      " + Format2(Estratto(EstrazioneFin - 1,ru,p)) + "     " + Format2(Estratto(EstrazioneFin,ru,p))
                                      Next
                                      Scrivi String(161,"-")
                                   Next
                                   ColoreTesto(0)
                                   Scrivi " Totale Ambi usciti in " & V & "  colpi di gioco sulle 2 ruote di elaborazione..." & cg,1
                                   ''''riepilogo previsioni in corso
                                   Scrivi
                                   Scrivi "E l e n c o  A m b i  R i l e v a t i  Non ancora Usciti nelle Ultime 2 Estrazione In Archivio  ",1
                                   For n = 1 To qq
                                      key2 = Mid(rie(n),20,11)
                                      If key1 <> key2 Then
                                         Scrivi "----------"
                                         key1 = key2
                                      End If
                                      Scrivi rie(n)
                                   Next
                                   Scrivi " Totale Ambi in Elenco x  " & V & "  colpi di gioco sulle 2 ruote di elaborazione..." & qq,1
                                End Sub
                                ...ciao

                                Commenta

                                Unconfigured Ad Widget

                                Comprimi

                                Ultima estrazione del lotto

                                Comprimi

                                Estrazione del lotto
                                martedì 16 luglio 2019
                                Bari
                                04
                                82
                                36
                                66
                                02
                                Cagliari
                                11
                                38
                                16
                                86
                                41
                                Firenze
                                77
                                90
                                85
                                37
                                82
                                Genova
                                01
                                37
                                03
                                69
                                47
                                Milano
                                29
                                50
                                18
                                77
                                62
                                Napoli
                                56
                                43
                                32
                                90
                                70
                                Palermo
                                70
                                27
                                43
                                49
                                10
                                Roma
                                65
                                90
                                47
                                34
                                29
                                Torino
                                28
                                04
                                58
                                64
                                69
                                Venezia
                                14
                                04
                                48
                                59
                                11
                                Nazionale
                                43
                                66
                                56
                                47
                                61
                                Sto operando...
                                X