presenze nelle decina naturale

[genios]

Sapete aiutarmi nella stesura di uno script che mi calcoli in un intervallo di 360 estrazioni le presenze di ogni numero della decina naturale 11 12 13 14 15 16 17 18 19 20 .

Sotto l' esempio sulla ruota di BA .

Sotto come dovrebbe essere l' out . Nella prima colonna il numero di estrazione . Nella seconda colonna la data dell' estrazione nella terza colonna le presenze trovate per ogni numero della decina naturale . Nella quarta quando vi sono scrivere i numeri della decina in questione usciti nella 360 esima estrazione nella quinta colonna stampare in out i numeri dell' estrazione .Passare quindi a considerare l' intervallo di 360 estrazioni che vanno dall' estrazione 3971 alla 4331 e cosi' via fino all' estrazione attuale .

                        11 12 13 14 15 16 17 18 19 20  


03970        01/02/47                                                   00 00 00 00 00              04 49 04 82 69
04330        28/12/53   10  23 14 15 20 19 20 24 17 22                                              28 54 43 74 46

Ciao Eugenio

 

[genios]

Potreste dirmi se sono sulla strada giusta ?

Aiuto per la scrivere l' istruzione SerieFreq.

Ciao Eugenio

Option Explicit
Sub Main
numero=11
ruota=BA_
fine=EstrazioneFin
Inizio=EstrazioneFin-359
SerieFreq( Inizio,fine,numero,ruota,1,,, )
End Sub

 

[claudio8]

Ti consiglio di leggere attentamente l'help delle funzioni che vuoi utilizzare. 1)Elimina "option explicit", esso ti impone di "Dim.. ensionare" tutte le variabili che inserisci nello script.
2) Serie freq, ricopiato dall'help:
SerieFreq
Analizza una determinata combinazione di numeri per una data sorte entro un certo range di estrazioni su una data ruota e torna il valore di frequenza per la sorte specificata
Note
Valore di ritorno
valore di frequenza per la sorte specificata
Parametri
[TABLE="border: 0, cellpadding: 1, cellspacing: 2"]
[TR]
[TD="align: center"] Inizio
[/TD]
[TD="align: center"] Range Inizio
[/TD]
[/TR]
[TR]
[TD="align: center"] Fine
[/TD]
[TD="align: center"] Range Fine
[/TD]
[/TR]
[TR]
[TD="align: center"] VetNumeri
[/TD]
[TD="align: center"] E' il vettore che contiene i numeri da porre in gioco viene utilizzato a partire dall'indice 1 .... si parla di ""VETTORE", non di semplice variabile per cui devi dimensionarlo come un vettore che può contenere diversi valori, vedi la riga nello script che inizia con "Dim...........
[/TD]
[/TR]
[TR]
[TD="align: center"] vetRuote
[/TD]
[TD="align: center"] E' il vettore che consente di specificare le ruote interessate. Se la giocata avviene su due ruote può essere definito con Dim vetRuote(2) . e se le ruote in gioco fossero Bari e Venezia andrebbe poi valorizzato con : vetRuote(1) = BA_ vetRuote(2) = VE_ anche questo parametro richiede un vettore ""VETTORE", anche questo, come sopra
[/TD]
[/TR]
[TR]
[TD="align: center"] Sorte
[/TD]
[TD="align: center"] Valore numerico che identifica la sorte (o la classe)
[/TD]
[/TR]
[TR]
[TD="align: center"] Optional tipogioco = 0
[/TD]
[TD="align: center"] Non usato
[/TD]
[/TR]
[TR]
[TD="align: center"] Optional Jolly = False
[/TD]
[TD="align: center"] Non usato
[/TD]
[/TR]
[TR]
[TD="align: center"] Optional idArchivio = 0
[/TD]
[TD="align: center"] Indentificativo dell'archivio da usare
[/TD]
[/TR]
[/TABLE]

'Option Explicit  impone il Dim...ensionamento obbligatorio delle variabili
Sub Main
Dim numero(1),ruota(1)
numero(1) = 11
ruota(1) = BA_
fine = EstrazioneFin
Inizio = EstrazioneFin - 359
q = SerieFreq(Inizio,fine,numero,ruota,1)
Scrivi "il numero " & numero(1) & " ha una frequenza di " & q & " nelle estrazioni analizzate"
End Sub

 

[genios]

Grazie Claudio8 della bella spiegazione e anche per lo script . Ora provo a modificarlo per fare la ricerca sulla decina naturale 1 .
Devo dimensionare quindi una variabile numero di 10 elementi quindi Dim numero (x) e applicare un ciclo for sulla variabile x in modo da modificare l' indice . Come associo l' indice della variabile ai 10 numeri ?

Ciao Eugenio

 

[claudio8]

Dimensiona la variabil al valore massimo dei numeri che intendi usare decina = 10 numeri.
Dim numero(10) ... puoi anche mettere 90, è solo un dimensionamento di spazi di memoria che in questo caso è irrisorio
poi puoi usare il ciclo for

dec = 0 '' questa variabile puoi definirla con un inputbox in modo che se scegli la decina con lo zero ti usa i numeri da 1 a 10, con 10 da 11 a 20 ecc.
for x = 1 to 10
numero( x )= x + dec
next
così avrai creato in memoria un contenitore "numeri" da numero(1) a numero(10) contenente i valori da 1 a 10 o da 11 a 20 ecc. ecc. a seconda della decina che scegli in output.

- altra ipotesi di costrutto:
se costriuisci un ciclo for... next in cui annidi quanto sopra scritto, puoi fare l'elaborazione contemporanea di tutte le decine
eccoti il costrutto:
Sub Main
Dim numero(10)
For dec = 0 To 80 Step 10 ' lo step ti da il passo (salto) di 10 in 10 da 0 a 80
Scrivi "Decina -> " & dec
For x = 1 To 10
numero(x) = x + dec
Scrivi numero(x)
Next
Next
End Sub

spero di essere stato chiaro..

 

[genios]

Claudio8 grazie di nuovo per l' aiuto e la spiegazione . Questo e quello che sono riuscito a fare per la decina naturale 1 grazie ai tuoi consigli . Ora pero' vorrei che i risultato in uscita non sia in verticale ma in orizzontale . Come da esempio fatto all' inizio del post . Hai qualche suggerimento a proposito ?

Ciao Eugenio

'Option Explicit  impone il Dim...ensionamento obbligatorio delle variabili

Sub Main
Dim numero(10),ruota(1)
numero(1) = 11
ruota(1) = BA_
Dec=10
fine = EstrazioneFin
Inizio = EstrazioneFin - 359

Scrivi "Decina -> " & dec
For x = 1 To 10
numero(x) = x + dec
Scrivi numero(x)

q = SerieFreq(Inizio,fine,numero,ruota,1)
Scrivi "il numero " & numero(1) & " ha una frequenza di " & q & " nelle estrazioni analizzate"
Next 
End Sub

 

[genios]

Claudio8 mi sembra di aver fatto qualche errore . Devo azzerare la variabile q all' interno del ciclo for altrimenti mi somma ad ogni passaggio la frequenza del numero precedente .

'Option Explicit  impone il Dim...ensionamento obbligatorio delle variabili
Sub Main
Dim numero(10),ruota(1)
numero(10) = x
ruota(1) = BA_
b= 0
Dec=10
fine = EstrazioneFin
Inizio = EstrazioneFin - 359


Scrivi "Decina -> " & dec

For x = 1 To 10

numero(x) = x + dec




q = SerieFreq(Inizio,fine,numero,ruota,1)

Scrivi "il numero " & numero(x) & " ha una frequenza di " & q & " nelle estrazioni analizzate"

Next 

End Sub

 

[claudio8]

Claudio8 grazie di nuovo per l' aiuto e la spiegazione . Questo e quello che sono riuscito a fare per la decina naturale 1 grazie ai tuoi consigli . Ora pero' vorrei che i risultato in uscita non sia in verticale ma in orizzontale . Come da esempio fatto all' inizio del post . Hai qualche suggerimento a proposito ?

Ciao Eugenio

'Option Explicit impone il Dim...ensionamento obbligatorio delle variabili

Sub Main
Dim numero(10),ruota(1)
numero(1) = 11
ruota(1) = BA_
Dec=10
fine = EstrazioneFin
Inizio = EstrazioneFin - 359

Scrivi "Decina -> " & dec
For x = 1 To 10
numero(x) = x + dec
Scrivi numero(x)

q = SerieFreq(Inizio,fine,numero,ruota,1)
Scrivi "il numero " & numero(1) & " ha una frequenza di " & q & " nelle estrazioni analizzate"
Next
End Sub

sono stato io a farti errare, eccoti il costrutto corretto

Sub Main
    Dim numero(1),ruota(1),dec  ' numero lo dimensioniamo ad 1 perchè noi dobbiamo valutare la freq
    'singolarmente per  ogni numero. nel modo precedente, il q" veniva calcolato man mano che aumentavano
     ' i numeri considerati dal ciclo for, in soatanza alla fine calcolava la freq. dei 10 numeri x ambata nel range.

    'numero(1) = 11 non serve perchè ne specifichiamo il valore  nel ciclo for

    ruota(1) = BA_
    dec = 50           ' inserito questa decina per controllare se i dati di output sono esatti
    fine = EstrazioneFin
    Inizio = EstrazioneFin - 3         ' inserito questo range x controllare se i dati di output sono esatti
    Scrivi "Decina -> " & dec
    
    For x = 1 To 10  ' ciclo for per dare valore da 1 a 10 da sommare alla "dec"ina
          numero(1) = x + dec       ' qui sommiamo alla x la dec = 10 mantenendo numero(1) sempre
        ' quindi nello specifico, con il ciclo for ... next  otteniamo:
        ' per x = 1 avremo -> numero(1)= 1 + 10 -> 11  ne calcoliamo la freq = q che verrà scritta in output quindi
        ' arriviamo al next  che ci ripete l'operazione e così via.
        
        ' per x = 2 avremo -> numero(1)= 2 + 10 -> 12   calcola il q che verrà scritta in output quindi arriviamo al next

        ' per x = 3 avremo -> numero(1)= 3 + 10 -> 13  .... ...............................................quindi next
        'e così via sino a quando arriveremo ad x con valore 10 ottenendo
        'per x = 10 avremo -> numero(1)= 10 + 10 -> 20 .... ..............................................quindi Next
            
        'Scrivi numero(x)' questa riga è da eliminare dall'output perchè non ci serve.
        q = SerieFreq(Inizio,fine,numero,ruota,1) ' qui la matrice "numero" contiene 1 solo numero x volta dandoti
'i valori specifici  di "q" relativi al numero che di volta in volta esce dal ciclo  For.
        Scrivi "n° " & Format2(x+dec) & " freq. " & q
    Next
End Sub

Spero di non averti creato confusione, nel caso chiedi e vedrò di essere + chiaro.

 

[claudio8]

Modificato l'output come richiesto:

 Sub Main
    Dim numero(1),ruota(1),dec
    ruota(1) = BA_
    fine = EstrazioneFin
    Inizio = EstrazioneFin - 3
    For dec = 0 To 80 Step 10 ' ciclo Decine
        Scrivi "Decina -> " & dec
        For x = 1 To 10 'ciclo numeri della Decina da scrivere in output
            Scrivi Format2(x + dec) & " ",,0
        Next
        Scrivi ' serve a spezzare la continuità di scrittura su unica riga
        For x = 1 To 10 'ciclo calcolo freq. dei numeri della Decina
            numero(1) = x + dec
            q = SerieFreq(Inizio,fine,numero,ruota,1)
            If q > 0 Then
                ColoreTesto 2
                Scrivi Format2(q) & " ",1,0
            Else
                ColoreTesto 0
                Scrivi Format2(q) & " ",,0
            End If
        Next
        Scrivi ' serve a spezzare la continuità di scrittura su unica riga
    Next
End Sub

 

[genios]

Ottima spiegazione Claudio8 grazie . Ora per scrivere in out le frequenze in orizzontale anziché in verticale . Quali istruzioni devo applicare ?

Una domanda SerieFrequenza è un istruzione una procedura o una funzione ?


Ciao Eugenio

 

[claudio8]

Ottima spiegazione Claudio8 grazie . Ora per scrivere in out le frequenze in orizzontale anziché in verticale . Quali istruzioni devo applicare ? Vedi ultimo script

Una domanda SerieFrequenza è un istruzione una procedura o una funzione ? funzioni


Ciao Eugenio

 

[genios]

Quindi si usa la Funzione Format2 e questa parte ( & " " ,1,0 )significa ?
E ( & " " ,, 0 ) significa ?

Grazie della disponibilità

 

[claudio8]

Quindi si usa la Funzione Format2 per formattare i numeri in 2 cifre o formatspace per formattazioni superiori a piacere e questa parte ( & " " ,1,0 )significa ? & = congiunge due pezzi di scrittura,in questo caso congiunge uno spazio vuoto tra le virgolette ( le vigolette delimitano un testo) mentre ,1,0 sono parametri di "Scrivi", il primo fa scrivere in grassetto ed il secondo fa scrivere in continuo sulla stessa riga (elimina il vai a capo)
E ( & " " ,, 0 ) significa ? ,..... prendi l'abitudine di leggere l'help altrimenti le domande diventano infinite

Grazie della disponibilità

ti consiglio di imparare a utilizzare la barra spaziatrice dopo aver scritto qualsiasi funzione es: "Scrivi" in modo che ti appaia una fascetta gialla in cui sono specificati i parametri utilizzabili, obbligatori o meno x la specifica funzione che comunque trovi elencati in maniera + dettagliata e specificata nell'Help.

 

[genios]

Grazie dei consigli Claudio8 .

Ho modificato lo script in modo che mi trovi le presenze su cicli di 360 270 e 180 estrazioni per ora considerando solo la decina naturale 0 e la ruota di BA . Successivamente penso che con un inputbox si possa risolvere la scelta della ruota e della decina . Ulteriore modifica che vorrei fare allo script e il seguente : Come puoi vedere dallo script allegato e da me modificato abbiamo in out le presenze dei numeri della decina 0 sulla ruota di BA nel ciclo di 360 estrazioni 270 estrazioni e 180 estrazioni

   [FONT=Courier New][COLOR=#000000]Decina -> 0[/COLOR][/FONT]
[FONT=Courier New][COLOR=#000000]01 [/COLOR][/FONT][FONT=Courier New][COLOR=#000000]02 [/COLOR][/FONT][FONT=Courier New][COLOR=#000000]03 [/COLOR][/FONT][FONT=Courier New][COLOR=#000000]04 [/COLOR][/FONT][FONT=Courier New][COLOR=#000000]05 [/COLOR][/FONT][FONT=Courier New][COLOR=#000000]06 [/COLOR][/FONT][FONT=Courier New][COLOR=#000000]07 [/COLOR][/FONT][FONT=Courier New][COLOR=#000000]08 [/COLOR][/FONT][FONT=Courier New][COLOR=#000000]09 [/COLOR][/FONT][FONT=Courier New][COLOR=#000000]10 [/COLOR][/FONT]
[FONT=Courier New][COLOR=#ff0000][B]21 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]18 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]25 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]24 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]26 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]20 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]14 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]20 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]16 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]25 presenze in 360 estrazioni[/B][/COLOR][/FONT]
[FONT=Courier New][COLOR=#ff0000]Decina -> 0[/COLOR][/FONT]
[FONT=Courier New][COLOR=#ff0000]01 [/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000]02 [/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000]03 [/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000]04 [/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000]05 [/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000]06 [/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000]07 [/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000]08 [/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000]09 [/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000]10[/COLOR][/FONT]
[FONT=Courier New][COLOR=#ff0000][B]18 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]12 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]18 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]18 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]24 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]15 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]10 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]17 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]14 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]19 presenze in 270 estrazioni[/B][/COLOR][/FONT]
[FONT=Courier New][COLOR=#ff0000]Decina -> 0[/COLOR][/FONT]
[FONT=Courier New][COLOR=#ff0000]01 [/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000]02 [/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000]03 [/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000]04 [/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000]05 [/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000]06 [/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000]07 [/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000]08 [/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000]09 [/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000]10 [/COLOR][/FONT]
[FONT=Courier New][COLOR=#ff0000][B]13 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]09 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]15 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]10 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]17 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]11 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]08 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]14 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]10 [/B][/COLOR][/FONT][FONT=Courier New][COLOR=#ff0000][B]10 presenze in 180 estrazioni[/B][/COLOR][/FONT]

La modifica che vorrei fare e la seguente : trovare quei numeri della decina naturale 0 sulla ruota di BA i quali sono sotto la media delle presenze nei tre cicli di 360 estrazioni (media 20 )270 estrazioni ( media 15 ) 180 estrazioni ( media 18)

 Sulla ruota di BA  
     
 Decina -> 0 ciclo 360 estrazioni   
     
 01 02 03 04 05 06 07 08 09 10   
 [B]21 18 25 24 26 20 14 20 16 25 [/B]  
     
 [B]-- 02 -- -- -- -- 06 –- 04 --         presenze sotto la media in 360 estrazioni[/B]  
     
 Decina -> 0 ciclo 270 estrazioni  
     
 01 02 03 04 05 06 07 08 09 10   
 [B]18 12 18 18 24 15 10 17 14 19 [/B]  
     
 [B]-- 03 -- -- -- -- 05 –- 01 --         presenze sotto la media in 270 estrazioni[/B]  
     
 Decina -> 0 ciclo 180 estrazioni   
     
 01 02 03 04 05 06 07 08 09 10   
 [B]13 09 15 10 17 11 08 14 10 10 [/B]  
     
 -- 01 -- -- -- -- 02 -- -- --         [B]presenze sotto la media in 180 estrazioni[/B]  
     
     
     
     
     
     
 01 02 03 04 05 06 07 08 09 10   
     
     
 [B]-- 06 -- -- -- -- 13 -- 05 --         somma totale delle presenze sotto la media nei cicli di 180 – 270 – 360 estrazioni .[/B]  
     
     
     
     
 [B]Cosi si dovrebbe presentare l’ out dello script [/B]  
     
     
 01 02 03 04 05 06 07 08 09 10   
     
     
 -- 06 -- -- -- -- 13 -- 05 --

[CODE
Sub Main
Dim numero(1),ruota(1),dec
ruota(1) = BA_
fine = EstrazioneFin
Inizio = EstrazioneFin - 359
For dec = 0 To 0 Step 10 ' ciclo Decine
Scrivi "Decina -> " & dec
For x = 1 To 10 'ciclo numeri della Decina da scrivere in output
Scrivi Format2(x + dec) & " ",,0
Next
Scrivi ' serve a spezzare la continuità di scrittura su unica riga
For x = 1 To 10 'ciclo calcolo freq. dei numeri della Decina
numero(1) = x + dec
q = SerieFreq(Inizio,fine,numero,ruota,1)
If q > 0 Then
ColoreTesto 2
Scrivi Format2(q) & " ",1,0
Else
ColoreTesto 0
Scrivi Format2(q) & " ",,0
End If
Next
Scrivi ' serve a spezzare la continuità di scrittura su unica riga
Next


fine = EstrazioneFin
Inizio = EstrazioneFin - 269
For dec = 0 To 0 Step 10 ' ciclo Decine
Scrivi "Decina -> " & dec
For x = 1 To 10 'ciclo numeri della Decina da scrivere in output
Scrivi Format2(x + dec) & " ",,0
Next
Scrivi ' serve a spezzare la continuità di scrittura su unica riga
For x = 1 To 10 'ciclo calcolo freq. dei numeri della Decina
numero(1) = x + dec
q = SerieFreq(Inizio,fine,numero,ruota,1)
If q > 0 Then
ColoreTesto 2
Scrivi Format2(q) & " ",1,0
Else
ColoreTesto 0
Scrivi Format2(q) & " ",,0
End If
Next
Scrivi ' serve a spezzare la continuità di scrittura su unica riga
Next

fine = EstrazioneFin
Inizio = EstrazioneFin - 179
For dec = 0 To 0 Step 10 ' ciclo Decine
Scrivi "Decina -> " & dec
For x = 1 To 10 'ciclo numeri della Decina da scrivere in output
Scrivi Format2(x + dec) & " ",,0
Next
Scrivi ' serve a spezzare la continuità di scrittura su unica riga
For x = 1 To 10 'ciclo calcolo freq. dei numeri della Decina
numero(1) = x + dec
q = SerieFreq(Inizio,fine,numero,ruota,1)
If q > 0 Then
ColoreTesto 2
Scrivi Format2(q) & " ",1,0
Else
ColoreTesto 0
Scrivi Format2(q) & " ",,0
End If
Next
Scrivi ' serve a spezzare la continuità di scrittura su unica riga
Next

End Sub

[/CODE]

 

[claudio8]

Bene hai ripetuto x tre volte lo stesso script, anche questo può essere un modo di fare, ma sarebbe stato meglio utilizzare un ciclo for... next per ottenere lo stesso risultato che ottieni con lo script attuale.
Continuiamo su questa strada da te iniziata.
Adesso devi aggiungera x ogni script ( quindi x 3 volte) una riga contenente le differenze tra il valore ottenuto della freq ed il valore medio.
Man mano che scrivi ti accorgerai che nello scrivere le variabili puoi fare errori di battitura, questi possono essere evitati scrivendo all'inizio dello script, dopo il Dim, tutti i nomi delle variabili che intendi usare e vedrai che riscivendole, ti si coloreranno per indicarti che sono presenti e che quindi sono esatte ( in caso di errori di maiuscola verrà fatta la correzione in automatico)
Vai pure avanti, sappi che il mio compito è di correggerti o indicarti il ragionamento da farsi, il costrutto lo devi scrivere tu.
Ciao.

 

[genios]

Grazie claudio8 della spiegazione . Ricapitolando devo inizializzare tre variabili dove inserisco il valore delle tre medie .

Adesso devi aggiungera x ogni script ( quindi x 3 volte) una riga contenente le differenze tra il valore
ottenuto della freq ed il valore medio.

Io devo usare solo i valori di frequenza inferiori alla media e ignorare quelli superiori nel ciclo quindi dovrei usare anche una struttura condizionale if then .

Ciao Eugenio

 

[claudio8]

Ti ho ripreso il tutto e rifatto con dei cicli for ... semplici in modo da poterlo leggere con + facilità.
Ccerca di capire tutti i passaggi e chiedi pure se hai bisogno di spiegazioni.

Sub Main
    Dim numero(1),ruota(1),dq360(10),dq270(10),dq180(10),anum(1)
    Dim dec,Inizio,fine,med,ciclo,clp,q
    clp = 99
    ruota(1) = BA_
    fine = EstrazioneFin
    Scrivi "  *****       Per Genios script 'lesson one' by  Claudio8       ***** "
    Scrivi
    For dec = 0 To 80 Step 10
        Scrivi "                Decina  ---->  " & dec
        For ciclo = 180 To 360 Step 90 ' incrementa di 90 il ciclo
            If ciclo = 360 Then med = 20
            If ciclo = 270 Then med = 15
            If ciclo = 180 Then med = 10
            Inizio = EstrazioneFin -(ciclo - 1) 'il valore del ciclo viene ridotto di una unità 180 -> 179 e così via
            For x = 1 To 10 'ciclo x scrittura dei numeri della Decina in output
                Scrivi Format2(x + dec) & " ",,0
            Next
            Scrivi ' serve a spezzare la continuità di scrittura su unica riga
            For x = 1 To 10 'ciclo calcolo freq. dei numeri della Decina
                numero(1) = x + dec
                q = SerieFreqTurbo(Inizio,fine,numero,ruota,1) ' quantifico la freq
                If ciclo = 360 Then dq360(x) = med - q 'se...  riempio la Array "dq360" con tutti i valori di differenza alla media per il ciclo specifico
                If ciclo = 270 Then dq270(x) = med - q 'se...  riempio la Array "dq270"
                If ciclo = 180 Then dq180(x) = med - q 'se...  riempio la Array "dq180"
                ColoreTesto 0
                Scrivi Format2(q) & " ",1,0
            Next
            Scrivi
            If ciclo = 180 Then
                For x = 1 To 10
                    If dq180(x) > 0 Then
                        Scrivi Format2(dq180(x)) & " ",1,0
                    Else
                        dq180(x) = 0 ' serve a = 0 il valore altrimenti nelle somme finali utilizza anche i valori negativi
                        Scrivi "--" & " ",1,0
                    End If
                Next
                Scrivi " presenze sotto la media di " & med & " in " & fine - Inizio + 1 & " estrazioni",1
                Scrivi ' riga vuota
            ElseIf ciclo = 270 Then
                For x = 1 To 10
                    If dq270(x) > 0 Then
                        Scrivi Format2(dq270(x)) & " ",1,0
                    Else
                        dq270(x) = 0
                        Scrivi "--" & " ",1,0
                    End If
                Next
                Scrivi " presenze sotto la media di " & med & " in " & fine - Inizio + 1 & " estrazioni",1
                Scrivi '
            ElseIf ciclo = 360 Then
                For x = 1 To 10
                    If dq360(x) > 0 Then
                        Scrivi Format2(dq360(x)) & " ",1,0
                    Else
                        dq360(x) = 0
                        Scrivi "--" & " ",1,0
                    End If
                Next
                Scrivi " presenze sotto la media di " & med & " in " & fine - Inizio + 1 & " estrazioni",1
                Scrivi
            End If
        Next 'Next cicli
        For x = 1 To 10
            dq_tot = dq180(x) + dq270(x) + dq360(x)
            If dq_tot > 0 Then
                ColoreTesto 2
                Scrivi Format2(dq_tot) & " ",1,0
            Else
                ColoreTesto 0
                Scrivi "--" & " ",,0
            End If
        Next
        ColoreTesto 0
        Scrivi " Totale presenze sotto la media nei cicli di 180/270/360 estrazioni",1
        'Scrivi ' x lasciare una riga vuota
        For x = 1 To 10 'ciclo x ulteriore scrittura dei numeri della Decina in output
            Scrivi Format2(x + dec) & " ",,0
        Next
        Scrivi
        For x = 1 To 10
            anum(1) = x +(dec) ' dec-10 serve a ridurre di 10(che è il valore dello Step) il valore di "dec" che all'uscita del suo ciclo passa da 0 a 10
            If VerificaEsitoTurbo(anum,ruota,fine + 1,1,clp,,,retcolpi) = True Then
                'ColoreTesto 2
                Scrivi FormatSpace((retcolpi),2,- 1) & "°",1,0,3,2
            Else
                'ColoreTesto 0
                Scrivi "--" & " ",1,0,3,0
            End If
        Next
        ColoreTesto 0
        Scrivi " Esiti numeri della decina " & dec & " entro " & clp & " colpi a partire dal " & DataEstrazione(fine + 1),1
        Scrivi "* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  * * * * * * * * * * * * * ",1
    Next 'x le decine
End Sub

Verifica se l'output è corretto.

Un saluto

 

[genios]

Magnifico devo studiarlo se riesco

Anche se i valori della variabile med sono errati . Sono 20 - 15 e 10 .

Grazie Claudio8

 

[claudio8]

Magnifico devo studiarlo se riesco

Anche se i valori della variabile med sono errati . Sono 20 - 15 e 10 .

Grazie Claudio8

Sistemati i valori med e il ciclo decine.
scipt modificato al post 17.
un saluto

 

[genios]

Ottimo abbondante .Grazie tante Claudio8 avevo gia cambiato io il valore delle variabili in questo sono riuscito.Ti chiedo solamente di aggiungere allo script fatto in precedenza quello riguardante una sola decina solo nella riga

 [FONT=Courier New][SIZE=10px][COLOR=#000000][B]Totale presenze sotto la media nei cicli di 180/270/360 estrazioni[/B][/COLOR][/SIZE][/FONT]

il numero di estrazione finale la data dell' estrazione finale quindi i numeri estratti nell' estrazione finale il totale presenze sotto la media nei cicli di 180/270/360 estrazioni e mettere in evidenza colorandolo in rosso il numero o i numeri della decina usciti se ci sono oppure evidenziare in rosso i due trattini se fosse uscito un numero della decina che non è in sottomedia quindi aggiungere il numero o i numeri della decina usciti nell' estrazione finale . Sotto l' esempio di come dovrebbe essere out di quella riga con l' estrazione finale del 29 03 06 .E' uscito il numero 3 quindi vanno evidenziati i trattini corrispondenti al numero 3 in rosso . Spero di non averti fatto una richiesta complicata .

09148 29/03/2016 71 55 84 30 03 -- 06 -- -- -- -- 14 -- 05 -- 03


Grazie di nuovo .
​Ciao Eugenio