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
 
R

Ramco

Member
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
 
X

Xeroxs

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

Ramco

Member
...mi fa piacere esserti stato d'aiuto... diciamo che impostato così puoi pensare successivamente di assegnare degli inputbox ai valori "p" e "p1" e variare i valori come vuoi...
 
i legend

i legend

Premium Member
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
 
i legend

i legend

Premium Member
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
 
Zetrix

Zetrix

Advanced Premium Member
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 ?

​

 
X

Xeroxs

Advanced Member >PLATINUM<
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
 
Zetrix

Zetrix

Advanced Premium Member
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

​

 
lotto_tom75

lotto_tom75

Advanced Premium Member
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. 👋:)
 
C

claudio8

Premium Member
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:
joe

joe

Advanced Member >PLATINUM PLUS<
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.

:)
 
X

Xeroxs

Advanced Member >PLATINUM<
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.
 
Zetrix

Zetrix

Advanced Premium Member
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:
lotto_tom75

lotto_tom75

Advanced Premium Member
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... 👋:)
 
joe

joe

Advanced Member >PLATINUM PLUS<
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

:)
 
R

Ramco

Member
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
    venerdì 03 maggio 2024
    Bari
    38
    11
    08
    19
    81
    Cagliari
    69
    50
    27
    65
    06
    Firenze
    60
    05
    42
    75
    84
    Genova
    17
    29
    71
    48
    80
    Milano
    02
    33
    81
    85
    63
    Napoli
    12
    10
    29
    51
    84
    Palermo
    04
    21
    69
    79
    50
    Roma
    62
    72
    84
    30
    90
    Torino
    41
    33
    46
    03
    68
    Venezia
    03
    29
    10
    85
    33
    Nazionale
    72
    03
    82
    37
    58
    Estrazione Simbolotto
    Milano
    19
    22
    24
    08
    32
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto