gemello in 5° chiama l'ambata

bibbolotto · 25 Novembre 2014

ricercate in una qualsiasi estrazione e qualsiasi ruota un numero gemello sortito in 5° posizione

l'ambata da giocare sara' il 4° estratto della medesima estrazione facendo il +1-1 ovverosia due ambate su una ruota .

esempio estraz 28 10 2014 ca 84 69 8 40 11 ecco il gemello l'ambata sara il 4° estr dimnuito e aumentato di 1 quindi 39 41 per ambata

estraz 8 11 2014 ca 39 56 73 65 52 ecco l'ambata 39.
attenzione ci sono stati anche casi di ambi.

Giocate con prudenza nulla e' certo

skygirl · 25 Novembre 2014

Grazie Bibbolotto anche questo metodo mi piace, ho osservato infatti che a colpo nell'estr. del 30/10/2014 era uscito il 41 GE (dove era ritardatario) e il 39 sulla NZ (nell'estr. del 28.10 era uscito il 38 che segnalava uscita del 39 applicando teoria del +1 -1)

Nell'estr. dell'08/11/2014 è uscito il 39 a CA e l'ambo a FI 11-41

Ti allego l'immagine osserva come sia l'11 che il 41 erano ritardatari sulla ruota di FI

bibbolotto · 25 Novembre 2014

come puoi notare a volte riesce il quarto estratto e non il +1-1

pigi · 25 Novembre 2014

skygirl ha scritto:
Grazie Bibbolotto anche questo metodo mi piace, ho osservato infatti che a colpo nell'estr. del 30/10/2014 era uscito il 41 GE (dove era ritardatario) e il 39 sulla NZ (nell'estr. del 28.10 era uscito il 38 che segnalava uscita del 39 applicando teoria del +1 -1)

Nell'estr. dell'08/11/2014 è uscito il 39 a CA e l'ambo a FI 11-41

Ti allego l'immagine osserva come sia l'11 che il 41 erano ritardatari sulla ruota di FI

Ciao skygirl
ma non capisco ....a Genova il 28/10 è uscito in 5° il 22 quindi la previsione era 21 e 23 il quale 23 è uscito il 06/11 , che centra il 41 ?
e poi Cagliari e Firenze ?????????........
puoi spiegarmi grazie
pigi

skygirl · 25 Novembre 2014

Ciao pigi il metodo di bibbolotto dice:

bibbolotto ha scritto:
ricercate in una qualsiasi estrazione e qualsiasi ruota un numero gemello sortito in 5° posizione

l'ambata da giocare sara' il 4° estratto della medesima estrazione facendo il +1-1 ovverosia due ambate su una ruota .

esempio estraz 28 10 2014 ca 84 69 8 40 11 ecco il gemello l'ambata sara il 4° estr dimnuito e aumentato di 1 quindi 39 41 per ambata

estraz 8 11 2014 ca 39 56 73 65 52 ecco l'ambata 39.
attenzione ci sono stati anche casi di ambi.

Infatti si osserva che il 28/10/2014 su CA è uscito il gemello 11 (in 5^ pos.) il numero in 4^ pos sempre sulla ruota di CA era il 40 (sul 40 devi fare +1 -1 facendo questo operazione otterrai i numeri 39 e 41

Bibbolotto osserva che il 39 è uscito su CA nell'est. 08/11/2014

Io osservo (quindi confermando la tesi di bibbolotto) che nell'estr. del 30/10/2014
è uscito a colpo il 41 a GE dove questo n. era ritardatario e il 39 sulla Nazionale (dove nell'estr. del 28/11/2014 era presente il 38 quindi utilizzando la teoria senza alcuna base statistica sottolineo

ma di mera osservazione

applicando il +1 -1 ad un numero uscito in un est. precedente rispetto a quella di riferimento spesso si ci azzecca

skygirl · 25 Novembre 2014

bibbolotto ha scritto:
come puoi notare a volte riesce il quarto estratto e non il +1-1

Si è vero

pigi · 25 Novembre 2014

Ciao skygirl
scusa mi sono impallinato da solo , infatti il + 1 e - 1 io lo consideravo proprio sul gemello e non sul 4° estratto
chiedo venia e Grazie x la delucidazione.
Saluti.
pigi

bibbolotto · 25 Novembre 2014

si infatti e' dal quarto estratto che si ricava l'ambata
solo un consiglio pero' dato che le previsioni sono molte e si accavallano giocate solo quelle magari con un ritardo di almneo 9 colpi o altrimenti seguite una sola previsione fino alla vincita direi max 8 9 colpi.

Mike58 · 25 Novembre 2014

Se può essere utile ecco un piccolo riepilogo
========================================================================================================================
Ricerca Gemello in 5^ posizione e gioca 4^ estratto +/- 1 su totali 25 estrazioni ® Script by Mike58 ©

Casi	Data	Ruota	Estratti	Gemello	Posiz.	pronostico	Esito	Colpi	Estratti	Data ID	Estratti ID	Ritardo Pronos.
1	20.11.2014	MI	60.65.51.20.11	11	5	19.21	Estratto	1	MI .. .. .. 21 ..	22.11.2014	88.87.46.21.02	0
2	20.11.2014	TO	33.08.12.56.55	55	5	55.57	Estratto	1	TO .. 57 .. .. ..	22.11.2014	73.57.31.54.18	0
3	11.11.2014	VE	54.41.86.66.88	88	5	65.67		5		--	---.---.---.---.---	6
4	04.11.2014	PA	78.65.82.32.44	44	5	31.33	Estratto	1	PA 33 .. .. .. ..	06.11.2014	33.64.42.23.60	7
5	28.10.2014	CA	84.69.08.40.11	11	5	39.41	Estratto	5	CA 39 .. .. .. ..	08.11.2014	39.56.73.65.52	6
6	28.10.2014	GE	64.18.57.45.22	22	5	44.46		10		--	---.---.---.---.---	18
7	23.10.2014	FI	42.37.15.68.55	55	5	67.69	Estratto	5	FI 69 .. .. .. ..	04.11.2014	69.76.53.84.07	6
8	21.10.2014	CA	85.48.29.09.11	11	5	8.10	Estratto	3	CA .. .. 08 .. ..	28.10.2014	84.69.08.40.11	1
9	18.10.2014	NA	83.65.23.75.33	33	5	74.76	Estratto	4	NA .. .. .. 74 ..	28.10.2014	06.15.59.74.32	1
10	14.10.2014	NA	69.37.16.14.44	44	5	13.15	Estratto	6	NA .. 15 .. .. ..	28.10.2014	06.15.59.74.32	4
11	14.10.2014	RO	46.39.79.63.88	88	5	62.64	Estratto	5	RO .. 64 .. .. ..	25.10.2014	27.64.33.32.85	6
12	11.10.2014	PA	05.56.15.21.88	88	5	20.22		10		--	---.---.---.---.---	19
13	07.10.2014	MI	80.01.61.16.55	55	5	15.17	Estratto	6	MI .. .. 15 .. ..	21.10.2014	26.11.15.42.14	13
14	07.10.2014	NZ	10.85.47.25.11	11	5	24.26		10		--	---.---.---.---.---	1
15	02.10.2014	CA	44.62.87.51.88	88	5	50.52	Estratto	1	CA .. .. .. .. 50	04.10.2014	21.83.67.65.50	6
16	02.10.2014	MI	27.11.82.07.33	33	5	6.8	Estratto	1	MI .. .. 06 .. ..	04.10.2014	62.41.06.39.52	10
17	02.10.2014	TO	01.47.52.65.33	33	5	64.66		10		--	---.---.---.---.---	24
18	02.10.2014	NZ	72.25.18.15.33	33	5	14.16	Estratto	6	NZ 14 .. .. .. ..	16.10.2014	14.50.78.59.80	9
19	30.09.2014	PA	09.15.57.47.77	77	5	46.48	Estratto	10	PA 48 .. .. .. ..	23.10.2014	48.69.77.61.18	4
20	30.09.2014	VE	35.34.68.86.11	11	5	85.87		10		--	---.---.---.---.---	0
21	27.09.2014	MI	57.72.38.05.88	88	5	4.6	Estratto	3	MI .. .. 06 .. ..	04.10.2014	62.41.06.39.52	13
22	25.09.2014	BA	22.77.12.78.55	55	5	77.79	Estratto	5	BA .. .. .. .. 79	07.10.2014	18.87.45.15.79	4

pigi · 26 Novembre 2014

Mike58 ha scritto:
Se può essere utile ecco un piccolo riepilogo
========================================================================================================================
Ricerca Gemello in 5^ posizione e gioca 4^ estratto +/- 1 su totali 25 estrazioni ® Script by Mike58 ©

Casi Data Ruota Estratti Gemello Posiz. pronostico Esito Colpi Estratti Data ID Estratti ID Ritardo Pronos.
1 20.11.2014 MI 60.65.51.20.11 11 5 19.21 Estratto 1 MI .. .. .. 21 .. 22.11.2014 88.87.46.21.02 0
2 20.11.2014 TO 33.08.12.56.55 55 5 55.57 Estratto 1 TO .. 57 .. .. .. 22.11.2014 73.57.31.54.18 0
3 11.11.2014 VE 54.41.86.66.88 88 5 65.67 5 -- ---.---.---.---.--- 6
4 04.11.2014 PA 78.65.82.32.44 44 5 31.33 Estratto 1 PA 33 .. .. .. .. 06.11.2014 33.64.42.23.60 7
5 28.10.2014 CA 84.69.08.40.11 11 5 39.41 Estratto 5 CA 39 .. .. .. .. 08.11.2014 39.56.73.65.52 6
6 28.10.2014 GE 64.18.57.45.22 22 5 44.46 10 -- ---.---.---.---.--- 18
7 23.10.2014 FI 42.37.15.68.55 55 5 67.69 Estratto 5 FI 69 .. .. .. .. 04.11.2014 69.76.53.84.07 6
8 21.10.2014 CA 85.48.29.09.11 11 5 8.10 Estratto 3 CA .. .. 08 .. .. 28.10.2014 84.69.08.40.11 1
9 18.10.2014 NA 83.65.23.75.33 33 5 74.76 Estratto 4 NA .. .. .. 74 .. 28.10.2014 06.15.59.74.32 1
10 14.10.2014 NA 69.37.16.14.44 44 5 13.15 Estratto 6 NA .. 15 .. .. .. 28.10.2014 06.15.59.74.32 4
11 14.10.2014 RO 46.39.79.63.88 88 5 62.64 Estratto 5 RO .. 64 .. .. .. 25.10.2014 27.64.33.32.85 6
12 11.10.2014 PA 05.56.15.21.88 88 5 20.22 10 -- ---.---.---.---.--- 19
13 07.10.2014 MI 80.01.61.16.55 55 5 15.17 Estratto 6 MI .. .. 15 .. .. 21.10.2014 26.11.15.42.14 13
14 07.10.2014 NZ 10.85.47.25.11 11 5 24.26 10 -- ---.---.---.---.--- 1
15 02.10.2014 CA 44.62.87.51.88 88 5 50.52 Estratto 1 CA .. .. .. .. 50 04.10.2014 21.83.67.65.50 6
16 02.10.2014 MI 27.11.82.07.33 33 5 6.8 Estratto 1 MI .. .. 06 .. .. 04.10.2014 62.41.06.39.52 10
17 02.10.2014 TO 01.47.52.65.33 33 5 64.66 10 -- ---.---.---.---.--- 24
18 02.10.2014 NZ 72.25.18.15.33 33 5 14.16 Estratto 6 NZ 14 .. .. .. .. 16.10.2014 14.50.78.59.80 9
19 30.09.2014 PA 09.15.57.47.77 77 5 46.48 Estratto 10 PA 48 .. .. .. .. 23.10.2014 48.69.77.61.18 4
20 30.09.2014 VE 35.34.68.86.11 11 5 85.87 10 -- ---.---.---.---.--- 0
21 27.09.2014 MI 57.72.38.05.88 88 5 4.6 Estratto 3 MI .. .. 06 .. .. 04.10.2014 62.41.06.39.52 13
22 25.09.2014 BA 22.77.12.78.55 55 5 77.79 Estratto 5 BA .. .. .. .. 79 07.10.2014 18.87.45.15.79 4

Ciao MIKE58
il riepilogo và bene, ma lo script ?
GRAZIE
pigi

Mike58 · 26 Novembre 2014

eccovi anche lo script

Codice:

Sub Main()
	Dim anum(4),ruota(1),posta(5)
	Dim ambetti,sretnumeri,nvincita
	ini = EstrazioneFin - 25
	fin = EstrazioneFin
	ca = fin - Ini
	Scrivi String(120,"="),1
	Scrivi" Ricerca Gemello in 5^ posizione e gioca 4^ estratto +/- 1 ",1,0,3
	Scrivi"   su totali " & ca & " estrazioni  ",1,0,2
	Scrivi "  " & Chr(174) & "  Script by Mike58  " & Chr(169) & "  ",1,- 1,6
	Scrivi
	'Scrivi String(120,"="),1
	ReDim AT(13)
	AT(1) = " Casi "
	AT(2) = " Data "
	AT(3) = " Ruota "
	AT(4) = " Estratti "
	AT(5) = " Gemello "
	AT(6) = " Posiz. "
	AT(7) = " pronostico "
	AT(8) = " Esito  "
	AT(9) = " Colpi "
	AT(10) = " Estratti"
	AT(11) = " Data ID "
	AT(12) = " Estratti ID "
	AT(13) = " Ritardo Pronos. "
	'AT(12) = " nGuadagno "
	'AT(13) = " Qtà "
	'AT(14) = " s_Ambetti "
	'AT(15) = " n_Vincita "
	Call InitTabella(AT,1,,3,5)
	For es = fin To Ini Step - 1
		For r1 = 1 To 12
		If r1 = 11 Then r1 = 12
			ruota(1) = r1
			posta(1) = 4
			posta(2) = 1
			
			For p1 = 5 To 5
				'For p2 = p1 + 1 To 5
				a = Estratto(es,r1,p1)
				b = Estratto(es,r1,4)
				If Gemello(a)Then
					c = Radicale(a)
					d = Vert(c)
					e =(11*c)
					f = Vert(e)
					b1 = b - 1
					b2 = b + 1
					casi = casi + 1
					anum(1) = b1'c
					anum(2) = b2' d
					'anum(3) = 84
					'anum(4) = f
					sf = SerieRitardo(1,fin,anum,ruota,1)
					'For idestr = es + 1 To fin
					'ambetti = VerificaAmbetto(anum,r1,idestr,sretnumeri,nvincita)
					'Next
					'For x = 1 To 4
						'---------- calcolo x escludere i numeri trovati ------------------
						'If EstrattoRitardo(r1,anum(x),es,es) = 0 Then anum(x) = 0
						'-----------------------------------------------------------------
						Call VerificaEsitoConGuadagno(anum,ruota,es + 1,1,10,,esito,colpi,estratti,id,,nguad)
						
					'Next
					ReDim AV(13)
					AV(1) = casi
					AV(2) = DataEstrazione(es)
					AV(3) = SiglaRuota(r1)
					AV(4) = StringaEstratti(es,r1)
					AV(5) = a
					AV(6) = p1
					AV(7) = StringaNumeri(anum)
					AV(8) = esito
					AV(9) = colpi
					AV(10) = estratti
					If esito <> "" Then AV(11) = DataEstrazione(id)
					If esito = "" Then AV(11) = " -- "
					'AV(12) = nguad
					'AV(13) = ambetti
					'AV(14) = sretnumeri
					'AV(15) = nvincita
					If esito <> "" Then AV(12) = StringaEstratti(id,r1)
					If esito = "" Then AV(12) = "---.---.---.---.---"
					AV(13) = sf
If esito = "" And colpi < 10 Then Call AddRigaTabella(AV,4,,3,0)
If esito <> "" Then Call AddRigaTabella(AV,3,,3,1)
If esito = "" And colpi = 10 Then Call AddRigaTabella(AV,,,3)
					'If esito <> "" And colpi < 4 Then Call SetColoreCella(9,3,1)
					If DataEstrazione(id) = DataEstrazione(fin) Then Call SetColoreCella(11,4,2)
				End If
			Next
		Next
	Next
	Call SetTableWidth("100%")
	Call CreaTabella()
End Sub

pigi · 26 Novembre 2014

GRAZIE MIKE 58

pigi

skygirl · 5 Dicembre 2014

Grazie Mike58 ho appena provato il tuo script e funziona benissimo.
Ho ricavato queste previsioni per la prox estr. (basandomi sull'estr.del 04.12.2014)

BA 81-04-60-71-33 il gemello 33 in 5 pos. ci porta al pronostico BA 70-72
FI 53-25-09-17-44 il gemello 44 in 5 pos ci porta al pronostico FI 16-18
RM 54-19-06-22-77 il gemello 77 in 5 pos ci porta al pronostico RM 21-23

Le mie ambate preferite sono
il 21 su RM
il 16 su FI
e il 72 su BA

LUNARES · 5 Dicembre 2014

Grazie a Mike sempre cortese

qualcuno gentilmente puo dirmi se si posso inviare messaggi privati? non trovo l opzione grazie e scusate

lupo bianco · 5 Dicembre 2014

Mike58 ha scritto:

eccovi anche lo script

Codice:

Sub Main()
	Dim anum(4),ruota(1),posta(5)
	Dim ambetti,sretnumeri,nvincita
	ini = EstrazioneFin - 25
	fin = EstrazioneFin
	ca = fin - Ini
	Scrivi String(120,"="),1
	Scrivi" Ricerca Gemello in 5^ posizione e gioca 4^ estratto +/- 1 ",1,0,3
	Scrivi"   su totali " & ca & " estrazioni  ",1,0,2
	Scrivi "  " & Chr(174) & "  Script by Mike58  " & Chr(169) & "  ",1,- 1,6
	Scrivi
	'Scrivi String(120,"="),1
	ReDim AT(13)
	AT(1) = " Casi "
	AT(2) = " Data "
	AT(3) = " Ruota "
	AT(4) = " Estratti "
	AT(5) = " Gemello "
	AT(6) = " Posiz. "
	AT(7) = " pronostico "
	AT(8) = " Esito  "
	AT(9) = " Colpi "
	AT(10) = " Estratti"
	AT(11) = " Data ID "
	AT(12) = " Estratti ID "
	AT(13) = " Ritardo Pronos. "
	'AT(12) = " nGuadagno "
	'AT(13) = " Qtà "
	'AT(14) = " s_Ambetti "
	'AT(15) = " n_Vincita "
	Call InitTabella(AT,1,,3,5)
	For es = fin To Ini Step - 1
		For r1 = 1 To 12
		If r1 = 11 Then r1 = 12
			ruota(1) = r1
			posta(1) = 4
			posta(2) = 1
			
			For p1 = 5 To 5
				'For p2 = p1 + 1 To 5
				a = Estratto(es,r1,p1)
				b = Estratto(es,r1,4)
				If Gemello(a)Then
					c = Radicale(a)
					d = Vert(c)
					e =(11*c)
					f = Vert(e)
					b1 = b - 1
					b2 = b + 1
					casi = casi + 1
					anum(1) = b1'c
					anum(2) = b2' d
					'anum(3) = 84
					'anum(4) = f
					sf = SerieRitardo(1,fin,anum,ruota,1)
					'For idestr = es + 1 To fin
					'ambetti = VerificaAmbetto(anum,r1,idestr,sretnumeri,nvincita)
					'Next
					'For x = 1 To 4
						'---------- calcolo x escludere i numeri trovati ------------------
						'If EstrattoRitardo(r1,anum(x),es,es) = 0 Then anum(x) = 0
						'-----------------------------------------------------------------
						Call VerificaEsitoConGuadagno(anum,ruota,es + 1,1,10,,esito,colpi,estratti,id,,nguad)
						
					'Next
					ReDim AV(13)
					AV(1) = casi
					AV(2) = DataEstrazione(es)
					AV(3) = SiglaRuota(r1)
					AV(4) = StringaEstratti(es,r1)
					AV(5) = a
					AV(6) = p1
					AV(7) = StringaNumeri(anum)
					AV(8) = esito
					AV(9) = colpi
					AV(10) = estratti
					If esito <> "" Then AV(11) = DataEstrazione(id)
					If esito = "" Then AV(11) = " -- "
					'AV(12) = nguad
					'AV(13) = ambetti
					'AV(14) = sretnumeri
					'AV(15) = nvincita
					If esito <> "" Then AV(12) = StringaEstratti(id,r1)
					If esito = "" Then AV(12) = "---.---.---.---.---"
					AV(13) = sf
If esito = "" And colpi < 10 Then Call AddRigaTabella(AV,4,,3,0)
If esito <> "" Then Call AddRigaTabella(AV,3,,3,1)
If esito = "" And colpi = 10 Then Call AddRigaTabella(AV,,,3)
					'If esito <> "" And colpi < 4 Then Call SetColoreCella(9,3,1)
					If DataEstrazione(id) = DataEstrazione(fin) Then Call SetColoreCella(11,4,2)
				End If
			Next
		Next
	Next
	Call SetTableWidth("100%")
	Call CreaTabella()
End Sub

Ciao a tutti ormai copio gli script su spaziometria e sono felice.
Domanda e possibile chiedere al listato il ritardo delle due ambate da giocare?
grazie

Mike58 · 5 Dicembre 2014

Ciao Lupo Bianco sono felice che sei felice di usare gli script con spaziometria ( un altro mondo ), però per non invadere il post e allontanarsi dal metodo sarebbe meglio non fare le richieste e modifiche scriptiche in questo post.
si possono fare poi richieste specifiche di modifica in area download.

Poi ma il ritardo delle ambate che vuoi vedere già non c'è l'hai, oppure ho capito male.

Ricerca Gemello in 5^ posizione e gioca 4^ estratto +/- 1 su totali 25 estrazioni ® Script by Mike58 ©

Casi	Data	Ruota	Estratti	Gemello	Posiz.	pronostico	Esito	Colpi	Estratti	Data ID	Estratti ID	Ritardo Pronos.
1	04.12.2014	BA	81.04.60.71.33	33	5	70.72		0		--	---.---.---.---.---	28
2	04.12.2014	FI	53.25.09.17.44	44	5	16.18		0		--	---.---.---.---.---	1
3	04.12.2014	RO	54.19.06.22.77	77	5	21.23		0		--	---.---.---.---.---	30
4	20.11.2014	MI	60.65.51.20.11	11	5	19.21	Estratto	1	MI .. .. .. 21 ..	22.11.2014	88.87.46.21.02	5
5	20.11.2014	TO	33.08.12.56.55	55	5	55.57	Estratto	1	TO .. 57 .. .. ..	22.11.2014	73.57.31.54.18	5
6	11.11.2014	VE	54.41.86.66.88	88	5	65.67	Estratto	6	VE .. .. 65 .. ..	25.11.2014	19.81.65.28.17	4
7	04.11.2014	PA	78.65.82.32.44	44	5	31.33	Estratto	1	PA 33 .. .. .. ..	06.11.2014	33.64.42.23.60	12
8	28.10.2014	CA	84.69.08.40.11	11	5	39.41	Estratto	5	CA 39 .. .. .. ..	08.11.2014	39.56.73.65.52	4
9	28.10.2014	GE	64.18.57.45.22	22	5	44.46		10		--	---.---.---.---.---	23
10	23.10.2014	FI	42.37.15.68.55	55	5	67.69	Estratto	5	FI 69 .. .. .. ..	04.11.2014	69.76.53.84.07	11
11	21.10.2014	CA	85.48.29.09.11	11	5	8.10	Estratto	3	CA .. .. 08 .. ..	28.10.2014	84.69.08.40.11	2
12	18.10.2014	NA	83.65.23.75.33	33	5	74.76	Estratto	4	NA .. .. .. 74 ..	28.10.2014	06.15.59.74.32	2
13	14.10.2014	NA	69.37.16.14.44	44	5	13.15	Estratto	6	NA .. 15 .. .. ..	28.10.2014	06.15.59.74.32	3
14	14.10.2014	RO	46.39.79.63.88	88	5	62.64	Estratto	5	RO .. 64 .. .. ..	25.10.2014	27.64.33.32.85	11
15	11.10.2014	PA	05.56.15.21.88	88	5	20.22		10		--	---.---.---.---.---	24
16	07.10.2014	MI	80.01.61.16.55	55	5	15.17	Estratto	6	MI .. .. 15 .. ..	21.10.2014	26.11.15.42.14	18
17	07.10.2014	NZ	10.85.47.25.11	11	5	24.26		10		--	---.---.---.---.---	3

Roby · 5 Dicembre 2014

Buonasera,
mi sono permesso di modificare il listato di Mike58, che saluto e ringrazio per il suoi splendidi ed insuperabili lavori,con l' aggiunta richiesta.

Codice:

Sub Main()
    '- http://forum.lottoced.com/f8/gemello-5%B0-chiama-lambata-117021/index2.html -
    Dim anum(02),ruota(01),posta(02),anum1(01),anum2(01)
    Dim ambetti,sretnumeri,nvincita
    ini = EstrazioneFin - 25
    fin = EstrazioneFin
    ca = fin - Ini
    Scrivi String(120,"="),1
    Scrivi" Ricerca Gemello in 5^ posizione e gioca 4^ estratto +/- 1 ",1,0,3
    Scrivi"   su totali " & ca & " estrazioni  ",1,0,2
    Scrivi "  " & Chr(174) & "  Script by Mike58  " & Chr(169) & "  ",1,- 1,6
    Scrivi
    'Scrivi String(120,"="),1
    ReDim AT(13)
    AT(01) = " Casi "
    AT(02) = " Data "
    AT(03) = " Ruota "
    AT(04) = " Estratti "
    AT(05) = " Gemello "
    AT(06) = " Posiz. "
    AT(07) = " pronostico "
    AT(08) = " Esito  "
    AT(09) = " Colpi "
    AT(10) = " Estratti"
    AT(11) = " Data ID "
    AT(12) = " Estratti ID "
    AT(13) = " Ritardo Pronos. "
    'AT(12) = " nGuadagno "
    'AT(13) = " Qtà "
    'AT(14) = " s_Ambetti "
    'AT(15) = " n_Vincita "
    Call InitTabella(AT,1,,3,5)
    For es = fin To Ini Step - 1
        For r1 = 1 To 12
            If r1 = 11 Then r1 = 12
            ruota(01) = r1
            posta(01) = 4
            posta(02) = 1
            For p1 = 5 To 5
                'For p2 = p1 + 1 To 5
                a = Estratto(es,r1,p1)
                b = Estratto(es,r1,4)
                If Gemello(a)Then
                    c = Radicale(a)
                    d = Vert(c)
                    e =(11*c)
                    f = Vert(e)
                    b1 = b - 1
                    b2 = b + 1
                    casi = casi + 1
                    anum(01) = b1'c
                    anum(02) = b2' d
                    'anum(3) = 84
                    'anum(4) = f
                    anum1(01) = b1
                    anum2(01) = b2
                    sf1 = SerieRitardo(1,fin,anum1,ruota,1)
                    sf2 = SerieRitardo(1,fin,anum2,ruota,1)
                    'For idestr = es + 1 To fin
                    'ambetti = VerificaAmbetto(anum,r1,idestr,sretnumeri,nvincita)
                    'Next
                    'For x = 1 To 4
                    '---------- calcolo x escludere i numeri trovati ------------------
                    'If EstrattoRitardo(r1,anum(x),es,es) = 0 Then anum(x) = 0
                    '-----------------------------------------------------------------
                    Call VerificaEsitoConGuadagno(anum,ruota,es + 1,1,10,,esito,colpi,estratti,id,,nguad)
                    'Next
                    ReDim AV(13)
                    AV(01) = casi
                    AV(02) = DataEstrazione(es)
                    AV(03) = SiglaRuota(r1)
                    AV(04) = StringaEstratti(es,r1)
                    AV(05) = a
                    AV(06) = p1
                    AV(07) = StringaNumeri(anum)
                    AV(08) = esito
                    AV(09) = colpi
                    AV(10) = estratti
                    If esito <> "" Then AV(11) = DataEstrazione(id)
                    If esito = "" Then AV(11) = " -- "
                    'AV(12) = nguad
                    'AV(13) = ambetti
                    'AV(14) = sretnumeri
                    'AV(15) = nvincita
                    If esito <> "" Then AV(12) = StringaEstratti(id,r1)
                    If esito = "" Then AV(12) = "---.---.---.---.---"
                    AV(13) = Format2(sf1) & " - " & Format2(sf2)
                    If esito = "" And colpi < 10 Then Call AddRigaTabella(AV,4,,3,0)
                    If esito <> "" Then Call AddRigaTabella(AV,3,,3,1)
                    If esito = "" And colpi = 10 Then Call AddRigaTabella(AV,,,3)
                    'If esito <> "" And colpi < 4 Then Call SetColoreCella(9,3,1)
                    If DataEstrazione(id) = DataEstrazione(fin) Then Call SetColoreCella(11,4,2)
                End If
            Next
        Next
    Next
    Call SetTableWidth("100%")
    Call CreaTabella()
End Sub

Mike58 · 5 Dicembre 2014

Ciao Disaronno anche io ti ringrazio per i tuoi lavori e devo dire che anche tu te la cavi benino e poi hai anche capito meglio quello che magari voleva vedere l'amico Lupo Bianco.

un saluto.

Roby · 5 Dicembre 2014

Buonasera,
Mike58,non avevo letto la sua risposta, era mentre rispondevo, altrimenti non l' avrei corretto.
Provi a quardare questa richiesta

Codice:

http://forum.lottoced.com/f12/sapete-come-si-fa-117268/

è un lavoro per Mike58.?!!??

Mike58 · 5 Dicembre 2014

Si Disaronno sono appena rientrato dal lavoro avevo visto è abbastanza semplice da fare.
Se Vuoi e puoi provaci tu, altrimenti domani vedo.

Poi ci mancherebbe le interazioni positive sono sempre di mio gradimento.

gemello in 5° chiama l'ambata

Advanced Member >PLATINUM<

Advanced Member >GOLD<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >GOLD<

Super Member >PLATINUM<

Super member

Advanced Member >PLATINUM PLUS<

Roby

Guest

Advanced Member >PLATINUM PLUS<

Roby

Guest

Advanced Member >PLATINUM PLUS<