Joe perche ?

[genios]

Joe perché in out le estrazioni tra posizione e numeri sono uguali pur usando archivio 1 ?

Ciao Eugenio

Sub Main
'Frequenze Recenti delle Posizioni Script BY JOE
   Dim F,R,P,I,N,PP,es,Nu(5),NN(5),xf,E,PF(90),cc,Valorefr,x
   R = ScegliRuota : I = EstrazioneFin - 53 : F = EstrazioneFin
   Scrivi "RUOTA " & NomeRuota(R)
   Scrivi "Dal " & DataEstrazione(I,,,"/") & " al " & DataEstrazione(F,,,"/"),True
   Scrivi "Quantità estrazioni rilevate/calcolate " &((F - I) + 1)
   Scrivi
      Scrivi
   Scrivi "ID estraz. -  Estrazione espressa       Estrazione con ",True
   Scrivi "             in numeri di POSIZIONE      Numeri REALI",True
   co = 0
   For es = I To F
      co = co + 1
      For PP = 1 To 5
         Nu(PP) = Estratto(es,R,PP,1)
         NN(PP) = Estratto(es,R,PP,0)
         E = Estratto(es,R,PP,1)
         PF(E) = PF(E) + 1
      Next
      Scrivi Format2(co) & ") " & es & vbTab & StringaNumeri(Nu,,1) & Space(10) & StringaNumeri(NN,,1)
   Next
      
End Sub

 

[Atlantis57]

Ciao genios, ho provato ad eseguire lo script mi ha dato errore, motivo
variabile co non dichiarata

 

[*blacklotto*]

funziona benissimo lo script

RUOTA Bari
Dal 14/06/2022 al 15/10/2022
Quantità estrazioni rilevate/calcolate 54

ID estraz......Estrazione espressa.........Estrazione con
..............in numeri di POSIZIONE.......Numeri REALI
01) 10094........33.22.15.71.77...........34.39.04.76.73
02) 10095........62.88.66.86.26...........15.04.11.34.10
03) 10096........41.78.24.75.10...........08.29.20.60.71
04) 10097........64.90.57.68.50...........58.71.52.78.36
05) 10098........52.35.08.13.50...........55.88.23.22.72
06) 10099........56.67.73.35.88...........86.25.04.62.23
07) 10100........66.73.20.52.82...........39.08.07.75.55
08) 10101........17.40.52.81.06...........54.42.70.86.63
09) 10102........55.81.89.09.52...........49.39.86.27.59
10) 10103........63.79.90.21.41...........29.07.59.87.40
11) 10104........29.19.78.86.11...........47.80.54.29.35
12) 10105........87.29.44.18.23...........80.32.56.48.85
13) 10106........66.03.78.67.88...........62.13.07.23.56
14) 10107........10.68.07.30.45...........06.42.01.64.03
15) 10108........04.20.60.32.07...........18.51.04.38.19
16) 10109........11.47.87.16.86...........09.58.51.77.18
17) 10110........42.81.85.70.35...........10.64.19.32.84
18) 10111........19.44.86.10.47...........21.52.10.37.88
19) 10112........46.90.32.11.60...........25.88.89.82.54
20) 10113........74.84.70.01.28...........58.10.03.65.02
21) 10114........12.05.18.74.86...........14.24.28.64.58
22) 10115........54.08.46.58.16...........80.17.86.13.30
23) 10116........65.63.19.27.57...........18.51.12.15.06
24) 10117........23.85.38.54.10...........57.30.70.56.69
25) 10118........63.01.22.72.58...........25.43.76.14.32
26) 10119........20.83.12.26.84...........66.70.90.71.56
27) 10120........19.76.52.57.38...........73.15.19.88.47
28) 10121........75.14.73.41.69...........69.74.57.62.18
29) 10122........73.33.65.48.71...........76.59.86.84.25
30) 10123........76.53.65.37.79...........73.10.12.48.88
31) 10124........64.77.20.19.50...........30.74.20.34.82
32) 10125........07.89.50.28.29...........53.34.65.49.39
33) 10126........23.14.35.24.25...........08.46.42.75.55
34) 10127........31.42.34.59.75...........01.02.09.56.48
35) 10128........36.54.46.29.43...........37.90.13.07.58
36) 10129........50.54.15.83.86...........71.69.26.09.37
37) 10130........40.67.89.88.36...........80.82.09.26.03
38) 10131........42.19.87.86.39...........43.22.82.80.17
39) 10132........08.17.90.56.33...........16.78.17.10.89
40) 10133........79.29.37.59.47...........09.21.14.34.76
41) 10134........54.03.82.65.27...........20.83.78.02.38
42) 10135........78.34.39.29.17...........17.32.47.24.63
43) 10136........41.72.67.89.45...........84.80.26.24.88
44) 10137........85.42.30.69.61...........63.73.51.16.58
45) 10138........40.80.21.73.68...........25.47.35.20.09
46) 10139........04.80.02.62.59...........41.88.05.22.37
47) 10140........73.83.52.42.41...........80.35.90.49.65
48) 10141........08.13.76.02.01...........67.36.58.68.33
49) 10142........62.65.79.64.17...........38.84.22.32.04
50) 10143........14.60.49.11.08...........29.02.03.27.11
51) 10144........12.61.20.02.85...........85.51.66.45.04
52) 10145........05.30.61.87.13...........79.39.20.51.52
53) 10146........31.17.68.12.90...........75.15.67.54.52
54) 10147........10.83.42.81.07...........23.39.14.04.72

 

[Alien.]

Ciao cosa intendi in numeri di POSIZIONE sono ritardi ?

 

[joe]

Eugenio,

ci sono dei fondamentali da apprendere prima di avventurarsi in argomenti più complicati.

Dunque se uno non ha afferrato con gradualità di apprendimento e capacità di sviluppo ,

tutto il preliminare sottostante diventa improbabile che possa orientarsi nelle elaborazioni di fasi più complesse.

In ogni caso, è evidente, che quello script è stato modificato.

Non si può sapere perché o per quale scopo sono state introdotte variazioni..

Dovresti almeno rileggere di quanto si discuteva, relativamente allo script senza le modifiche,

e poi specificare per bene a quale scopo dovrebbe essere modificato.

Altrimenti non c'è neppure un argomento di cui trattare ... figurati se ci può essere una risposta.

 

[genios]

*blacklotto* a me in out da questo. Non riesco a capire eppure questa riga di codice indica di usare l' archivio 1 Nu(PP) = Estratto(es,R,PP,1).​

RUOTA Bari
Dal 17/05/2022 al 17/09/2022
Quantità estrazioni rilevate/calcolate 54


ID estraz. -  Estrazione espressa       Estrazione con
             in numeri di POSIZIONE      Numeri REALI
01) 10082    16.31.30.50.81          16.31.30.50.81
02) 10083    32.21.59.44.90          32.21.59.44.90
03) 10084    42.28.73.64.30          42.28.73.64.30
04) 10085    81.36.72.84.40          81.36.72.84.40
05) 10086    89.58.55.31.67          89.58.55.31.67
06) 10087    74.38.52.15.79          74.38.52.15.79
07) 10088    12.75.11.46.84          12.75.11.46.84
08) 10089    76.84.29.70.60          76.84.29.70.60
09) 10090    86.58.31.56.73          86.58.31.56.73
10) 10091    02.78.57.59.26          02.78.57.59.26
11) 10092    66.60.49.29.89          66.60.49.29.89
12) 10093    29.84.03.25.57          29.84.03.25.57
13) 10094    34.39.04.76.73          34.39.04.76.73
14) 10095    15.04.11.34.10          15.04.11.34.10
15) 10096    08.29.20.60.71          08.29.20.60.71
16) 10097    58.71.52.78.36          58.71.52.78.36
17) 10098    55.88.23.22.72          55.88.23.22.72

 

[genios]

*blacklotto* a me in out da questo. Non riesco a capire eppure questa riga di codice indica di usare l' archivio 1 Nu(PP) = Estratto(es,R,PP,1).​

come puoi notare la posizione dei numeri e i numeri reali sono gli stessi .

RUOTA Bari
Dal 17/05/2022 al 17/09/2022
Quantità estrazioni rilevate/calcolate 54


ID estraz. -  Estrazione espressa       Estrazione con
             in numeri di POSIZIONE      Numeri REALI
01) 10082    16.31.30.50.81          16.31.30.50.81
02) 10083    32.21.59.44.90          32.21.59.44.90
03) 10084    42.28.73.64.30          42.28.73.64.30
04) 10085    81.36.72.84.40          81.36.72.84.40
05) 10086    89.58.55.31.67          89.58.55.31.67
06) 10087    74.38.52.15.79          74.38.52.15.79
07) 10088    12.75.11.46.84          12.75.11.46.84
08) 10089    76.84.29.70.60          76.84.29.70.60
09) 10090    86.58.31.56.73          86.58.31.56.73
10) 10091    02.78.57.59.26          02.78.57.59.26
11) 10092    66.60.49.29.89          66.60.49.29.89
12) 10093    29.84.03.25.57          29.84.03.25.57
13) 10094    34.39.04.76.73          34.39.04.76.73
14) 10095    15.04.11.34.10          15.04.11.34.10
15) 10096    08.29.20.60.71          08.29.20.60.71
16) 10097    58.71.52.78.36          58.71.52.78.36
17) 10098    55.88.23.22.72          55.88.23.22.72

 

[joe]

EU,

Se i numeri sono gli stessi ... gli archivi sono uguali.

Le cose più probabili sono che tu abbia ubriacato, il programma, o che più facilmente

abbia fatto confusione, rinominando e sovrascritto l'archivio L1 con uno ordinario.

Dunque ricostruiscilo ex_novo.

Poi se ne riparla.

 

[genios]

Progbabile che sia cosi.

 

[genios]

Ricreato l archivio L1 ora funziona. Grazie

 

[genios]

Ora anche se ha grandi linee ho capito aiutatemi ad approfondire meglio il seguente ciclo For next :

 For PP = 1 To 5
         Nu(PP) = Estratto(es,R,PP,1)
         NN(PP) = Estratto(es,R,PP,0)
         E = Estratto(es,R,PP,1) ' conversione da Numero di Posizione a Numero Reale
         PF(E) = PF(E) + 1
      Next

 

[joe]

E = e' uno dei 5 Estratti in Archivio L1.

Cioè E, è una delle Posizioni Estratte.

PF (E) aumenta, di 1 , ogni volta che la Posizione (E) viene Estratta

Cioè sono le Presenze della Posizione nel periodo che hai impostato.

Poi valgono tutte le cose che si erano già scritte ...

 

[genios]

Se tolgo queste 2 righe di codice out non cambia
E = Estratto(es,R,PP,1)
PF(E) = PF(E) + 1

a me sembra che almeno per questa parte del programma non servano.

 

[genios]

Questo il diagramma di flusso dei due cicli for next

 

[joe]

Ok ...

Però se metti assieme la descrizione contenuta nei titoli di testa delle script:

'Frequenze Recenti delle Posizioni Script BY JOE

e la tua richiesta : "aiutatemi ad approfondire meglio" :

E = Estratto(es,R,PP,1)
PF(E) = PF(E) + 1 'Posizione Frequente

La risposta che ti ho dato, è relativa a questo o quello che si poteva intendere.

Se "togli" allo script, quello che era il suo scopo, le domande che hai fatto

e le risposta che ti ho dato ... perdono di significato.