X MIKE TUTTO SU NUMERI SPIA

[keeper]

sto verificando

 

[Mike58]

Raga, ciao ci stiamo accavallando tra opinioni e richieste.
degli script postati :

1° script - c'è la scelta spia + i numeri frequenti dopo spia entro colpi stabiliti, sia 10 e lotto che super.
2° script - ci sono i numeri che maggiormente si sono presentati con la spia scelta.

Resta inteso che poi ognuno di noi deve fare le proprie verifiche e scelte con i numeri estrapolati.

Altre vie non mi pare che sono percorribili.

Io resto disponibile alle idee di uso comune, mentre se andiamo a cercare ogni qualvolta la particolarità Bhe!! penso che non si arrivi a nulla.

Ciao Raga, il tutto con simpatia.

 

[Alien.]

per adesso..........

 

[keeper]

ha ragione non bisogna perdere di vista l'obiettivo. facciamo le nostre verifiche e ne discutiamo

 

[keeper]

l'unica precisazione
2° script - ci sono i numeri che maggiormente si sono presentati con la spia scelta. ovvero quando è sortito anche il 16 nella stessa estrazione e non dopo

 

[keeper]

posto questo script mike58 che fa quello che volevo ma solo per 10elotto serale

Sub Main()
ImpostaArchivio10ELotto(2)
Dim num(10),nu(1),sorte(10)
SP = CInt(InputBox("Quale spia ",,37))
so = CInt(InputBox("Quale sorte verificare...",,2))
cl = CInt(InputBox("Quanti colpi verificare...",,6))
dett = InputBox("Vuoi vedere il DETTAGLIO... 1=SI 2=NO",,2)
ScegliNumeri(num)
For k = 1 To UBound(num)
num(k) = num(k)
Next
Scrivi "Verifica dopo numero SPIA l'esito in x.. colpi dei Numeri..." & StringaNumeri(num),1
Scrivi
nu(1) = sp
fin = EstrazioniArchivioDL
ini = fin - 100
ReDim atitoli(6)
atitoli(1) = " DATA ESTR. "
atitoli(2) = " SPIA "
atitoli(3) = " ESITO "
atitoli(4) = " STRINGA ESITO"
atitoli(5) = "N° Colpi"
atitoli(6) = " NUMERI IN GIOCO "
Call InitTabella(atitoli,1,,3,5)
For es = ini To fin
If SerieFreqDL(es,es,nu,1) = 1 Then
Messaggio es
AvanzamentoElab Ini,fin,es
Call VerificaEsitoDL(num,es + 1,so,cl,retesito,retcolpi,retestratti,retidestr)
ReDim avalori(6)
avalori(1) = GetInfoEstrazioneDL(es)
avalori(2) = SP
avalori(3) = retesito
avalori(4) = retestratti
avalori(5) = retcolpi & "°"
avalori(6) = StringaNumeri(num)
Call AddRigaTabella(avalori,,,2)
End If
Next
CreaTabella
If dett = 1 Then
Scrivi"---------------------------- DETTAGLIO GIOCATE ----------------------------------------"
fin = EstrazioniArchivioDL
Ini = fin - 100
nu(1) = sp
For es = Ini To fin
If SerieFreqDL(es,es,nu,1) = 1 Then
ImpostaGiocataDL 1,num,1,6
gs = GetSpesa(True)
gv = GetVincita(True)
gg = GetGuadagno(True)
Scrivi String(125,"="),1
ColoreTesto 1
Scrivi "Uscita numero SPIA..." & SP & " Nell'estrazione del..." & GetInfoEstrazioneDL(es),1
ColoreTesto 0
Scrivi String(125,"="),1
GiocaDL es
gs = GetSpesa(True)
gv = GetVincita(True)
gg = GetGuadagno(True)
Scrivi"Spesa Parziale....." & gs
Scrivi"Vincite Parziale..." & gv
Scrivi"Guadagno Parziale.." & gg
End If
Next
ScriviResocontoDL
End If
If dett = 2 Then
TestoInBandaPassante(" Listed by Mike58 "),1,3,0
End If
End Sub

 

[Micio]

 

[Mike58]

ciao keeper, se cercavi solo la scelta archivio bastava cercare di copiare le righe di scelta archivio.
Tu sai che il codice archivio ImpostaArchivio10ELotto(1) equivale al serale ImpostaArchivio10ELotto(2) al 5min, tuttavia tramite imput box è possibile far fare la scelta in automatico chiamandola "arch" ed iimpostando
ImpostaArchivio10ELotto(arch) si ha la scelta archivio voluta.

I numeri restano quelli scelti.
Attenzione !!!! se scegli + di 10 numeri e vuoi vedere il dettaglio lo script andrà in errore in quando il codice gioca es in questo caso attivato non elabora bollette superiori a 10 numeri.

Sub Main()
arch = CInt(InputBox("QUALE ARCHIVIO" & Chr(13) & Chr(13) & "1 - 10 e lotto Serale" & Chr(13) & "2 - 10 e lotto 5Min",,1))
 ImpostaArchivio10ELotto(arch)
 Dim num(10),nu(1),sorte(10)
 SP = CInt(InputBox("Quale spia ",,37))
 so = CInt(InputBox("Quale sorte verificare...",,2))
 cl = CInt(InputBox("Quanti colpi verificare...",,6))
 dett = InputBox("Vuoi vedere il DETTAGLIO... 1=SI 2=NO",,2)
 ScegliNumeri(num)
 For k = 1 To UBound(num)
 num(k) = num(k)
 Next
If arch = 1 Then Scrivi" ***** 10 e lotto Serale ***** ",1
If arch = 2 Then Scrivi" ***** 10 e lotto 5Min ***** ",1

 Scrivi "Verifica dopo numero SPIA l'esito in x.. colpi dei Numeri..." & StringaNumeri(num),1
 Scrivi
 nu(1) = sp
 fin = EstrazioniArchivioDL
 ini = fin - 100
 ReDim atitoli(6)
 atitoli(1) = " DATA ESTR. "
 atitoli(2) = " SPIA "
 atitoli(3) = " ESITO "
 atitoli(4) = " STRINGA ESITO"
 atitoli(5) = "N° Colpi"
 atitoli(6) = " NUMERI IN GIOCO "
 Call InitTabella(atitoli,1,,3,5)
 For es = ini To fin
 If SerieFreqDL(es,es,nu,1) = 1 Then
 Messaggio es
 AvanzamentoElab Ini,fin,es
 Call VerificaEsitoDL(num,es + 1,so,cl,retesito,retcolpi,retestratti,retidestr)
 ReDim avalori(6)
 avalori(1) = GetInfoEstrazioneDL(es)
 avalori(2) = SP
 avalori(3) = retesito
 avalori(4) = retestratti
 avalori(5) = retcolpi & "°"
 avalori(6) = StringaNumeri(num)
 Call AddRigaTabella(avalori,,,2)
 End If
 Next
 CreaTabella
 If dett = 1 Then
 Scrivi"---------------------------- DETTAGLIO GIOCATE ----------------------------------------"
fin = EstrazioniArchivioDL
 Ini = fin - 100
 nu(1) = sp
 For es = Ini To fin
 If SerieFreqDL(es,es,nu,1) = 1 Then
 ImpostaGiocataDL 1,num,1,6
 gs = GetSpesa(True)
 gv = GetVincita(True)
 gg = GetGuadagno(True)
 Scrivi String(125,"="),1
 ColoreTesto 1
 Scrivi "Uscita numero SPIA..." & SP & " Nell'estrazione del..." & GetInfoEstrazioneDL(es),1
 ColoreTesto 0
 Scrivi String(125,"="),1
 GiocaDL es
 gs = GetSpesa(True)
 gv = GetVincita(True)
 gg = GetGuadagno(True)
 Scrivi"Spesa Parziale....." & gs
 Scrivi"Vincite Parziale..." & gv
 Scrivi"Guadagno Parziale.." & gg
 End If
 Next
 ScriviResocontoDL
 End If
 If dett = 2 Then
 TestoInBandaPassante(" Listed by Mike58 "),1,3,0
 End If
 End Sub

 

[Mike58]

l'unica precisazione
2° script - ci sono i numeri che maggiormente si sono presentati con la spia scelta. ovvero quando è sortito anche il 16 nella stessa estrazione e non dopo

si solo quelli

 

[keeper]

ecco cosa volevo dimostrare
che con una progressione di 20 colpi x cinquina per vincere almeno 1 euro anche 20 colpi non bastano. quindi i numeri anhe se ridotti a 10 occorre giocarli con qualche sistemino

 

[Alien.]

ecco cosa volevo dimostrare
che con una progressione di 20 colpi x cinquina per vincere almeno 1 euro anche 20 colpi non bastano. quindi i numeri anhe se ridotti a 10 occorre giocarli con qualche sistemino

ciao keeper vado di corsa......ho visto word che per 6 colpi stessa cinquina poi 3 colpi poi 6 colpi poi 4 colpi....già ma bisogna vedere da che ora a ora è uscito il 16...

 

[Alien.]

Vedi l'allegato 9765

Ciao micio...........

 

[keeper]

ciao alien se vuoi ho anche uno script per fasce di orario ma ho lasciato perdere non da risultati quindi edcluderei le fasce. poi ricordo che ci tfoviamo di fronte ad un gioco generato in rng quindi imprevedibili

 

[Alien.]

posto questo script mike58 che fa quello che volevo ma solo per 10elotto serale

Sub Main()
ImpostaArchivio10ELotto(2)
Dim num(10),nu(1),sorte(10)
SP = CInt(InputBox("Quale spia ",,37))
so = CInt(InputBox("Quale sorte verificare...",,2))
cl = CInt(InputBox("Quanti colpi verificare...",,6))
dett = InputBox("Vuoi vedere il DETTAGLIO... 1=SI 2=NO",,2)
ScegliNumeri(num)
For k = 1 To UBound(num)
num(k) = num(k)
Next
Scrivi "Verifica dopo numero SPIA l'esito in x.. colpi dei Numeri..." & StringaNumeri(num),1
Scrivi
nu(1) = sp
fin = EstrazioniArchivioDL
ini = fin - 100
ReDim atitoli(6)
atitoli(1) = " DATA ESTR. "
atitoli(2) = " SPIA "
atitoli(3) = " ESITO "
atitoli(4) = " STRINGA ESITO"
atitoli(5) = "N° Colpi"
atitoli(6) = " NUMERI IN GIOCO "
Call InitTabella(atitoli,1,,3,5)
For es = ini To fin
If SerieFreqDL(es,es,nu,1) = 1 Then
Messaggio es
AvanzamentoElab Ini,fin,es
Call VerificaEsitoDL(num,es + 1,so,cl,retesito,retcolpi,retestratti,retidestr)
ReDim avalori(6)
avalori(1) = GetInfoEstrazioneDL(es)
avalori(2) = SP
avalori(3) = retesito
avalori(4) = retestratti
avalori(5) = retcolpi & "°"
avalori(6) = StringaNumeri(num)
Call AddRigaTabella(avalori,,,2)
End If
Next
CreaTabella
If dett = 1 Then
Scrivi"---------------------------- DETTAGLIO GIOCATE ----------------------------------------"
fin = EstrazioniArchivioDL
Ini = fin - 100
nu(1) = sp
For es = Ini To fin
If SerieFreqDL(es,es,nu,1) = 1 Then
ImpostaGiocataDL 1,num,1,6
gs = GetSpesa(True)
gv = GetVincita(True)
gg = GetGuadagno(True)
Scrivi String(125,"="),1
ColoreTesto 1
Scrivi "Uscita numero SPIA..." & SP & " Nell'estrazione del..." & GetInfoEstrazioneDL(es),1
ColoreTesto 0
Scrivi String(125,"="),1
GiocaDL es
gs = GetSpesa(True)
gv = GetVincita(True)
gg = GetGuadagno(True)
Scrivi"Spesa Parziale....." & gs
Scrivi"Vincite Parziale..." & gv
Scrivi"Guadagno Parziale.." & gg
End If
Next
ScriviResocontoDL
End If
If dett = 2 Then
TestoInBandaPassante(" Listed by Mike58 "),1,3,0
End If
End Sub

-------ma senti se non ho errato....questo sembra per 10elotto ogni 5'-----------

 

[keeper]

si ma mike lo ha risistemato

 

[Alien.]

acc....keeper e Mike...si può avere l'originale 10elotto serale......grazie.

 

[Micio]

Ciao micio...........

ciao ragazzi qua ce da pedalare e pedalare..... salutone a tutti da parte mia,

 

[Alien.]

capito ma non usare mai la colt........hai un solo tesoro..........te stesso.

 

[keeper]

si ma mike lo ha risistemato

garda la pagina dietro

 

[Alien.]

acc...avevo postato ma.....mi è saltato?
Si ho copiato ma mi da sempre l'analisi dello stesso giorno.....come se fosse 10elotto ogni 5'....


dicevi questo vero?

posto questo script mike58 che fa quello che volevo ma solo per 10elotto serale.

Sub Main()
ImpostaArchivio10ELotto(2)
Dim num(10),nu(1),sorte(10)
SP = CInt(InputBox("Quale spia ",,37))
so = CInt(InputBox("Quale sorte verificare...",,2))
cl = CInt(InputBox("Quanti colpi verificare...",,6))
dett = InputBox("Vuoi vedere il DETTAGLIO... 1=SI 2=NO",,2)
ScegliNumeri(num)
For k = 1 To UBound(num)
num(k) = num(k)
Next
Scrivi "Verifica dopo numero SPIA l'esito in x.. colpi dei Numeri..." & StringaNumeri(num),1
Scrivi
nu(1) = sp
fin = EstrazioniArchivioDL
ini = fin - 100
ReDim atitoli(6)
atitoli(1) = " DATA ESTR. "
atitoli(2) = " SPIA "
atitoli(3) = " ESITO "
atitoli(4) = " STRINGA ESITO"
atitoli(5) = "N° Colpi"
atitoli(6) = " NUMERI IN GIOCO "
Call InitTabella(atitoli,1,,3,5)
For es = ini To fin
If SerieFreqDL(es,es,nu,1) = 1 Then
Messaggio es
AvanzamentoElab Ini,fin,es
Call VerificaEsitoDL(num,es + 1,so,cl,retesito,retcolpi,retestratti,retidestr)
ReDim avalori(6)
avalori(1) = GetInfoEstrazioneDL(es)
avalori(2) = SP
avalori(3) = retesito
avalori(4) = retestratti
avalori(5) = retcolpi & "°"
avalori(6) = StringaNumeri(num)
Call AddRigaTabella(avalori,,,2)
End If
Next
CreaTabella
If dett = 1 Then
Scrivi"---------------------------- DETTAGLIO GIOCATE ----------------------------------------"
fin = EstrazioniArchivioDL
Ini = fin - 100
nu(1) = sp
For es = Ini To fin
If SerieFreqDL(es,es,nu,1) = 1 Then
ImpostaGiocataDL 1,num,1,6
gs = GetSpesa(True)
gv = GetVincita(True)
gg = GetGuadagno(True)
Scrivi String(125,"="),1
ColoreTesto 1
Scrivi "Uscita numero SPIA..." & SP & " Nell'estrazione del..." & GetInfoEstrazioneDL(es),1
ColoreTesto 0
Scrivi String(125,"="),1
GiocaDL es
gs = GetSpesa(True)
gv = GetVincita(True)
gg = GetGuadagno(True)
Scrivi"Spesa Parziale....." & gs
Scrivi"Vincite Parziale..." & gv
Scrivi"Guadagno Parziale.." & gg
End If
Next
ScriviResocontoDL
End If
If dett = 2 Then
TestoInBandaPassante(" Listed by Mike58 "),1,3,0
End If
End Sub