Novità

aiuto per script complicato

R

Rubino

Guest
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.
 
R

Rubino

Guest
Prova così, ho modificato le istruzioni, dovrebbe andare anche su L8
Errato perché doppio per copia incolla
 
Ultima modifica di un moderatore:

solare

Advanced Member >PLATINUM<
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à
 
R

Rubino

Guest
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
 
R

Rubino

Guest
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:
R

Rubino

Guest
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:

ghio

Super Member >PLATINUM<
CIAO RUBINO GRAZIE MA IERI SERA O INSTALLATO SPAZIOMETRIA con l8 da errore comuque quello cge fa sorte di prev
 
R

Rubino

Guest
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.
 

ghio

Super Member >PLATINUM<
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
 
R

Rubino

Guest
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:

ghio

Super Member >PLATINUM<
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
 
R

Rubino

Guest
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:
R

Rubino

Guest
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:
R

Rubino

Guest
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:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto