Novità

Script su Ambi ripetuti

  • Creatore Discussione Creatore Discussione jure
  • Data di inizio Data di inizio
J

jure

Advanced Member >PLATINUM PLUS<
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°
 
Ciao Jure, avevo già pronto un qualcosa di simile.
Fai le opportune valutazioni.

ciao.

Codice: 
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
 
Ultima modifica:
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

 
Ultima modifica:
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
 
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.
 
Jure, sono costretto a farlo nel modo classico, con le tabelle esiti multipli sono abbastanza complicati.

prova cosi.

Codice: 
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
 
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.
 
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'.
 
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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 21 gennaio 2025
    Bari
    78
    09
    70
    03
    23
    Cagliari
    32
    88
    30
    13
    45
    Firenze
    87
    23
    15
    39
    86
    Genova
    71
    48
    67
    59
    23
    Milano
    58
    50
    80
    85
    29
    Napoli
    90
    81
    79
    82
    62
    Palermo
    70
    33
    90
    05
    10
    Roma
    15
    71
    55
    85
    76
    Torino
    89
    09
    18
    33
    69
    Venezia
    44
    80
    82
    73
    58
    Nazionale
    80
    25
    13
    63
    17
    Estrazione Simbolotto
    Bari
    39
    36
    34
    14
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto