script per controllo rendimento 10elotto5m

[adispo2000]

Scusa mike, questo meraviglioso foglio FIVE MINUTES TO WIN si trova a non fare piu il suo lavoro,in quanto e da tempo che non l'ho potevo trovare quindi ho trovato la vecchia versione che si aggiorna alla 228esima estrazione si ferma e rinizia a funzionare se ricordo dopo la mezzanotte. Motivo che sono state implementate le estrazioni a un numero superiore a 228, si potrebbe aggiustare...e se e' possibile adattare a exel 2013.....ciao e scusa del disturbo...ciao

Five-minutes-to-win

 

[Mike58]

No Adispo, mi spiace in questo (Excel) non sono capace anche se quella videata si potrebbe anche simulare con uno script ad oc.

Ciao

 

[adispo2000]

e si puo' fare?

 

[Mike58]

Non saprei fino a che punto fedele al foglio Excel.
Certo se volessi verificare una qualsiasi combinazione come esito e raccolta dati si potrebbe fare qualcosa, come ogni cosa si può cominciare e poi fare nel limite del possibile apportare correttivi.

 

[adispo2000]

guarda ho trovato l'argomento fatto da stefanop e lasciato in asso, pero' controllando ho trovato delle corrispondenze come ambata,ambo,terno,quaterna e cinquina...ma facendo tutto a mano mi viene difficile.....controllare dopo una doppietta quali sono le corrispondenze ma si dovrebbe fare secondo me entro un certo range di sei estrazioni ....
http://forum.lottoced.com/f13/gioco-speculativo-10-e-lotto-5-minuti-2020/

 

[Mike58]

Guarda Adispo, premesso che non gioco al 5min (il tempo non mi permette di seguirlo) ho dato una occhiata alla tabella proposta e si tratto di mettere in gioco il numero da tabella una volta che si presenta la doppietta su 2 estrazioni consecutive.

Ho fatto una sorte di verifica spartana senza completare la tabella stessa se vuoi puoi completarla nella parte di inserimenti numeri nella sezione di inserimenti numeri tanto il corpo script e già pronto per i calcoli.

Doppietta - Numero da giocare

2 31
3 31
4 31
5 31
6 12
7 41
8 41
9 57
10 66
11 31
12 57
13 31
14 31
15 31
16 31
17 25
18 27
19 51
20 57
21 31
22 31
23 31
24 57
25 26
26 8
27 75
28 57
29 27
30 66
31 88
32 31
33 26
34 31
35 57
36 8
37 31
38 12
39 57
40 31
41 25
42 57
43 31
44 31
45 57
46 26
47 57
48 34
49 57
50 57
51 31
52 31
53 7
54 86
55 31
56 7
57 25
58 31
59 41
60 57
61 34
62 12
63 34
64 54
65 31
66 25
67 44
68 26
69 57
70 41
71 31
72 57
73 57
74 41
75 31
76 12
77 57
78 23
79 21
80 27
81 31
82 57
83 57
84 12
85 31
86 46
87 31
88 88
89 88

basta mette per ogni numero il relativo spiato.

provaci serve anche per cominciare a scrivere da soli qualche bozza script.

Sub Main
	Dim nu(10)
	ImpostaArchivio10ELotto(2)
	Ini = EstrazioniArchivioDL - 10
	fin = EstrazioniArchivio
	For es = Ini To fin
		kk = kk + 1
		For p1 = 1 To 20
			For p2 = 1 To 20
				a = EstrattoDL(es - 1,p1)
				b = EstrattoDL(es,p2)
				If a = b Then
					Scrivi GetInfoEstrazioneDL(es - 1) & vbTab & StringaEstrattiDL(es - 1) & vbTab & a & " Posiz. " & p1
					Scrivi GetInfoEstrazioneDL(es) & vbTab & StringaEstrattiDL(es) & vbTab & a & " Posiz. " & p2
					ok = 0
					'-------- inserimento tabella ------------
					If a = 2 Then nu(1) = 31:ok = 1
					If a = 3 Then nu(1) = 31:ok = 1
					If a = 4 Then nu(1) = 31:ok = 1
					If a = 5 Then nu(1) = 31:ok = 1
					If a = 6 Then nu(1) = 12:ok = 1
					If a = 7 Then nu(1) = 41:ok = 1
					If a = 8 Then nu(1) = 41:ok = 1
					If a = 9 Then nu(1) = 57:ok = 1
					' continuare.................. fino a fine tabella
					

					
					
					
					
					
					'------- fine inserimento ----------------
					Call VerificaEsitoDL(nu,es,1,6,esito,clp,estratti,id)
					If ok = 1 Then
						If esito = "Estratto" Then k = k + 1
						Scrivi estratti & "  " & esito & "  " & " Colpo... " & clp,1,1,2,4,2
					End If
					Scrivi
				End If
			Next
		Next
	Next
	Scrivi "Esiti Positivi " & k & " Su casi Totali trovati " & kk,1
End Sub

 

[adispo2000]

scusa mike...io la sto' completando..ma noi dovremmo creare ricercando nell'arch.. una tabella secondo le nostre esigenze: tipo nelle ultime 100 estrazioni lo script ricerca dopo una doppietta oppure se vogliamo solo in casi particolari una tripletta, nelle sei estrazioni successivi quali numeri sono piu' probabili come ambata, ambo, ecc....non so' se sono stato chiaro purtroppo mi spiego a volte poco bene...

 

[adispo2000]

Sub Main
Dim nu(10)
ImpostaArchivio10ELotto(2)
Ini = EstrazioniArchivioDL - 10
fin = EstrazioniArchivio
For es = Ini To fin
kk = kk + 1
For p1 = 1 To 20
For p2 = 1 To 20
a = EstrattoDL(es - 1,p1)
b = EstrattoDL(es,p2)
If a = b Then
Scrivi GetInfoEstrazioneDL(es - 1) & vbTab & StringaEstrattiDL(es - 1) & vbTab & a & " Posiz. " & p1
Scrivi GetInfoEstrazioneDL(es) & vbTab & StringaEstrattiDL(es) & vbTab & a & " Posiz. " & p2
ok = 0
'-------- inserimento tabella ------------
If a = 2 Then nu(1) = 31k = 1
If a = 3 Then nu(1) = 31k = 1
If a = 4 Then nu(1) = 31k = 1
If a = 5 Then nu(1) = 31k = 1
If a = 6 Then nu(1) = 12k = 1
If a = 7 Then nu(1) = 41k = 1
If a = 8 Then nu(1) = 41k = 1
If a = 9 Then nu(1) = 57k = 1
If a = 10 Then nu(1) = 66k = 1
If a = 11 Then nu(1) = 31k = 1
If a = 12 Then nu(1) = 57k = 1
If a = 13 Then nu(1) = 31k = 1
If a = 14 Then nu(1) = 31k = 1
If a = 15 Then nu(1) = 31k = 1
If a = 16 Then nu(1) = 31k = 1
If a = 17 Then nu(1) = 25k = 1
If a = 18 Then nu(1) = 27k = 1
If a = 19 Then nu(1) = 51k = 1
If a = 20 Then nu(1) = 57k = 1
If a = 21 Then nu(1) = 31k = 1
If a = 22 Then nu(1) = 31k = 1
If a = 23 Then nu(1) = 31k = 1
If a = 24 Then nu(1) = 57k = 1
If a = 25 Then nu(1) = 26k = 1
If a = 26 Then nu(1) = 8k = 1
If a = 27 Then nu(1) = 75k = 1
If a = 28 Then nu(1) = 57k = 1
If a = 29 Then nu(1) = 27k = 1
If a = 30 Then nu(1) = 76k = 1
If a = 31 Then nu(1) = 88k = 1
If a = 32 Then nu(1) = 31k = 1
If a = 33 Then nu(1) = 26k = 1
If a = 34 Then nu(1) = 31k = 1
If a = 35 Then nu(1) = 51k = 1
If a = 36 Then nu(1) = 8k = 1
If a = 37 Then nu(1) = 31k = 1
If a = 38 Then nu(1) = 12k = 1
If a = 39 Then nu(1) = 57k = 1
If a = 40 Then nu(1) = 31k = 1
If a = 41 Then nu(1) = 25k = 1
If a = 42 Then nu(1) = 57k = 1
If a = 43 Then nu(1) = 31k = 1
If a = 44 Then nu(1) = 31k = 1
If a = 45 Then nu(1) = 57k = 1
If a = 46 Then nu(1) = 26k = 1
If a = 47 Then nu(1) = 57k = 1
If a = 48 Then nu(1) = 34k = 1
If a = 49 Then nu(1) = 57k = 1
If a = 50 Then nu(1) = 57k = 1
If a = 51 Then nu(1) = 31k = 1
If a = 52 Then nu(1) = 31k = 1
If a = 53 Then nu(1) = 7k = 1
If a = 54 Then nu(1) = 86k = 1
If a = 55 Then nu(1) = 31k = 1
If a = 56 Then nu(1) = 7k = 1
If a = 57 Then nu(1) = 25k = 1
If a = 58 Then nu(1) = 31k = 1
If a = 59 Then nu(1) = 41k = 1
If a = 60 Then nu(1) = 57k = 1
If a = 61 Then nu(1) = 34k = 1
If a = 62 Then nu(1) = 12k = 1
If a = 63 Then nu(1) = 34k = 1
If a = 64 Then nu(1) = 54k = 1
If a = 65 Then nu(1) = 31k = 1
If a = 66 Then nu(1) = 25k = 1
If a = 67 Then nu(1) = 44k = 1
If a = 68 Then nu(1) = 26k = 1
If a = 69 Then nu(1) = 12k = 1
If a = 70 Then nu(1) = 41k = 1
If a = 71 Then nu(1) = 31k = 1
If a = 72 Then nu(1) = 57k = 1
If a = 73 Then nu(1) = 57k = 1
If a = 74 Then nu(1) = 41k = 1
If a = 75 Then nu(1) = 31k = 1
If a = 76 Then nu(1) = 12k = 1
If a = 77 Then nu(1) = 57k = 1
If a = 78 Then nu(1) = 23k = 1
If a = 79 Then nu(1) = 21k = 1
If a = 80 Then nu(1) = 27k = 1
If a = 81 Then nu(1) = 31k = 1
If a = 82 Then nu(1) = 57k = 1
If a = 83 Then nu(1) = 57k = 1
If a = 84 Then nu(1) = 12k = 1
If a = 85 Then nu(1) = 31k = 1
If a = 86 Then nu(1) = 46k = 1
If a = 87 Then nu(1) = 31k = 1
If a = 88 Then nu(1) = 88k = 1
If a = 89 Then nu(1) = 88k = 1

Call VerificaEsitoDL(nu,es,1,6,esito,clp,estratti,id)
If ok = 1 Then
If esito = "Estratto" Then k = k + 1
Scrivi estratti & " " & esito & " " & " Colpo... " & clp,1,1,2,4,2
End If
Scrivi
End If
Next
Next
Next
Scrivi "Esiti Positivi " & k & " Su casi Totali trovati " & kk,1
End Sub

 

[Mike58]

Mi sa che quella faccetta smile non aiuta alla corretta elaborazione dello script dai correggila per quanti volessero utilizzarla senza modificarla da soli.

So poi stai fino a tardi magari prova questo altro script non mio trovato nel mio archivio sul quale poi possiamo rimettere la condizione di doppia uscita (devo vedere dopo )

prova questo.

Sub Main
Dim Inizio,Fine,idEstr,pt2,pt1,pt0,pt3
Dim k,EntroColpi,e,ee,c,quanti,totest
Dim nBase,nUscito,presenzespia
Dim nUscite,kini,kfin,Orarin,Orarfi,gioco,kein
ReDim aPresenze(90,90),Incrocio(90)
Dim RetRit,RetRitMax,RetFreq
gioco = InputBox("1 = 10eLotto serale       2 = 10eLotto5Minuti",,1)
EntroColpi = CInt(InputBox("Entro quanti colpi ?","Colpi",1))
quanti = CInt(InputBox("Quanti numeri frequenti vuoi?",,7))
If gioco = 1 Then
Orarin = 0
Orarfi = 288
Else
Orarin = 49
Orarfi = 75
End If
kin = CInt(InputBox(" solo x 10Lotto5M Range Orario da n.:",,Orarin))
kfi = CInt(InputBox(" solo x 10Lotto5M Range Orario  a n. ",,Orarfi))
kein = CInt(InputBox(" solo x 10Lotto5M quanti giorni Estrazione indietro?",,500))
''''imposta archivio
Call ImpostaArchivio10ELotto(Int(gioco))
If gioco = 1 Then
Inizio = 8077
Fine = EstrazioneFin
Else
Fine = EstrazioniArchivioDL
Inizio = Fine - kein
End If
totest = Fine - Inizio
ColoreTesto(1)
If Int(gioco) = 1 Then
Scrivi " Namescript (SpiaefrequentiRubinoV2)    by(LuigiB - mod.Rubino) "
Scrivi " Archivio impostato su 10 E LOTTO SERALE   " & " Frequenti quantità " & quanti,1
Scrivi " n.estrazioni esaminate " & totest & "   Entro colpi n." & EntroColpi
Scrivi " dal.n.     al n.     " & Inizio & "/" & Fine
End If
If Int(gioco) = 2 Then
Scrivi " Archivio impostato su 1O E LOTTO 5 MINUTI " & " Frequenti quantità " & quanti,1
Scrivi " dal.n.     al n.     " & Inizio & "/" & Fine
OrEda = kin / 12
OrEa = kfi / 12
Scrivi " Ultime estrazioni esaminate " & totest & "   Entro colpi n." & EntroColpi & "     Range Orario :" & " ( " & Int(OrEda) & " : " & Int(OrEa) & " )" & " estr.n." & kin & " : " & kfi
End If
Scrivi " Situazione Frequenti nei colpi successivi all'estrazione del nr.spia ",1
'''''-'-------------------------------------------------------------------------------------------
For k = Inizio To Fine
If IndiceAnnualeDL(k) >= kin And IndiceAnnualeDL(k) <= kfi Then
'Scrivi k & " " & IndiceAnnuale(k) & "--" & kin & "--" & kfi
Call Messaggio(Format2(k) & " " & DataEstrazioneDL(k) & "  range orario:    " & kini & " : " & kfin)
For e = 1 To 20
nBase = EstrattoDL(k,e)
For c = 1 To EntroColpi
idEstr = k + c
For ee = 1 To 20
nUscito = EstrattoDL(idEstr,ee)
aPresenze(nBase,nUscito) = aPresenze(nBase,nUscito) + 1
Next
Next
Next
End If
Call AvanzamentoElab(Inizio,Fine,k)
If ScriptInterrotto Then Exit For
Next
'''''-'-------------------------------------------------------------------------------------------
If quanti < 11 Then
pt3 = quanti - 3
pt2 = quanti - 2
pt1 = quanti - 1
pt0 = quanti
Else
pt0 = 10
pt1 = 9
pt2 = 8
pt3 = 7
End If
ReDim aTitoli(10)
aTitoli(1) = "Numero Spia"
aTitoli(2) = "Numeri Piu Freq"
aTitoli(3) = "Uscite"
aTitoli(4) = "Frequenza"
aTitoli(5) = "% fav.Spia"
aTitoli(6) = "% fav.numeri Freq."
aTitoli(7) = "Punti" & pt3
aTitoli(8) = "Punti" & pt2
aTitoli(9) = "Punti" & pt1
aTitoli(10) = "Punti" & pt0
Call InitTabella(aTitoli,3,"center",1.5,1)
For nBase = 1 To 90
ReDim aValori(10)
aValori(1) = nBase
aValori(2) = GetNumeroPiuFreq(nBase,aPresenze,nUscite,quanti,Incrocio)
ReDim aV(0)
Call SplitByChar(aValori(2)," ",aV)
aValori(3) = nUscite
''''controlla presenze totali spia nel range di estrazioni
ReDim aN(1)
aN(1) = aValori(1)
Call StatisticaFormazioneDL(aN,1,RetRit,RetRitMax,0,RetFreq,Inizio,Fine)
presenzespia = RetFreq
''''controlla frequenze totali della quantità di numeri
ReDim aN(1)
aN(1) = aValori(2)
Call StatisticaFormazioneDL(aN,1,RetRit,RetRitMax,0,RetFreq,Inizio,Fine)
''''controlla frequenze totali della quantità di numeri
f = UBound(aV) - 1
ReDim aVn(f)
For e = 0 To f
aVn(e) = aV(e)
Next
aValori(7) = 0
aValori(8) = 0
aValori(9) = 0
aValori(10) = 0
fpt3 = SerieFreqDL(Inizio,Fine,aVn,pt3)
aValori(7) = fpt3
fpt2 = SerieFreqDL(Inizio,Fine,aVn,pt2)
aValori(8) = fpt2
fpt1 = SerieFreqDL(Inizio,Fine,aVn,pt1)
aValori(9) = fpt1
fpt0 = SerieFreqDL(Inizio,Fine,aVn,pt0)
aValori(10) = fpt0
aValori(4) = presenzespia
aValori(5) = Round(nUscite/totest*100,2)
If presenzespia > 0 Then aValori(6) = Round(nUscite/presenzespia*100,2)
Call AddRigaTabella(aValori)
If aValori(7) > 0 Then Call SetColoreCella(7,vbRed,vbWhite)
If aValori(8) > 0 Then Call SetColoreCella(8,vbGreen,vbBlack)
If aValori(9) > 0 Then Call SetColoreCella(9,vbYellow,vbBlack)
If aValori(10) > 0 Then Call SetColoreCella(10,vbYellow,vbBlack)
Next
Call SetTableWidth("100%")
Call CreaTabella
End Sub
Function GetNumeroPiuFreq(nBase,aPresenze,nUscite,quanti,Incrocio)
Dim k
ReDim aOrd(90,2)
nfre = ""
For k = 1 To 90
aOrd(k,1) = Format2(k)
aOrd(k,2) = aPresenze(nBase,k)
Next
Call OrdinaMatrice(aOrd,- 1,2)
For q = 1 To Int(quanti)
nfre = nfre & aOrd(q,1) & " "
tfre = tfre + aOrd(q,2)
Next
''
''' GetNumeroPiuFreq = aOrd(1,1)
GetNumeroPiuFreq = nfre
''''nUscite = aOrd(1,2)
nUscite = tfre
End Function