Novità

aiuto x scrip 10elotto serale

Ciao giorgioantonio,
purtroppo la Funzione "Radicale(n)" è inclusa in Spaziometria non dipende da me...Solo L'autore LuigiB potrebbe metterci le mani.

Quindi se La funzione resta tale il o i numeri che restituirà il Software saranno sempre quelli.

P.S. Se esiste qualche escamotage per avere i radicali come dici Tu allora ci serve l'aiuto di qualche Super esperto di script,per ora io non ne sono a conoscenza.


Ciao
 
Ultima modifica:
PER Moro_80

Ciao Moro_80

Stavo leggendo e provando il megascript che hai fatto volevo fare una piccola considerazione.. ( se non sbaglio) semmai correggimi e scusami

Diciamo che il problema è la somma dei vertibili che danno come risultato un numeretto
facendo 2 conti le somme dei vertibili con i numeretti sono due.. il 9 ed il 3
quindi il 9 non ha il radicale OK.... mentre il 3 SI... che poi sarebbe ancora 3 come hai evidenziato..che però a giorgioantonio non va bene..
Mi è venuta l'idea "pazza" di " isolare il 3 " e dirgli che il suo radicale è 33
Ho modificato il tuo script evidenziando le modifiche però è meglio che lo controlli tu come scripter..e giorgioantonio se i calcoli dopo la modifica sono esatti
Mi sono permesso di lanciare un'idea,magari la strada è sbagliata o da correggere..comunque l'unione fa la forza:)

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 Sum = 3 Then
App = 33 ' <-------------- AGGIUNTO
Strg = "PASSO 2 - Controllo se il numero " & Sum & " è uguale a un numero radicale...SI! Applico quindi il suo Radicale! Considero i numeri " & Sum & " - " & App ' <---  AGGIUNTO
Else ' <-----------------AGGIUNTO
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
End If ' < ----------------  AGGIUNTO
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
 
Ciao Master,
si è una possibile alternativa quella di mettere la condizione per avere il numero che vuole giorgioantonio, però a questo punto dovremmo avere da giorgioantonio la lista di tutti i possibili radicali dei vari numeri come li vuole lui, perchè, se non ricordo male anche col numero 77 io assegnavo il 7 e giorgioantonio voleva il 79.
Basta indicare come li vuole e li posso inserire...es:

77 - 79

3 - 33

etc etc

Per Giorgioantonio: se hai una lista di come li vuoi o anche un file faccelo avere così completiamo il tutto come da Tue richieste.


Ciao
 
Ultima modifica:
Ciao Carmine,
ciao Master,

per me va bene così in più avete sistemato la questione del 33 3.
Però visto che avete disponibilità vorrei chiedervi una ulteriore aggiunta.
Si tratta di sola scrittura, almeno credo.
aggiungere un sistema di sole tre combinazioni.
1 - 2 – 3 – 4 - 5
1 – 2 – 3 – 6 – 7
4 – 5 – 6 – 7 – 8
i numeri si riferiscono a quelli ricavati, logico che il numero fa riferimento a quello ricavato.
1= somma 1° numero;
2= somma 2° numero;
3= differenza se c’è;
4= primo numero per vertibile;
5=vertibile;
6= primo numero ritardo 10elotto
7=primo numero ritardo al lotto
8= secondo numero ritardo al 10elotto / secondo numero ritardo al lotto. (uno dei 2)

Può capitare di avere meno numeri per lunghetta, non fa niente.
Queste 3 righe dovrebbero risultare di fronte o a fianco ai numeri ricavati
Diciamo di seguito ma distaccati.

Ciao, non cambiate niente che va bene così.
In verità volevo che ARMANDO intervenisse per dare un giudizio.
Grazie alla sua iniziativa si è sviluppato il tutto.
Saluti
 
Salve Master,

ho privato di molto tempo all'edit dello script a Moro,
col permesso e senza ne abbia ad offendersi (MORO)
se si può dare un'assestata allo script sotto l'aspetto
panoramico ad esempio quando ha finito di elaborare.
Per esempio quando fa la statistica mettere i numeri usciti
tutti su una stessa riga; altro esempio credo ci siano dati
ridondanti, sempre dopo lo sviluppo che pare si ripetono
dico PARE. Cioè volevo dire, ora che è stato scremato
dei dati errati, di far vedere che i numeri proposti
sono quelli ricavati, restringere il campo visivo.
E poi di aggiungere quelle tre righe di sistema che ho
precedente proposto.

Saluti, giorgioantonio
 
Ciao Moro buona giornata,

per continuare ti riposto ciò che vorrei come risultato finale. La parte che riguarda è scritta in ROSSO.
NB se puoi eliminare dati che riguardano l'evento NON giocabile questo per evitare confusione per chi si
interessa a questo script. Cioè a fine sviluppo deve apparire visibile solo il gioco valido ma deve funzionare
così come ora.

Ecco i dati con tanti saluti e ringraziamenti.

----------------------------------------------- INIZIO ANALISI DELLA DATA 16.05.2015 -----------------------------------------------

PASSO 1 - Analisi estrazione del 16.05.2015, Vertibili Trovati: 12 - 21 Somma : 33
PASSO 2 - Controllo se il numero 33 è uguale a un numero radicale...SI! Applico quindi il suo Radicale! Considero i numeri 33 - 3
PASSO 3 - Controllo presenza del solo numero 33 ottenuto dalla somma sull'estrazione del 16.05.2015 esito : NUMERO NON PRESENTE
ESITO : L'evento è giocabile! Controllo sulle precedenti 3 estrazioni se presenti i numeri 33 - 3
PASSO 4 - Controllo se presenti entrambi i numeri 33 e 3 indietro sull'estrazione del 14.05.2015
ESITO : Numeri non presenti, continuo check...
PASSO 4 - Controllo se presenti entrambi i numeri 33 e 3 indietro sull'estrazione del 12.05.2015
ESITO : Numeri non presenti, continuo check...
PASSO 4 - Controllo se presenti entrambi i numeri 33 e 3 indietro sull'estrazione del 09.05.2015
ESITO : Numeri non presenti, continuo check...
Controllo se presente almeno uno dei numeri 33 e 3 sempre sull'estrazione del 09.05.2015
ESITO : L'evento è giocabile, sortito solo il numero 33
CHECK COMPLETATO !!!

RIEPILOGO DATI FINALI :
Somma prima cinquina : 59 60 63 65 68 = 45
Somma seconda cinquina : 70 71 74 82 89 = 26
Primo numero + secondo numero : 45 + 26 = 71 (Applicato il Fuori90)
Primo numero - secondo numero : 45 - 26 = 19 (Applicato il Fuori90)
Numeri da vertibili : 33 - 3
Ritardo/i al 10eLotto > di 16 : 34
Ritardo/i al Lotto su TT > di 06 : 17
GIOCATE:
-71-19-?1-33-3 '?1=SE 26> DI 45 ES 62-45=17
-71-19-?1-34-17 '?1=SE 26> DI 45 ES 62-45=17
-33-03-34-17-?2-?3 '?2=2° NUMERO RIT 10ELOTTO; ?3=2° NUMERO RIT LOTTO; SE NON "="
 
Salve a tutti,

4 numeri nella numerazione complessiva,
mentre 3 numeri nella quartina,
Niente male con sole 3 bollette vinti 14 €

Saluti e alla prossima.
 
Ciao,chiedo scusa ma non mi tornano i numeri da mettere in gioco con gli usciti reali....dove erro ?


RIEPILOGO DATI FINALI : Somma prima cinquina : 45 49 58 59 60 = 1 Somma seconda cinquina : 62 63 70 79 82 = 86 Primo numero + secondo numero : 1 + 86 = 87 (Applicato il Fuori90) Primo numero - secondo numero : 1 - 86 = 5 (Applicato il Fuori90) Secondo numero - primo numero : 86 - 1 = 85 (Applicato il Fuori90) Numeri da vertibili : 3 - 33 Ritardo/i al 10eLotto > di 16 : 88 Ritardo/i al Lotto su TT > di 06 : 8 12 20 30 53 65 83 STATISTICA GENERATA PARTENDO DALLA DATA: 30.01.2016 Hai scelto di fare la statistica su 5 estrazioni successive partendo dalla data 30.01.2016 02.02.2016 numeri usciti: 20 83 04.02.2016 numeri usciti: 87 83 06.02.2016 numeri usciti: 87 33 12 53 65 83 09.02.2016 numeri usciti: 03 12 11.02.2016 numeri usciti: 03 83 Fine statistica su estrazione del 30.01.2016

non capisco quanti sono i numeri damettere in gioco?
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 24 gennaio 2025
    Bari
    67
    35
    46
    60
    43
    Cagliari
    09
    24
    58
    03
    62
    Firenze
    52
    68
    17
    40
    80
    Genova
    58
    85
    12
    49
    52
    Milano
    87
    04
    59
    54
    52
    Napoli
    32
    90
    61
    22
    23
    Palermo
    65
    14
    17
    75
    60
    Roma
    61
    68
    64
    09
    19
    Torino
    57
    19
    08
    01
    78
    Venezia
    90
    16
    66
    18
    50
    Nazionale
    57
    56
    33
    25
    38
    Estrazione Simbolotto
    Bari
    19
    23
    25
    34
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto