Novità

aiuto x scrip 10elotto serale

G

giorgioantonio

Super Member >PLATINUM<
Salve Moro,

ti rispondo subito per dire che ci sono.
Per la faccenda del 7 col 79 può andare bene lo stesso,
come dicevo alla fine sempre numeri sono,
Di quanto propone armando va bene anzi benissimo così,
mi sono riletto la proposta iniziale ed è così come dice armando.

Buona giornata e saluti
 
M

Moro_80

Advanced Member
giorgioantonio ha scritto:
Salve Moro,

ti rispondo subito per dire che ci sono.
Per la faccenda del 7 col 79 può andare bene lo stesso,
come dicevo alla fine sempre numeri sono,
Di quanto propone armando va bene anzi benissimo così,
mi sono riletto la proposta iniziale ed è così come dice armando.

Buona giornata e saluti
Clicca per espandere...

Ciao giorgioantonio,
dunque:
- Appurato che il discorso del radicale va bene come da script;
- Che la proposta del Sig. Armando è già corretta come lo script la elabora;
- Il discorso dei ritardi al 10 e lotto e al lotto è meglio chiarirlo un po' meglio con qualche esempio di come lo vuoi:

Qualche post fa scrivevi:
Ora faccio riferimento al numero ritardatario su tutte le ruote attualmente,
prima di questa sera il numero su tutte le ruote risulta 27 vedo che fai fare l'analisi
77-7(79) su tutte le ruote.
Un bel OK sulla scelta di quanto scegliere il ritardo.
faccio un riepilogo dei numeri che fino ad ora abbiamo ottenuto
considerando l'estrazione del 28 c.m.
77= da vertibili;
79(non 7) da radicale (se fosse 70 allora avremo il 7);
2 è il ritardo del 10elotto;
27 è il ritardo del lotto.
Clicca per espandere...

Più che altro la parte finale...
2 è il ritardo del 10elotto;
27 è il ritardo del lotto.
Clicca per espandere...

2 è il ritardo...ok ma di un solo numero?? Stessa cosa per il 27...solo su tutte??

Se riesce a metter giù spiegato bene come e cosa vuole nel report concludiamo sicuro questo script!


Saluti
 
G

giorgioantonio

Super Member >PLATINUM<
Ciao Moro,

il numero ritardo del 10 e lotto,
se scrivo ritardo 16, tutti quelli che avranno ritardo >16 dovranno comparire
tutti quelli che hanno ritardo 17,18, ecc.
lo stesso dicasi per i ritardi del lotto se scrivo 6 tutti i numeri che ritardano
da 7, 8, ecc. sempre di tutte le ruote.
Chiaro che se non c'è numero/i che superano la soglia indicata = nullo
Una aggiunta, non chiesta perchè pensavo implicita, però visto che siamo in dirittura d'arrivo:
ad esempio invece di elaborare sull'ultima estrazione (0) vedo cosa è successo 5 estrazioni
precedenti, a questo elabora di estrazioni precedenti si può avere l'esito di qualche numero uscito?
Cioè estrazione precedente se alla successiva c'è stato l'uscita di qualche numero.
Il ciclo riguarderebbe 3-max 5 estrazioni anche per farci un pò di statistica.

Spero di essermi spiegato.

Saluti
 
Ultima modifica:
M

Moro_80

Advanced Member
giorgioantonio ha scritto:
Ciao Moro,

il numero ritardo del 10 e lotto,
se scrivo ritardo 16, tutti quelli che avranno ritardo >16 dovranno comparire
tutti quelli che hanno ritardo 17,18, ecc.
lo stesso dicasi per i ritardi del lotto se scrivo 6 tutti i numeri che ritardano
da 7, 8, ecc. sempre di tutte le ruote.
Chiaro che se non c'è numero/i che superano la soglia indicata = nullo
Una aggiunta, non chiesta perchè pensavo implicita, però visto che siamo in dirittura d'arrivo:
ad esempio invece di elaborare sull'ultima estrazione (0) vedo cosa è successo 5 estrazioni
precedenti, a questo elabora di estrazioni precedenti si può avere l'esito di qualche numero uscito?
Cioè estrazione precedente se alla successiva c'è stato l'uscita di qualche numero.
Il ciclo riguarderebbe 3-max 5 estrazioni anche per farci un pò di statistica.

Spero di essermi spiegato.

Saluti
Clicca per espandere...

Ciao,
quindi:
il numero ritardo del 10 e lotto,
se scrivo ritardo 16, tutti quelli che avranno ritardo >16 dovranno comparire
tutti quelli che hanno ritardo 17,18, ecc.
lo stesso dicasi per i ritardi del lotto se scrivo 6 tutti i numeri che ritardano
da 7, 8, ecc. sempre di tutte le ruote.
Clicca per espandere...

quindi qui intendi tutti i numeri cioè da 1 a 90 quelli con ritardo minore di quello indicato non li scrivo, tutti gli altri si..corretto?

Per l'altra richiesta ok, una cosa alla volta pian piano si fà anche quello.


Saluti
 
G

giorgioantonio

Super Member >PLATINUM<
Ciao Moro,

si, corretto tutti i numeri che superano la soglia indicata, anche se èindicato
nelle somme cinquine o i numeri ricavati dalla estrazione.

Ciao
 
M

Moro_80

Advanced Member
Ciao giorgioantonio,
prova a vedere se per ora è ok così e se i dati forniti "tornano" con i tuoi calcoli carta e penna...

Codice: 
Option Explicit
Sub Main()
Dim a,b,c,k,Ini,Fin,es,r1,p11,p12,Sum,App,Strg,Quante_Estr,Quale_Rit_10eLs,Quale_Rit_Lotto
Scrivi String(10," ") & " PER GIORGIOANTONIO : VERIFICA NUMERO SE PRESENTE E RELATIVO NUMERO VERTIBILE: By Moro_80"
Call ImpostaArchivio10ELotto(1)
Quante_Estr = InputBox("Quante Estrazioni Vuoi Verificare ?" & vbCrLf & " " & vbCrLf & "Lascia il numero 0 (zero) per elaborare lo script solo sull'ultima estrazione presente in archivio","NUMERO ESTRAZIONI",0)
Quale_Rit_10eLs = InputBox("Quanto Ritardo Vuoi Verificare per il 10eLotto Serale ?" & vbCrLf & " " & vbCrLf & "Per Default inserisco 16","NUMERO RITARDO",16)
Quale_Rit_Lotto = InputBox("Quanto Ritardo Vuoi Verificare per il Lotto su tutte escluso la Nazionale ?" & vbCrLf & " " & vbCrLf & "Per Default inserisco 6","NUMERO RITARDO",6)
Ini = EstrazioniArchivioDL - Quante_Estr
Fin = EstrazioniArchivioDL
For es = Ini To Fin
Call Messaggio("Elaboro l'estrazione del " & DataEstrazione(es))
Call AvanzamentoElab(Ini,Fin,es)
Scrivi
Scrivi String(47,"-") & " INIZIO ANALISI DELLA DATA " & DataEstrazioneDL(es) & " " & String(47,"-"),,,vbCyan
For p11 = 1 To 19
For p12 = p11 + 1 To 20
a = EstrattoDL(es,p11)
b = EstrattoDL(es,p12)
If b = Vert(a) Then
Sum = Fuori90(a + b)
If Radicale(Sum) Then
App = Radicale(Sum)
Strg = "PASSO 2 - Controllo se il numero " & Sum & " è uguale a un numero radicale...SI! Applico quindi il suo Radicale! Considero i numeri " & Sum & " - " & App
Else
App = Vert(Sum)
Strg = "PASSO 2 - Controllo se il numero " & Sum & " è uguale a un numero radicale...NO! Applico quindi il suo Vertibile! Considero i numeri " & Sum & " - " & App
End If
Call VerificaPresenzeNumeri(es,k,a,Sum,App,Strg,Quale_Rit_10eLs,Quale_Rit_Lotto)
End If
Next
Next
Scrivi String(47,"-") & " FINE ANALISI DELLA DATA " & DataEstrazioneDL(es) & " " & String(47,"-"),,,vbCyan
If ScriptInterrotto Then Exit For
Next
End Sub
Sub Armando(es)
Dim p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,Primo_num,Secondo_num
p1 = EstrattoDL(es,11)
p2 = EstrattoDL(es,12)
p3 = EstrattoDL(es,13)
p4 = EstrattoDL(es,14)
p5 = EstrattoDL(es,15)
Primo_num = Fuori90(p1 + p2 + p3 + p4 + p5)
p6 = EstrattoDL(es,16)
p7 = EstrattoDL(es,17)
p8 = EstrattoDL(es,18)
p9 = EstrattoDL(es,19)
p10 = EstrattoDL(es,20)
Secondo_num = Fuori90(p6 + p7 + p8 + p9 + p10)
Scrivi "Somma prima cinquina             : " & p1 & " " & p2 & " " & p3 & " " & p4 & " " & p5 & " = " & Primo_num,1
Scrivi "Somma seconda cinquina           : " & p6 & " " & p7 & " " & p8 & " " & p9 & " " & p10 & " = " & Secondo_num,1
Scrivi "Primo numero + secondo numero    : " & Primo_num & " + " & Secondo_num & " = " & Fuori90(Primo_num + Secondo_num) & " (Applicato il Fuori90)",1
Scrivi "Primo numero - secondo numero    : " & Primo_num & " - " & Secondo_num & " = " & Fuori90(Primo_num - Secondo_num) & " (Applicato il Fuori90)",1
End Sub
Sub VerificaPresenzeNumeri(idEstr,vari,Estratt,Somma,VerRad,Stringa,qr10ls,qrlotto)
Scrivi
Scrivi "PASSO 1 - Analisi estrazione del " & DataEstrazioneDL(idEstr) & ", Vertibili Trovati: " & Estratt & " - " & Vert(Estratt) & " Somma : " & Somma
Scrivi Stringa
If IsNumeroPresenteInEstrazioneDL(idEstr,Somma,1) Then
Scrivi "PASSO 3 - Controllo presenza del solo numero " & Somma & " ottenuto dalla somma sull'estrazione del " & DataEstrazioneDL(idEstr) & " esito : NUMERO PRESENTE"
Scrivi "          ESITO   : L'evento non è giocabile, Annullato!",,,,2
Scrivi "CHECK COMPLETATO !!!",,,,vbBlack
Scrivi
Scrivi "RIEPILOGO DATI FINALI :",1,,vbYellow
Call Armando(idEstr)
Scrivi "Numeri da vertibili              : ",1,False
Call Scrivi("EVENTO NON GIOCABILE, ANNULLATO!",1,,,vbRed)
Else			
Scrivi "PASSO 3 - Controllo presenza del solo numero " & Somma & " ottenuto dalla somma sull'estrazione del " & DataEstrazioneDL(idEstr) & " esito : NUMERO NON PRESENTE"
Scrivi "          ESITO   : L'evento è giocabile! Controllo sulle precedenti 3 estrazioni se presenti i numeri " & Somma & " - " & VerRad,,,,vbBlue
For vari = 1 To 3
If IsNumeroPresenteInEstrazioneDL(idEstr - vari,Somma,1) And IsNumeroPresenteInEstrazioneDL(idEstr - vari,VerRad,1) Then
Scrivi "PASSO 4 - Controllo se presenti entrambi i numeri " & Somma & " e " & VerRad & " indietro sull'estrazione del " & DataEstrazioneDL(idEstr - vari) & " esito : NUMERI PRESENTI"
Scrivi "          ESITO   : L'evento non è giocabile, Annullato!",,,,2
Scrivi "CHECK COMPLETATO !!!",,,,vbBlack
Scrivi
Scrivi "RIEPILOGO DATI FINALI :",1,,vbYellow
Call Armando(idEstr)
Scrivi "Numeri da vertibili              : ",1,False
Call Scrivi("EVENTO NON GIOCABILE, ANNULLATO!",1,,,vbRed)
Else
Scrivi "PASSO 4 - Controllo se presenti entrambi i numeri " & Somma & " e " & VerRad & " indietro sull'estrazione del " & DataEstrazioneDL(idEstr - vari)
Scrivi "          ESITO   : Numeri non presenti, continuo check...",,,,vbBlue
If IsNumeroPresenteInEstrazioneDL(idEstr - vari,Somma,1) Then
Scrivi "          Controllo se presente almeno uno dei numeri " & Somma & " e " & VerRad & " sempre sull'estrazione del " & DataEstrazioneDL(idEstr - vari)
Scrivi "          ESITO : L'evento è giocabile, sortito solo il numero " & Somma,,,,2
ElseIf IsNumeroPresenteInEstrazioneDL(idEstr - vari,VerRad,1) Then
Scrivi "          Controllo se presente almeno uno dei numeri " & Somma & " e " & VerRad & " sempre sull'estrazione del " & DataEstrazioneDL(idEstr - vari)
Scrivi "          ESITO : L'evento è giocabile, sortito solo il numero " & VerRad,,,,2
End If
If vari = 3 Then
Scrivi "CHECK COMPLETATO !!!",,,,vbBlack
Scrivi
Scrivi "RIEPILOGO DATI FINALI :",1,,vbYellow
Call Armando(idEstr)
Scrivi "Numeri da vertibili              : " & Somma & " - " & VerRad,1
End If
End If
Next
End If
Call VerificaRitardo10elottoSerale(idEstr,Somma,VerRad,qr10ls,qrlotto)
End Sub
Sub VerificaRitardo10elottoSerale(idEstr,Num1,Num2,QntRit10eLs,QntRitLotto)
Dim n,rit
Call Scrivi("Ritardo/i al 10eLotto > di " & Format2(QntRit10eLs) & "    :",1,False)
For n = 1 To 90
rit = RitardoEstrattoDL(n,idEstr)
If rit & " " > QntRit10eLs Then
Call Scrivi(" " & n,1,False)
End If
Next
Scrivi
Call VerificaRitardoLotto(idEstr,Num1,Num2,QntRitLotto)
Scrivi
Scrivi String(130,"-")
End Sub
Sub VerificaRitardoLotto(idEstr,Num1,Num2,QntRitLotto)
Dim n,rit
Call Scrivi("Ritardo/i al Lotto su " & SiglaRuota(11) & " > di " & Format2(QntRitLotto) & " :",1,False)
For n = 1 To 90
rit = RitardoEstratto(n,idEstr,11)
If rit & " " > QntRitLotto Then
Call Scrivi(" " & n,1,False)
End If
Next
Scrivi
End Sub

Per il discorso:
Una aggiunta, non chiesta perchè pensavo implicita, però visto che siamo in dirittura d'arrivo:
ad esempio invece di elaborare sull'ultima estrazione (0) vedo cosa è successo 5 estrazioni
precedenti, a questo elabora di estrazioni precedenti si può avere l'esito di qualche numero uscito?
Cioè estrazione precedente se alla successiva c'è stato l'uscita di qualche numero.
Il ciclo riguarderebbe 3-max 5 estrazioni anche per farci un pò di statistica.
Clicca per espandere...

ti chiedo di spiegarlo un po' meglio...magari con qualche esempio pratico, così è più semplice da comprendere e capire come fare.

Saluti
 
G

giorgioantonio

Super Member >PLATINUM<
Salve Moro,

per quanto riguarda il ritardo sul lotto con i numeri ci troviamo,
nel senso che ho fatto la verifica di confronto, quindi ritardo lotto OK,
mentre sul 10elotto forse mi spiego meglio se segui quanto ti indico:
apri il programma Spaziometria apri 10elotto apri tabellene analitico
e trovi la risposta dei ritardi al 10elotto, scrivo per meglio spiegarmi
che i numeri ritardatari e che superano il ritardo 16 sono il numero
12 che fa ritardo 17 poi il numero 2 che fa ritardo 27.
Quindi come risultato ritardo 10elotto :12 27

Per non fare confusione posterò di seguito a questo l'ultima parte
da me richiesta.
Ciao
 
G

giorgioantonio

Super Member >PLATINUM<
Salve Moro,
Se si scegli di fare statistica da stabilire il ciclo massimo
Con un minimo di 1 ad un massimo 5 (?) come meglio credi.

Prendo in esame l’estrazione del 19-3-2015

Nel lanciare lo script al posto di zero scrivi 5 e vai fino allo sviluppo.
Ti darà il :
numero di somma cinquina 1=73;
numero si somma cinquina 2=73;
numeri da vertibili………………= 11-1;
numero ritardo al 10elotto…=2;
numero ritardo al lotto……….=51;

inizia il controllo sull’estrazione successiva cioè:

21-3-2015 – numeri usciti: 1 51 73;
24-3-2015 – numeri usciti: 11-51
26-3-2015 – numeri usciti: 11;
28-3-2015 – numeri usciti: 1 – 11;
31-3-2015 – numeri usciti: 1 51 73.

Fine statistica su estrazione del 19-3-2015.
 
M

Moro_80

Advanced Member
Ciao giorgioantonio,
Il tempo disponibile è sempre meno e lo dimostra sicuramente l'orario di questo mio post :)
Comunque al di là di tutto credo che ora ci siamo, dovrebbe essere tutto ok come da Tue richieste.
Nel dettaglio, ho sistemato:

- Il ritardo del 10 e Lotto (come da Tabellone Analitico di Spaziometria);
- Aggiunto la possibilità di fare statistica con numero di cicli a scelta.

Ecco il nuovo script, prova a vedere se funziona tutto a dovere:

Codice: 
Option Explicit
Sub Main()
Dim a,b,c,k,Ini,Fin,es,r1,p11,p12,Sum,App,Strg,Quante_Estr,Quale_Rit_10eLs,Quale_Rit_Lotto,Statistica
Dim sMsg,QuanteStat
Scrivi String(10," ") & " PER GIORGIOANTONIO : VERIFICA NUMERO SE PRESENTE E RELATIVO NUMERO VERTIBILE: By Moro_80"
Call ImpostaArchivio10ELotto(1)
Quante_Estr = InputBox("Quante Estrazioni Vuoi Verificare ?" & vbCrLf & " " & vbCrLf & "Lascia il numero 0 (zero) per elaborare lo script solo sull'ultima estrazione presente in archivio","NUMERO ESTRAZIONI",0)
Quale_Rit_10eLs = InputBox("Quanto Ritardo Vuoi Verificare per il 10eLotto Serale ?" & vbCrLf & " " & vbCrLf & "Per Default inserisco 16","NUMERO RITARDO",16)
Quale_Rit_Lotto = InputBox("Quanto Ritardo Vuoi Verificare per il Lotto su tutte escluso la Nazionale ?" & vbCrLf & " " & vbCrLf & "Per Default inserisco 6","NUMERO RITARDO",6)
sMsg = "Vuoi elaborare anche la statistica?"
If MsgBox(sMsg,vbQuestion + vbYesNo) = vbYes Then
Statistica = 1
QuanteStat = InputBox("Imposta il ciclo per elaborare la statistica" & vbCrLf & " " & vbCrLf & "Hai scelto di fare l'analisi su " & Quante_Estr & " estrazioni, quindi puoi scegliere un ciclo che va da 0 a " & Quante_Estr,"NUMERO ESTRAZIONI PER STATISTICA",5)
End If
Ini = EstrazioniArchivioDL - Quante_Estr
Fin = EstrazioniArchivioDL
For es = Ini To Fin
Call Messaggio("Elaboro l'estrazione del " & DataEstrazione(es))
Call AvanzamentoElab(Ini,Fin,es)
Scrivi
Scrivi String(47,"-") & " INIZIO ANALISI DELLA DATA " & DataEstrazioneDL(es) & " " & String(47,"-"),,,vbCyan
For p11 = 1 To 19
For p12 = p11 + 1 To 20
a = EstrattoDL(es,p11)
b = EstrattoDL(es,p12)
If b = Vert(a) Then
Sum = Fuori90(a + b)
If Radicale(Sum) Then
App = Radicale(Sum)
Strg = "PASSO 2 - Controllo se il numero " & Sum & " è uguale a un numero radicale...SI! Applico quindi il suo Radicale! Considero i numeri " & Sum & " - " & App
Else
App = Vert(Sum)
Strg = "PASSO 2 - Controllo se il numero " & Sum & " è uguale a un numero radicale...NO! Applico quindi il suo Vertibile! Considero i numeri " & Sum & " - " & App
End If
Call VerificaPresenzeNumeri(es,k,a,Sum,App,Strg,Quale_Rit_10eLs,Quale_Rit_Lotto,Quante_Estr,Ini,Fin,Statistica,QuanteStat)
End If
Next
Next
Scrivi String(47,"-") & " FINE ANALISI DELLA DATA " & DataEstrazioneDL(es) & " " & String(47,"-"),,,vbCyan
If ScriptInterrotto Then Exit For
Next
End Sub
Sub Armando(es)
Dim p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,Primo_num,Secondo_num,SommaInCinquina1,SommaInCinquina2
p1 = EstrattoDL(es,11)
p2 = EstrattoDL(es,12)
p3 = EstrattoDL(es,13)
p4 = EstrattoDL(es,14)
p5 = EstrattoDL(es,15)
Primo_num = Fuori90(p1 + p2 + p3 + p4 + p5)
p6 = EstrattoDL(es,16)
p7 = EstrattoDL(es,17)
p8 = EstrattoDL(es,18)
p9 = EstrattoDL(es,19)
p10 = EstrattoDL(es,20)
Secondo_num = Fuori90(p6 + p7 + p8 + p9 + p10)
Scrivi "Somma prima cinquina             : " & p1 & " " & p2 & " " & p3 & " " & p4 & " " & p5 & " = " & Primo_num,1
Scrivi "Somma seconda cinquina           : " & p6 & " " & p7 & " " & p8 & " " & p9 & " " & p10 & " = " & Secondo_num,1
Scrivi "Primo numero + secondo numero    : " & Primo_num & " + " & Secondo_num & " = " & Fuori90(Primo_num + Secondo_num) & " (Applicato il Fuori90)",1
Scrivi "Primo numero - secondo numero    : " & Primo_num & " - " & Secondo_num & " = " & Fuori90(Primo_num - Secondo_num) & " (Applicato il Fuori90)",1
SommaInCinquina1 = Fuori90(Primo_num + Secondo_num)
SommaInCinquina2 = Fuori90(Primo_num - Secondo_num)
End Sub
Sub VerificaPresenzeNumeri(idEstr,vari,Estratt,Somma,VerRad,Stringa,qr10ls,qrlotto,Quante_Estrazioni,Ini,Fin,Stat,QuanteStat)
Scrivi
Scrivi "PASSO 1 - Analisi estrazione del " & DataEstrazioneDL(idEstr) & ", Vertibili Trovati: " & Estratt & " - " & Vert(Estratt) & " Somma : " & Somma
Scrivi Stringa
If IsNumeroPresenteInEstrazioneDL(idEstr,Somma,1) Then
Scrivi "PASSO 3 - Controllo presenza del solo numero " & Somma & " ottenuto dalla somma sull'estrazione del " & DataEstrazioneDL(idEstr) & " esito : NUMERO PRESENTE"
Scrivi "          ESITO   : L'evento non è giocabile, Annullato!",,,,2
Scrivi "CHECK COMPLETATO !!!",,,,vbBlack
Scrivi
Scrivi "RIEPILOGO DATI FINALI :",1,,vbYellow
Call Armando(idEstr)
Scrivi "Numeri da vertibili              : ",1,False
Call Scrivi("EVENTO NON GIOCABILE, ANNULLATO!",1,,,vbRed)
Else			
Scrivi "PASSO 3 - Controllo presenza del solo numero " & Somma & " ottenuto dalla somma sull'estrazione del " & DataEstrazioneDL(idEstr) & " esito : NUMERO NON PRESENTE"
Scrivi "          ESITO   : L'evento è giocabile! Controllo sulle precedenti 3 estrazioni se presenti i numeri " & Somma & " - " & VerRad,,,,vbBlue
For vari = 1 To 3
If IsNumeroPresenteInEstrazioneDL(idEstr - vari,Somma,1) And IsNumeroPresenteInEstrazioneDL(idEstr - vari,VerRad,1) Then
Scrivi "PASSO 4 - Controllo se presenti entrambi i numeri " & Somma & " e " & VerRad & " indietro sull'estrazione del " & DataEstrazioneDL(idEstr - vari) & " esito : NUMERI PRESENTI"
Scrivi "          ESITO   : L'evento non è giocabile, Annullato!",,,,2
Scrivi "CHECK COMPLETATO !!!",,,,vbBlack
Scrivi
Scrivi "RIEPILOGO DATI FINALI :",1,,vbYellow
Call Armando(idEstr)
Scrivi "Numeri da vertibili              : ",1,False
Call Scrivi("EVENTO NON GIOCABILE, ANNULLATO!",1,,,vbRed)
Else
Scrivi "PASSO 4 - Controllo se presenti entrambi i numeri " & Somma & " e " & VerRad & " indietro sull'estrazione del " & DataEstrazioneDL(idEstr - vari)
Scrivi "          ESITO   : Numeri non presenti, continuo check...",,,,vbBlue
If IsNumeroPresenteInEstrazioneDL(idEstr - vari,Somma,1) Then
Scrivi "          Controllo se presente almeno uno dei numeri " & Somma & " e " & VerRad & " sempre sull'estrazione del " & DataEstrazioneDL(idEstr - vari)
Scrivi "          ESITO : L'evento è giocabile, sortito solo il numero " & Somma,,,,2
ElseIf IsNumeroPresenteInEstrazioneDL(idEstr - vari,VerRad,1) Then
Scrivi "          Controllo se presente almeno uno dei numeri " & Somma & " e " & VerRad & " sempre sull'estrazione del " & DataEstrazioneDL(idEstr - vari)
Scrivi "          ESITO : L'evento è giocabile, sortito solo il numero " & VerRad,,,,2
End If
If vari = 3 Then
Scrivi "CHECK COMPLETATO !!!",,,,vbBlack
Scrivi
Scrivi "RIEPILOGO DATI FINALI :",1,,vbYellow
Call Armando(idEstr)
Scrivi "Numeri da vertibili              : " & Somma & " - " & VerRad,1
End If
End If
Next
End If
Call VerificaRitardo10elottoSerale(idEstr,Somma,VerRad,qr10ls,qrlotto,Quante_Estrazioni,Ini,Fin,Stat,QuanteStat)
End Sub
Sub VerificaRitardo10elottoSerale(idEstr,Num1,Num2,QntRit10eLs,QntRitLotto,Quant_Estra,Ini,Fin,Stat,QuanteStat)
Dim n,x,y,q,Stat10eLotto,ritt,ritardo
Dim ciclo
Dim nm(90)
Dim rit(90)
Call Scrivi("Ritardo/i al 10eLotto > di " & Format2(QntRit10eLs) & "    :",1,False)
ciclo = Fin - 50
For n = 1 To 90
nm(1) = n
rit(n) = SerieRitardoDL(ciclo,Fin,nm,1)
Next
For x = QntRit10eLs + 1 To 100
ritardo = ""
ritt = ""
For y = 1 To 90
If x = rit(y) Then ritt = ritt & Format2(y) & " "
Next
If ritt <> "" Then
Call Scrivi(" " & ritt,1,False)
End If
Next
Scrivi
Call VerificaRitardoLotto(idEstr,Num1,Num2,QntRitLotto,Quant_Estra,Stat,Stat10eLotto,Fin,QntRit10eLs,QuanteStat)
Scrivi
Scrivi String(130,"-")
End Sub
Sub VerificaRitardoLotto(idEstr,Num1,Num2,QntRitLotto,Quant_Estra,Stat,Stat10eLotto,Fin10,QntRit10eLs10,QuanteStat)
Dim x,xx,n,rit
Call Scrivi("Ritardo/i al Lotto su " & SiglaRuota(11) & " > di " & Format2(QntRitLotto) & " :",1,False)
For n = 1 To 90
rit = RitardoEstratto(n,idEstr,11)
If rit & " " > QntRitLotto Then
Call Scrivi(" " & n,1,False)
End If
Next
Scrivi
If Stat = 1 Then
Dim n11,rittt,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,Primo_num,Secondo_num,SommaInCinquina1,SommaInCinquina2
p1 = EstrattoDL(idEstr,11)
p2 = EstrattoDL(idEstr,12)
p3 = EstrattoDL(idEstr,13)
p4 = EstrattoDL(idEstr,14)
p5 = EstrattoDL(idEstr,15)
Primo_num = Fuori90(p1 + p2 + p3 + p4 + p5)
p6 = EstrattoDL(idEstr,16)
p7 = EstrattoDL(idEstr,17)
p8 = EstrattoDL(idEstr,18)
p9 = EstrattoDL(idEstr,19)
p10 = EstrattoDL(idEstr,20)
Secondo_num = Fuori90(p6 + p7 + p8 + p9 + p10)
SommaInCinquina1 = Fuori90(Primo_num + Secondo_num)
SommaInCinquina2 = Fuori90(Primo_num - Secondo_num)
Dim n10,x10,y10,q10,ritt10,ritardo10,ciclo10
Dim nm10(90)
Dim rit10(90)
If isIdEstrValidoDL(idEstr + 1) Then
Scrivi
Scrivi "STATISTICA GENERATA PARTENDO DALLA DATA: " & DataEstrazioneDL(idEstr),1,,vbGreen
Call Scrivi("Hai scelto di fare la statistica su " & QuanteStat & " estrazioni successive partendo dalla data " & DataEstrazioneDL(idEstr))
For x = 1 To QuanteStat
If isIdEstrValidoDL(idEstr + x) Then
Call Scrivi(DataEstrazioneDL(idEstr + x) & " numeri usciti: ")
If IsNumeroPresenteInEstrazioneDL(idEstr + x,SommaInCinquina1,1) Then
Call Scrivi(Format2(SommaInCinquina1),1)
ElseIf IsNumeroPresenteInEstrazioneDL(idEstr + x,SommaInCinquina2,1) Then
Call Scrivi(Format2(SommaInCinquina2),1)
End If
If IsNumeroPresenteInEstrazioneDL(idEstr + x,Num1,1) Then
Call Scrivi(Format2(Num1),1)
End If
If IsNumeroPresenteInEstrazioneDL(idEstr + x,Num2,1) Then
Call Scrivi(Format2(Num2),1)
End If
ciclo10 = Fin10 - 50
For n10 = 1 To 90
nm10(1) = n10
rit10(n10) = SerieRitardoDL(ciclo10,Fin10,nm10,1)
Next
For x10 = QntRit10eLs10 + 1 To 100
ritardo10 = ""
ritt10 = ""
For y10 = 1 To 90
If x10 = rit10(y10) Then ritt10 = ritt10 & Format2(y10) & " "
Next
If ritt10 <> "" Then
If IsNumeroPresenteInEstrazioneDL(idEstr + x,ritt10,1) Then
Call Scrivi(Format2(ritt10),1)
End If
End If
Next
For n11 = 1 To 90
rittt = RitardoEstratto(n11,idEstr,11)
If rittt & " " > QntRitLotto Then
If IsNumeroPresenteInEstrazioneDL(idEstr + x,n11,1) Then
Call Scrivi(Format2(n11),1)
End If
End If
Next
End If
Next
Scrivi "Fine statistica su estrazione del " & DataEstrazioneDL(idEstr),1,,vbGreen
Else
Scrivi
Scrivi "NESSUNA STATISTICA! LA DATA " & DataEstrazioneDL(idEstr) & " E' L'ULTIMA ESTRAZIONE IN ARCHIVIO!",1,,vbGreen
End If
End If
End Sub

Saluti
 
Ultima modifica:
G

giorgioantonio

Super Member >PLATINUM<
Salve Moro,
ti ringrazio per aver completato lo script,
vorrei chiederti un ultimo sforzo, se puoi aggiungere una riga se c'è
la condizione. Si tratta del secondo numero quando fa la sottrazione
se il diminuendo è minore del sottraendo invertire i numeri e quindi aggiungere
quest'altro numero, tutto qua, io ho provato ad aggiungerlo ma non so come fare
quando la condizione non c'è e che quindi non deve indicare nulla.
Cmq ti ringrazio e per finire ti auguro buona domenica.
Ancora grazie giorgioantonio
 
M

Moro_80

Advanced Member
Ciao, vedrò di fare anche questo...tempo permettendo.
Ti chiedo il solito esempio pratico in modo da capire e fare prima.


Saluti
 
G

giorgioantonio

Super Member >PLATINUM<
Salve Moro,
l'esempio, se hai l'archivio aggiornato (spaziometria) al 23 c.m.
l'ancia lo script e trovi che il secondo numero = 19 mentre il
numero da sottrarre è 79. Devi invertire i 2 numeri 79 - 19 = 60
Devi aggiungere questo numero ma se la condizione non c'è
il numero non va segnalato, = niente.
Ma questo è in più, non devi sostituire altro.
Ti ringrazio della estesa pazienza.
Ciao
 
M

Moro_80

Advanced Member
Ciao giorgioantonio,
ecco lo script con l'implementazione della "terza condizione" in caso che il diminuendo sia minore del sottraendo.

Provalo e fammi sapere!

Codice: 
Option Explicit
Sub Main()
Dim a,b,c,k,Ini,Fin,es,r1,p11,p12,Sum,App,Strg,Quante_Estr,Quale_Rit_10eLs,Quale_Rit_Lotto,Statistica
Dim sMsg,QuanteStat
Scrivi String(10," ") & " PER GIORGIOANTONIO : VERIFICA NUMERO SE PRESENTE E RELATIVO NUMERO VERTIBILE: By Moro_80"
Call ImpostaArchivio10ELotto(1)
Quante_Estr = InputBox("Quante Estrazioni Vuoi Verificare ?" & vbCrLf & " " & vbCrLf & "Lascia il numero 0 (zero) per elaborare lo script solo sull'ultima estrazione presente in archivio","NUMERO ESTRAZIONI",0)
Quale_Rit_10eLs = InputBox("Quanto Ritardo Vuoi Verificare per il 10eLotto Serale ?" & vbCrLf & " " & vbCrLf & "Per Default inserisco 16","NUMERO RITARDO",16)
Quale_Rit_Lotto = InputBox("Quanto Ritardo Vuoi Verificare per il Lotto su tutte escluso la Nazionale ?" & vbCrLf & " " & vbCrLf & "Per Default inserisco 6","NUMERO RITARDO",6)
sMsg = "Vuoi elaborare anche la statistica?"
If MsgBox(sMsg,vbQuestion + vbYesNo) = vbYes Then
Statistica = 1
QuanteStat = InputBox("Imposta il ciclo per elaborare la statistica" & vbCrLf & " " & vbCrLf & "Hai scelto di fare l'analisi su " & Quante_Estr & " estrazioni, quindi puoi scegliere un ciclo che va da 0 a " & Quante_Estr,"NUMERO ESTRAZIONI PER STATISTICA",5)
End If
Ini = EstrazioniArchivioDL - Quante_Estr
Fin = EstrazioniArchivioDL
For es = Ini To Fin
Call Messaggio("Elaboro l'estrazione del " & DataEstrazione(es))
Call AvanzamentoElab(Ini,Fin,es)
Scrivi
Scrivi String(47,"-") & " INIZIO ANALISI DELLA DATA " & DataEstrazioneDL(es) & " " & String(47,"-"),,,vbCyan
For p11 = 1 To 19
For p12 = p11 + 1 To 20
a = EstrattoDL(es,p11)
b = EstrattoDL(es,p12)
If b = Vert(a) Then
Sum = Fuori90(a + b)
If Radicale(Sum) Then
App = Radicale(Sum)
Strg = "PASSO 2 - Controllo se il numero " & Sum & " è uguale a un numero radicale...SI! Applico quindi il suo Radicale! Considero i numeri " & Sum & " - " & App
Else
App = Vert(Sum)
Strg = "PASSO 2 - Controllo se il numero " & Sum & " è uguale a un numero radicale...NO! Applico quindi il suo Vertibile! Considero i numeri " & Sum & " - " & App
End If
Call VerificaPresenzeNumeri(es,k,a,Sum,App,Strg,Quale_Rit_10eLs,Quale_Rit_Lotto,Quante_Estr,Ini,Fin,Statistica,QuanteStat)
End If
Next
Next
Scrivi String(47,"-") & " FINE ANALISI DELLA DATA " & DataEstrazioneDL(es) & " " & String(47,"-"),,,vbCyan
If ScriptInterrotto Then Exit For
Next
End Sub
Sub Armando(es)
Dim p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,Primo_num,Secondo_num,SommaInCinquina1,SommaInCinquina2,TerzaCondizione
p1 = EstrattoDL(es,11)
p2 = EstrattoDL(es,12)
p3 = EstrattoDL(es,13)
p4 = EstrattoDL(es,14)
p5 = EstrattoDL(es,15)
Primo_num = Fuori90(p1 + p2 + p3 + p4 + p5)
p6 = EstrattoDL(es,16)
p7 = EstrattoDL(es,17)
p8 = EstrattoDL(es,18)
p9 = EstrattoDL(es,19)
p10 = EstrattoDL(es,20)
Secondo_num = Fuori90(p6 + p7 + p8 + p9 + p10)
Scrivi "Somma prima cinquina             : " & p1 & " " & p2 & " " & p3 & " " & p4 & " " & p5 & " = " & Primo_num,1
Scrivi "Somma seconda cinquina           : " & p6 & " " & p7 & " " & p8 & " " & p9 & " " & p10 & " = " & Secondo_num,1
Scrivi "Primo numero + secondo numero    : " & Primo_num & " + " & Secondo_num & " = " & Fuori90(Primo_num + Secondo_num) & " (Applicato il Fuori90)",1
Scrivi "Primo numero - secondo numero    : " & Primo_num & " - " & Secondo_num & " = " & Fuori90(Primo_num - Secondo_num) & " (Applicato il Fuori90)",1
SommaInCinquina1 = Fuori90(Primo_num + Secondo_num)
SommaInCinquina2 = Fuori90(Primo_num - Secondo_num)
If Secondo_num > Primo_num Then
Scrivi "Secondo numero - primo numero    : " & Secondo_num & " - " & Primo_num & " = " & Fuori90(Secondo_num - Primo_num) & " (Applicato il Fuori90)",1
TerzaCondizione = Fuori90(Secondo_num - Primo_num)
End If
End Sub
Sub VerificaPresenzeNumeri(idEstr,vari,Estratt,Somma,VerRad,Stringa,qr10ls,qrlotto,Quante_Estrazioni,Ini,Fin,Stat,QuanteStat)
Scrivi
Scrivi "PASSO 1 - Analisi estrazione del " & DataEstrazioneDL(idEstr) & ", Vertibili Trovati: " & Estratt & " - " & Vert(Estratt) & " Somma : " & Somma
Scrivi Stringa
If IsNumeroPresenteInEstrazioneDL(idEstr,Somma,1) Then
Scrivi "PASSO 3 - Controllo presenza del solo numero " & Somma & " ottenuto dalla somma sull'estrazione del " & DataEstrazioneDL(idEstr) & " esito : NUMERO PRESENTE"
Scrivi "          ESITO   : L'evento non è giocabile, Annullato!",,,,2
Scrivi "CHECK COMPLETATO !!!",,,,vbBlack
Scrivi
Scrivi "RIEPILOGO DATI FINALI :",1,,vbYellow
Call Armando(idEstr)
Scrivi "Numeri da vertibili              : ",1,False
Call Scrivi("EVENTO NON GIOCABILE, ANNULLATO!",1,,,vbRed)
Else			
Scrivi "PASSO 3 - Controllo presenza del solo numero " & Somma & " ottenuto dalla somma sull'estrazione del " & DataEstrazioneDL(idEstr) & " esito : NUMERO NON PRESENTE"
Scrivi "          ESITO   : L'evento è giocabile! Controllo sulle precedenti 3 estrazioni se presenti i numeri " & Somma & " - " & VerRad,,,,vbBlue
For vari = 1 To 3
If IsNumeroPresenteInEstrazioneDL(idEstr - vari,Somma,1) And IsNumeroPresenteInEstrazioneDL(idEstr - vari,VerRad,1) Then
Scrivi "PASSO 4 - Controllo se presenti entrambi i numeri " & Somma & " e " & VerRad & " indietro sull'estrazione del " & DataEstrazioneDL(idEstr - vari) & " esito : NUMERI PRESENTI"
Scrivi "          ESITO   : L'evento non è giocabile, Annullato!",,,,2
Scrivi "CHECK COMPLETATO !!!",,,,vbBlack
Scrivi
Scrivi "RIEPILOGO DATI FINALI :",1,,vbYellow
Call Armando(idEstr)
Scrivi "Numeri da vertibili              : ",1,False
Call Scrivi("EVENTO NON GIOCABILE, ANNULLATO!",1,,,vbRed)
Else
Scrivi "PASSO 4 - Controllo se presenti entrambi i numeri " & Somma & " e " & VerRad & " indietro sull'estrazione del " & DataEstrazioneDL(idEstr - vari)
Scrivi "          ESITO   : Numeri non presenti, continuo check...",,,,vbBlue
If IsNumeroPresenteInEstrazioneDL(idEstr - vari,Somma,1) Then
Scrivi "          Controllo se presente almeno uno dei numeri " & Somma & " e " & VerRad & " sempre sull'estrazione del " & DataEstrazioneDL(idEstr - vari)
Scrivi "          ESITO : L'evento è giocabile, sortito solo il numero " & Somma,,,,2
ElseIf IsNumeroPresenteInEstrazioneDL(idEstr - vari,VerRad,1) Then
Scrivi "          Controllo se presente almeno uno dei numeri " & Somma & " e " & VerRad & " sempre sull'estrazione del " & DataEstrazioneDL(idEstr - vari)
Scrivi "          ESITO : L'evento è giocabile, sortito solo il numero " & VerRad,,,,2
End If
If vari = 3 Then
Scrivi "CHECK COMPLETATO !!!",,,,vbBlack
Scrivi
Scrivi "RIEPILOGO DATI FINALI :",1,,vbYellow
Call Armando(idEstr)
Scrivi "Numeri da vertibili              : " & Somma & " - " & VerRad,1
End If
End If
Next
End If
Call VerificaRitardo10elottoSerale(idEstr,Somma,VerRad,qr10ls,qrlotto,Quante_Estrazioni,Ini,Fin,Stat,QuanteStat)
End Sub
Sub VerificaRitardo10elottoSerale(idEstr,Num1,Num2,QntRit10eLs,QntRitLotto,Quant_Estra,Ini,Fin,Stat,QuanteStat)
Dim n,x,y,q,Stat10eLotto,ritt,ritardo
Dim ciclo
Dim nm(90)
Dim rit(90)
Call Scrivi("Ritardo/i al 10eLotto > di " & Format2(QntRit10eLs) & "    :",1,False)
ciclo = Fin - 50
For n = 1 To 90
nm(1) = n
rit(n) = SerieRitardoDL(ciclo,Fin,nm,1)
Next
For x = QntRit10eLs + 1 To 100
ritardo = ""
ritt = ""
For y = 1 To 90
If x = rit(y) Then ritt = ritt & Format2(y) & " "
Next
If ritt <> "" Then
Call Scrivi(" " & ritt,1,False)
End If
Next
Scrivi
Call VerificaRitardoLotto(idEstr,Num1,Num2,QntRitLotto,Quant_Estra,Stat,Stat10eLotto,Fin,QntRit10eLs,QuanteStat)
Scrivi
Scrivi String(130,"-")
End Sub
Sub VerificaRitardoLotto(idEstr,Num1,Num2,QntRitLotto,Quant_Estra,Stat,Stat10eLotto,Fin10,QntRit10eLs10,QuanteStat)
Dim x,xx,n,rit
Call Scrivi("Ritardo/i al Lotto su " & SiglaRuota(11) & " > di " & Format2(QntRitLotto) & " :",1,False)
For n = 1 To 90
rit = RitardoEstratto(n,idEstr,11)
If rit & " " > QntRitLotto Then
Call Scrivi(" " & n,1,False)
End If
Next
Scrivi
If Stat = 1 Then
Dim n11,rittt,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,Primo_num,Secondo_num,SommaInCinquina1,SommaInCinquina2,TerzaCondizione
p1 = EstrattoDL(idEstr,11)
p2 = EstrattoDL(idEstr,12)
p3 = EstrattoDL(idEstr,13)
p4 = EstrattoDL(idEstr,14)
p5 = EstrattoDL(idEstr,15)
Primo_num = Fuori90(p1 + p2 + p3 + p4 + p5)
p6 = EstrattoDL(idEstr,16)
p7 = EstrattoDL(idEstr,17)
p8 = EstrattoDL(idEstr,18)
p9 = EstrattoDL(idEstr,19)
p10 = EstrattoDL(idEstr,20)
Secondo_num = Fuori90(p6 + p7 + p8 + p9 + p10)
SommaInCinquina1 = Fuori90(Primo_num + Secondo_num)
SommaInCinquina2 = Fuori90(Primo_num - Secondo_num)
TerzaCondizione = Fuori90(Secondo_num - Primo_num)
Dim n10,x10,y10,q10,ritt10,ritardo10,ciclo10
Dim nm10(90)
Dim rit10(90)
If isIdEstrValidoDL(idEstr + 1) Then
Scrivi
Scrivi "STATISTICA GENERATA PARTENDO DALLA DATA: " & DataEstrazioneDL(idEstr),1,,vbGreen
Call Scrivi("Hai scelto di fare la statistica su " & QuanteStat & " estrazioni successive partendo dalla data " & DataEstrazioneDL(idEstr))
For x = 1 To QuanteStat
If isIdEstrValidoDL(idEstr + x) Then
Call Scrivi(DataEstrazioneDL(idEstr + x) & " numeri usciti: ")
If IsNumeroPresenteInEstrazioneDL(idEstr + x,SommaInCinquina1,1) Then
Call Scrivi(Format2(SommaInCinquina1),1)
ElseIf IsNumeroPresenteInEstrazioneDL(idEstr + x,SommaInCinquina2,1) Then
Call Scrivi(Format2(SommaInCinquina2),1)
End If
If IsNumeroPresenteInEstrazioneDL(idEstr + x,TerzaCondizione,1) Then
Call Scrivi(Format2(TerzaCondizione),1)
End If
If IsNumeroPresenteInEstrazioneDL(idEstr + x,Num1,1) Then
Call Scrivi(Format2(Num1),1)
End If
If IsNumeroPresenteInEstrazioneDL(idEstr + x,Num2,1) Then
Call Scrivi(Format2(Num2),1)
End If
ciclo10 = Fin10 - 50
For n10 = 1 To 90
nm10(1) = n10
rit10(n10) = SerieRitardoDL(ciclo10,Fin10,nm10,1)
Next
For x10 = QntRit10eLs10 + 1 To 100
ritardo10 = ""
ritt10 = ""
For y10 = 1 To 90
If x10 = rit10(y10) Then ritt10 = ritt10 & Format2(y10) & " "
Next
If ritt10 <> "" Then
If IsNumeroPresenteInEstrazioneDL(idEstr + x,ritt10,1) Then
Call Scrivi(Format2(ritt10),1)
End If
End If
Next
For n11 = 1 To 90
rittt = RitardoEstratto(n11,idEstr,11)
If rittt & " " > QntRitLotto Then
If IsNumeroPresenteInEstrazioneDL(idEstr + x,n11,1) Then
Call Scrivi(Format2(n11),1)
End If
End If
Next
End If
Next
Scrivi "Fine statistica su estrazione del " & DataEstrazioneDL(idEstr),1,,vbGreen
Else
Scrivi
Scrivi "NESSUNA STATISTICA! LA DATA " & DataEstrazioneDL(idEstr) & " E' L'ULTIMA ESTRAZIONE IN ARCHIVIO!",1,,vbGreen
End If
End If
End Sub

Saluti
 
G

giorgioantonio

Super Member >PLATINUM<
Salve Moro,
c'è un problemino da risolvere, lancia lo script e segui ad ogni richiesta quanto scrivo:
Numero estrazioni =4
numero1 ritardo1 =16
numeroritardo2 =6
vuoi elaborare la statistica = si
numero estrazioni x .........= 3
quindi scorri in giù l'output e cerca i dati del:
in data 16-04-2015 alla riga numeri vertibili il risultato è = 3 - 3,
dovrebbe essere 33 - 3.
Saluti
 
Ultima modifica:
M

Moro_80

Advanced Member
Ciao giorgioantonio,
anche qui è un qualcosa che dipende direttamente da Spaziometria, se lanci il piccolo script di esempio vedi che come radicale di 3 mi torna a dare 3.

Codice: 
Option Explicit
Sub Main
Scrivi("Il radicale del numero " & 3 & " è : " & Radicale(3))
End Sub

Ciao
 
Alien.

Alien.

Advanced Premium Member
Moro_80 ha scritto:
Salve Sig. Armando59,
provi a vedere se lo script da me redatto esegue a dovere i calcoli da Lei richiesti.
Ho inserito la possibilità di scegliere su quante estrazioni eseguire la ricerca.

Codice: 
Option Explicit
Sub Main
Dim p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,ini,fin,es,Primo_num,Secondo_num,Terzo_num,Quarto_num,Quante_Estr
Call ImpostaArchivio10ELotto(1)
Quante_Estr = InputBox("Quante Estrazioni Vuoi Verificare ?" & vbCrLf & " " & vbCrLf & "Lascia il numero 0 (zero) per elaborare lo script solo sull'ultima estrazione presente in archivio","NUMERO ESTRAZIONI",0)
fin = EstrazioneFinDL
ini = fin - Quante_Estr
For es = ini To fin
Messaggio DataEstrazioneDL(es)
p1 = EstrattoDL(es,11)
p2 = EstrattoDL(es,12)
p3 = EstrattoDL(es,13)
p4 = EstrattoDL(es,14)
p5 = EstrattoDL(es,15)
Primo_num = Fuori90(p1 + p2 + p3 + p4 + p5)
p6 = EstrattoDL(es,16)
p7 = EstrattoDL(es,17)
p8 = EstrattoDL(es,18)
p9 = EstrattoDL(es,19)
p10 = EstrattoDL(es,20)
Secondo_num = Fuori90(p6 + p7 + p8 + p9 + p10)
Scrivi "Data Estrazione :" & " " & DataEstrazioneDL(es)
ColoreTesto(1)
Scrivi "Numeri Considerati Dal 11esimo al 15esimo Estratto :" & p1 & " " & p2 & " " & p3 & " " & p4 & " " & p5
Scrivi "Numeri Considerati Dal 16esimo al 20esimo Estratto :" & p6 & " " & p7 & " " & p8 & " " & p9 & " " & p10
ColoreTesto(vbBlack)
Scrivi String(24,"=")
ColoreTesto(2)
Scrivi "Primo numero :" & Primo_num
Scrivi "Secondo numero :" & Secondo_num
Scrivi "Terzo numero :" & Fuori90(Primo_num + Secondo_num)
Scrivi "Quarto numero :" & Fuori90(Primo_num - Secondo_num)
ColoreTesto(vbBlack)
Scrivi " "
Terzo_num = Fuori90(Primo_num + Secondo_num)
Quarto_num = Fuori90(Primo_num - Secondo_num)
ReDim aNumeri(4)
aNumeri(1) = Primo_num
aNumeri(2) = Secondo_num
aNumeri(3) = Terzo_num
aNumeri(4) = Quarto_num
Call ImpostaGiocataDL(1,aNumeri)
Call GiocaDL(ini)
ScriviResocontoDL
Next
Scrivi "###############################################################################################",,,6,7
Scrivi "# Metodo Ricerca Quartina per 10 e lotto serale, redatto da Moro_80 su richiesta di Armando59 #",,,6,7
Scrivi "# http://forum.lottoced.com/f12/aiuto-x-scrip-10elotto-serale-119173/                         #",,,6,7
Scrivi "###############################################################################################",,,6,7
End Sub


Saluti
Clicca per espandere...

ciao,mi da errore Call GiocaDL(ini)
 
Alien.

Alien.

Advanced Premium Member
Moro_80 ha scritto:
Ciao giorgioantonio,
ecco lo script con l'implementazione della "terza condizione" in caso che il diminuendo sia minore del sottraendo.

Provalo e fammi sapere!

Codice: 
Option Explicit
Sub Main()
Dim a,b,c,k,Ini,Fin,es,r1,p11,p12,Sum,App,Strg,Quante_Estr,Quale_Rit_10eLs,Quale_Rit_Lotto,Statistica
Dim sMsg,QuanteStat
Scrivi String(10," ") & " PER GIORGIOANTONIO : VERIFICA NUMERO SE PRESENTE E RELATIVO NUMERO VERTIBILE: By Moro_80"
Call ImpostaArchivio10ELotto(1)
Quante_Estr = InputBox("Quante Estrazioni Vuoi Verificare ?" & vbCrLf & " " & vbCrLf & "Lascia il numero 0 (zero) per elaborare lo script solo sull'ultima estrazione presente in archivio","NUMERO ESTRAZIONI",0)
Quale_Rit_10eLs = InputBox("Quanto Ritardo Vuoi Verificare per il 10eLotto Serale ?" & vbCrLf & " " & vbCrLf & "Per Default inserisco 16","NUMERO RITARDO",16)
Quale_Rit_Lotto = InputBox("Quanto Ritardo Vuoi Verificare per il Lotto su tutte escluso la Nazionale ?" & vbCrLf & " " & vbCrLf & "Per Default inserisco 6","NUMERO RITARDO",6)
sMsg = "Vuoi elaborare anche la statistica?"
If MsgBox(sMsg,vbQuestion + vbYesNo) = vbYes Then
Statistica = 1
QuanteStat = InputBox("Imposta il ciclo per elaborare la statistica" & vbCrLf & " " & vbCrLf & "Hai scelto di fare l'analisi su " & Quante_Estr & " estrazioni, quindi puoi scegliere un ciclo che va da 0 a " & Quante_Estr,"NUMERO ESTRAZIONI PER STATISTICA",5)
End If
Ini = EstrazioniArchivioDL - Quante_Estr
Fin = EstrazioniArchivioDL
For es = Ini To Fin
Call Messaggio("Elaboro l'estrazione del " & DataEstrazione(es))
Call AvanzamentoElab(Ini,Fin,es)
Scrivi
Scrivi String(47,"-") & " INIZIO ANALISI DELLA DATA " & DataEstrazioneDL(es) & " " & String(47,"-"),,,vbCyan
For p11 = 1 To 19
For p12 = p11 + 1 To 20
a = EstrattoDL(es,p11)
b = EstrattoDL(es,p12)
If b = Vert(a) Then
Sum = Fuori90(a + b)
If Radicale(Sum) Then
App = Radicale(Sum)
Strg = "PASSO 2 - Controllo se il numero " & Sum & " è uguale a un numero radicale...SI! Applico quindi il suo Radicale! Considero i numeri " & Sum & " - " & App
Else
App = Vert(Sum)
Strg = "PASSO 2 - Controllo se il numero " & Sum & " è uguale a un numero radicale...NO! Applico quindi il suo Vertibile! Considero i numeri " & Sum & " - " & App
End If
Call VerificaPresenzeNumeri(es,k,a,Sum,App,Strg,Quale_Rit_10eLs,Quale_Rit_Lotto,Quante_Estr,Ini,Fin,Statistica,QuanteStat)
End If
Next
Next
Scrivi String(47,"-") & " FINE ANALISI DELLA DATA " & DataEstrazioneDL(es) & " " & String(47,"-"),,,vbCyan
If ScriptInterrotto Then Exit For
Next
End Sub
Sub Armando(es)
Dim p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,Primo_num,Secondo_num,SommaInCinquina1,SommaInCinquina2,TerzaCondizione
p1 = EstrattoDL(es,11)
p2 = EstrattoDL(es,12)
p3 = EstrattoDL(es,13)
p4 = EstrattoDL(es,14)
p5 = EstrattoDL(es,15)
Primo_num = Fuori90(p1 + p2 + p3 + p4 + p5)
p6 = EstrattoDL(es,16)
p7 = EstrattoDL(es,17)
p8 = EstrattoDL(es,18)
p9 = EstrattoDL(es,19)
p10 = EstrattoDL(es,20)
Secondo_num = Fuori90(p6 + p7 + p8 + p9 + p10)
Scrivi "Somma prima cinquina             : " & p1 & " " & p2 & " " & p3 & " " & p4 & " " & p5 & " = " & Primo_num,1
Scrivi "Somma seconda cinquina           : " & p6 & " " & p7 & " " & p8 & " " & p9 & " " & p10 & " = " & Secondo_num,1
Scrivi "Primo numero + secondo numero    : " & Primo_num & " + " & Secondo_num & " = " & Fuori90(Primo_num + Secondo_num) & " (Applicato il Fuori90)",1
Scrivi "Primo numero - secondo numero    : " & Primo_num & " - " & Secondo_num & " = " & Fuori90(Primo_num - Secondo_num) & " (Applicato il Fuori90)",1
SommaInCinquina1 = Fuori90(Primo_num + Secondo_num)
SommaInCinquina2 = Fuori90(Primo_num - Secondo_num)
If Secondo_num > Primo_num Then
Scrivi "Secondo numero - primo numero    : " & Secondo_num & " - " & Primo_num & " = " & Fuori90(Secondo_num - Primo_num) & " (Applicato il Fuori90)",1
TerzaCondizione = Fuori90(Secondo_num - Primo_num)
End If
End Sub
Sub VerificaPresenzeNumeri(idEstr,vari,Estratt,Somma,VerRad,Stringa,qr10ls,qrlotto,Quante_Estrazioni,Ini,Fin,Stat,QuanteStat)
Scrivi
Scrivi "PASSO 1 - Analisi estrazione del " & DataEstrazioneDL(idEstr) & ", Vertibili Trovati: " & Estratt & " - " & Vert(Estratt) & " Somma : " & Somma
Scrivi Stringa
If IsNumeroPresenteInEstrazioneDL(idEstr,Somma,1) Then
Scrivi "PASSO 3 - Controllo presenza del solo numero " & Somma & " ottenuto dalla somma sull'estrazione del " & DataEstrazioneDL(idEstr) & " esito : NUMERO PRESENTE"
Scrivi "          ESITO   : L'evento non è giocabile, Annullato!",,,,2
Scrivi "CHECK COMPLETATO !!!",,,,vbBlack
Scrivi
Scrivi "RIEPILOGO DATI FINALI :",1,,vbYellow
Call Armando(idEstr)
Scrivi "Numeri da vertibili              : ",1,False
Call Scrivi("EVENTO NON GIOCABILE, ANNULLATO!",1,,,vbRed)
Else			
Scrivi "PASSO 3 - Controllo presenza del solo numero " & Somma & " ottenuto dalla somma sull'estrazione del " & DataEstrazioneDL(idEstr) & " esito : NUMERO NON PRESENTE"
Scrivi "          ESITO   : L'evento è giocabile! Controllo sulle precedenti 3 estrazioni se presenti i numeri " & Somma & " - " & VerRad,,,,vbBlue
For vari = 1 To 3
If IsNumeroPresenteInEstrazioneDL(idEstr - vari,Somma,1) And IsNumeroPresenteInEstrazioneDL(idEstr - vari,VerRad,1) Then
Scrivi "PASSO 4 - Controllo se presenti entrambi i numeri " & Somma & " e " & VerRad & " indietro sull'estrazione del " & DataEstrazioneDL(idEstr - vari) & " esito : NUMERI PRESENTI"
Scrivi "          ESITO   : L'evento non è giocabile, Annullato!",,,,2
Scrivi "CHECK COMPLETATO !!!",,,,vbBlack
Scrivi
Scrivi "RIEPILOGO DATI FINALI :",1,,vbYellow
Call Armando(idEstr)
Scrivi "Numeri da vertibili              : ",1,False
Call Scrivi("EVENTO NON GIOCABILE, ANNULLATO!",1,,,vbRed)
Else
Scrivi "PASSO 4 - Controllo se presenti entrambi i numeri " & Somma & " e " & VerRad & " indietro sull'estrazione del " & DataEstrazioneDL(idEstr - vari)
Scrivi "          ESITO   : Numeri non presenti, continuo check...",,,,vbBlue
If IsNumeroPresenteInEstrazioneDL(idEstr - vari,Somma,1) Then
Scrivi "          Controllo se presente almeno uno dei numeri " & Somma & " e " & VerRad & " sempre sull'estrazione del " & DataEstrazioneDL(idEstr - vari)
Scrivi "          ESITO : L'evento è giocabile, sortito solo il numero " & Somma,,,,2
ElseIf IsNumeroPresenteInEstrazioneDL(idEstr - vari,VerRad,1) Then
Scrivi "          Controllo se presente almeno uno dei numeri " & Somma & " e " & VerRad & " sempre sull'estrazione del " & DataEstrazioneDL(idEstr - vari)
Scrivi "          ESITO : L'evento è giocabile, sortito solo il numero " & VerRad,,,,2
End If
If vari = 3 Then
Scrivi "CHECK COMPLETATO !!!",,,,vbBlack
Scrivi
Scrivi "RIEPILOGO DATI FINALI :",1,,vbYellow
Call Armando(idEstr)
Scrivi "Numeri da vertibili              : " & Somma & " - " & VerRad,1
End If
End If
Next
End If
Call VerificaRitardo10elottoSerale(idEstr,Somma,VerRad,qr10ls,qrlotto,Quante_Estrazioni,Ini,Fin,Stat,QuanteStat)
End Sub
Sub VerificaRitardo10elottoSerale(idEstr,Num1,Num2,QntRit10eLs,QntRitLotto,Quant_Estra,Ini,Fin,Stat,QuanteStat)
Dim n,x,y,q,Stat10eLotto,ritt,ritardo
Dim ciclo
Dim nm(90)
Dim rit(90)
Call Scrivi("Ritardo/i al 10eLotto > di " & Format2(QntRit10eLs) & "    :",1,False)
ciclo = Fin - 50
For n = 1 To 90
nm(1) = n
rit(n) = SerieRitardoDL(ciclo,Fin,nm,1)
Next
For x = QntRit10eLs + 1 To 100
ritardo = ""
ritt = ""
For y = 1 To 90
If x = rit(y) Then ritt = ritt & Format2(y) & " "
Next
If ritt <> "" Then
Call Scrivi(" " & ritt,1,False)
End If
Next
Scrivi
Call VerificaRitardoLotto(idEstr,Num1,Num2,QntRitLotto,Quant_Estra,Stat,Stat10eLotto,Fin,QntRit10eLs,QuanteStat)
Scrivi
Scrivi String(130,"-")
End Sub
Sub VerificaRitardoLotto(idEstr,Num1,Num2,QntRitLotto,Quant_Estra,Stat,Stat10eLotto,Fin10,QntRit10eLs10,QuanteStat)
Dim x,xx,n,rit
Call Scrivi("Ritardo/i al Lotto su " & SiglaRuota(11) & " > di " & Format2(QntRitLotto) & " :",1,False)
For n = 1 To 90
rit = RitardoEstratto(n,idEstr,11)
If rit & " " > QntRitLotto Then
Call Scrivi(" " & n,1,False)
End If
Next
Scrivi
If Stat = 1 Then
Dim n11,rittt,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,Primo_num,Secondo_num,SommaInCinquina1,SommaInCinquina2,TerzaCondizione
p1 = EstrattoDL(idEstr,11)
p2 = EstrattoDL(idEstr,12)
p3 = EstrattoDL(idEstr,13)
p4 = EstrattoDL(idEstr,14)
p5 = EstrattoDL(idEstr,15)
Primo_num = Fuori90(p1 + p2 + p3 + p4 + p5)
p6 = EstrattoDL(idEstr,16)
p7 = EstrattoDL(idEstr,17)
p8 = EstrattoDL(idEstr,18)
p9 = EstrattoDL(idEstr,19)
p10 = EstrattoDL(idEstr,20)
Secondo_num = Fuori90(p6 + p7 + p8 + p9 + p10)
SommaInCinquina1 = Fuori90(Primo_num + Secondo_num)
SommaInCinquina2 = Fuori90(Primo_num - Secondo_num)
TerzaCondizione = Fuori90(Secondo_num - Primo_num)
Dim n10,x10,y10,q10,ritt10,ritardo10,ciclo10
Dim nm10(90)
Dim rit10(90)
If isIdEstrValidoDL(idEstr + 1) Then
Scrivi
Scrivi "STATISTICA GENERATA PARTENDO DALLA DATA: " & DataEstrazioneDL(idEstr),1,,vbGreen
Call Scrivi("Hai scelto di fare la statistica su " & QuanteStat & " estrazioni successive partendo dalla data " & DataEstrazioneDL(idEstr))
For x = 1 To QuanteStat
If isIdEstrValidoDL(idEstr + x) Then
Call Scrivi(DataEstrazioneDL(idEstr + x) & " numeri usciti: ")
If IsNumeroPresenteInEstrazioneDL(idEstr + x,SommaInCinquina1,1) Then
Call Scrivi(Format2(SommaInCinquina1),1)
ElseIf IsNumeroPresenteInEstrazioneDL(idEstr + x,SommaInCinquina2,1) Then
Call Scrivi(Format2(SommaInCinquina2),1)
End If
If IsNumeroPresenteInEstrazioneDL(idEstr + x,TerzaCondizione,1) Then
Call Scrivi(Format2(TerzaCondizione),1)
End If
If IsNumeroPresenteInEstrazioneDL(idEstr + x,Num1,1) Then
Call Scrivi(Format2(Num1),1)
End If
If IsNumeroPresenteInEstrazioneDL(idEstr + x,Num2,1) Then
Call Scrivi(Format2(Num2),1)
End If
ciclo10 = Fin10 - 50
For n10 = 1 To 90
nm10(1) = n10
rit10(n10) = SerieRitardoDL(ciclo10,Fin10,nm10,1)
Next
For x10 = QntRit10eLs10 + 1 To 100
ritardo10 = ""
ritt10 = ""
For y10 = 1 To 90
If x10 = rit10(y10) Then ritt10 = ritt10 & Format2(y10) & " "
Next
If ritt10 <> "" Then
If IsNumeroPresenteInEstrazioneDL(idEstr + x,ritt10,1) Then
Call Scrivi(Format2(ritt10),1)
End If
End If
Next
For n11 = 1 To 90
rittt = RitardoEstratto(n11,idEstr,11)
If rittt & " " > QntRitLotto Then
If IsNumeroPresenteInEstrazioneDL(idEstr + x,n11,1) Then
Call Scrivi(Format2(n11),1)
End If
End If
Next
End If
Next
Scrivi "Fine statistica su estrazione del " & DataEstrazioneDL(idEstr),1,,vbGreen
Else
Scrivi
Scrivi "NESSUNA STATISTICA! LA DATA " & DataEstrazioneDL(idEstr) & " E' L'ULTIMA ESTRAZIONE IN ARCHIVIO!",1,,vbGreen
End If
End If
End Sub

Saluti
Clicca per espandere...




ciao errore::rit(n) = SerieRitardoDL(ciclo,Fin,nm,1)
 
G

giorgioantonio

Super Member >PLATINUM<
Ciao Moro,

vorrei dire che il tutto rimane così?
Cioè non si può apportare la correzione?
Se è così farò a meno di quella combinazione.

Ti ringrazio del tempo che mi hai dedicato.
Buon prosieguo di giornata.

Giorgioantonio
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 30 aprile 2024
    Bari
    08
    67
    03
    02
    46
    Cagliari
    67
    01
    87
    84
    47
    Firenze
    31
    56
    40
    53
    50
    Genova
    03
    19
    45
    47
    25
    Milano
    71
    48
    51
    12
    13
    Napoli
    45
    19
    49
    76
    56
    Palermo
    58
    74
    86
    37
    67
    Roma
    26
    79
    47
    38
    58
    Torino
    32
    71
    39
    84
    80
    Venezia
    52
    31
    22
    42
    19
    Nazionale
    06
    83
    47
    20
    41
    Estrazione Simbolotto
    Genova
    03
    05
    45
    40
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto