aiuto x scrip 10elotto serale

[giorgioantonio]

Ciao armando90,

ci si aspetta sempre che il programmatore ti chiede ulteriori
spiegazioni.
La durata è non oltre quella, dico non oltre perchè ultimamente
mi è balenata l'idea di smettere anticipatamente: mi ha fregato
per ben 2 volte 13 e 31, 77 e 79. Quindi la durata è confermata
3 colpi.
Ciao e buona giornata, mi ha fatto piacere sentirti.

 

[giorgioantonio]

Ciao armando90,

ci si aspetta sempre che il programmatore ti chiede ulteriori
spiegazioni.
La durata è non oltre quella, dico non oltre perchè ultimamente
mi è balenata l'idea di smettere anticipatamente: mi ha fregato
per ben 2 volte 13 e 31, 77 e 79. Quindi la durata è confermata
3 colpi.
Ciao e buona giornata, mi ha fatto piacere sentirti.

 

[Moro_80]

Salve Moro_80,

almeno la tua risposta mi fa piacere.

Il metodino: sull'ultima estrazione vedere se c'è un numero e di questo numero il vertibile (qualche volta arrivano fino a 3 casi rari).
Primo passo.
Sommare il numero col suo vertibile es13 e 31=44;
Passo2.
Se la somma dei 2 numeri = ad un numero radicale applicare il suo radicale cioè 44-49;
passo3
se la somma dei numeri non fa parte dei numeri radicale, applicare il suo vertibile es.57+75=132(f90)=42-24;
passo 4
controllare che il numero col vertibile o radicale ottenuto dalla somma non sia presente nelle 3 estrazioni prima.
passo 5
controllare che la somma ottenuta dai 2 numeri non è presente nella estrazione da cui si è ottenuto la somma;
Se presente il numero di somma proposta annullata;
Se presente la coppia di numeri ottenuta es:44-49 oppure 42-24 nelle 3 estrazioni precedenti proposta annullata.
E questo è tutto, a disposizioni per chiarimenti.
Se vi è complicato NO PROBLEM
Saluti

Ciao giorgioantonio,
credo che, come dici Tu, devi spiegare meglio alcuni passaggi...dunque:

Primo passo.
Sommare il numero col suo vertibile es13 e 31=44;

Qui vorresti avere un inputbox con la scelta del numero che inserirari Tu, corretto?

il passo 2 e 3 sono chiari.

Poi il passo 4:

controllare che il numero col vertibile o radicale ottenuto dalla somma non sia presente nelle 3 estrazioni prima.

Spiega meglio, "il numero col vertibile o radicale" intendi la somma di quello scelto da Te all'inizio + il vertbile o + il radicale oppure verificare la presenza sia di uno e dell'altro?

Poi il passo 5:

Se presente il numero di somma proposta annullata;

Anche qui, il numero di somma...cosa si intende?

Questo è quanto da chiarire, secondo me, per ora...poi si vedrà.


Saluti

 

[giorgioantonio]

Ciao Carmine.

passo 1: non si deve inserire nessun numero,
cioè se trova il numero col suo vertibile allora va al passo 2;
passo 4: quando ha trovato i 2 numeri deve controllare
se nelle precedenti 3 estrazioni i 2 numeri sono presenti entrambi. cioè tutti e due sulla stessa riga annullare il prosieguo;
passo 5: questo passo l'ho considerato 5 ma avrebbe valore passo 2 mi spiego
ha trovati i 2 numeri (numero + suo vertibile) e quindi fa la somma se il numero
che ne esce dalla somma è presente nell'ultima estrazione annullare il prosieguo.

volevo aggiungere se a compimento dello script puoi riportare i dati come li ha ricavati
questo per un controllo/verifica.
Saluti

 

[giorgioantonio]

Ciao Carmine.

passo 1: non si deve inserire nessun numero,
cioè se trova il numero col suo vertibile allora va al passo 2;
passo 4: quando ha trovato i 2 numeri deve controllare
se nelle precedenti 3 estrazioni i 2 numeri sono presenti entrambi. cioè tutti e due;
passo 5: questo passo l'ho considerato 5 ma avrebbe valore passo 2 mi spiego
ha trovati i 2 numeri (numero + suo vertibile) e quindi fa la somma se il numero
che ne esce dalla somma è presente nell'ultima estrazione annullare il prosieguo.

volevo aggiungere se a compimento dello script puoi riportare i da come li ha ricavati
questo per un controllo/verifica.
NB col passo 4 il numero col suo vertibile o col suo radicale cioè ha trovato 13 e 31
fa la somma 13+31= 44 il suo radicale è 49; 57 e 75=(f90)42 il suo ertibile è 24
ora queste 2 coppie singolarmente vanno controllati se sono usciti nelle 3 estrazioni precedenti
se si annullare.
Carmine se non sono stato chiaro puoi riproporre la domanda.
Saluti

 

[giorgioantonio]

Ciao Moro_80 e buona domenica,

per farti trovare con i conti,
dall'estrazione di ieri sera abbiamo il
numero 78 e il suo vertibile 87 la cui somma è=165-90=75,
(NB devi tenere presente solo il numero che esce dalla somma)
il 75 non è presente in questa estrazione, il 75 e 57 non è presente
nelle precedenti (come ambo) 3 estrazioni quindi la giocata è valida.
Saluti

 

[giorgioantonio]

Ciao Moro_80,

per farti trovare con i conti:
l'estrazione del 18 c.m. ha portato 2 novità:
1° 18+81=99-90=9 controllo se in questa estrazione è presente il 9,
si c'è allora l'evento non è giocabile il numero che si ottiene della somma
finale è 9;
2° 78+87=165-90=75 controllo se in questa estrazione è presente il 75,
il 75 non è presente l'evento è da giocare (attenzione è uscito il 57 però non
il numero che ci ha dato la somma cioè 75, se viceversa era presente il 75
al posto del 57 la giocata non era valida).
Spero che questi suggerimenti mi aiutano a spiegare meglio cosa fare.
Carmine se c'è qualche dettaglio poco chiaro me lo puoi chiedere.
Ma la stesura continua? Dovresti aggiungere solo altre 2 cose che non hanno
niente a che vedere col calcolo. Facilissimi.
Saluti.

 

[giorgioantonio]

Salve Moro,

sullo script, si può averlo?

Grazie e saluti

 

[Moro_80]

Ciao giorgioantonio,
scusa ma il tempo è sempre poco per dedicarsi al forum e ai vari amici qui presenti...

Ancora alcuni chiarimenti per la Tua richiesta:

- 1) Lo script deve "lavorare" sempre solo sull'ultima estrazione oppure vuoi poter scegliere Tu su quante fare l'analisi andando indietro?

- 2) in riferimento al numero trovato dalla somma dei due vertibili trovati, lo script vede se è presente tale numero sull'estrazione dove ha trovato i vertibili, se presente annullo, altrimenti cosa deve fare? Solo dirti che non è presente?

- 3) Stessa cosa per le coppie di numeri da vedere se sulle ultime 3 estrazioni sono usciti o meno, tu scrivi:

se nelle precedenti 3 estrazioni i 2 numeri sono presenti entrambi. cioè tutti e due;

ok se sono presenti entrambi annullo, altrimenti cosa deve fare o dirti? E se uno c'è e uno no?

Chiariti questi 2 punti credo che sia più chiaro e facile da metter giù in script!

Ciao

 

[giorgioantonio]

Salve Moro_80,

chiarimento:

-1)scegliere su quante estrazioni fare l'analisi indietro;

-2)se il numero di somma è presente solo sulla estrazione da cui si ottiene la somma =negativo;
diversamente indicare i 2 numeri da giocare;

-3)se in una delle 3 precedenti estrazioni i 2 numeri sono presenti come ambo=negativo
se presente un numero la proposta di gioco vale, anche 1 per estrazioni delle 3;

-4)da aggiungere: calcolare e segnalare se uno o più numeri ha-hanno ritardo >16;
siamo sempre al 10eLotto serale;

-5)da aggiungere: calcolare se al lotto c'è o ci sono numeri che hanno ritardo >6
escluso la ruota nazionale e quindi evidenziarli. Il ritardo è inteso il numero più ritardato
di tutte le ruote.

Detto questo ci terrei che portassi a termine questo script.

Saluti giorgioantonio

 

[giorgioantonio]

Salve Moro,

fermi restando la tua disponibilità di continuare e
per permetterti di avere tutti i dati disponibili,
io propongo lo schema ma vale sempre la tua esperienza.
nb: i dati che si ottengono devono aver vita per 3 estrazioni successive.

Vengo all'ipotetico schema dati finali:
1)somma 1^cinquina:--
2)somma 2^cinquina:--
3)somma 3^cinquina:--
4)somma 4^cinquina:--
5)numeri da vertibili :-- --
6)Ritard0/i 10 e lotto:-- --
7)Ritardo/i l o t t o...:-- --

Ripeto, tempo permettendo.
Saluti giorgioantonio

 

[Moro_80]

Salve GiorgioAntonio,
i report con dati finali si possono personalizzare in ogni modo, in questo caso possiamo seguire anche quello da Te proposto.
Chiedo solo di spiegarlo per bene perchè non mi è chiaro...dunque:

1)somma 1^cinquina:--( qui ??????)
2)somma 2^cinquina:--( qui ??????)
3)somma 3^cinquina:--( qui ??????)
4)somma 4^cinquina:--( qui ??????)
5)numeri da vertibili :-- -- ( qui i numeri vertibili rilevati)
6)Ritard0/i 10 e lotto:-- --( qui i ritardi > 16 al 10 e lotto serale)
7)Ritardo/i l o t t o...:-- --( qui i ritardi > 6 al lotto su ogni estrazione incluso tutte ed escluso nazionale)

P.s. Ho notato che nessuno dei guru scripter si è proposto per esaudire la richiesta...troppo complesso? Mah....

Ciao.

 

[giorgioantonio]

Salve Moro,

dove(1-2-3-4) :--(il numero ottenuto dalla somma dei primi 5 numeri, poi dei secondi 5 numeri, ecc quello che chiede armando)
5)--(se trova i vertibili ne fa la somma e superate le condizioni, riportare i 2 numeri)
6 e 7 penso siano chiarissimi.

Se è troppo complesso? per me carta e penna risolvo non so per chi deve realizzare lo script.
Pensavo riuscissi a farlo tu ... aspettiamo ora lo sanno che abbiamo bisogno di aiuto.

Saluti giorgioantonio

 

[giorgioantonio]

Buongiorno Salvo50,

cortesemente potresti dare una occhiata
e se puoi venirmi in aiuto a scrivere
lo script sull'argomento in questione?

Anche per una risposta, grazie.

NB: non me ne intendo ma non penso sia complicato, credo.

Ancora saluti

 

[Moro_80]

Salve Sig. giorgioantonio,
la mia frase non era una richiesta d'aiuto ad altri o che, era inteso che mi meravigliavo che nessuno era intervenuto per dire la sua o provare a metter giù qualcosa...tutto qui.

Il tempo non è tanto a disposizione e sempre più siamo tutti presi da mille cose...comunque al di là di tutto, provi a lanciare questo script da me creato di sana pianta da zero e veda se può andar bene con le richieste da Lei fornite.

P.S. Per i ritardi 10elotto e lotto ho messo la possibilità di selezionarli all'inizio in modo da poter fare più prove o test, mi faccia sapere se funziona bene, e se no, dove sbaglia i calcoli. In questo modo o io o qualcun'altro lo può sistemare a dovere.

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"
Scrivi
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(46,"-") & "INIZIO ANALISI DELLA DATA " & DataEstrazioneDL(es) & String(46,"-"),,,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 "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
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
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
End If
End If
Next
End If
Call Armando(idEstr)
Scrivi "Numeri da vertibili           : " & Somma & " - " & VerRad,1
Call VerificaRitardo10elottoSerale(idEstr,Somma,VerRad,qr10ls,qrlotto)
End Sub
Sub VerificaRitardo10elottoSerale(idEstr,Num1,Num2,QntRit10eLs,QntRitLotto)
If RitardoEstrattoDL(Num1,idEstr) Or RitardoEstrattoDL(Num2,idEstr) > QntRit10eLs Then
Call Scrivi("Ritardo/i 10eLotto            : " & Num1,1,False)
Call Scrivi(" - " & Num2,1,False)
Else
Call Scrivi("Ritardo/i 10eLotto            : / ",1,False)
End If
Scrivi
Call VerificaRitardoLotto(idEstr,Num1,Num2,QntRitLotto)
End Sub
Sub VerificaRitardoLotto(idEstr,Num1,Num2,QntRitLotto)
Dim Ruote
Dim k
For k = 1 To 11
If RitardoEstratto(Num1,idEstr,k) Or RitardoEstratto(Num2,idEstr,k) > QntRitLotto Then
Call Scrivi("Ritardo/i Lotto               : " & Num1 & " - " & Num2 & " su " & SiglaRuota(k),1)
Else
Call Scrivi("Ritardo/i Lotto               : / ",1)
End If
Next
Scrivi String(130,"-")
Scrivi
End Sub

Saluti

 

[giorgioantonio]

Salve Moro,

Scusami ma avevo inteso di lanciare un S.O.S. ... rientrato.
se possiamo togliere qualche zavorra,
estrazione del 28 c.m. giusto il rilievo 34-43 che da appunto il 77
dopo ha visto che nella stessa estrazione il 77 non è presente e abbina il 79 e non 7
è anche vero che alla fine sempre numeri sono, però;
ho fatto controlli sugli altri passi e pare che ci siamo nel complesso.
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.

NB: non so se mi sbaglio ma armando avrebbe detto di
fare la somma dei primi 5 numeri dell'estrazione del 10elotto
poi di fare la somma dal 6° al 10° numero,
poi dall'11° al 15° e infine dal 16° al 20°, tenuto conto il F90
ottenendo così altri 4 numeri e cioè (se armando intendeva diversamente correggimi):
prima=58
seconda=83
terza=84
quarta=11.

Possiamo andare avanti?

 

[giorgioantonio]

Salve Moro,

Scusami....omissis.

ciao

 

[giorgioantonio]

Salve Moro,

su quanto ha proposto armando va bene così
ho preso una papera, come non detto sulla somma da 1 a 5; 6 a 10; 11 a 15; 16 a 20
da me indicato.

Salve

 

[Alien.]

CIAO ,ma veramente la caccia alle papere è vietata...........il metodo si sta affinando...complimenti....

 

[Moro_80]

Salve Moro,

Scusami ma avevo inteso di lanciare un S.O.S. ... rientrato.
se possiamo togliere qualche zavorra,
estrazione del 28 c.m. giusto il rilievo 34-43 che da appunto il 77
dopo ha visto che nella stessa estrazione il 77 non è presente e abbina il 79 e non 7
è anche vero che alla fine sempre numeri sono, però;
ho fatto controlli sugli altri passi e pare che ci siamo nel complesso.
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.

NB: non so se mi sbaglio ma armando avrebbe detto di
fare la somma dei primi 5 numeri dell'estrazione del 10elotto
poi di fare la somma dal 6° al 10° numero,
poi dall'11° al 15° e infine dal 16° al 20°, tenuto conto il F90
ottenendo così altri 4 numeri e cioè (se armando intendeva diversamente correggimi):
prima=58
seconda=83
terza=84
quarta=11.

Possiamo andare avanti?

Ciao giorgioantonio,
per il discorso radicale, mi sa che c'è qualcosa di "diverso/strano" da quello che vuoi Tu in spaziometria...mi spiego meglio con questo piccolo script di esempio:

Option Explicit
Sub Main
Scrivi("Il radicale del numero " & 7 & " è : " & Radicale(7))
Scrivi("Il radicale del numero " & 70 & " è : " & Radicale(70))
Scrivi("Il radicale del numero " & 77 & " è : " & Radicale(77))
Scrivi("Il radicale del numero " & 79 & " è : " & Radicale(79))
End Sub

Ecco perchè dal numero 77 mi restituisce radicale = 7

Per rispondere alla domanda, certo che possiamo andare avanti...poi domani darò un occhio al discorso ritardi, infine quello di armando è corretto come lo richiedeva lui fin dall'inizio.


Saluti