Novità

Impostare Posizione Voluta Estratti

X

Xeroxs

Advanced Member >PLATINUM<
Buongiorno a Tutti, finchè sono in possesso del PC dei miei avrei bisogno di un aiutino per impostare una ricerca su estrazioni consecutive di un numero ripetuto ma impostando questa ricerca su posizioni volute una nella prima estrazione e l'altra nella seconda estrazione per la stessa ruota, faccio un esempio se volessi imporre solo la 3 o la 5 posizione del numero ripetuto

25.05.2021 FI 16.32.52.40.81 Num. Ripetuto ---> 52 In 3° Posizione
27.05.2021 FI 76.83.09.82.52 Num. Ripetuto ---> 52 In 5° Posizione


03.06.2021 PA 74.07.49.32.90 Num. Ripetuto ---> 49 In 3° Posizione
05.06.2021 PA 65.23.63.06.49 Num. Ripetuto ---> 49 In 5° Posizione


22.05.2021 NZ 86.69.74.85.26 Num. Ripetuto ---> 26 In 5° Posizione
25.05.2021 NZ 45.08.26.35.05 Num. Ripetuto ---> 26 In 3° Posizione

Come posso impostarlo sullo Script che posterò?

Al momento la ricerca la fà su ogni posizione, io ho cercato di imporre con degli If le posizioni di p e p1 (vedi Script) ma non ci sono riuscito, in quanto lo vorrei creare in modo tale che se voglio cambiare le posizioni le impongo di volta in volta

se Impongo ad esempio la 3 e la 5 posizioni la ricerca va eseguita in questo modo

p = 3 o 5 ------ p1 = 5 ( se il numero è in 3 posizione) p1 = 3 ( se il numero è in 5 posizione)

se trovo il numero ripetuto in 2 estrazioni consecutive nella prima estrazione deve trovarsi in 3 o in 5 e nell'altra in 5 o in 3 ma questo penso sia ovvio e non isotopo
( solo nelle posizioni volute, in questo caso )

Spero di essere stato chiaro, altrimenti chiedo scusa.

Ecco lo script che vorrei modificare


Codice: 
Option Explicit
Sub Main()
   Dim Ini,Fin,es,QE
   Dim r
   Dim A,B,p,p1
   QE = InputBox("Quante Estrazioni controllo",,50)
   Fin = EstrazioneFin
   Ini = EstrazioneFin - QE
   For es = Ini To Fin
      AvanzamentoElab Ini,Fin,es
      For r = 1 To 12
         If r = 11 Then r = 12
         For p = 1 To 5
            For p1 = 1 To 5
               A = Estratto(es,r,p)
               B = Estratto(es + 1,r,p1)
               If A = B Then
                  Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,(r)) & "      " & " Num. Ripetuto ---> " & " " & Format2(A) & " In " & p & "° Posizione",1
                  Scrivi DataEstrazione(es + 1) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 1,(r)) & "      " & " Num. Ripetuto ---> " & " " & Format2(B) & " In " & p1 & "° Posizione",1
                  Scrivi
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit For
   Next
End Sub


Spero che qualcuno possa darmi la dritta necessaria

Grazie come sempre
 
Ciao, penso questa possa essere una soluzione....
Codice: 
Option Explicit
Sub Main()
   Dim Ini,Fin,es,QE
   Dim r
   Dim A,B,p,p1
   QE = InputBox("Quante Estrazioni controllo",,50)
   Fin = EstrazioneFin
   Ini = EstrazioneFin - QE
   For es = Ini To Fin
      AvanzamentoElab Ini,Fin,es
      For r = 1 To 12
         If r = 11 Then r = 12
         For p = 1 To 5
            If p=3 Or p=5 Then
            For p1 = 1 To 5
               If p1=3 Or p1=5 Then
                  A = Estratto(es,r,p)
                  B = Estratto(es + 1,r,p1)
                  If A = B And p<>p1 Then
                     Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,(r)) & "      " & " Num. Ripetuto ---> " & " " & Format2(A) & " In " & p & "° Posizione",1
                     Scrivi DataEstrazione(es + 1) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 1,(r)) & "      " & " Num. Ripetuto ---> " & " " & Format2(B) & " In " & p1 & "° Posizione",1
                     Scrivi
                  End If
               End If
            Next
            End If
         Next
      Next
      If ScriptInterrotto Then Exit For
   Next
End Sub
 
Ciao, Ramco,

Grazie ed è un piacere ricevere un consiglio/aiuto anche da Te.
Pensavo di agire sugli If ma non ero proprio riuscito ad impostarlo.

Grazie Ancora
 
For R = 1 to 10
E= estratto(id,R,p)
E1= estratto(id,r,p1)
For R1=r+1 to 12
If r<>11then
If posizione( id+1,r1,e)=p1 then
Codice
Elseif posizione (id+1,r1,e1) = p then
Codice

End if
End if
Next
Next
Scritto da cell . Verifica perché appena smontato da lavoro.
Ciao
 
Ciao Salvo è un piacere ritrovarti
Ho letto ora meglio lo script
Xerox impostato così lo script precedente cerca sulle altre ruote, non sulla medesima.
Prova così:)
P=1
P1= 5

For id= estrazionefin-17 to estrazione fin

For R = 1 to 12
If r<> 11 then
E= estratto(id,R,p)
E1= estratto(id,r,p1)


If posizione( id+1,r,e)=p1 then
Codice
Elseif posizione (id+1,r,e1) = p then
Codice

End if
End if
Next
Next
Scritto da cell .
Ciao
 
Ciao a tutti

scusa Xeroxs se scrivo qua volevo chiedere a ilegend come si fa a vedere in out dello script
le ambate che si sono sfaldate nella ultima estr
scrivo un esempio

Numeri in gioco : 01 su NA RO VE per Estratto
V N. [01] [VE] [01 .. .. .. ..] C. 1 Estratto [09/09/2021]
V N. [01] [VE] [01 .. .. .. ..] C. 3 Estratto [14/09/2021]
V N. [01] [NA] [.. .. .. 01 ..] C. 4 Estratto [16/09/2021]

questo videata in out dello script evidenzia tutte le righe in rosso
perche si sono sfaldate

Gioca es,True

invece vorrei che lo script mi evidenzia solo la riga con la data
del 16/09/2021

la domanda e questa come si deve modificare la riga Gioca es,True ?

​

 
Grazie a tutti per i vostri interventi, grazie Ramco migliorerò poi il tutto anche con i consigli di I-Legend, appena mi rilasciano i serata il PC farò il tutto.
Come sempre gentili
 
Ciao ilegend Xeroxs ..

come non detto non saprei nemmeno io come fare a modificare gioca es
va be ci arrendiamo ma la guerra continua..

Ciao

​

 
i legend ha scritto:
Ciao.
Zetrix gioca è una funzione inTerna di spaziometria. Non si può modificare, o per lo meno io non saprei come . Ciao :)
Clicca per espandere...

Seguo perchè anche a me interesserebbe sfruttarla al massimo questa funzione... 🥲
Sopratutto vorrei sapere come impostare una data di fine verifica diversa rispetto a quella presente come ultima in archivio. 👋:)
 
Zetrix ha scritto:
Ciao a tutti

scusa Xeroxs se scrivo qua volevo chiedere a ilegend come si fa a vedere in out dello script
le ambate che si sono sfaldate nella ultima estr
scrivo un esempio

Numeri in gioco : 01 su NA RO VE per Estratto
V N. [01] [VE] [01 .. .. .. ..] C. 1 Estratto [09/09/2021]
V N. [01] [VE] [01 .. .. .. ..] C. 3 Estratto [14/09/2021]
V N. [01] [NA] [.. .. .. 01 ..] C. 4 Estratto [16/09/2021]

questo videata in out dello script evidenzia tutte le righe in rosso
perche si sono sfaldate

Gioca es,True

invece vorrei che lo script mi evidenzia solo la riga con la data
del 16/09/2021

la domanda e questa come si deve modificare la riga Gioca es,True ?

​

Clicca per espandere...
quale caratteristica ha la data del 16/09/2021 rispetto alle altre in elenco o di nizio giocata?
Spiega meglio cosa vuoi fare, non è con Gioca che puoi trovare la soluzione.
 
Ultima modifica:
Interessante la soluzione proposta da Ramco.

(Tra parentesi non dimentico che con la chiusura del vecchio forum

mi sono perso la ricetta della torta delle 3 tazze prima di poterla provare)

Ho voluto invece provare a velocizzare la ricerca.

Sul mio PC da 12 secondi (a parità di risultati) si scende a 9.

Dunque ... per dare un senso compiuto a quella che è la misura,

si tratta di un miglioramento del 25-30 %

Se fosse quello di un motore endotermico ...

non ci sarebbe cinquina in grado di ricompensarlo in soldoni.

Codice: 
Option Explicit
Sub Main()
   Dim Ini,Fin,es,QE
   Dim r
   Dim p,q,E
   p = 3 : q = 5
   QE = 6000 'InputBox("Quante Estrazioni controllo",,50)
   Fin = EstrazioneFin
   Ini = EstrazioneFin - QE
   For es = Ini To Fin
      'AvanzamentoElab Ini,Fin,es
      For r = 1 To 12
         If r = 11 Then r = 12
         E = 0
         If Estratto(es,r,p) = Estratto(es + 1,r,q) Then E = Estratto(es,r,p)
         If Estratto(es,r,q) = Estratto(es + 1,r,p) Then E = Estratto(es,r,q)
         If E > 0 Then
            'Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,(r)) & "      " & " Num. Ripetuto ---> " & " " & Format2(E) & " In " & p & "° Posizione",1
            'Scrivi DataEstrazione(es + 1) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 1,(r)) & "      " & " Num. Ripetuto ---> " & " " & Format2(E) & " In " & q & "° Posizione",1
            'Scrivi
         End If
      Next
      If ScriptInterrotto Then Exit For
   Next
   Scrivi TempoTrascorso
End Sub

Gioca per contro ... è una delle istruzioni, più complicate e pesanti.

Riscriversi il codice per i propri scopi (secondo me) è da addetti ai lavori.

Anche inutile ... perché c'è già gioca e sarebbe quasi impossibile scriverla a chi non ne è capace.

Sempre (secondo me) meglio non usare quella istruzione ed optare per soluzioni

dedicate al calcolo dei risultati che si vogliono ottenere.

Solo quelli. Puliti-puliti.

Oppure cercare di alleggerire il più possibile l'output finale dello script, che " gioca"

e poi elaborarlo successivamente, cercando di ottenere solo ciò che serve.

Separandolo da quello che non serve.

Ma è piuttosto "oneroso" sia per il pc ... che per chi deve fare e gestire,

gli script ed i file di risultati intermedi,

con altri script ed altri file (o excel) per avere in sintesi i risultati puliti.

In migliore alternativa verificaesito fornisce già molte liste, di risultati.

ed anche le tabelle ordinabili ... possono essere utili.

Senza abusarne.

:)
 
Grazie Joe,

Terrò cara anche la tua proposta.

Così ho valide possibilità per altri spunti di Ricerca
Sulle posizioni questo tipo di impostazioni mi aveva messo in difficoltà ma grazie a Voi posso creare ricerche diverse è più dinamiche.

Grazie ancora a Tutti.
 
claudio8 ha scritto:
quale caratteristica ha la data del 16/09/2021 rispetto alle altre in elenco o di nizio giocata?
Spiega meglio cosa vuoi fare, non è con Gioca che puoi trovare la soluzione.
Clicca per espandere...

mi spiego meglio che forse non mi sono spiegato bene lo script dovrebbe evidenziare
le righe che hanno dato l'esito delle ambate dell'ultima estr
faccio un esempio a ritroso posso scegliere una due o piu estr mi interessa al massimo
8 estr indietro e lo script dovrebbe evidenziare solo le ambate che si sono sfaldate
nell'ultima estr invece adesso con gioca es,true lo script evidenzia le ambate in questo modo

G 0001 Numeri in gioco : 03 su BA FI MI per Estratto
V N. [03 ] [BA] [.. .. .. 03 ..] C. 6 Estratto 01860 [11/09/2021] [09.19.54.03.67]*


G 0002 Numeri in gioco : 71 su BA FI MI per Estratto
V N. [71 ] [MI] [.. 71 .. .. ..] C. 1 Estratto 01855 [31/08/2021] [38.71.69.88.30]*
V N. [71 ] [MI] [71 .. .. .. ..] C. 7 Estratto 01861 [14/09/2021] [71.16.28.60.32]*


G 0003 Numeri in gioco : 49 su BA FI MI per Estratto
V N. [49 ] [BA] [.. 49 .. .. ..] C. 8 Estratto 01862 [16/09/2021] [74.49.82.32.42]*


G 0004 Numeri in gioco : 72 su BA FI MI per Estratto
In corso

a me interesserebbe che lo script evidenziasse solo la riga con la data dell'ultima estr
che e la 16/09/2021 in modo tale da vedere quale prospetto a dato l'esito dell'ultima estr

*le righe le evidenzia tutte in rosso ed e difficile vedere quale tra esse si sono sfaldate
nell'ultima estr

* Gioca es,1,,1

1918.png
 
Ultima modifica:
claudio8 ha scritto:
dipende dal costrutto che usi
Clicca per espandere...

Good morning claudio8 :) per adesso uso quello standard... Ma vorrei poter conoscere più opzioni possibili di output come zetrix. In particolar modo ad esempio come mostrare solo i casi con colpi rimanenti che non hanno avuto ancora uno sfaldamento... Invece adesso mostra anche quelli con gli sfaldamenti nei colpi precedenti... Con scrividistribuzionecasiincorso non risolvo in quanto anche li' considera tutto... Se non sono stato chiaro dimmi che ti faccio un esempio... 👋:)
 
Questa mattina,

Ho voluto anche controllare i risultati dello scambio completo tra i numeri.

Penso, si possa considerare una totale riscrittura e dunque di tutt'altro metodo.

Il risultato a seguire l'ultimo caso ad oggi presente è (ovvero sarebbe potuto essere)

Ambo Secco a Genova 01.42 al 10 colpo il 23/03/2021.

Codice: 
Option Explicit
Sub Main()

   'Ambo Ripetuto Isotopo Crociato V 1.0 del 18/09/2021 By Joe

   REM P - Q  Posizioni
   REM |   |
   REM A - B  Es-1
   REM | X | 
   REM C - D   Es 
 
   Dim Ini,Fin,Es
   Dim R,P,Q ' Ruota e Posizioni
   Dim A,B,C,D ' Estratti
   Ini = 7440 : Fin = EstrazioneFin
   For Es = Ini To Fin
      AvanzamentoElab Ini,Fin,Es
      For R = 1 To 12
         If R = 11 Then R = 12
         For P = 1 To 4
            For Q = P + 1 To 5
               A = Estratto(Es - 1,R,P) : B = Estratto(Es - 1,R,Q)
               C = Estratto(Es,R,P) : D = Estratto(Es,R,Q)
               If A = D And B = C Then
                  Scrivi DataEstrazione(Es - 1) & " " & SiglaRuota(R) & " " & StringaEstratti(Es - 1,(R)) & Space(2) & "Numeri ---> " & " " & Format2(A) &  " " & Format2(B) ,1
                  Scrivi DataEstrazione(Es) & " " & SiglaRuota(R) & " " & StringaEstratti(Es,(R)) & Space(2) & "Crociati ->  "  & P & "° " & Q & "° Estr.",1
                  Scrivi
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit For
   Next
End Sub

:)
 
Zetrix ha scritto:
mi spiego meglio che forse non mi sono spiegato bene lo script dovrebbe evidenziare
le righe che hanno dato l'esito delle ambate dell'ultima estr
faccio un esempio a ritroso posso scegliere una due o piu estr mi interessa al massimo
8 estr indietro e lo script dovrebbe evidenziare solo le ambate che si sono sfaldate
nell'ultima estr invece adesso con gioca es,true lo script evidenzia le ambate in questo modo

G 0001 Numeri in gioco : 03 su BA FI MI per Estratto
V N. [03 ] [BA] [.. .. .. 03 ..] C. 6 Estratto 01860 [11/09/2021] [09.19.54.03.67]*


G 0002 Numeri in gioco : 71 su BA FI MI per Estratto
V N. [71 ] [MI] [.. 71 .. .. ..] C. 1 Estratto 01855 [31/08/2021] [38.71.69.88.30]*
V N. [71 ] [MI] [71 .. .. .. ..] C. 7 Estratto 01861 [14/09/2021] [71.16.28.60.32]*


G 0003 Numeri in gioco : 49 su BA FI MI per Estratto
V N. [49 ] [BA] [.. 49 .. .. ..] C. 8 Estratto 01862 [16/09/2021] [74.49.82.32.42]*


G 0004 Numeri in gioco : 72 su BA FI MI per Estratto
In corso

a me interesserebbe che lo script evidenziasse solo la riga con la data dell'ultima estr
che e la 16/09/2021 in modo tale da vedere quale prospetto a dato l'esito dell'ultima estr

*le righe le evidenzia tutte in rosso ed e difficile vedere quale tra esse si sono sfaldate
nell'ultima estr

* Gioca es,1,,1

Vedi l'allegato 2221626
Clicca per espandere...
...Ciao
se ho capito bene la tua richiesta... si può risolvere il caso facendo la modifica all'istruzione "Gioca..."
> indicizza l'estrazione finale in archivio <
"Gioca, estrazionefin, ....."
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto