Script su Ambi ripetuti

[jure]

Si può fare uno script che visivamente nell'arco di 21 o
da stabilire su ogni ruota
individuare 2 Ambi ripetuti.I più quotati sono quelli che escono
isotopi e limitati da poche estrazioni
es BA
22/04/2014 - 43 90 = 1° 5°
06/05/2014 - 43 90 = 2° 4°
es. CA
26/04/2014 - 52 85 = 2° 3°
15/05/2014 - 52 85 = 2° 3°
Se due Ambi si ripetono in un arco limitato
di tempo può uscire 1 dei 2 numero o l'Ambo stesso.
es.
15/03/2014 - 29 74 = 2° 3°
20/03/2014 - 29 74 = 1° 2°
Si ripropone il 03/05/2014 il 74 29 = 2° 3°

 

[Mike58]

Ciao Jure, avevo già pronto un qualcosa di simile.
Fai le opportune valutazioni.

ciao.

Sub Main
Dim aNum(2),aNum2(2)
Dim aRuota(1)
r = InputBox("Quale ruota ","RUOTA",12)
rp = CInt(InputBox("Quante estrazioni a ritroso cerco l'ambo ripetuto ?","AMBO RIPETUTO",10))
sorte = CInt(InputBox("QUALE SORTE CERCO ESITO",,1))
aRuota(1) = r
ReDim t(8)
t(1) = " Range inizio "
t(2) = " Range Fine "
t(3) = " Tot. Estr "
t(4) = " Ruota "
t(5) = " Ricerca a Ritroso "
t(6) = " Richiesta "
t(7) = " Autor script "
t(8) = " Sorte Esito "
Call InitTabella(t,2,,3,5)
Ini = EstrazioneFin - 200
fin = EstrazioneFin
Tot = fin - Ini
ReDim v(8)
v(1) = Ini
v(2) = fin
v(3) = Tot
v(4) = NomeRuota(r)
v(5) = rp
v(6) = " jure "
v(7) = " Mike58 "
v(8) = NomeSorte(sorte)
Call AddRigaTabella(v,4,,3,1)
Call CreaTabella()
ReDim at(14)
at(1) = " Info Estraz. Prec "
at(2) = " Ambo Ripetuto "
at(3) = " Posizioni "
at(4) = " Estratti "
at(5) = " Info estraz. corr "
at(6) = " Ambo Ripetuto "
at(7) = " Posizioni "
at(8) = " Estratti "
at(9) = " Rit Prec "
at(10) = " Posiz,DET."
at(11) = " Esito "
at(12) = " colpo "
at(13) = " Ret_estratti "
at(14) = " Info Estraz.Esito "
Call InitTabella(at,1,,2,5)
For es = fin To Ini Step - 1
Messaggio "Elaboro Estrazioni............ " & es
Call AvanzamentoElab(Ini,fin,es)
dal = es - rp
al = es - 1
For ex = dal To al
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(ex,r,p1)
n2 = Estratto(ex,r,p2)
aNum(1) = n1
aNum(2) = n2
sr = SerieRitardo(dal,al,aNum,aRuota,2)
For p3 = 1 To 4
For p4 = p3 + 1 To 5
n3 = Estratto(es,r,p3)
n4 = Estratto(es,r,p4)
aNum2(1) = n3
aNum2(2) = n4
If aNum(1) = aNum2(1) Or aNum(1) = aNum2(2) Then
If aNum(2) = aNum2(1) Or aNum(2) = aNum2(2) Then
If sr < rp Then
ReDim av(14)
av(1) = GetInfoEstrazione(es - sr - 1)
av(2) = StringaNumeri(aNum,,True)
av(3) = p1 & "-" & p2
av(4) = StringaEstratti(es - sr - 1,r)
av(5) = GetInfoEstrazione(es)
av(6) = StringaNumeri(aNum2,,True)
av(7) = p3 & "-" & p4
av(8) = StringaEstratti(es,r)
av(9) = sr+1
For x = 1 To 5
If x = p1 And x = p2 And x = p3 And x = p4 Then av(10) = ""
If x <> p1 And x <> p2 And x <> p3 And x <> p4 Then av(10) = x
Call VerificaEsito(aNum2,aRuota,es + 1,sorte,,Nothing,esito,colpo,estratti,id)
Next
av(11) = esito
av(12) = colpo
av(13) = estratti
av(14) = GetInfoEstrazione(id)
Call AddRigaTabella(av,,,2)
Call SetColoreCella(2,,1)
Call SetColoreCella(6,,1)
Call SetColoreCella(4,,7)
Call SetColoreCella(8,,7)
If esito = "" Then Call SetColoreCella(12,2,4)
End If
End If
End If
Next
Next
Next
Next
Next
Next
Call SetTableWidth("100%")
Call CreaTabella()
End Sub

 

[jure]

Grazie Mike58 il programma è perfetto
è possibile inserire anche il 2° o 3° esito per Ambata se avvenuto
nell'arco delle estrazioni richieste?

es.
Bari
22/04/2014 = 43 90
06/05/2014 = 43 90
1° esito 90 il 08/05/2014
2° esito 90 il 13/05/2014

 

[Mike58]

No !!! Jure siccome hai chiesto un qualcosa di visivo ed immediato le tabelle e con il codice verficaesito la vincita si ferma al primo esito valido.
Si Potrebbe anche fare ma le righe della tabella diventerebbero tante ed infinite e si perderebbe la visione immediata.
Posso anche farlo... ma per me non è intuitivo, come posso anche farlo nel modo classico e senza tabella con tutti i casi positivi.

fammi sapere come lo vuoi perché dovrei riscrivere un po' di cose.

Ciao

 

[jure]

sctipt Ambi Ripetuti

sctipt Ambi Ripetuti

Ciao Mike58 per me sono importanti sapere gli esiti
successivi dopo il primo esito togli il riferimento di data
del primo esito e fai inserire i numeri che sono stati
estratti dopo es.Ambo 35 38 usciti finora 38 38 senza metterci la data di uscita.

 

[Mike58]

Jure, sono costretto a farlo nel modo classico, con le tabelle esiti multipli sono abbastanza complicati.

prova cosi.

Sub Main
	Dim aNum(2),aNum2(2)
	Dim aRuota(1),posta(5)
	posta(1) = 1
	posta(2) = 1
	r = InputBox("Quale ruota ","RUOTA",1)
	rp = CInt(InputBox("Quante estrazioni a ritroso cerco l'ambo ripetuto ?","AMBO RIPETUTO",10))
	sorte = CInt(InputBox("QUALE SORTE CERCO ESITO",,1))
	colpo = CInt(InputBox("QUANTI COLPI DI ESITO",,20))
	aRuota(1) = r
	Ini = EstrazioneFin - 200
	fin = EstrazioneFin
	Tot = fin - Ini
	Scrivi " ******************* Scrivi il Titolo che vuoi ********************** ",1,1,2,4,2
	For es = Ini To fin
		Messaggio "Elaboro Estrazioni............ " & es
		Call AvanzamentoElab(Ini,fin,es)
		dal = es - rp
		al = es - 1
		For ex = dal To al
			For p1 = 1 To 4
				For p2 = p1 + 1 To 5
					n1 = Estratto(ex,r,p1)
					n2 = Estratto(ex,r,p2)
					aNum(1) = n1
					aNum(2) = n2
					sr = SerieRitardo(dal,al,aNum,aRuota,2)
					For p3 = 1 To 4
						For p4 = p3 + 1 To 5
							n3 = Estratto(es,r,p3)
							n4 = Estratto(es,r,p4)
							aNum2(1) = n3
							aNum2(2) = n4
							If aNum(1) = aNum2(1) Or aNum(1) = aNum2(2) Then
								If aNum(2) = aNum2(1) Or aNum(2) = aNum2(2) Then
									If sr < rp Then
									k = k + 1
									Scrivi String (130,"=")
									ColoreTesto 1
										Scrivi GetInfoEstrazione(es - sr - 1) & "  ",0,0
										Scrivi StringaNumeri(aNum,,True) & "  ",0,0
										Scrivi "Posiz. " & p1 & "-" & p2 & "  ",0,0
										Scrivi StringaEstratti(es - sr - 1,r)
										
										Scrivi GetInfoEstrazione(es) & "  ",0,0
										Scrivi StringaNumeri(aNum2,,True) & "  ",0,0
										Scrivi "Posiz. " &  p3 & "-" & p4 & "  ",0,0
										Scrivi StringaEstratti(es,r)
										ColoreTesto 2
										Scrivi "Ritardo Precedente : " & sr+1
										ColoreTesto 0
										Scrivi String(120,"-") & " Caso n." & k
										Call ImpostaGiocata(1,aNum,aRuota,posta,colpo)
										Call Gioca (es,1,,1)

									End If
								End If
							End If
						Next
					Next
				Next
			Next
		Next
	Next
	ScriviResoconto
End Sub

 

[jure]

Bravissimo Mike58 riesco ugualmente a monitorare gli esiti Multipli.
es. secondo a una mia ricerca ho notato se dopo
l'ambo ripetuto esce progressivamente per 2 volte lo stesso numero
dell'ambo entro un periodo
limitato esce il numero mancante.
es.
Roma
01/04/2014 - 89 22 = 1° 2°
17/04/2014 - 89 22 = 1° 3°
26/04/2014 - ---22 = 4°
29/04/2014 - 22 = 5°
l'89 mancante esce al 24/05
Spesse volte esce prima entro
un periodo canonico di 12 colpi.

 

[Mike58]

Ciao Grazie per l'apprezzamento, studiaci un pochetto.

 

[Antonin]

Ciao Mike58, ottimo lavoro per questa ricerca,si potrebbe fare anche per la ricerca in decine naturali,e controllare i singoli piu'usciti nelle estrazioni successive?
Grazie per la tua disponibilita'.

 

[Mike58]

Ciao Antonio , non lo so mi sembra tutto un altro script e ultimamente sono impegnato oltre che maggiormente al lavoro anche in altri lavori scriptici.

Per questo passo !!!

Ciao

 

[Antonin]

Grazie l'ho stesso.