presenze nelle decina naturale

[ppaaoolloo]

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

Ciao
io sto provando e mi trovo bene con questo script,
adesso la sua visualizzazione è divisa per
"presenze sotto la media" in decine,
si potrebbe avere la possibilità di avere un'altro script
oppurre aggiungerlo a questo avendo la possibilità di
poter visualizzare le "presenze sotto la media" in ordine decrescente
tenendo conto solo dei numeri singolarmente e non delle decine?

ringrazio anticipatamente per la disponibilità

fatemi sapere

ciao

 

[claudio8]

Se non ho capito male....
La richiesta di ordinamento non è fattibile se non con uno script che consideri la cosa a monte...

 Sub Main
    Dim numero(1),ruota(1),dq360(90),dq270(90),dq180(90),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 0 'Step 10
        Scrivi " Tutti i numeri  ----> "
        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 90 'ciclo x scrittura dei numeri della Decina in output
                Scrivi Format2(x) & " ",,0
            Next
            Scrivi ' serve a spezzare la continuità di scrittura su unica riga
            For x = 1 To 90 'ciclo calcolo freq. dei numeri della Decina
                numero(1) = x
                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 90
                    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 90
                    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 90
                    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 90
            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 90 'ciclo x ulteriore scrittura dei numeri della Decina in output
            Scrivi Format2(x) & " ",,0
        Next
        Scrivi
        For x = 1 To 90
            anum(1) = x ' 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 entro " & clp & " colpi a partire dal " & DataEstrazione(fine + 1),1
        Scrivi "* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ",1
    'Next 'x le decine
End Sub

 

[ppaaoolloo]

Se non ho capito male....
La richiesta di ordinamento non è fattibile se non con uno script che consideri la cosa a monte...

 Sub Main
Dim numero(1),ruota(1),dq360(90),dq270(90),dq180(90),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 0 'Step 10
Scrivi " Tutti i numeri ----> "
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 90 'ciclo x scrittura dei numeri della Decina in output
Scrivi Format2(x) & " ",,0
Next
Scrivi ' serve a spezzare la continuità di scrittura su unica riga
For x = 1 To 90 'ciclo calcolo freq. dei numeri della Decina
numero(1) = x
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 90
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 90
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 90
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 90
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 90 'ciclo x ulteriore scrittura dei numeri della Decina in output
Scrivi Format2(x) & " ",,0
Next
Scrivi
For x = 1 To 90
anum(1) = x ' 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 entro " & clp & " colpi a partire dal " & DataEstrazione(fine + 1),1
Scrivi "* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ",1
'Next 'x le decine
End Sub

si può avere questo script con la possibilità di mettere
invece di una sola ruota più ruote a scelta?

grazie