variazione script "decine sotto la media" di Claudio8 per Genios

[ppaaoolloo]

ciao
vi chiedo se è possibile variare questo script
in modo da poterlo usare anche per il 10elotto serale

ringrazio anticipatamente

ciao





Sub Main
Dim numero(1),ruota(1),dq360(10),dq270(10),dq180(10),a num(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 = 200
If ciclo = 270 Then med = 150
If ciclo = 180 Then med = 100
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

 

[Membro cancellato 16574]

Buonanotte,
Salutando tutti, e rinnovando gli auguri .
Postiamo il listato modificato .

Option Explicit
'variazione script "decine sotto la media" di Claudio8 per Genios di ppaaoolloo
'http://forum.lottoced.com/forum/lottoced/area-download/2029475-variazione-script-decine-sotto-la-media-di-claudio8-per-genios
Sub Main
    Dim numero(01),dq360(10),dq270(10),dq180(10),anum(01)
    Dim dec,Inizio,fine,med,ciclo,clp,q
    Dim Tipoarchivio
    Tipoarchivio = ScegliArchivio
    If Tipoarchivio > 00 Then
        If Tipoarchivio = 02 Then
            If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
                Call AggiornaArchivioDL
            End If
        End If
        Call ImpostaArchivio10ELotto(Tipoarchivio)
        clp = 99
        fine = EstrazioneFinDL
        Call Scrivi(" ***** Per Genios script 'lesson one' by Claudio8 ***** ")
        Call Scrivi()
        For dec = 00 To 80 Step 10
            Call Scrivi(" Decina ----> " & dec)
            For ciclo = 180 To 360 Step 090 ' incrementa di 90 il ciclo
                If ciclo = 360 Then med = 200
                If ciclo = 270 Then med = 150
                If ciclo = 180 Then med = 100
                Inizio = EstrazioneFinDL -(ciclo - 01) 'il valore del ciclo viene ridotto di una unità 180 -> 179 e così via
                For x = 01 To 10 'ciclo x scrittura dei numeri della Decina in output
                    Call Scrivi(Format2(x + dec) & " ",,00)
                Next
                Call Scrivi() ' serve a spezzare la continuità di scrittura su unica riga
                Dim x
                For x = 01 To 10 'ciclo calcolo freq. dei numeri della Decina
                    numero(01) = x + dec
                    q = SerieFreqDL(Inizio,fine,numero,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"
                    Call ColoreTesto(00)
                    Call Scrivi(Format2(q) & " ",01,00)
                Next
                Call Scrivi()
                If ciclo = 180 Then
                    For x = 01 To 10
                        If dq180(x) > 00 Then
                            Call Scrivi(Format2(dq180(x)) & " ",01,00)
                        Else
                            dq180(x) = 00 ' serve a = 0 il valore altrimenti nelle somme finali utilizza anche i valori negativi
                            Call Scrivi("--" & " ",01,00)
                        End If
                    Next
                    Call Scrivi(" presenze sotto la media di " & med & " in " & fine - Inizio + 01 & " estrazioni",01)
                    Call Scrivi()' riga vuota
                ElseIf ciclo = 270 Then
                    For x = 01 To 10
                        If dq270(x) > 0 Then
                            Call Scrivi (Format2(dq270(x)) & " ",01,00)
                        Else
                            dq270(x) = 00
                            Call Scrivi( "--" & " ",01,00)
                        End If
                    Next
                    Call Scrivi (" presenze sotto la media di " & med & " in " & fine - Inizio + 01 & " estrazioni",01)
                    Call Scrivi() '
                ElseIf ciclo = 360 Then
                    For x = 01 To 10
                        If dq360(x) > 0 Then
                            Call Scrivi(Format2(dq360(x)) & " ",01,00)
                        Else
                            dq360(x) = 00
                            Call Scrivi("--" & " ",01,00)
                        End If
                    Next
                    Call Scrivi(" presenze sotto la media di " & med & " in " & fine - Inizio + 01 & " estrazioni",01)
                    Call Scrivi()
                End If
            Next 'Next cicli
            For x = 01 To 10
                Dim dq_tot
                dq_tot = dq180(x) + dq270(x) + dq360(x)
                If dq_tot > 00 Then
                    Call ColoreTesto(02)
                    Call Scrivi(Format2(dq_tot) & " ",01,00)
                Else
                    Call ColoreTesto(00)
                    Call Scrivi("--" & " ",,00)
                End If
            Next
            Call ColoreTesto(00)
            Call Scrivi(" Totale presenze sotto la media nei cicli di 180/270/360 estrazioni",01)
            'Scrivi ' x lasciare una riga vuota
            For x = 01 To 10 'ciclo x ulteriore scrittura dei numeri della Decina in output
                Call Scrivi(Format2(x + dec) & " ",,00)
            Next
            Call Scrivi
            For x = 01 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
                Dim retcolpi
                If VerificaEsitoDL(anum,fine + 01,01,clp,,retcolpi) = True Then
                    'Call ColoreTesto (02)
                    Call Scrivi(FormatSpace((retcolpi),02,- 01) & "°",01,00,03,02)
                Else
                    'Call ColoreTesto (00)
                    Call Scrivi("--" & " ",01,00,03,00)
                End If
            Next
            Call ColoreTesto(00)
            Call Scrivi(" Esiti numeri della decina " & dec & " entro " & clp & " colpi a partire dal " & DataEstrazioneDL(fine + 01),01)
            Call Scrivi("* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ",01)
        Next 'x le decine
    End If
End Sub
Function ScegliArchivio()
    ReDim aVoci(01)
    aVoci(00) = "10 e lotto Serale"
    aVoci(01) = "10 e lotto 5minuti"
    ScegliArchivio = ScegliOpzioneMenu(aVoci,00,"Secegli archivio") + 01
End Function

Controllare Sempre.
Salvo Errori ed Omissis .