Novità

Script su Ambi ripetuti

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

jure

Premium Member
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ì 28 ottobre 2025
    Bari
    71
    36
    81
    10
    35
    Cagliari
    42
    69
    62
    52
    35
    Firenze
    03
    80
    38
    54
    11
    Genova
    88
    41
    18
    07
    45
    Milano
    48
    43
    11
    17
    57
    Napoli
    18
    55
    10
    15
    04
    Palermo
    67
    26
    33
    49
    45
    Roma
    14
    77
    10
    05
    54
    Torino
    79
    87
    42
    55
    40
    Venezia
    62
    18
    85
    74
    01
    Nazionale
    61
    45
    38
    34
    62
    Estrazione Simbolotto
    44
    34
    11
    25
    16
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto