per voi grandissimo lavoro del mitico JOE91

LOTTOLEON · 27 Marzo 2015

'Ambi di 2 Numeri con ritardo determinato.
'Scritto da Joe91 12/12/2007.

Sub main()

Dim nu(1)
Dim mu(1)
Dim ru(1)
Dim CP(5)
Dim PR(5,5)
Test = 200 'numero Estrazioni da controllare
Fin = EstrazioneFin
Ini = fin - test
R=3 'Bari
RU(1)=R
Ra=CInt(InputBox (" I° Ritardo dei Numeri ?",,0))
Rb=CInt(InputBox ("II° Ritardo del Numeri ?",,1))
U=ini
For es = ini To fin
For Pa = 1 To 4 : nu(1)=Estratto (es,r,pa) : SRA = SerieRitardo (es-250,es-1,nu,ru,1)
For Pb = Pa+1 To 5 : mu(1)=Estratto (es,r,pb) : SRB = SerieRitardo (es-250,es-1,mu,ru,1)
If SRA = ra And SRB = Rb Or SRA = Rb And SRB = Ra Then
K=k+1
If Es - U > Mx Then Mx =Es - U : Esto = es
ColoreTesto 0 : Scrivi Format2 (k) & ") ",1,1
If sra<srb Then
I=es-srb-1 : II= es-sra-1
Scrivi I & " " & DataEstrazione (I) & " " & FormatSpace (Rb,2,1) & " " & StringaEstratti(I,R)& " ",0,0
ColoreTesto 2 : Scrivi MU(1) ,1, 0
PRB=Split("0."&StringaEstratti(I,R),".")
For z=1 To 5
If CInt(PRB(z))=mu(1) Then ColoreTesto 1 : Scrivi " " & Z,1,1 : ColoreTesto 0 : CP(Z) = CP (Z)+1 : F = Z
Next
Scrivi II & " " & DataEstrazione (II) & " " & FormatSpace (Ra,2,1) & " " & StringaEstratti(II,R)& " ",0,0
ColoreTesto 2 : Scrivi NU(1) , 1,0 : ColoreTesto 0
PRB=Split("0."&StringaEstratti(II,R),".")
For z=1 To 5
If CInt(PRB(z))=nu(1) Then ColoreTesto 1 : Scrivi " " & Z,1,1 : ColoreTesto 0 : CP(Z) = CP(Z)+1 : G = Z
Next
PR (f,g) = PR (f,g) + 1
Else
I=es-sra-1 : II= es-srb-1
Scrivi I & " " & DataEstrazione (I) & " " & FormatSpace (Rb,2,1) & " " & StringaEstratti(I,R)& " ",0,0
ColoreTesto 2 : Scrivi NU(1) ,1,0 : ColoreTesto 0
PRB=Split("0."&StringaEstratti(I,R),".")
For z=1 To 5
If CInt(PRB(z))=nu(1) Then ColoreTesto 1 : Scrivi " " & Z,1,1 : ColoreTesto 0 : CP(Z) = CP(Z)+1 : F = Z
Next
Scrivi II & " " & DataEstrazione (II) & " " & FormatSpace (Ra,2,1) & " " & StringaEstratti(II,R)& " ",0,0
ColoreTesto 2 : Scrivi MU(1) ,1,0 : ColoreTesto 0
PRB=Split("0."&StringaEstratti(II,R),".")
For z=1 To 5
If CInt(PRB(z))=mu(1) Then ColoreTesto 1 : Scrivi " " & Z,1,1 : ColoreTesto 0 : CP(Z) = CP(Z)+1 : G = Z
Next
PR (f,g) = PR (f,g) + 1
End If
Scrivi (Es) & " ",0,0
ColoreTesto 0 : Scrivi DataEstrazione (Es) & " ",0,0
ColoreTesto 2 : Scrivi FormatSpace ((Es - U)& " " ,3,1),1,0
ColoreTesto 0 : 'Scrivi StringaEstratti (Es,r),1,1
PRC=Split("0."&StringaEstratti(Es,R),".")
For SE = 1 To 5
If CInt(prc(SE))= Nu(1) Or CInt(prc(SE))= mu(1)Then
ColoreTesto 0
Scrivi prc(SE),1,0
ColoreTesto 0

Else
Scrivi prc(SE),0,0
End If
If SE < 5 Then Scrivi ".",0,0
Next
Scrivi

U=ES
End If
Next 'pb
Next 'pa
Next 'Es
ColoreTesto 0
Scrivi : Scrivi Esto & " " & DataEstrazione (Esto) & " ",0,0

ColoreTesto 2 : Scrivi MX,1,0

ColoreTesto 1

For z= 1 To 5 : Scrivi FormatSpace (Cp(Z),3,1)& "",1,0 : Next : Scrivi : Scrivi

ColoreTesto 0
For F = 1 To 5
For G = 1 To 5
Scrivi "Pos. Prec. " & F & "-" & G & " = " & pr(f,g)
Next
Next

End Sub

Alien. · 27 Marzo 2015

ciao,ottimo ma mi puoi spiegare.........cosa da e come funziona?
grazie.

LOTTOLEON · 27 Marzo 2015

Praticamente inserisci i due ritardi su ruota e ti trova nell'arco delle estrazioni impostate tutti gli ambi secchi che si sono presentati con i medesimi ritardi comprese le posizioni di provenienza.

Colgo l'occasione per chiedere a joe91 se possibile di poter avere la possibilita' di evidenziare nell'output quali sono i numeri da mettere in gioco.

saluti

LOTTOLEON · 1 Aprile 2015

UP

joe91 puoi fare qualcosa ciao

Joe91 · 1 Aprile 2015

Ciao.

Ci dò una guardata ... poi quando ho ripreso confidenza con questa ricerca,

vediamo cosa si può fare.

Buona serata a tutte/i.

LOTTOLEON · 2 Aprile 2015

grazie Joe91 in ricordo delle vecchie battaglie ciao

Joe91 · 4 Aprile 2015

LOTTOLEON ha scritto:
Praticamente inserisci i due ritardi su ruota e ti trova nell'arco delle estrazioni impostate tutti gli ambi secchi che si sono presentati con i medesimi ritardi comprese le posizioni di provenienza.

Colgo l'occasione per chiedere a joe91 se possibile di poter avere la possibilita' di evidenziare nell'output quali sono i numeri da mettere in gioco.

saluti

Ciao ...

dovresti provare ad indicarmi, quale potrebbe essere, il pronostico da te desiderato,

e dunque come ricavarlo dallo script che hai proposto.

Sicchè io possa cercare di organizzare e redigere il codice necessario.

Attendo il tuo riscontro.

Cordiali saluti.

LOTTOLEON · 5 Aprile 2015

Pos. Prec. 1-1 =
Pos. Prec. 1-2 = 2 ambo 89-40
Pos. Prec. 1-3 = 1 ambo 45-40
Pos. Prec. 1-4 = 1 ambo 43-40
Pos. Prec. 1-5 = 2 ambo 72-40
Pos. Prec. 2-1 =
Pos. Prec. 2-2 =
Pos. Prec. 2-3 = 1 ambo 43-45
Pos. Prec. 2-4 =
Pos. Prec. 2-5 =
Pos. Prec. 3-1 =
Pos. Prec. 3-2 =
Pos. Prec. 3-3 =
Pos. Prec. 3-4 = 1 ambo 28-43
Pos. Prec. 3-5 =
Pos. Prec. 4-1 = 1 ambo 16-17
Pos. Prec. 4-2 = 1 ambo 16-89
Pos. Prec. 4-3 =
Pos. Prec. 4-4 =
Pos. Prec. 4-5 = 1 ambo 16-72
Pos. Prec. 5-1 =
Pos. Prec. 5-2 =
Pos. Prec. 5-3 =
Pos. Prec. 5-4 =
Pos. Prec. 5-5 =

LOTTOLEON · 5 Aprile 2015

Ciao joe91

Lancio lo script sulla ruota di bari ultime 200 estrazioni primo ritardo 0 secondo ritardo 1

Quindi nel passato con queste modalita' mi da le seguenti posizioni che sono uscite (per ambo secco) con i due ritardi inseriti,

pero' lo script attuale mi da solo le posizioni.

Io vorrei che il nuovo script nell' output mi dia anche i numeri da mettere in gioco in base alle posizioni del passato cosi come da immagine sopra allegata.

Cosi ogni volta in base ai ritardi che immetto

un grosso saluto ed auguri di Buona pasqua

P.S. l'immagine postata sopra e' veritiera in base all'ultima estrazione del 4.4.2015

Joe91 · 5 Aprile 2015

LOTTOLEON ha scritto:
Lancio lo script sulla

ruota di bari

ultime 200 estrazioni

primo ritardo 0

secondo ritardo 1

... omesso

Pos. Prec. 1-1 =
Pos. Prec. 1-2 = 2 ambo 89-40
Pos. Prec. 1-3 = 1 ambo 45-40
Pos. Prec. 1-4 = 1 ambo 43-40
Pos. Prec. 1-5 = 2 ambo 72-40
Pos. Prec. 2-1 =
Pos. Prec. 2-2 =
Pos. Prec. 2-3 = 1 ambo 43-45
Pos. Prec. 2-4 =
Pos. Prec. 2-5 =
Pos. Prec. 3-1 =
Pos. Prec. 3-2 =
Pos. Prec. 3-3 =
Pos. Prec. 3-4 = 1 ambo 28-43
Pos. Prec. 3-5 =
Pos. Prec. 4-1 = 1 ambo 16-17
Pos. Prec. 4-2 = 1 ambo 16-89
Pos. Prec. 4-3 =
Pos. Prec. 4-4 =
Pos. Prec. 4-5 = 1 ambo 16-72
Pos. Prec. 5-1 =
Pos. Prec. 5-2 =
Pos. Prec. 5-3 =
Pos. Prec. 5-4 =
Pos. Prec. 5-5 =

... facendo rifeerimento all'ultima estrazione del 4.4.2015

Ciao Lottoleon,

buona seraa a tutte/i.

ho inserito alcune nuove istruzioni e piccole correzioni nello script

che sembrano farlo funzionare secondo quanto hai richiesto.

Esso, produce, "oggi", con gli imput di default quanto avevi calcolato.

Dovresti cortesemente controllare se anche modificando ruote e ritardi ... funziona correttamente.

Attendo riscontro.

Codice:

Option Explicit
Sub Main()
'Ambi di 2 Numeri con ritardo determinato.
'Scritto da Joe91 12/12/2007.
'Rev.2.0 x Lottoleon Santa Pasqua 2015
	Dim Test, Ini, Fin, R, U, Es, PA, PB, RA, RB, K, Mx, Esto, SRA, SRB
	Dim I, II, Z, F, G, PRC, PRB, SE 
	Dim Nu(1), Mu(1), Ru(1), CP(5), PR(5,5)
	Test = 200 'Numero Estrazioni da controllare
	Fin = EstrazioneFin
	Ini = Fin - Test 
	R = BA_ 'Bari
	Ru(1) = R
	RA = CInt(InputBox(" I° Ritardo dei Numeri ?",,0))
	RB = CInt(InputBox("II° Ritardo del Numeri ?",,1))
	U = Ini
	For Es = Ini To Fin
		For PA = 1 To 4 : Nu(1) = Estratto(Es,R,PA) : SRA = SerieRitardo(Es - 250,Es - 1,Nu,Ru,1)
			For PB = PA + 1 To 5 : Mu(1) = Estratto(Es,R,PB) : SRB = SerieRitardo(Es - 250,Es - 1,Mu,Ru,1)
				If SRA = RA And SRB = RB Or SRA = RB And SRB = RA Then
					K = K + 1
					If Es - U > Mx Then Mx = Es - U : Esto = Es
					ColoreTesto 0 : Scrivi Format2(K) & ") ",1,1
					If SRA < SRB Then
						I = Es - SRB - 1 : II = Es - SRA - 1
						Scrivi I & " " & DataEstrazione(I) & " " & FormatSpace(RB,2,1) & " " & StringaEstratti(I,R) & " ",0,0
						ColoreTesto 2 : Scrivi Format2(Mu(1)),1,0
						PRB = Split("0." & StringaEstratti(I,R),".")
						For Z = 1 To 5
							If CInt(PRB(Z)) = Mu(1) Then ColoreTesto 1 : Scrivi " " & Z,1,1 : ColoreTesto 0 : CP(Z) = CP(Z) + 1 : F = Z
						Next
						Scrivi II & " " & DataEstrazione(II) & " " & FormatSpace(RA,2,1) & " " & StringaEstratti(II,R) & " ",0,0
						ColoreTesto 2 : Scrivi Format2(Nu(1)),1,0 : ColoreTesto 0
						PRB = Split("0." & StringaEstratti(II,R),".")
						For Z = 1 To 5
							If CInt(PRB(Z)) = Nu(1) Then ColoreTesto 1 : Scrivi " " & Z,1,1 : ColoreTesto 0 : CP(Z) = CP(Z) + 1 : G = Z
						Next
						PR(F,G) = PR(F,G) + 1
					Else
						I = Es - SRA - 1 : II = Es - SRB - 1
						Scrivi I & " " & DataEstrazione(I) & " " & FormatSpace(RB,2,1) & " " & StringaEstratti(I,R) & " ",0,0
						ColoreTesto 2 : Scrivi Format2(Nu(1)),1,0 : ColoreTesto 0
						PRB = Split("0." & StringaEstratti(I,R),".")
						For Z = 1 To 5
							If CInt(PRB(Z)) = Nu(1) Then ColoreTesto 1 : Scrivi " " & Z,1,1 : ColoreTesto 0 : CP(Z) = CP(Z) + 1 : F = Z
						Next
						Scrivi II & " " & DataEstrazione(II) & " " & FormatSpace(RA,2,1) & " " & StringaEstratti(II,R) & " ",0,0
						ColoreTesto 2 : Scrivi Format2(Mu(1)),1,0 : ColoreTesto 0
						PRB = Split("0." & StringaEstratti(II,R),".")
						For Z = 1 To 5
							If CInt(PRB(Z)) = Mu(1) Then ColoreTesto 1 : Scrivi " " & Z,1,1 : ColoreTesto 0 : CP(Z) = CP(Z) + 1 : G = Z
						Next
						PR(F,G) = PR(F,G) + 1
					End If
					Scrivi(Es) & " ",0,0
					ColoreTesto 0 : Scrivi DataEstrazione(Es) & " ",0,0
					ColoreTesto 2 : Scrivi FormatSpace((Es - U) & " ",3,1),1,0
					ColoreTesto 0 : 'Scrivi StringaEstratti (Es,r),1,1
					PRC = Split("0." & StringaEstratti(Es,R),".")
					For SE = 1 To 5
						If CInt(PRC(SE)) = Nu(1) Or CInt(PRC(SE)) = Mu(1)Then
							ColoreTesto 0
							Scrivi PRC(SE),1,0
							ColoreTesto 0
						Else
							Scrivi PRC(SE),0,0
						End If
						If SE < 5 Then Scrivi ".",0,0
					Next
					Scrivi
					U = Es
				End If
			Next 'PB
		Next 'PA
	Next 'Es
	ColoreTesto 0
	Scrivi : Scrivi Esto & " " & DataEstrazione(Esto) & " ",0,0
	ColoreTesto 2 : Scrivi Mx,1,0
	ColoreTesto 1
	For Z = 1 To 5 : Scrivi FormatSpace(CP(Z),3,1) & "",1,0 : Next : Scrivi : Scrivi
	ColoreTesto 0
	For F = 1 To 5
		For G = 1 To 5
			Scrivi "Pos. Prec. " & F & "-" & G & " = " & PR(F,G) & " ",0,0
			If PR(F,G) > 0 Then
			Scrivi " " & Format2 (Estratto (Fin - RA,R,G)) & "." & Format2 (Estratto (Fin - RB,R,F))
			Else
			Scrivi ""
			End If
		Next
	Next
End Sub

LOTTOLEON · 6 Aprile 2015

Ciao Joe91

Ho controllato con (Estrazioni per ritardo Lotto) presente su spaziometria tutto risulta alla perfezione

E' proprio il caso di dire lo script di Pasqua grazie ancora, tantissimi auguri

LOTTOLEON

LOTTOLEON · 6 Aprile 2015

rossonero8 · 6 Aprile 2015

VA BENE IL LISTATO

VA BENE IL LISTATO

CIAO A TUTTI EBUONA PASQUA, VA BENE IL LISTATO MA IL RISULTATO (GLI AMBI) A QUALE ESTRAZ SI RIFERISCE E COME SI RICAVANO, VISTO CHE NELLO SCORE
DEI RISULTATI NON COMBACIANO CON L'EVENTUALE PREVISIONE: PER ESEMPIO 89-40? DA DOVE ESCE? GRAZIE PER UNA EVENTUALE SPIEGAZIONE.
COMPLIMENTI COMUNQUE PER L'IMPEGNO NEL TROVARE NUOVE VIE.
COME SCEGLIERE I NUMERI?

Joe91 · 7 Aprile 2015

rossonero8 ha scritto:
CIAO A TUTTI EBUONA PASQUA, VA BENE IL LISTATO MA IL RISULTATO (GLI AMBI) A QUALE ESTRAZ SI RIFERISCE E COME SI RICAVANO, VISTO CHE NELLO SCORE
DEI RISULTATI NON COMBACIANO CON L'EVENTUALE PREVISIONE: PER ESEMPIO 89-40? DA DOVE ESCE? GRAZIE PER UNA EVENTUALE SPIEGAZIONE.
COMPLIMENTI COMUNQUE PER L'IMPEGNO NEL TROVARE NUOVE VIE.
COME SCEGLIERE I NUMERI?

Ciao rossonero8

per cercare di dare soluzione ad alcune delle tue perplessità bisogna innazi tutto orientare

con la descrizione della procedura ... la formulazione di una risposta. Mi perdonerai le banalità.

Innazi tutto, si deve considerare che, ogni estrazione, in ogni ruota, siano estratti dei "Numeri".

Questi numeri, hanno sempre un loro ritardo.

Può essere tanto "Zero" quanto "1", "2", "3", .. "12" o "123". Onuno il suo.

Si osserva che alcuni "ritardi" si ripetono con maggiore frequenza.

Specie, se sono ritardi di minor consistenza numerica. Tra quelli ... "piccoli".

Nello specifico, per esempio, a Bari recentemente il 43 è caduto parecchie volte in pohe estrazioni.

Convenzionalmente, per alcuni lottologi, con "Ritardo Zero". Dunque il più piccolo possibile.

Avrebbe potuto anche abbinarsi ad un altro frequente con ritardi analogamente simili.

Un altro numero, con ritardi recenti bassi. Di "una" / "due" / "tre" ... e/o poche estrazioni.

Nello script, la ruota, ed il periodo in cui cercare sono semi-stabiliti (Bari e 200 Estrazioni) ...

"ZERO" e "UNO", sono i ritardi, inseribili con imputbox.

Appena inserita "LA COPPIA" di Ritardi, lo script effettua la ricerca, con tutti questi paramentri.

Lo script dapprima, si occuperà di rintracciare gli eventi che soggiacciono alle condizioni imposte.

Avendoli trovati, contati ed organizzati, elenca quanti, quali, dove, sono i casi "frequenti" ... evidenziandoli.

Siamo dunque ... all'ultima aggiunta allo script.

Ove, si tratta di trovare e "stabilire" (attualmente) quali numeri farebbero corrispondere

nuove cadute con i ritardi da noi specificati.

In sintesi, tra essi è: L' 89.40 di cui fai richiesta.

Sperio sia tutto ... il necessario.

SeiDue3 · 7 Aprile 2015

Ciao Joe91 ti voglio chieder un un piacer è sui programmi per fare ricerche ma non ne so gran che . se possibile ti posso dire ciò che faccio con la penna e se c'è un programmini qui un rete me lo suggerisci oppure .... Grazie !

Joe91 · 7 Aprile 2015

SeiDue3 ha scritto:
Ciao Joe91 ti voglio chieder un un piacer è sui programmi per fare ricerche ma non ne so gran che . se possibile ti posso dire ciò che faccio con la penna e se c'è un programmini qui un rete me lo suggerisci oppure .... Grazie !

Ciao,

Ok .. prova a descrivere la tua ricerca.

SeiDue3 · 7 Aprile 2015

....sto scrivendo la descrizione che voglio simplice e di facile comprensione ...penso lasciartela sul tardi . Grazie .

i legend · 11 Aprile 2015

Ciao , appena visto un altro capolavoro.
Uno script da studiare, Complesso è dire poco.
Vedo che sono tanti anni che programmi,ad alti livelli.
Spero di avvicinarmi

Buon week end a tutti

per voi grandissimo lavoro del mitico JOE91

Member

Advanced Premium Member

Member

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Member

Member

Advanced Member >PLATINUM PLUS<

Member

Member

Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Premium Member