e' talmente facile

[genios]

Ok grazie

 

[i legend]

Controllare eventuali Bugs
la ricerca inizia dall estrazione 3950

Option Explicit
'Verificare Correttezza dei dati restituiti tramite altre fonti
'Verificare eventuALI bUGS e segnalarli
'script per ricerca statistica
Sub Main
    Dim IdEstr
    Dim Ini:Ini = 3950
    Dim Fin:Fin = EstrazioneFin
    Dim TotE:TotE = Fin - Ini
    Dim R,R1,M,M1
    Dim nSorte:nSorte = 2
    Dim T1,T2,iAE,Pos
    Dim EsiN1,Clp1,Estrn1
    Dim EsiN2,Clp2,Estrn2
    Dim VerC:VerC = 25' estrazioni di verifica
    Dim aNum1:aNum1 = Array(0,1,10,11,19,2)
    Dim aNum2:aNum2 = Array(0,3,30,33,39,6)
    Dim aCol(2)
    Dim aAmbo(2):aAmbo(2) = 1
    Dim aR1(1)
    ReDim aRT1(0),aRT2(0)
    Dim Tro
    For IdEstr = Ini To Fin
        If ScriptInterrotto Then Exit For
        T1 = False
        M = 0
        T2 = False
        M1 = 0
        For R = 1 To 10
            aR1(1) = R
            If SerieFreqTurbo(IdEstr,IdEstr,aNum1,aR1,nSorte) Then
                T1 = True
                M = M + 1
                ReDim Preserve aRT1(M)
                aRT1(M) = R
            End If
            If SerieFreqTurbo(IdEstr,IdEstr,aNum2,aR1,nSorte) Then
                T2 = True
                M1 = M1 + 1
                ReDim Preserve aRT2(M1)
                aRT2(M1) = R
            End If
        Next
        If T1 = True And T2 = True Then
            If UBound(aRT1) = 1 And UBound(aRT2) = 1 Then
                Tro = Tro + 1
                Call VerificaEsitoTurbo(aNum1,aRT1,IdEstr + 1,nSorte,VerC,,EsiN1,Clp1,Estrn1)
                Call VerificaEsitoTurbo(aNum2,aRT2,IdEstr + 1,nSorte,VerC,,EsiN2,Clp2,Estrn2)
                If EsiN1 <> "" Or EsiN2 <> "" Then Pos = Pos + 1
                If EsiN1 = "" Then
                    EsiN1 = "NEGATIVO"
                    aCol(1) = vbRed
                Else
                    aCol(1) = vbBlue
                End If
                If EsiN2 = "" Then
                    EsiN2 = "NEGATIVO"
                    aCol(2) = vbRed
                Else
                    aCol(2) = vbBlue
                End If
                Scrivi "Caso Num: " & Tro
                Scrivi "Estrazione Generatice : " & GetInfoEstrazione(IdEstr) & Space(4),1
                Scrivi "Ruota 1 : " & StringaRuote(aRT1) & "[ " & StringaEstratti(IdEstr,aRT1(1)) & " ] - Pronostico 1 {" & _
                StringaNumeri(aNum1,,True) & "}  " & FormatSpace(EsiN1,9,True) & Space(3) & Format2(Clp1) & Space(3) & Estrn1,1,1,,aCol(1)
                Scrivi "Ruota 2 : " & StringaRuote(aRT2) & "[ " & StringaEstratti(IdEstr,aRT2(1)) & " ] - Pronostico 2 {" & _
                StringaNumeri(aNum2,,True) & "}  " & FormatSpace(EsiN2,9,True) & Space(3) & Format2(Clp2) & Space(3) & Estrn2,1,1,,aCol(2)
                Scrivi String(100,"_")
            End If
        End If
        iAE = iAE + 1
        Call AvanzamentoElab(1,TotE,iAE)
    Next
    Scrivi "Trovate : " & Tro & "   Pos : " & Pos
End Sub

 

[genios]

Ilegend grazie dello script pero' il verifica esito andrebbe interrotto alla prima uscita dell' ambo in una delle due formazioni.

esempio :
usando l out del tuo script

Caso Num: 1 Estrazione Generatice : [03970] [ 5 ] 01.02.1947 Ruota 1 : FI[ 67.11.79.01.03 ] - Pronostico 1 {01.10.11.19.02} Ambo 28 FI 01 19 .. .. .. Ruota 2 : MI[ 88.52.39.03.69 ] - Pronostico 2 {03.30.33.39.06} Ambo 02 MI 06 03 .. .. ..

dovrebbe diventare :

Caso Num: 1 Estrazione Generatice : [03970] [ 5 ] 01.02.1947 Ruota 1 : FI[ 67.11.79.01.03 ] - Pronostico 1 {01.10.11.19.02} Ruota 2 : MI[ 88.52.39.03.69 ] - Pronostico 2 {03.30.33.39.06} Ambo 02 MI 06 03 .. .. ..

In pratica dovrebbe darmi solo il ritardo minore di una delle due formazioni.

Ciao Eugenio

 

[i legend]

Ciao Eugenio
non c'è di che.
controllato che i dati dello script siano corretti.?
allora quello che ti serve per output dovrebbe essere semplice da realizzare.
allora la risposta è nella algoritmo che Joe aveva costruito per te in questo post.
I valori che devi utilizzare e mettere in confronto sono
clp1 e clp2
Joe ha spiegato il tutto molto bene.

 

[i legend]

Faccio riferimento al post n 4 di joe.
se a<>b allora
se a < b allora
scrivi .....
altrimenti
scrivi......
fine se
altrimenti
scrivi.......
fine se.

 

[genios]

i legend

Ciao Eugenio
non c'è di che.
controllato che i dati dello script siano corretti.?
allora quello che ti serve per output dovrebbe essere semplice da realizzare.
allora la risposta è nella algoritmo che Joe aveva costruito per te in questo post.
I valori che devi utilizzare e mettere in confronto sono
clp1 e clp2
Joe ha spiegato il tutto molto bene.

I dati sono giusti , l' unica cosa che non va come ho scritto nel post #23 e il trovaesito che deve restituire in out il ritardo minore tra le due formazioni di 5 numeri .

Per quanto riguarda il tuo post #25 ho capito cosa voleva dire joe solo a livello di diagrammi di flusso a livello di codice non saprei dove mettere le mani .

Ciao Eugenio

 

[i legend]

Ciao Eugenio
sono contento che i dati siano corretti
Ti allego il nuovo script da verificare

Option Explicit
'Verificare Correttezza dei dati restituiti tramite altre fonti
'Verificare eventuALI bUGS e segnalarli
'script per ricerca statistica
Sub Main
    Dim IdEstr
    Dim Ini:Ini = 3950
    Dim Fin:Fin = EstrazioneFin
    Dim TotE:TotE = Fin - Ini
    Dim R,R1,M,M1
    Dim nSorte:nSorte = 2
    Dim T1,T2,iAE,Pos
    Dim EsiN1,Clp1,Estrn1
    Dim EsiN2,Clp2,Estrn2
    Dim VerC:VerC = CInt(InputBox("Inseisci un valore da 1 a 25 ","inserisci quante estrazioni vuoi verificare",1))' estrazioni di verifica
    Dim IdAtt:IdAtt = 1
    Dim aNum1:aNum1 = Array(0,1,10,11,19,2)
    Dim aNum2:aNum2 = Array(0,3,30,33,39,6)
    Dim aCol(2)
    Dim aAmbo(2):aAmbo(2) = 1
    Dim aR1(1)
    ReDim aRT1(0),aRT2(0)
    Dim Tro
    If VerC >= 1 And VerC <= 25 Then
        For IdEstr = Ini To Fin
            If ScriptInterrotto Then Exit For
            T1 = False
            M = 0
            T2 = False
            M1 = 0
            For R = 1 To 10
                aR1(1) = R
                If SerieFreqTurbo(IdEstr,IdEstr,aNum1,aR1,nSorte) Then
                    T1 = True
                    M = M + 1
                    ReDim Preserve aRT1(M)
                    aRT1(M) = R
                End If
                If SerieFreqTurbo(IdEstr,IdEstr,aNum2,aR1,nSorte) Then
                    T2 = True
                    M1 = M1 + 1
                    ReDim Preserve aRT2(M1)
                    aRT2(M1) = R
                End If
            Next
            If T1 = True And T2 = True Then
                If UBound(aRT1) = 1 And UBound(aRT2) = 1 Then
                    Tro = Tro + 1
                    Call VerificaEsitoTurbo(aNum1,aRT1,IdEstr + IdAtt,nSorte,VerC,,EsiN1,Clp1,Estrn1)
                    Call VerificaEsitoTurbo(aNum2,aRT2,IdEstr + IdAtt,nSorte,VerC,,EsiN2,Clp2,Estrn2)
                    If EsiN1 <> "" Or EsiN2 <> "" Then Pos = Pos + 1
                    If EsiN1 = "" Then
                        EsiN1 = "NEGATIVO"
                        aCol(1) = vbRed
                    Else
                        aCol(1) = vbBlue
                    End If
                    If EsiN2 = "" Then
                        EsiN2 = "NEGATIVO"
                        aCol(2) = vbRed
                    Else
                        aCol(2) = vbBlue
                    End If
                    Scrivi "Caso Num: " & Tro
                    Scrivi "Estrazione Generatice : " & GetInfoEstrazione(IdEstr) & Space(4),1
                    If Clp1 <> Clp2 Then
                        If Clp1 < Clp2 Then
                            Scrivi "Ruota 1 : " & StringaRuote(aRT1) & "[ " & StringaEstratti(IdEstr,aRT1(1)) & " ] - Pronostico 1 {" & _
                            StringaNumeri(aNum1,,True) & "}  " & FormatSpace(EsiN1,9,True) & Space(3) & Format2(Clp1) & Space(3) & FormatSpace(Estrn1,17,True),1,1,RGB(220,220,220),aCol(1)
                        Else
                            Scrivi "Ruota 2 : " & StringaRuote(aRT2) & "[ " & StringaEstratti(IdEstr,aRT2(1)) & " ] - Pronostico 2 {" & _
                            StringaNumeri(aNum2,,True) & "}  " & FormatSpace(EsiN2,9,True) & Space(3) & Format2(Clp2) & Space(3) & FormatSpace(Estrn2,17,True),1,1,RGB(240,240,240),aCol(2)
                        End If
                    Else
                        Scrivi "Ruota 1 : " & StringaRuote(aRT1) & "[ " & StringaEstratti(IdEstr,aRT1(1)) & " ] - Pronostico 1 {" & _
                        StringaNumeri(aNum1,,True) & "}  " & FormatSpace(EsiN1,9,True) & Space(3) & Format2(Clp1) & Space(3) & FormatSpace(Estrn1,17,True),1,1,RGB(220,220,220),aCol(1)
                        Scrivi "Ruota 2 : " & StringaRuote(aRT2) & "[ " & StringaEstratti(IdEstr,aRT2(1)) & " ] - Pronostico 2 {" & _
                        StringaNumeri(aNum2,,True) & "}  " & FormatSpace(EsiN2,9,True) & Space(3) & Format2(Clp2) & Space(3) & FormatSpace(Estrn2,17,True),1,1,RGB(240,240,240),aCol(2)
                    End If
                    Scrivi String(100,"_")
                End If
            End If
            iAE = iAE + 1
            Call AvanzamentoElab(1,TotE,iAE)
        Next
        Scrivi "Trovate : " & Tro & "   Pos : " & Pos
    Else
        Call MsgBox("Hai Inserito un numero ( " & VerC & " ) errato di estrazioni da verificare",vbYes)
        Exit Sub
    End If
End Sub

 

[genios]

Perfetto i dati corrispondono .
Sarebbe possibile stampare solo gli esiti che vanno da 20 a 25 .

Ciao Eugenio

 

[i legend]

Ciao eugenio
credo di si .
se riesco a trovare del tempo ci provo,,
ciao

 

[genios]

Grazie quando puoi.

Ciao Eugenio

 

[genios]

Ilegend quale è il nome della variabile che restituisce come valore il ritardo in out nel tuo script .

Ciao Eugenio

 

[i legend]

Ciao Eugenio
ho aggiunto una piccola parte di codice per provare le uscite nelle fasce di colpi.
mandare in output solo i casi che sono sortito nella fascia che chiedi renderebbe lo script fuorviante nella interpretazione dei dati.
comunque come ti dicevo c è un contatore per ognuna delle due formazioni.
non ci sono parametri che contano il ritardo.

un buon esercizio potrebbe essere commentare ogni riga di codice che ti ho postato sopra.
io alla inizio facevo cosi con gli script di disaronno Mike magia Joe e luigi.
io ho studiato loro .
E spero di aver imparato qualcosina.
ciao.
ovviamente io ho avuto anche le lezioni di Joe e luigi.
se li cerchi li trovi in questa sezione.
posto il codice stasera.
ciao.

 

[i legend]

Ciao Eugenio ,
prima di inserire l ultimo codice aspetto che tu inserisca il codice precedentemente postato commentato da te.
se non ti va dimmi se preferisci avere subito il codice finale .
ciao

 

[genios]

i legend preferisco avere subito il codice .

Poi cerco se riesco di postare il diagramma di flusso .

i legend senza essere una critica nei confronti di chi ci aiuta nello stendere gli script a volte astrusi da noi richiesti ti comunico che sto cercando di capire cosa fa il tuo script attraverso i diagrammi di flusso . Ma riscontro enormi difficoltà per il motivo che se non si segue la programmazione strutturata poi diventa molto difficile cercare di interpretare lo script .

Infatti nella programmazione strutturata le strutture di controllo servono a specificare se, quando, in quale ordine e quante volte devono essere eseguite le istruzioni che compongono il flusso di esecuzione di un programma.

Le strutture di controllo ammesse dai linguaggi strutturati devono essere rispettati un insieme di requisiti fondamentali:
• completezza. Un linguaggio strutturato deve fornire la sequenza, almeno una struttura di tipo alternativa, e
almeno una struttura di tipo iterativa;
• singolo punto di ingresso e di uscita. Idealmente, ogni struttura di controllo, completa delle
istruzioni controllate, deve poter essere considerata come una singola istruzione dal punto di vista del controllo
complessivo, con un ben identificato punto di ingresso e un ben identificato punto di uscita
• componibilità. Ogni struttura di controllo può avere fra le sue istruzioni controllate, ricorsivamente, altre
strutture di controllo (senza limiti).
Gli ultimi due vincoli fanno sì che nel flusso del controllo, ciascuna struttura di controllo definisca un ambito
completamente isolato dalle altre, e incapace di interferire o subire interferenze.

Nella programmazione strutturata con il diagramma di flusso il quale è un linguaggio di modellazione grafica possiamo rappresentare il flusso di controllo di algoritmi e procedure .
Esso consente di descrivere in modo schematico
• le operazioni da compiere, rappresentate mediante sagome convenzionali, all'interno delle quali un testo
descrive l'attività da svolgere
• la sequenza nella quale devono essere compiute, rappresentate con frecce di collegamento.

Blocchi elementari
La rappresentazione con diagrammi di flusso si basa su un modello molto semplice, caratterizzato da una lettura
sequenziale:
1. si parte dal blocco iniziale
2. si segue la freccia in uscita
3. si giunge al blocco successivo e si effettua l'operazione descritta nel blocco e si procede iterando i passi 2 e 3
fino a giungere al blocco finale.
Le operazioni si distinguono tra
• azione, che comporta una attività o un'elaborazione
• test, che indica una molteplicità di direzioni in base a un fattore di decisione
• ingresso/uscita, che interrompono il flusso in attesa di informazioni dall'esterno, oppure fornendo informazioni
verso l'esterno
Il modello più semplice prevede 5 blocchi elementari:

 

[i legend]

Ciao Eugenio, Purtroppo non riesco a postare l ultimo script , ma se mi confermi che quelli postati antecedentemente sono corretti , spero possano accontentarti. Buona serata

 

[genios]

I legend i tuoi script precedenti sono corretti .

Ciao Eugenio