Novità

aiuto per script complicato

  • Creatore Discussione Creatore Discussione ghio
  • Data di inizio Data di inizio
Sono le ultime 3 estrazioni nR ue sono gli ultimi usciti, vanno letti in verticale

deve servire per continuare ulteriormente lo script per arrivare a fare previsioni
prossime

intanto provo a fare un tentativo cambiando le istruzioni di spaziometria.
 
Prova così, ho modificato le istruzioni, dovrebbe andare anche su L8
Errato perché doppio per copia incolla
 
Ultima modifica di un moderatore:
Ciao Ghio, dopo l'elaborazione del listato, alla fine viene fuori questa scritta "Totale Ambi usciti in 3 colpi di gioco sulle 2 ruote di elaborazione" a quale ruote fa riferimento ?
Grazie e grazie anche a Rubino per le sue capacità
 
Prova così, ho modificato le istruzioni, dovrebbe andare anche su L8

Codice: 
Sub Main()
   Dim dati(10,5)
   Dim dati2(10,5,10) '''estrattiinposizioneqta
   Dim dati3(10,5,10) '''ambiinposizioneqta
   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
   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 Date & _
   Chr(32) & Chr(98) & Chr(121) & Chr(32) & Chr(106) & Chr(101) & Chr(115) & Chr(121)
   Scrivi String(90,Chr(11)):ColoreTesto(0) :Scrivi " Mod. GHIO-15-Rubino  (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
                                 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
                                    If det = "S" Then Scrivi "-ESITO---> " & i & " e " & i + 1 & "   pos." & SiglaRuota(ru) & "-" & a & " / " & SiglaRuota(ru2) & "-" & b & " nr.  " & Format2(an(1)) & "." & Format2(an(2)) & "    " & i + 1 + z1 & "   " & an(1) & "." & an(2) & " Colpo n." & z1,1
                                    ColoreTesto(0)
                                 End If
                              End If
                           Next
                        Next
                     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
End Sub
 
Ciao solare
1- per la fretta non ho controllato, ma mi pare di vedere un doppio copia incolla
dello script


2 - lo script attualmente non evidenzia gli ambi da giocare sulle 2 ruote dove si è formata la condizione.
attualmente lo script ricostruisce solo la storia passata.

3- infatti il problema era vedere se poteva funzionare con L8, ma io non ho questo programma e quindi non so se gira senza dare errori

una volta stabilito che funziona procedo con il resto
co
cioe' segnalare le giocata pronte oggi in modo chiaro.
oppure altre cose che Ghio puo avere in mente.

attendo di sapere se funziona su L8

altrimenti sarà solo per spaziometria.
 
Ultima modifica di un moderatore:
x solare

per darti una indicazione di tipo generico, attualmente lo script è largo nella condizione primaria impostata,
si ottengono questi ambi, per i prossimi 2 colpi di gioco.

il metodo si dovrebbe a questo punto stringere con una condizione precisa che porta un buon risultato e funga come
ulteriore filtro per ridurre la quantità di ambi rilevati.

comunque siamo a livello sperimentale, li metto comunque:

Codice: 
P r e v i s i o n e  I n  C o r s o
9652 / 9653  Ruote BA-RO   In gioco per n.colpi..1  Ambo...88 28
9652 / 9653  Ruote BA-RO   In gioco per n.colpi..1  Ambo...88 23
9652 / 9653  Ruote BA-RO   In gioco per n.colpi..1  Ambo...88 60
9652 / 9653  Ruote BA-RO   In gioco per n.colpi..1  Ambo...88 49
-----
9652 / 9653  Ruote BA-VE   In gioco per n.colpi..1  Ambo...88 43
9652 / 9653  Ruote BA-VE   In gioco per n.colpi..1  Ambo...88 56
9652 / 9653  Ruote BA-VE   In gioco per n.colpi..1  Ambo...88 16
9652 / 9653  Ruote BA-VE   In gioco per n.colpi..1  Ambo...88 74
-----
9652 / 9653  Ruote BA-BA   In gioco per n.colpi..1  Ambo...72 8
9652 / 9653  Ruote BA-BA   In gioco per n.colpi..1  Ambo...72 1
9652 / 9653  Ruote BA-BA   In gioco per n.colpi..1  Ambo...72 28
9652 / 9653  Ruote BA-BA   In gioco per n.colpi..1  Ambo...72 5
------
9652 / 9653  Ruote BA-FI   In gioco per n.colpi..1  Ambo...27 20
9652 / 9653  Ruote BA-FI   In gioco per n.colpi..1  Ambo...27 63
9652 / 9653  Ruote BA-FI   In gioco per n.colpi..1  Ambo...27 61
9652 / 9653  Ruote BA-FI   In gioco per n.colpi..1  Ambo...27 60
------
9652 / 9653  Ruote BA-FI   In gioco per n.colpi..1  Ambo...60 20
9652 / 9653  Ruote BA-FI   In gioco per n.colpi..1  Ambo...60 63
9652 / 9653  Ruote BA-FI   In gioco per n.colpi..1  Ambo...60 61
9652 / 9653  Ruote BA-FI   In gioco per n.colpi..1  Ambo...60 27
-----
9652 / 9653  Ruote BA-PA   In gioco per n.colpi..1  Ambo...60 43
9652 / 9653  Ruote BA-PA   In gioco per n.colpi..1  Ambo...60 61
9652 / 9653  Ruote BA-PA   In gioco per n.colpi..1  Ambo...60 62
9652 / 9653  Ruote BA-PA   In gioco per n.colpi..1  Ambo...60 7
-----
9652 / 9653  Ruote BA-RO   In gioco per n.colpi..1  Ambo...60 88
9652 / 9653  Ruote BA-RO   In gioco per n.colpi..1  Ambo...60 28
9652 / 9653  Ruote BA-RO   In gioco per n.colpi..1  Ambo...60 23
9652 / 9653  Ruote BA-RO   In gioco per n.colpi..1  Ambo...60 49
----
9652 / 9653  Ruote CA-RO   In gioco per n.colpi..1  Ambo...49 88
9652 / 9653  Ruote CA-RO   In gioco per n.colpi..1  Ambo...49 28
9652 / 9653  Ruote CA-RO   In gioco per n.colpi..1  Ambo...49 23
9652 / 9653  Ruote CA-RO   In gioco per n.colpi..1  Ambo...49 60
-----
9652 / 9653  Ruote CA-FI   In gioco per n.colpi..1  Ambo...20 63
9652 / 9653  Ruote CA-FI   In gioco per n.colpi..1  Ambo...20 61
9652 / 9653  Ruote CA-FI   In gioco per n.colpi..1  Ambo...20 60
9652 / 9653  Ruote CA-FI   In gioco per n.colpi..1  Ambo...20 27
-----
9652 / 9653  Ruote CA-MI   In gioco per n.colpi..1  Ambo...50 79
9652 / 9653  Ruote CA-MI   In gioco per n.colpi..1  Ambo...50 39
9652 / 9653  Ruote CA-MI   In gioco per n.colpi..1  Ambo...50 6
9652 / 9653  Ruote CA-MI   In gioco per n.colpi..1  Ambo...50 48
-----
9652 / 9653  Ruote FI-BA   In gioco per n.colpi..1  Ambo...28 72
9652 / 9653  Ruote FI-BA   In gioco per n.colpi..1  Ambo...28 8
9652 / 9653  Ruote FI-BA   In gioco per n.colpi..1  Ambo...28 1
9652 / 9653  Ruote FI-BA   In gioco per n.colpi..1  Ambo...28 5
-----
9652 / 9653  Ruote FI-RO   In gioco per n.colpi..1  Ambo...28 88
9652 / 9653  Ruote FI-RO   In gioco per n.colpi..1  Ambo...28 23
9652 / 9653  Ruote FI-RO   In gioco per n.colpi..1  Ambo...28 60
9652 / 9653  Ruote FI-RO   In gioco per n.colpi..1  Ambo...28 49
------
9652 / 9653  Ruote FI-MI   In gioco per n.colpi..1  Ambo...48 79
9652 / 9653  Ruote FI-MI   In gioco per n.colpi..1  Ambo...48 39
9652 / 9653  Ruote FI-MI   In gioco per n.colpi..1  Ambo...48 6
9652 / 9653  Ruote FI-MI   In gioco per n.colpi..1  Ambo...48 50
-----
9652 / 9653  Ruote FI-NA   In gioco per n.colpi..1  Ambo...29 46
9652 / 9653  Ruote FI-NA   In gioco per n.colpi..1  Ambo...29 71
9652 / 9653  Ruote FI-NA   In gioco per n.colpi..1  Ambo...29 63
9652 / 9653  Ruote FI-NA   In gioco per n.colpi..1  Ambo...29 66
-----
9652 / 9653  Ruote GE-PA   In gioco per n.colpi..1  Ambo...7 43
9652 / 9653  Ruote GE-PA   In gioco per n.colpi..1  Ambo...7 61
9652 / 9653  Ruote GE-PA   In gioco per n.colpi..1  Ambo...7 62
9652 / 9653  Ruote GE-PA   In gioco per n.colpi..1  Ambo...7 60
-----
9652 / 9653  Ruote MI-BA   In gioco per n.colpi..1  Ambo...5 72
9652 / 9653  Ruote MI-BA   In gioco per n.colpi..1  Ambo...5 8
9652 / 9653  Ruote MI-BA   In gioco per n.colpi..1  Ambo...5 1
9652 / 9653  Ruote MI-BA   In gioco per n.colpi..1  Ambo...5 28
-----
9652 / 9653  Ruote MI-NA   In gioco per n.colpi..1  Ambo...71 46
9652 / 9653  Ruote MI-NA   In gioco per n.colpi..1  Ambo...71 63
9652 / 9653  Ruote MI-NA   In gioco per n.colpi..1  Ambo...71 66
9652 / 9653  Ruote MI-NA   In gioco per n.colpi..1  Ambo...71 29
-----
9652 / 9653  Ruote NA-MI   In gioco per n.colpi..1  Ambo...79 39
9652 / 9653  Ruote NA-MI   In gioco per n.colpi..1  Ambo...79 6
9652 / 9653  Ruote NA-MI   In gioco per n.colpi..1  Ambo...79 48
9652 / 9653  Ruote NA-MI   In gioco per n.colpi..1  Ambo...79 50
-----
9652 / 9653  Ruote NA-BA   In gioco per n.colpi..1  Ambo...72 8
9652 / 9653  Ruote NA-BA   In gioco per n.colpi..1  Ambo...72 1
9652 / 9653  Ruote NA-BA   In gioco per n.colpi..1  Ambo...72 28
9652 / 9653  Ruote NA-BA   In gioco per n.colpi..1  Ambo...72 5
-----
9652 / 9653  Ruote NA-PA   In gioco per n.colpi..1  Ambo...43 61
9652 / 9653  Ruote NA-PA   In gioco per n.colpi..1  Ambo...43 62
9652 / 9653  Ruote NA-PA   In gioco per n.colpi..1  Ambo...43 60
9652 / 9653  Ruote NA-PA   In gioco per n.colpi..1  Ambo...43 7
-----
9652 / 9653  Ruote NA-VE   In gioco per n.colpi..1  Ambo...43 56
9652 / 9653  Ruote NA-VE   In gioco per n.colpi..1  Ambo...43 16
9652 / 9653  Ruote NA-VE   In gioco per n.colpi..1  Ambo...43 88
9652 / 9653  Ruote NA-VE   In gioco per n.colpi..1  Ambo...43 74
-----
9652 / 9653  Ruote PA-VE   In gioco per n.colpi..1  Ambo...16 43
9652 / 9653  Ruote PA-VE   In gioco per n.colpi..1  Ambo...16 56
9652 / 9653  Ruote PA-VE   In gioco per n.colpi..1  Ambo...16 88
9652 / 9653  Ruote PA-VE   In gioco per n.colpi..1  Ambo...16 74
-----
9652 / 9653  Ruote PA-CA   In gioco per n.colpi..1  Ambo...73 31
9652 / 9653  Ruote PA-CA   In gioco per n.colpi..1  Ambo...73 8
9652 / 9653  Ruote PA-CA   In gioco per n.colpi..1  Ambo...73 67
9652 / 9653  Ruote PA-CA   In gioco per n.colpi..1  Ambo...73 19
-----
9652 / 9653  Ruote PA-BA   In gioco per n.colpi..1  Ambo...1 72
9652 / 9653  Ruote PA-BA   In gioco per n.colpi..1  Ambo...1 8
9652 / 9653  Ruote PA-BA   In gioco per n.colpi..1  Ambo...1 28
9652 / 9653  Ruote PA-BA   In gioco per n.colpi..1  Ambo...1 5
-----
9652 / 9653  Ruote RO-MI   In gioco per n.colpi..1  Ambo...79 39
9652 / 9653  Ruote RO-MI   In gioco per n.colpi..1  Ambo...79 6
9652 / 9653  Ruote RO-MI   In gioco per n.colpi..1  Ambo...79 48
9652 / 9653  Ruote RO-MI   In gioco per n.colpi..1  Ambo...79 50
------
9652 / 9653  Ruote RO-PA   In gioco per n.colpi..1  Ambo...43 61
9652 / 9653  Ruote RO-PA   In gioco per n.colpi..1  Ambo...43 62
9652 / 9653  Ruote RO-PA   In gioco per n.colpi..1  Ambo...43 60
9652 / 9653  Ruote RO-PA   In gioco per n.colpi..1  Ambo...43 7
------
9652 / 9653  Ruote RO-VE   In gioco per n.colpi..1  Ambo...43 56
9652 / 9653  Ruote RO-VE   In gioco per n.colpi..1  Ambo...43 16
9652 / 9653  Ruote RO-VE   In gioco per n.colpi..1  Ambo...43 88
9652 / 9653  Ruote RO-VE   In gioco per n.colpi..1  Ambo...43 74
------
9652 / 9653  Ruote RO-CA   In gioco per n.colpi..1  Ambo...73 31
9652 / 9653  Ruote RO-CA   In gioco per n.colpi..1  Ambo...73 8
9652 / 9653  Ruote RO-CA   In gioco per n.colpi..1  Ambo...73 67
9652 / 9653  Ruote RO-CA   In gioco per n.colpi..1  Ambo...73 19
------
9652 / 9653  Ruote TO-BA   In gioco per n.colpi..1  Ambo...28 72
9652 / 9653  Ruote TO-BA   In gioco per n.colpi..1  Ambo...28 8
9652 / 9653  Ruote TO-BA   In gioco per n.colpi..1  Ambo...28 1
9652 / 9653  Ruote TO-BA   In gioco per n.colpi..1  Ambo...28 5
------
9652 / 9653  Ruote TO-RO   In gioco per n.colpi..1  Ambo...28 88
9652 / 9653  Ruote TO-RO   In gioco per n.colpi..1  Ambo...28 23
9652 / 9653  Ruote TO-RO   In gioco per n.colpi..1  Ambo...28 60
9652 / 9653  Ruote TO-RO   In gioco per n.colpi..1  Ambo...28 49
------
9652 / 9653  Ruote TO-FI   In gioco per n.colpi..1  Ambo...63 20
9652 / 9653  Ruote TO-FI   In gioco per n.colpi..1  Ambo...63 61
9652 / 9653  Ruote TO-FI   In gioco per n.colpi..1  Ambo...63 60
9652 / 9653  Ruote TO-FI   In gioco per n.colpi..1  Ambo...63 27
------
9652 / 9653  Ruote TO-NA   In gioco per n.colpi..1  Ambo...63 46
9652 / 9653  Ruote TO-NA   In gioco per n.colpi..1  Ambo...63 71
9652 / 9653  Ruote TO-NA   In gioco per n.colpi..1  Ambo...63 66
9652 / 9653  Ruote TO-NA   In gioco per n.colpi..1  Ambo...63 29
------
9652 / 9653  Ruote VE-FI   In gioco per n.colpi..1  Ambo...61 20
9652 / 9653  Ruote VE-FI   In gioco per n.colpi..1  Ambo...61 63
9652 / 9653  Ruote VE-FI   In gioco per n.colpi..1  Ambo...61 60
9652 / 9653  Ruote VE-FI   In gioco per n.colpi..1  Ambo...61 27
------
9652 / 9653  Ruote VE-PA   In gioco per n.colpi..1  Ambo...61 43
9652 / 9653  Ruote VE-PA   In gioco per n.colpi..1  Ambo...61 62
9652 / 9653  Ruote VE-PA   In gioco per n.colpi..1  Ambo...61 60
9652 / 9653  Ruote VE-PA   In gioco per n.colpi..1  Ambo...61 7
-----
9652 / 9653  Ruote VE-CA   In gioco per n.colpi..1  Ambo...67 31
9652 / 9653  Ruote VE-CA   In gioco per n.colpi..1  Ambo...67 8
9652 / 9653  Ruote VE-CA   In gioco per n.colpi..1  Ambo...67 73
9652 / 9653  Ruote VE-CA   In gioco per n.colpi..1  Ambo...67 19

 Totale Ambi Negativi o InCorso per 1  colpi di gioco sulle 2 ruote di elaborazione...140
 
Ultima modifica di un moderatore:
CIAO RUBINO GRAZIE MA IERI SERA O INSTALLATO SPAZIOMETRIA con l8 da errore comuque quello cge fa sorte di prev
 
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.
 
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
 
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 un moderatore:
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
 
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 un moderatore:
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: 
[SIZE=11px][FONT=courier new]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[/FONT][/SIZE]
 
Ultima modifica di un moderatore:
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 un moderatore:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto