Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
e' talmente facile
- Creatore Discussione genios
- Data di inizio
i legend
Premium Member
Controllare eventuali Bugs
la ricerca inizia dall estrazione 3950
la ricerca inizia dall estrazione 3950
Codice:
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 SubIlegend 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
dovrebbe diventare :
In pratica dovrebbe darmi solo il ritardo minore di una delle due formazioni.
Ciao Eugenio
esempio :
usando l out del tuo script
dovrebbe diventare :
In pratica dovrebbe darmi solo il ritardo minore di una delle due formazioni.
Ciao Eugenio
i legend
Premium Member
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.
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
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 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
Premium Member
Ciao Eugenio
sono contento che i dati siano corretti
Ti allego il nuovo script da verificare
sono contento che i dati siano corretti
Ti allego il nuovo script da verificare
Codice:
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
i legend
Premium Member
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.
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 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:
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:
Ultima estrazione Lotto
-
Estrazione del lotto
giovedì 30 gennaio 2025Bari0962012873Cagliari5033431029Firenze0463563490Genova5120264659Milano3778762086Napoli4304458453Palermo1343506740Roma2912847179Torino9016257624Venezia2658232040Nazionale7407541536Estrazione Simbolotto
Bari
3822352614
