Numero rimasto

[jure]

Chi mi può fare questo script.
Quando in una estrazione e in qualsiasi ruota escono 2 numeri
es. Genova 14/11 il 61 27 quando entro 9 estrazioni esce uno dei 2 numeri
giocare il numero mancante.
es. a Ge il 14/11 = 61 27
il 16/11 è uscito 61 giocare il 27 che è quello mancante ed è
uscito la estrazione successiva il 19/11.
es. Milano il 31/10 ci sono i numeri 82 57
dopo 3 estrazioni il 07/11 viene estratto l'82 per le estrazioni
successive dovrà essere giocato quello mancante cioè il 57 che esce
la settimana successiva il 09/11.

 

[jure]

Qualche prova recente.
fatta manualmente.
Il 07/11 vengono estratti FI 43 04 il 19/11 viene estratto il 04 al 3° Colpo esce il 43
Il 09/11 vengono estratti PA 11 51 il 19/11 esce l'11 al 2° Colpo esce il 51
Il 05/11 vengono estratti Ba 45 33 il 09/11 esce il 33 al 7° Colpo esce il 45
e tanti altri.

Il Programma servirebbe per trovare l'ambata secca su Ruota.

 

[Mike58]

Ciao Jure lo script in apparenza è facile, ma c'è un problema....
va bene per le ruote scelte
va bene per la ripetizione del numero
il problema che i numeri mancanti sono 4 e senza indizi per definire quale numero buono è mancante i numeri restano 4

ciao

 

[jure]

Ciao Mike58 dovresti fare il 1° 2°-1° 3° - 1° 4° - 1° 5°
2° 3° - 2° 4° - 2° 5°
3° 4° - 3° 5°
4° 5°.
di ogni coppia quando esce un numero dei due entro 9 colpi
giocare il rimanente per altri 9 colpi.

 

[Mike58]

Jure, anche cosi non è definito, infatti se esce il numero ripetuto in 1° posizione i mancanti sono sempre 4.
devi definire ancor meglio la condizione del numero rimanente.
ciao

 

[jure]

Ciao mike58 allora fai solo con i consecutivi.
1° 2° - 2° 3° - 3° 4° - 4° 5°.
es. MI 17 86 73 84 30 del 15/10
prendi il 17 86 il 19/10 esce il 17 per 9 colpi giocare l'86 il 12/11
esce l'86
poi prendi l'86 73 nei 9 colpi non non ci sono nessuno dei due.
prendi il 73 84 al 9° colpo esce l'84 giocare per 9 colpi il
rimanente cioè il 73 il 73 esce dopo 2 colpi il 09/11
poi prendi l'84 30 al 9° colpo esce l'84 e giocare il rimanente 30 per 9 colpi
al 4° colpo esce il 30 1l 14/11 e via così a ogni estrazione.

 

[Mike58]

Ciao Jure, ci sono ancora dei punti oscuri, se il numero ripetuto esce in 2° posizione, vengono buono sia il 1° che il 3° estratto.
Dai vedo cosa posso fare !!! Domani.

Ciao

 

[jure]

Ciao Mike58 si il 2° estratto se esce vale sia per il 1° che per il 3°estratto.

 

[Mike58]

Ciao Jure i casi sono tanti, intanto prova questa soluzione che gioca l'estratto ripetuto predecente dalla posizione trovata + 1

Sub Main
	Scrivi"Ricerca Numero ripetuto da estrazioni precedenti *** Richiesta Jure *** Forum Lottoced ***" & " Listed by Mike58",1
	Dim ruote(1)
	Dim k(1)
	Dim posta(1)
	posta(1) = 1
	tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",50))
	ritroso = CInt(InputBox("QUANTE ESTRAZIONI A RITROSO CERCO RIPETUTO",,6))
	colpi = CInt(InputBox("QUANTI COLPI GIOCO AMBATA",,9))
	co = 0
	ini = EstrazioneFin - tmp
	fin = EstrazioneFin
	For es = ini To fin
		For exx = es - ritroso To es - 1
			tt = es - exx
			Call AvanzamentoElab(Ini,fin,es)
			Messaggio(es)
			For r1 = 1 To 10
				For p1 = 1 To 5
					For p2 = 1 To 4
						n1 = Estratto(es,r1,p1)
						n3 = Estratto(exx,r1,p2)
						n4 = Estratto(exx,r1,p2 + 1)
						ruote(1) = r1
						If n1 = n3 Then
							co = co + 1
							Scrivi String(100,"=")
							ColoreTesto 1
							Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " ---> Numero " & n1 & " - " & " Posiz. " & p1,1
							ColoreTesto 2
							Scrivi "Trovati stessi estratti in posiz. isotopa..." & tt & " Estrazioni precedenti",1
							ColoreTesto 1
							Scrivi DataEstrazione(exx) & " " & SiglaRuota(r1) & " " & StringaEstratti(exx,r1) & " ---> Numero " & n3 & " - " & " Posiz. " & p2,1
							ColoreTesto 7
							Scrivi DataEstrazione(exx) & " " & SiglaRuota(r1) & " " & StringaEstratti(exx,r1) & " ---> Numero " & n4 & " - " & " Posiz. " & p2 + 1,1
							ColoreTesto 0
							Scrivi String(70,"-") & " Caso n° " & co
							k(1) = n4
							ImpostaGiocata 1,k,ruote,posta,colpi,1
							Gioca es,1
						End If
					Next
				Next
			Next
		Next
	Next
	Scrivi
	Scrivi "Casi Riscontrati.... n°. " & CInt(co),1,- 1,3
	ScriviResoconto
End Sub

 

[jure]

GRAZIE Mike58 mi sembra questa la soluzione Migliore per ridurre
il numero di previsioni. Non ci avevo pensato.