Novità

Per pfca SerieRitardo (?) Script Cinquina progr

fillotto

fillotto

Advanced Member >PLATINUM<
Innanzi tutto ringrazio per l'ultima volta che mi hai aiutato , ma essendo adesso con una connessione chiavetta trovo snervante aspettare tanto tempo e rcominciare ogni volta.
Questa volta avrei bisogno di capire come si usa la funzione
SerieRitardo allego uno script in cui mi prefiggo quanto segue:
Prendo il penultimo 1° estratto e vedo come si è evoluto rispetto al terzultimo 1° estratto esempio:
terultima estrazione di BA 1° = 10
penultima "" " " 1° = 08
a questo punto sappiamo che la "distanza" è 2 ma la distanza opera indietro e avanti per cui io dico che il primo estratto della terzultima estrazione si è evoluto aumentandosi di 88 tanto da essere diventato = 8 infatti 10+88 fuori90 è = ad 8
Detto questo vado ad aggiunge al 1° estratto dell'ultima estazione di BA (esempio a 35 diventando così 33 ) .... faccio questo procedimento x gli altri 4 estratti cosi da ottenere una cinquina
che come vedete dallo script ha discreti risultati e, a mio parere, una certa logica .
Ora vorrei aggiungere una condizione che so .. quando i numeri della cinquina presentano dei ritardi sincroni allora giocare la cinquina x ambo o giocare i due numeri della cinquina che hanno lo stesso ritardo per ambata.... o altro ma devo capire come ottenere la "SerieRitardo" ecco lo script:
Sub Main
Scrivi String(70,"=") & "by Fillotto" & String(70,"=")

Dim rt(1),pta(2),nr(5),es
Dim Ini,fin,k,casi,pri,pos
Dim aa(1),bb(1),cc(1),dd(1),ee(1)
rs = InputBox("Quante estrazioni controllo?","Estrazioni",125)
Ini = EstrazioneFin - rs
fin = EstrazioneFin - 10
For es = Ini To fin
Messaggio es
a = Fuori90(Estratto(es - 1,1,1) + 90 - Estratto(es - 2,1,1))
b = Fuori90(Estratto(es - 1,1,2) + 90 - Estratto(es - 2,1,2))
c = Fuori90(Estratto(es - 1,1,3) + 90 - Estratto(es - 2,1,3))
d = Fuori90(Estratto(es - 1,1,4) + 90 - Estratto(es - 2,1,4))
e = Fuori90(Estratto(es - 1,1,5) + 90 - Estratto(es - 2,1,5))


nr(1) = Fuori90(Estratto(es,1,1) + a)
nr(2) = Fuori90(Estratto(es,1,2) + b)
nr(3) = Fuori90(Estratto(es,1,3) + c)
nr(4) = Fuori90(Estratto(es,1,4) + d)
nr(5) = Fuori90(Estratto(es,1,5) + e)

rt(1) = 1 : pta(2) = 1 : k = 13
casi = casi + 1
aa(1) = nr(1)
bb(1) = nr(2)
cc(1) = nr(3)
dd(1) = nr(4)
ee(1) = nr(5)
'For n = Ini To fin
ra1 = SerieRitardo(Ini,n,aa,1,1)'argomenti sereritardo (Inizio,fine,Vettore contenente i numeri della combinazione,Vettore che contiene gli identificativi numerici delel ruote da analizzare
'Sorte da analizzare da 1 a 5 estratto da 6 a 10 per estratto determinato
ra2 = SerieRitardo(Ini,n,bb,1,1)
ra3 = SerieRitardo(Ini,n,cc,1,1)
ra4 = SerieRitardo(Ini,n,dd,1,1)
ra5 = SerieRitardo(Ini,n,ee,1,1)
Scrivi String(70,"=") & " Caso n° " & casi,1
ColoreTesto 2:Scrivi "Ritardo x Ambata del numero = " & FormatSpace(aa(1),2) & " Rit.: " & Format2(ra1)
ColoreTesto 2:Scrivi "Ritardo x Ambata del numero = " & FormatSpace(bb(1),2) & " Rit.: " & Format2(ra2)
ColoreTesto 2:Scrivi "Ritardo x Ambata del numero = " & FormatSpace(cc(1),2) & " Rit.: " & Format2(ra3)
ColoreTesto 2:Scrivi "Ritardo x Ambata del numero = " & FormatSpace(dd(1),2) & " Rit.: " & Format2(ra4)
ColoreTesto 2:Scrivi "Ritardo x Ambata del numero = " & FormatSpace(ee(1),2) & " Rit.: " & Format2(ra5):ColoreTesto 0
'Next
Scrivi DataEstrazione(es - 2) & " " & SiglaRuota(1) & " Terzultima " & StringaEstratti(es - 2,1,"-")
Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(1) & " Penultima " & StringaEstratti(es - 1,1,"-")
Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " Ultima " & StringaEstratti(es,1,"-")
Scrivi"""Numeri più"" rilevati " & a & "-" & b & "-" & c & "-" & d & "-" & e 'numeri più sta x numeri che verranno addizionati fuori90 all'ultima estraz
EliminaRipetuti(nr)
ImpostaGiocata 1,nr,rt,pta,k,2
Gioca es
'Next

Next
Scrivi
Scrivi "Casi totali (" & casi & ")",1
Scrivi String(70,"=") & "by Fillotto" & String(70,"=")

ScriviResoconto

End Sub
 
Ciao Fillotto nel tuo script per il codice serieritardo c'era a mio avviso il seguente errore

'For n = Ini To fin
ra1 = SerieRitardo(Ini,n,aa,1,1)

(n) non ha nessun codice identidicativo infatti e azzerato dagli apici

il codice corretto è:

ra1 = SerieRitardo(Ini,fin,aa,rt,1)' inizio,fine,vetnumero,vetruote,sorte
Tieni presente che il ritardo attuale e quello di 10 estrazioni indietro come da tua istruzione
fin = EstrazioneFin - 10

ciao Mike58
'-------------------------

Codice: 
Sub Main
	Scrivi String(70,"=") & "by Fillotto" & String(70,"=")
	Dim rt(1),pta(2),nr(5),es
	Dim Ini,fin,k,casi,pri,pos
	Dim aa(1),bb(1),cc(1),dd(1),ee(1)
	rs = InputBox("Quante estrazioni controllo?","Estrazioni",125)
	Ini = EstrazioneFin - rs
	fin = EstrazioneFin - 10
	For es = Ini To fin
		Messaggio es
		a = Fuori90(Estratto(es - 1,1,1) + 90 - Estratto(es - 2,1,1))
		b = Fuori90(Estratto(es - 1,1,2) + 90 - Estratto(es - 2,1,2))
		c = Fuori90(Estratto(es - 1,1,3) + 90 - Estratto(es - 2,1,3))
		d = Fuori90(Estratto(es - 1,1,4) + 90 - Estratto(es - 2,1,4))
		e = Fuori90(Estratto(es - 1,1,5) + 90 - Estratto(es - 2,1,5))
		nr(1) = Fuori90(Estratto(es,1,1) + a)
		nr(2) = Fuori90(Estratto(es,1,2) + b)
		nr(3) = Fuori90(Estratto(es,1,3) + c)
		nr(4) = Fuori90(Estratto(es,1,4) + d)
		nr(5) = Fuori90(Estratto(es,1,5) + e)
		rt(1) = 1
		pta(2) = 1
		k = 13
		casi = casi + 1
		aa(1) = nr(1)
		bb(1) = nr(2)
		cc(1) = nr(3)
		dd(1) = nr(4)
		ee(1) = nr(5)
		'For n = Ini To fin
		ra1 = SerieRitardo(Ini,fin,aa,rt,1)'argomenti sereritardo (Inizio,fine,Vettore contenente i numeri della combinazione,Vettore che contiene gli identificativi numerici delel ruote da analizzare
		'Sorte da analizzare da 1 a 5 estratto da 6 a 10 per estratto determinato
		ra2 = SerieRitardo(Ini,fin,bb,rt,1)
		ra3 = SerieRitardo(Ini,fin,cc,rt,1)
		ra4 = SerieRitardo(Ini,fin,dd,rt,1)
		ra5 = SerieRitardo(Ini,fin,ee,rt,1)
		Scrivi String(70,"=") & " Caso n° " & casi,1
		ColoreTesto 2
		Scrivi "Ritardo x Ambata del numero = " & FormatSpace(aa(1),2) & " Rit.: " & Format2(ra1)
		ColoreTesto 2
		Scrivi "Ritardo x Ambata del numero = " & FormatSpace(bb(1),2) & " Rit.: " & Format2(ra2)
		ColoreTesto 2
		Scrivi "Ritardo x Ambata del numero = " & FormatSpace(cc(1),2) & " Rit.: " & Format2(ra3)
		ColoreTesto 2
		Scrivi "Ritardo x Ambata del numero = " & FormatSpace(dd(1),2) & " Rit.: " & Format2(ra4)
		ColoreTesto 2
		Scrivi "Ritardo x Ambata del numero = " & FormatSpace(ee(1),2) & " Rit.: " & Format2(ra5)
		ColoreTesto 0
		'Next
		Scrivi DataEstrazione(es - 2) & " " & SiglaRuota(1) & " Terzultima " & StringaEstratti(es - 2,1,"-")
		Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(1) & " Penultima " & StringaEstratti(es - 1,1,"-")
		Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " Ultima " & StringaEstratti(es,1,"-")
		Scrivi"""Numeri più"" rilevati " & a & "-" & b & "-" & c & "-" & d & "-" & e 'numeri più sta x numeri che verranno addizionati fuori90 all'ultima estraz
		EliminaRipetuti(nr)
		ImpostaGiocata 1,nr,rt,pta,k,2
		Gioca es
		'Next
	Next
	Scrivi
	Scrivi "Casi totali (" & casi & ")",1
	Scrivi String(70,"=") & "by Fillotto" & String(70,"=")
	ScriviResoconto
End Sub
 
Ciao Mike 58 ho cercato di capire qualche cosa ma non riesco a fare in modo che il ritardo dei numeri sia NON QUELLO ATTUALE ma quello RELATIVO ALLA ESTRAZIONE GENERATRICE inoltre volendo anche trovare il "RitardoCombinazione" riesco solo a trovarlo in modo errato ovvero quello relarivo all'attuale(solo mettendo dei valori) e non quello RELATIVO ALLA ESTRAZIONE [green]RELATIVO ALLA ESTRAZIONE GENERATRICE
Ti metto dove sono arrivato
Sub Main
Scrivi String(70,"=") & "by Fillotto" & String(70,"=")
Dim rt(1),pta(2),nr(5),es
Dim Ini,fin,k,casi,pri,pos
Dim aa(1),bb(1),cc(1),dd(1),ee(1)
ReDim art(1)
ReDim anr(5)
art(1) = 1
anr(1) = 8
anr(2) = 87
anr(3) = 24
anr(4) = 40
anr(5) = 16
rs = InputBox("Quante estrazioni controllo?","Estrazioni",125)
Ini = EstrazioneFin - rs
fin = EstrazioneFin
For es = Ini To fin
Messaggio es
a = Fuori90(Estratto(es - 1,1,1) + 90 - Estratto(es - 2,1,1)) 'è il " numero più " del 1° estratto
b = Fuori90(Estratto(es - 1,1,2) + 90 - Estratto(es - 2,1,2)) 'è il " numero più " del 2° estratto
c = Fuori90(Estratto(es - 1,1,3) + 90 - Estratto(es - 2,1,3)) 'è il " numero più " del 3° estratto
d = Fuori90(Estratto(es - 1,1,4) + 90 - Estratto(es - 2,1,4)) 'è il " numero più " del 4° estratto
e = Fuori90(Estratto(es - 1,1,5) + 90 - Estratto(es - 2,1,5)) 'è il " numero più " del 5° estratto

nr(1) = Fuori90(Estratto(es,1,1) + a) ' è l'effettivo 1° numero da giocare
nr(2) = Fuori90(Estratto(es,1,2) + b) ' è l'effettivo 2° numero da giocare
nr(3) = Fuori90(Estratto(es,1,3) + c) ' è l'effettivo 3° numero da giocare
nr(4) = Fuori90(Estratto(es,1,4) + d) ' è l'effettivo 4° numero da giocare
nr(5) = Fuori90(Estratto(es,1,5) + e) ' è l'effettivo 5° numero da giocare

rt(1) = 1
pta(2) = 1
k = 13
casi = casi + 1
aa(1) = nr(1)
bb(1) = nr(2)
cc(1) = nr(3)
dd(1) = nr(4)
ee(1) = nr(5)
'For n = Ini To fin
ra1 = SerieRitardo(Ini,fin,aa,rt,1)'argomenti sereritardo (Inizio,fine,Vettore contenente i numeri della combinazione,Vettore che contiene gli identificativi numerici delel ruote da analizzare
'Sorte da analizzare da 1 a 5 estratto da 6 a 10 per estratto determinato
ra2 = SerieRitardo(Ini,fin,bb,rt,1)
ra3 = SerieRitardo(Ini,fin,cc,rt,1)
ra4 = SerieRitardo(Ini,fin,dd,rt,1)
ra5 = SerieRitardo(Ini,fin,ee,rt,1)
aritcombi =(ra)
raglob =(ra1 + ra2 + ra3 + ra4 + ra5)
If raglob > 100 Then
Scrivi String(70,"=") & " Caso n° " & casi,1
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(aa(1),2) & " Rit.: " & Format2(ra1)
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(bb(1),2) & " Rit.: " & Format2(ra2)
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(cc(1),2) & " Rit.: " & Format2(ra3)
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(dd(1),2) & " Rit.: " & Format2(ra4)
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(ee(1),2) & " Rit.: " & Format2(ra5)
ColoreTesto 0

'Next
Scrivi DataEstrazione(es - 2) & " " & SiglaRuota(1) & " Terzultima " & StringaEstratti(es - 2,1,"-")
Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(1) & " Penultima " & StringaEstratti(es - 1,1,"-")
Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " Ultima " & StringaEstratti(es,1,"-")
Scrivi"""Numeri più"" rilevati " & a & "-" & b & "-" & c & "-" & d & "-" & e 'numeri più sta x numeri che verranno addizionati fuori90 all'ultima estraz
Scrivi"ritardo della cinquina x ambo=" & RitardoCombinazione(art,anr,2)
EliminaRipetuti(nr)


ImpostaGiocata 1,nr,rt,pta,k,2

Gioca es
End If
Next

Scrivi
Scrivi "Casi totali (" & casi & ")",1
Scrivi String(70,"=") & "by Fillotto" & String(70,"=")
ScriviResoconto
End Sub
 
Ciao Fill, questa volta non riesco ad aiutarti in modo esauriente
pensavo di arrivarci cambiando nella
serieritardo(es-90,fin,numero,ruota,sorte)
ma nel tuo di script non mi funziona

io ti allego un esempio della stessa istruzione funzionante
forse oggi ho finito le pile.... e non connetto +
vedi tu se riesci...


Sub Main()

Scrivi String(25," = ") & " terzina per Ambo e Terno a Tutte = = = = = = = = = = = = = =",2
Dim ruote(11)
Dim numeri1(3)
Dim poste(3)

poste(2) = 4
poste(3) = 1

ri = InputBox("Scrivi quì sotto da che data inizio a controllare.","DATA","31/12/2009")
xx = InputBox("ruota dove analizzare","1 - 10",1)

ruote(11) = TU_
k = 6

For es = PrimaSuccessiva(ri) To EstrazioneFin
If IndiceMensile(es) = 1 Then
co = co + 1
ColoreTesto 7

numeri1(1) = Fuori90(Estratto(n,xx,1) + 3)
numeri1(2) = Fuori90(Estratto(n,xx,1) + 18) '
numeri1(3) = Fuori90(Estratto(n,xx,1) + 37)

Scrivi String(80,"= ") & " Caso n°" & co,2
Messaggio "elab. del " & DataEstrazione(n)
RitAmboTutte = SerieRitardo(es - 90,es,numeri1,ruote,2) ' elabora ritardo a tutte al momento della previsione'
frequenzaAmboTutte = SerieFreq(es - 90,es,numeri1,ruote,2) ' elabora frequenza a tutte '
RitAttuale = SerieRitardo(EstrazioneIni,EstrazioneFin,numeri1,ruote,2)
ColoreTesto 1
Scrivi "Il ritardo per tutte dell'ambo al momento della pevisione è : " & RitAmboTutte,1
Scrivi"serie frequenza dell'ambo per tutte dall'estrazione esaminata e : " & frequenzaAmboTutte,2
ColoreTesto 2
Scrivi "ritardo della previsione alla data attuale °°°°°°°°°°°°°°°°°°°°°°°°°° e: " & RitAttuale,2
ColoreTesto 0

Scrivi String(80,"= ") ,2
ImpostaGiocata 1,numeri1,ruote,poste,k

Gioca es
End If
Next

ScriviResoconto


End Sub
 
Ciao Fillotto a mente riposata ho rivisto un po quello che era il tuo quesito e questo è il risultato.

Prova a vedere se ti può andare bene.
ps. il tuo ritardocombinazione sarà sempre quel totale perchè è una serie fissa.

Sub Main
Scrivi String(70,"=") & "by Fillotto" & String(70,"=")
Dim rt(1),pta(2),nr(5),es
Dim Ini,fin,k,casi,pri,pos
Dim aa(1),bb(1),cc(1),dd(1),ee(1)
ReDim art(1)
ReDim anr(5)
art(1) = 1
anr(1) = 8
anr(2) = 87
anr(3) = 24
anr(4) = 40
anr(5) = 16
rs = InputBox("Quante estrazioni controllo?","Estrazioni",125)
Ini = EstrazioneFin - rs
fin = EstrazioneFin
For es = Ini To fin
Messaggio es
a = Fuori90(Estratto(es - 1,1,1) + 90 - Estratto(es - 2,1,1)) 'è il " numero più " del 1° estratto
b = Fuori90(Estratto(es - 1,1,2) + 90 - Estratto(es - 2,1,2)) 'è il " numero più " del 2° estratto
c = Fuori90(Estratto(es - 1,1,3) + 90 - Estratto(es - 2,1,3)) 'è il " numero più " del 3° estratto
d = Fuori90(Estratto(es - 1,1,4) + 90 - Estratto(es - 2,1,4)) 'è il " numero più " del 4° estratto
e = Fuori90(Estratto(es - 1,1,5) + 90 - Estratto(es - 2,1,5)) 'è il " numero più " del 5° estratto

nr(1) = Fuori90(Estratto(es,1,1) + a) ' è l'effettivo 1° numero da giocare
nr(2) = Fuori90(Estratto(es,1,2) + b) ' è l'effettivo 2° numero da giocare
nr(3) = Fuori90(Estratto(es,1,3) + c) ' è l'effettivo 3° numero da giocare
nr(4) = Fuori90(Estratto(es,1,4) + d) ' è l'effettivo 4° numero da giocare
nr(5) = Fuori90(Estratto(es,1,5) + e) ' è l'effettivo 5° numero da giocare

rt(1) = 1
pta(2) = 1
k = 13
casi = casi + 1
aa(1) = nr(1)
bb(1) = nr(2)
cc(1) = nr(3)
dd(1) = nr(4)
ee(1) = nr(5)

ra10 = SerieRitardo(es - 90,es,aa,rt,1)
ra1 = SerieRitardo(Ini,fin,aa,rt,1)'argomenti sereritardo (Inizio,fine,Vettore contenente i numeri della combinazione,Vettore che contiene gli identificativi numerici delel ruote da analizzare
'Sorte da analizzare da 1 a 5 estratto da 6 a 10 per estratto determinato
ra2 = SerieRitardo(Ini,fin,bb,rt,1)
ra20 = SerieRitardo(es-90,es,bb,rt,1)

ra3 = SerieRitardo(Ini,fin,cc,rt,1)
ra30 = SerieRitardo(es-90,es,cc,rt,1)

ra4 = SerieRitardo(Ini,fin,dd,rt,1)
ra40 = SerieRitardo(es-90,es,dd,rt,1)

ra5 = SerieRitardo(Ini,fin,ee,rt,1)
ra50 = SerieRitardo(es-90,es,ee,rt,1)

aritcombi =(ra)
raglob =(ra1 + ra2 + ra3 + ra4 + ra5)
If raglob > 100 Then

combinazione = RitardoCombinazione(rt,anr,2)
combinumeri = RitardoCombinazione(rt,nr,2)

Scrivi String(70,"=") & " Caso n° " & casi,1
ColoreTesto 2

Scrivi "Ritardo x Ambata del numero = " & FormatSpace(aa(1),2) & " Rit.: " & Format2(ra1) & " - Ritardo al momento della previsione = " & Format2(ra10)
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(bb(1),2) & " Rit.: " & Format2(ra2) & " - Ritardo al momento della previsione = " & Format2(ra20)
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(cc(1),2) & " Rit.: " & Format2(ra3) & " - Ritardo al momento della previsione = " & Format2(ra30)
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(dd(1),2) & " Rit.: " & Format2(ra4) & " - Ritardo al momento della previsione = " & Format2(ra40)
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(ee(1),2) & " Rit.: " & Format2(ra5) & " - Ritardo al momento della previsione = " & Format2(ra50)

ColoreTesto 0


Scrivi DataEstrazione(es - 2) & " " & SiglaRuota(1) & " Terzultima " & StringaEstratti(es - 2,1,"-")
Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(1) & " Penultima " & StringaEstratti(es - 1,1,"-")
Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " Ultima " & StringaEstratti(es,1,"-")
Scrivi"""Numeri più"" rilevati " & a & "-" & b & "-" & c & "-" & d & "-" & e 'numeri più sta x numeri che verranno addizionati fuori90 all'ultima estraz
Scrivi"********** cinquina " & StringaNumeri(anr) & " - il suo ritardo per ambo è ... " & combinazione
Scrivi"****numeri cinquina " & StringaNumeri(nr) & " - il suo ritardo per ambo è ... " & combinumeri

EliminaRipetuti(nr)


ImpostaGiocata 1,nr,rt,pta,k,2

Gioca es
End If
Next

Scrivi
Scrivi "Casi totali (" & casi & ")",1
Scrivi String(70
 
Ciao MIKE GRAZIE per l'interessamento
nel tuo ultimo script c'è un errore metti in gioco dei numeri che non sono quelli voluti, basta vedere l'output comunque dal tuo penultimo script ho tratto dei consigli che mi hanno fatto fare dei passi in avanti
e di sotto ti metto lo script che sembra ottimo io ho messo la condizione che se i ritardi RELATIVI all'estraz di rilevamento dei 5 num da giocare sono + di 100
in totale allora gioco aumentando l'arco delle estrazioni resta positivo e considera che l'unica condizione è che i 5 num da giocare superino 100 di ritardo in complesso
Mi rimane da sapere come fare per vedere il ritardo della combinazione dei 5 numeri non mi riesce ancora ecco lo script:
Sub Main
Scrivi String(70,"=") & "by Fillotto" & String(70,"=")
Dim rt(1),pta(2),nr(5),es
Dim Ini,fin,k,casi,pri,pos
Dim aa(1),bb(1),cc(1),dd(1),ee(1)
ReDim art(1)
ReDim anr(5)
art(1) = 1
anr(1) = aa(1)
anr(2) = bb(1)
anr(3) = cc(1)
anr(4) = dd(1)
anr(5) = ee(1)
rs = InputBox("Quante estrazioni controllo?","Estrazioni",125)
Ini = EstrazioneFin - rs
fin = EstrazioneFin
For es = Ini To fin
Messaggio es
a = Fuori90(Estratto(es - 1,1,1) + 90 - Estratto(es - 2,1,1)) 'è il " numero più " del 1° estratto
b = Fuori90(Estratto(es - 1,1,2) + 90 - Estratto(es - 2,1,2)) 'è il " numero più " del 2° estratto
c = Fuori90(Estratto(es - 1,1,3) + 90 - Estratto(es - 2,1,3)) 'è il " numero più " del 3° estratto
d = Fuori90(Estratto(es - 1,1,4) + 90 - Estratto(es - 2,1,4)) 'è il " numero più " del 4° estratto
e = Fuori90(Estratto(es - 1,1,5) + 90 - Estratto(es - 2,1,5)) 'è il " numero più " del 5° estratto

nr(1) = Fuori90(Estratto(es,1,1) + a) ' è l'effettivo 1° numero da giocare
nr(2) = Fuori90(Estratto(es,1,2) + b) ' è l'effettivo 2° numero da giocare
nr(3) = Fuori90(Estratto(es,1,3) + c) ' è l'effettivo 3° numero da giocare
nr(4) = Fuori90(Estratto(es,1,4) + d) ' è l'effettivo 4° numero da giocare
nr(5) = Fuori90(Estratto(es,1,5) + e) ' è l'effettivo 5° numero da giocare

rt(1) = 1
pta(2) = 1
k = 10
casi = casi + 1
aa(1) = nr(1)
bb(1) = nr(2)
cc(1) = nr(3)
dd(1) = nr(4)
ee(1) = nr(5)
'For n = Ini To fin
ra1 = SerieRitardo(es - 390,es,aa,rt,1)'argomenti sereritardo (Inizio,fine,Vettore contenente i numeri della combinazione,Vettore che contiene gli identificativi numerici delel ruote da analizzare
'Sorte da analizzare da 1 a 5 estratto da 6 a 10 per estratto determinato
ra2 = SerieRitardo(es - 390,es,bb,rt,1)
ra3 = SerieRitardo(es - 390,es,cc,rt,1)
ra4 = SerieRitardo(es - 390,es,dd,rt,1)
ra5 = SerieRitardo(es - 390,es,ee,rt,1)
combi = SerieRitardo(es - 1390,es,anr,rt,2)
aritcombi =(ra)
raglob =(ra1 + ra2 + ra3 + ra4 + ra5)
If raglob > 100 Then
Scrivi String(70,"=") & " Caso n° " & casi,1
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(aa(1),2) & " Rit.: " & Format2(ra1)
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(bb(1),2) & " Rit.: " & Format2(ra2)
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(cc(1),2) & " Rit.: " & Format2(ra3)
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(dd(1),2) & " Rit.: " & Format2(ra4)
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(ee(1),2) & " Rit.: " & Format2(ra5)
ColoreTesto 0

'Next
Scrivi DataEstrazione(es - 2) & " " & SiglaRuota(1) & " Terzultima " & StringaEstratti(es - 2,1,"-")
Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(1) & " Penultima " & StringaEstratti(es - 1,1,"-")
Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " Ultima " & StringaEstratti(es,1,"-")
Scrivi"""Numeri più"" rilevati " & a & "-" & b & "-" & c & "-" & d & "-" & e 'numeri più sta x numeri che verranno addizionati fuori90 all'ultima estraz
Scrivi"ritardo della cinquina x ambo=" & combi
EliminaRipetuti(nr)


ImpostaGiocata 1,nr,rt,pta,k,2

Gioca es
End If
Next

Scrivi
Scriv
 
Ciao Fill, ci stiamo un po ingarbugliando la serie ritardo che devi cercare è la serie di numeri che metti in gioco.
Se si... non devi dichierarli come ANR ma bensi come NR.nella serie ritardo x ambo.

Devi considerare per un miglior confronto se il risultato è giusto o meno le ultime estrazioni generatrici .

esempio penultima estrazione generatrice hai un valore di ritardo al momento della previsione di 85 incrementato di 6 estrazioni giocate fino ad ottenere il ritardo attuale di 91.

fai il confronto...........


Sub Main
Scrivi String(70,"=") & "by Fillotto" & String(70,"=")
Dim rt(1),pta(2),nr(5),es
Dim Ini,fin,k,casi,pri,pos
Dim aa(1),bb(1),cc(1),dd(1),ee(1)
ReDim art(1)
ReDim anr(5)
art(1) = 1
anr(1) = aa(1)
anr(2) = bb(1)
anr(3) = cc(1)
anr(4) = dd(1)
anr(5) = ee(1)
rs = InputBox("Quante estrazioni controllo?","Estrazioni",125)
Ini = EstrazioneFin - rs
fin = EstrazioneFin
For es = Ini To fin
Messaggio es
a = Fuori90(Estratto(es - 1,1,1) + 90 - Estratto(es - 2,1,1)) 'è il " numero più " del 1° estratto
b = Fuori90(Estratto(es - 1,1,2) + 90 - Estratto(es - 2,1,2)) 'è il " numero più " del 2° estratto
c = Fuori90(Estratto(es - 1,1,3) + 90 - Estratto(es - 2,1,3)) 'è il " numero più " del 3° estratto
d = Fuori90(Estratto(es - 1,1,4) + 90 - Estratto(es - 2,1,4)) 'è il " numero più " del 4° estratto
e = Fuori90(Estratto(es - 1,1,5) + 90 - Estratto(es - 2,1,5)) 'è il " numero più " del 5° estratto

nr(1) = Fuori90(Estratto(es,1,1) + a) ' è l'effettivo 1° numero da giocare
nr(2) = Fuori90(Estratto(es,1,2) + b) ' è l'effettivo 2° numero da giocare
nr(3) = Fuori90(Estratto(es,1,3) + c) ' è l'effettivo 3° numero da giocare
nr(4) = Fuori90(Estratto(es,1,4) + d) ' è l'effettivo 4° numero da giocare
nr(5) = Fuori90(Estratto(es,1,5) + e) ' è l'effettivo 5° numero da giocare

rt(1) = 1
pta(2) = 1
k = 10
casi = casi + 1
aa(1) = nr(1)
bb(1) = nr(2)
cc(1) = nr(3)
dd(1) = nr(4)
ee(1) = nr(5)
'For n = Ini To fin
ra1 = SerieRitardo(es - 390,es,aa,rt,1)'argomenti sereritardo (Inizio,fine,Vettore contenente i numeri della combinazione,Vettore che contiene gli identificativi numerici delel ruote da analizzare
'Sorte da analizzare da 1 a 5 estratto da 6 a 10 per estratto determinato
ra2 = SerieRitardo(es - 390,es,bb,rt,1)
ra3 = SerieRitardo(es - 390,es,cc,rt,1)
ra4 = SerieRitardo(es - 390,es,dd,rt,1)
ra5 = SerieRitardo(es - 390,es,ee,rt,1)
combi = SerieRitardo(Ini,fin,nr,rt,2)
combi2 = SerieRitardo(es-90,es,nr,rt,2)
aritcombi =(ra)
raglob =(ra1 + ra2 + ra3 + ra4 + ra5)
If raglob > 100 Then
Scrivi String(70,"=") & " Caso n° " & casi,1
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(aa(1),2) & " Rit.: " & Format2(ra1)
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(bb(1),2) & " Rit.: " & Format2(ra2)
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(cc(1),2) & " Rit.: " & Format2(ra3)
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(dd(1),2) & " Rit.: " & Format2(ra4)
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(ee(1),2) & " Rit.: " & Format2(ra5)
ColoreTesto 0

'Next
Scrivi DataEstrazione(es - 2) & " " & SiglaRuota(1) & " Terzultima " & StringaEstratti(es - 2,1,"-")
Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(1) & " Penultima " & StringaEstratti(es - 1,1,"-")
Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " Ultima " & StringaEstratti(es,1,"-")
Scrivi"""Numeri più"" rilevati " & a & "-" & b & "-" & c & "-" & d & "-" & e 'numeri più sta x numeri che verranno addizionati fuori90 all'ultima estraz
ColoreTesto 1
Scrivi "combinazione ---> " & StringaNumeri(nr) & " - ritardo ATTUALE della cinquina x ambo= " & combi
Scrivi "combinazione ---> " & StringaNumeri(nr) & " - ritardo AL MOMENTO DELLA PREVISIONE... della cinquina x ambo= " & combi2
ColoreTesto 0
EliminaRipetuti(nr)


ImpostaGiocata 1,nr,rt,pta,k,2

Gioca es
End If
Next

Scrivi
Scrivi "Casi totali (" & casi & ")",1
Scrivi String(70,"=") & "by Fillotto" & String(70,"=")
Scrivi
 
Si hai ragione , sono riuscito anche a calcolare il ritardo relativo dell'ambo era un parametro che volevo testare, cioè volevo vedere se i numeri ricavati da questo procedimento (che avevano una certa omogenità o sincronismo ) quando avevano dato un ambo prima della data generatrice, è vero che se mettendo un if di >200 ottengo 2 vincite ma ho solo due casi su 126 prove invece l'if sembra essere più vantaggioso metterlo con il ritardo delle 5 ambate ...quando queste 5 ambate hanno un ritardo globale di + di 100 120 estrazioni
allora ci sono un discreto numero di giocate e si va in positivo.
Piuttosto si può cambiare la ruota con un inputbox? Strano ma non ci sono riuscito :( eppure dovrebbe essere facile!! puoi vedere?
Ecco dove sono arrivato
Sub Main
Scrivi String(70,"=") & "by Fillotto" & String(70,"=")
Dim rt(1),pta(2),nr(5),es
Dim Ini,fin,k,casi,pri,pos
Dim aa(1),bb(1),cc(1),dd(1),ee(1)
ReDim art(1)
ReDim anr(5)
art(1) = 1
anr(1) = aa(1)
anr(2) = bb(1)
anr(3) = cc(1)
anr(4) = dd(1)
anr(5) = ee(1)
rs = InputBox("Quante estrazioni controllo?","Estrazioni",125)
Ini = EstrazioneFin - rs
fin = EstrazioneFin
For es = Ini To fin
Messaggio es
a = Fuori90(Estratto(es - 1,1,1) + 90 - Estratto(es - 2,1,1)) 'è il " numero più " del 1° estratto
b = Fuori90(Estratto(es - 1,1,2) + 90 - Estratto(es - 2,1,2)) 'è il " numero più " del 2° estratto
c = Fuori90(Estratto(es - 1,1,3) + 90 - Estratto(es - 2,1,3)) 'è il " numero più " del 3° estratto
d = Fuori90(Estratto(es - 1,1,4) + 90 - Estratto(es - 2,1,4)) 'è il " numero più " del 4° estratto
e = Fuori90(Estratto(es - 1,1,5) + 90 - Estratto(es - 2,1,5)) 'è il " numero più " del 5° estratto

nr(1) = Fuori90(Estratto(es,1,1) + a) ' è l'effettivo 1° numero da giocare
nr(2) = Fuori90(Estratto(es,1,2) + b) ' è l'effettivo 2° numero da giocare
nr(3) = Fuori90(Estratto(es,1,3) + c) ' è l'effettivo 3° numero da giocare
nr(4) = Fuori90(Estratto(es,1,4) + d) ' è l'effettivo 4° numero da giocare
nr(5) = Fuori90(Estratto(es,1,5) + e) ' è l'effettivo 5° numero da giocare

rt(1) = 1
pta(2) = 1
k = 10
casi = casi + 1
aa(1) = nr(1)
bb(1) = nr(2)
cc(1) = nr(3)
dd(1) = nr(4)
ee(1) = nr(5)
'For n = Ini To fin
ra1 = SerieRitardo(es - 250,es,aa,rt,1)'argomenti sereritardo (Inizio,fine,Vettore contenente i numeri della combinazione,Vettore che contiene gli identificativi numerici delel ruote da analizzare
'Sorte da analizzare da 1 a 5 estratto da 6 a 10 per estratto determinato
ra2 = SerieRitardo(es - 250,es,bb,rt,1)
ra3 = SerieRitardo(es - 250,es,cc,rt,1)
ra4 = SerieRitardo(es - 250,es,dd,rt,1)
ra5 = SerieRitardo(es - 250,es,ee,rt,1)
combi = SerieRitardo(es - 450,es,nr,rt,2)


aritcombi =(ra)
raglob =(ra1 + ra2 + ra3 + ra4 + ra5)
If raglob > 100 Then
Scrivi String(70,"=") & " Caso n° " & casi,1
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(aa(1),2) & " Rit.: " & Format2(ra1)
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(bb(1),2) & " Rit.: " & Format2(ra2)
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(cc(1),2) & " Rit.: " & Format2(ra3)
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(dd(1),2) & " Rit.: " & Format2(ra4)
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(ee(1),2) & " Rit.: " & Format2(ra5)
ColoreTesto 0

'Next
Scrivi DataEstrazione(es - 2) & " " & SiglaRuota(1) & " Terzultima " & StringaEstratti(es - 2,1,"-")
Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(1) & " Penultima " & StringaEstratti(es - 1,1,"-")
Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " Ultima " & StringaEstratti(es,1,"-")
Scrivi"""Numeri più"" rilevati " & a & "-" & b & "-" & c & "-" & d & "-" & e 'numeri più sta x numeri che verranno addizionati fuori90 all'ultima estraz
Scrivi"ritardo della cinquina x ambo=" & combi
EliminaRipetuti(nr)


ImpostaGiocata 1,nr,rt,pta,k,2

Gioca es
End If
Next
 
Strano Fill, che non riesci a mettere l'input box per la ruota(anche io in passato fondevo facilmente per riuscire a capire i perchè)

solo 2 istruzioni

r = CInt(InputBox("quale ruota vuoi testare...",,1))
rt(1) = r

Ciao Fill mi raccomando STUDIA!!!

Mike
 
quote:Originally posted by mike58

Strano Fill, che non riesci a mettere l'input box per la ruota(anche io in passato fondevo facilmente per riuscire a capire i perchè)

solo 2 istruzioni

r = CInt(InputBox("quale ruota vuoi testare...",,1))
rt(1) = r

Ciao Fill mi raccomando STUDIA!!!

Mike
Clicca per espandere...
Bo a me non va, pure prima avevo provato cosi come hai detto senza quel CInt e con ruo al posto di r.
Non ci riesco :( quel CInt sta x ?
sicuro che devo mettere solo quelle 2 istruzioni?
 
Fill, c'è la possiamo fare il Cint serve per definire l'inputbox in formato numerico ed è utile quando utilizzi input box per fare dei calcoli mentre senza il cint l'istruzione viene letta come stringa contenente una informazione.
Non capisco dov'è che non ti funziona con le due istruzioni forse dipende da dove li inserisci?


'------------------tuo script----------------------
Sub Main
Scrivi String(70,"=") & "by Fillotto" & String(70,"=")
Dim rt(1),pta(2),nr(5),es
Dim Ini,fin,k,casi,pri,pos
Dim aa(1),bb(1),cc(1),dd(1),ee(1)
ReDim art(1)
ReDim anr(5)
art(1) = 1
anr(1) = aa(1)
anr(2) = bb(1)
anr(3) = cc(1)
anr(4) = dd(1)
anr(5) = ee(1)
rs = InputBox("Quante estrazioni controllo?","Estrazioni",125)
r = InputBox("quale ruota vuoi testare...",,1)


Ini = EstrazioneFin - rs
fin = EstrazioneFin
For es = Ini To fin
Messaggio es
a = Fuori90(Estratto(es - 1,1,1) + 90 - Estratto(es - 2,1,1)) 'è il " numero più " del 1° estratto
b = Fuori90(Estratto(es - 1,1,2) + 90 - Estratto(es - 2,1,2)) 'è il " numero più " del 2° estratto
c = Fuori90(Estratto(es - 1,1,3) + 90 - Estratto(es - 2,1,3)) 'è il " numero più " del 3° estratto
d = Fuori90(Estratto(es - 1,1,4) + 90 - Estratto(es - 2,1,4)) 'è il " numero più " del 4° estratto
e = Fuori90(Estratto(es - 1,1,5) + 90 - Estratto(es - 2,1,5)) 'è il " numero più " del 5° estratto

nr(1) = Fuori90(Estratto(es,1,1) + a) ' è l'effettivo 1° numero da giocare
nr(2) = Fuori90(Estratto(es,1,2) + b) ' è l'effettivo 2° numero da giocare
nr(3) = Fuori90(Estratto(es,1,3) + c) ' è l'effettivo 3° numero da giocare
nr(4) = Fuori90(Estratto(es,1,4) + d) ' è l'effettivo 4° numero da giocare
nr(5) = Fuori90(Estratto(es,1,5) + e) ' è l'effettivo 5° numero da giocare

rt(1) = r
pta(2) = 1
k = 10
casi = casi + 1
aa(1) = nr(1)
bb(1) = nr(2)
cc(1) = nr(3)
dd(1) = nr(4)
ee(1) = nr(5)
'For n = Ini To fin
ra1 = SerieRitardo(es - 250,es,aa,rt,1)'argomenti sereritardo (Inizio,fine,Vettore contenente i numeri della combinazione,Vettore che contiene gli identificativi numerici delel ruote da analizzare
'Sorte da analizzare da 1 a 5 estratto da 6 a 10 per estratto determinato
ra2 = SerieRitardo(es - 250,es,bb,rt,1)
ra3 = SerieRitardo(es - 250,es,cc,rt,1)
ra4 = SerieRitardo(es - 250,es,dd,rt,1)
ra5 = SerieRitardo(es - 250,es,ee,rt,1)
combi = SerieRitardo(es - 450,es,nr,rt,2)


aritcombi =(ra)
raglob =(ra1 + ra2 + ra3 + ra4 + ra5)
If raglob > 100 Then
Scrivi String(70,"=") & " Caso n° " & casi,1
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(aa(1),2) & " Rit.: " & Format2(ra1)
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(bb(1),2) & " Rit.: " & Format2(ra2)
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(cc(1),2) & " Rit.: " & Format2(ra3)
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(dd(1),2) & " Rit.: " & Format2(ra4)
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(ee(1),2) & " Rit.: " & Format2(ra5)
ColoreTesto 0

'Next
Scrivi DataEstrazione(es - 2) & " " & SiglaRuota(1) & " Terzultima " & StringaEstratti(es - 2,1,"-")
Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(1) & " Penultima " & StringaEstratti(es - 1,1,"-")
Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " Ultima " & StringaEstratti(es,1,"-")
Scrivi"""Numeri più"" rilevati " & a & "-" & b & "-" & c & "-" & d & "-" & e 'numeri più sta x numeri che verranno addizionati fuori90 all'ultima estraz
Scrivi"ritardo della cinquina x ambo=" & combi
EliminaRipetuti(nr)


ImpostaGiocata 1,nr,rt,pta,k,2

Gioca es
End If
Next

Scrivi
Scrivi "Casi totali (" & casi & ")",1
Scrivi String(70,"=") & "by Fillotto" & String(70,"=")
ScriviResoconto
End Sub
 
Aggiungo un'ultima cosa se usi option explicit devi dichiarare tutte le variabili anche R di input box, mentre se lo togli non è necessario.

Ciao forse era questo che non ti faceva funzionare gli script.

Mike58
 
quote:Originally posted by mike58

Aggiungo un'ultima cosa se usi option explicit devi dichiarare tutte le variabili anche R di input box, mentre se lo togli non è necessario.

Ciao forse era questo che non ti faceva funzionare gli script.

Mike58
Clicca per espandere...
Grazie mike adesso funziona, era la 2^ istruzione che mettevo subito dopo la prima che non piazzavo bene!!!
 
Ciao Mike e a tutti quelli che hanno seguito, ho fatto qualche modifica e penso che, per quanto mi riguarda questa è la versione finale ; ho aggiunto un altro inputbox per scegliere la ruota dove vengono fatti i conti x ricavare i fuori90 e ho messo in evidenza
nell'output tutti i parametri possibili affinchè tutti possano fare delle proprie considerazioni
Sub Main
Scrivi String(70,"=") & "by Fillotto & Mike58" & String(70,"=")
Dim rt(1),pta(2),nr(5),es
Dim Ini,fin,k,casi,pri,pos
Dim aa(1),bb(1),cc(1),dd(1),ee(1)
ReDim art(1)
ReDim anr(5)
art(1) = 1
anr(1) = aa(1)
anr(2) = bb(1)
anr(3) = cc(1)
anr(4) = dd(1)
anr(5) = ee(1)
rs = InputBox("Quante estrazioni controllo?","Estrazioni",125)
r = InputBox("quale ruota vuoi testare.(e conteggio i ritardi dei num fuori 90..",,1)
z = InputBox("su quale ruota fare i conti...",,1)


Ini = EstrazioneFin - rs
fin = EstrazioneFin
For es = Ini To fin
Messaggio es
a = Fuori90(Estratto(es - 1,z,1) + 90 - Estratto(es - 2,z,1)) 'è il " numero più " del 1° estratto
b = Fuori90(Estratto(es - 1,z,2) + 90 - Estratto(es - 2,z,2)) 'è il " numero più " del 2° estratto
c = Fuori90(Estratto(es - 1,z,3) + 90 - Estratto(es - 2,z,3)) 'è il " numero più " del 3° estratto
d = Fuori90(Estratto(es - 1,z,4) + 90 - Estratto(es - 2,z,4)) 'è il " numero più " del 4° estratto
e = Fuori90(Estratto(es - 1,z,5) + 90 - Estratto(es - 2,z,5)) 'è il " numero più " del 5° estratto

nr(1) = Fuori90(Estratto(es,z,1) + a) ' è l'effettivo 1° numero da giocare
nr(2) = Fuori90(Estratto(es,z,2) + b) ' è l'effettivo 2° numero da giocare
nr(3) = Fuori90(Estratto(es,z,3) + c) ' è l'effettivo 3° numero da giocare
nr(4) = Fuori90(Estratto(es,z,4) + d) ' è l'effettivo 4° numero da giocare
nr(5) = Fuori90(Estratto(es,z,5) + e) ' è l'effettivo 5° numero da giocare

rt(1) = r
pta(2) = 1
k = 10
casi = casi + 1
aa(1) = nr(1)
bb(1) = nr(2)
cc(1) = nr(3)
dd(1) = nr(4)
ee(1) = nr(5)
'For n = Ini To fin
ra1 = SerieRitardo(es - 250,es,aa,rt,1)'argomenti sereritardo (Inizio,fine,Vettore contenente i numeri della combinazione,Vettore che contiene gli identificativi numerici delel ruote da analizzare
'Sorte da analizzare da 1 a 5 estratto da 6 a 10 per estratto determinato
ra2 = SerieRitardo(es - 250,es,bb,rt,1)
ra3 = SerieRitardo(es - 250,es,cc,rt,1)
ra4 = SerieRitardo(es - 250,es,dd,rt,1)
ra5 = SerieRitardo(es - 250,es,ee,rt,1)
combi = SerieRitardo(es - 450,es,nr,rt,2)


aritcombi =(ra)
raglob =(ra1 + ra2 + ra3 + ra4 + ra5)
If raglob > 100 Then
Scrivi String(70,"=") & " Caso n° " & casi,1
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(aa(1),2) & " Rit.: " & Format2(ra1)
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(bb(1),2) & " Rit.: " & Format2(ra2)
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(cc(1),2) & " Rit.: " & Format2(ra3)
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(dd(1),2) & " Rit.: " & Format2(ra4)
ColoreTesto 2
Scrivi "Ritardo x Ambata del numero = " & FormatSpace(ee(1),2) & " Rit.: " & Format2(ra5)
ColoreTesto 2
Scrivi "%%%%%%%%%%%%% SOMMA TOTALE DELLE 5 AMBATE %%%%%%%%%%%%%% = " & raglob
ColoreTesto 0

'Next
Scrivi DataEstrazione(es - 2) & " " & SiglaRuota(z) & " Terzultima " & StringaEstratti(es - 2,z,"-")
Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(z) & " Penultima " & StringaEstratti(es - 1,z,"-")
Scrivi DataEstrazione(es) & " " & SiglaRuota(z) & " Ultima " & StringaEstratti(es,z,"-")
Scrivi"""Numeri più"" rilevati " & a & "-" & b & "-" & c & "-" & d & "-" & e 'numeri più sta x numeri che verranno addizionati fuori90 all'ultima estraz
ColoreTesto 0
Scrivi"RITARDO DELLA CINQUINA x AMBO sulla ruota di " & SiglaRuota(r) & " = " & combi
ColoreTesto 0
EliminaRipetuti(nr)


ImpostaGiocata 1,nr,rt,pta,k,2

Gioca es
End If
Next

Scrivi
Scrivi "Casi totali (" & casi & ")",1
Scrivi String(70,"=") & "by Fillotto" & String(70,"=")
ScriviResoconto
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto