Modesto Contributo 10 e lotto

[keeper]

Cìao filma hai abbandonato l'altro metodo mi invieresti entrambi i file execell che hai realizzato a keeper_it@VIOLAZIONE: scambio email non consentito !.it se ti va.

 

[imported_n/a]

quote:Originally posted by keeper

Cìao filma hai abbandonato l'altro metodo mi invieresti entrambi i file execell che hai realizzato a keeper_it@VIOLAZIONE: scambio email non consentito !.it se ti va.

Wee fill a stò punto sono curioso anche io la mia mail già la conosci

 

[fillotto]

quote:Originally posted by cebino

quote:Originally posted by keeper

Cìao filma hai abbandonato l'altro metodo mi invieresti entrambi i file execell che hai realizzato a keeper_it@VIOLAZIONE: scambio email non consentito !.it se ti va.

Wee fill a stò punto sono curioso anche io la mia mail già la conosci

Inviato file fatemi sapere se è arrivato dopo Keeper mi accorgo solo adesso che c'è "-" che non ho messo
ho ripetuto la mail x Keeper fatemi sapè so scarso in queste cose Fill

 

[imported_n/a]

quote:Originally posted by fillotto

quote:Originally posted by cebino

quote:Originally posted by keeper

Cìao filma hai abbandonato l'altro metodo mi invieresti entrambi i file execell che hai realizzato a keeper_it@VIOLAZIONE: scambio email non consentito !.it se ti va.

Wee fill a stò punto sono curioso anche io la mia mail già la conosci

Inviato file fatemi sapere se è arrivato dopo Keeper mi accorgo solo adesso che c'è "-" che non ho messo
ho ripetuto la mail x Keeper fatemi sapè so scarso in queste cose Fill

Fill tutto ok grazie 1000 sto analizzando un po tutto il file
pero ho la necessità di parlarti tu sai come
ci sentiamo in chat
ciao

 

[Debora73]

quote:Originally posted by LuigiB

Ciao Debora , non si trattava di uno script completo ma di un
suggerimento generico per keeper , rubino , filotto i quali stanno
facendo prove con lo script fatto da rubino ma avevano difficoltà col 10 e lotto 5 minuti

...ah ok Luigi[:I]
grazie

 

[keeper]

quote:Originally posted by cebino

quote:Originally posted by fillotto

quote:Originally posted by cebino

quote:Originally posted by keeper

Cìao filma hai abbandonato l'altro metodo mi invieresti entrambi i file execell che hai realizzato a keeper_it@VIOLAZIONE: scambio email non consentito !.it se ti va.

Wee fill a stò punto sono curioso anche io la mia mail già la conosci

Inviato file fatemi sapere se è arrivato dopo Keeper mi accorgo solo adesso che c'è "-" che non ho messo
ho ripetuto la mail x Keeper fatemi sapè so scarso in queste cose Fill

Fill tutto ok grazie 1000 sto analizzando un po tutto il file
pero ho la necessità di parlarti tu sai come
ci sentiamo in chat
ciao

ciao fill tutto ok è stato ricevuto ma l'iserimento delle estrazioni giornaliere? scusa la mia ignoranza

 

[keeper]

ho incollato le estrazioni l'unica cosa ho bisogno di cebino per favore contattatami

 

[fillotto]

Ciao Keeper
mi sembra di avertelo detto, per fare un file di Excel del 10eLotto5Min
di un giorno qualsiasi(a patto di averlo caricato ovviamente)ecco
lo script che del resto si trova anche sull prima pagina di questo post:

Sub Main

Dim xlApp ' applicazione excel
Dim xlBook ' workbook
Dim xlSheet ' sheet
Dim k,j
Dim nEstrInizio,nEstrFine
Dim nRiga
Dim sData

Call ImpostaArchivio10ELotto(2)

sData = InputBox("Inserire una data in formato gg/mm/aaaa ,verranno esportate in excel le estrazioni di quella data")
If IsDate(sData) Then
ReDim aV(0)
Call SplitByChar(sData,"/",aV)
nEstrInizio = DataEstrToIdEstrDL(aV(0),aV(1),aV(2),1)
nEstrFine = DataEstrToIdEstrDL(aV(0),aV(1),aV(2),204)

If nEstrInizio > 0 Then
Set xlApp = CreateObject("Excel.Application") 'istanzio excel
Set xlBook = xlApp.workbooks.Add ' aggiungo un workbook

Set xlSheet = xlBook.worksheets(1) ' mi interfaccio al Foglio1
nRiga = 1
For k = nEstrInizio To nEstrFine
xlSheet.cells(nRiga,1) = GetInfoEstrazioneDL(k)
For j = 1 To 20
xlSheet.cells(nRiga,j + 1) = EstrattoDL(k,j)
Next
Call AvanzamentoElab(nEstrInizio,nEstrFine,k)
nRiga = nRiga + 1

Next

xlApp.visible = True
xlApp.save
Else
MsgBox "Estrazione non presente"
End If
Else
MsgBox "Data non valida"
End If
End Sub

Allora ti fai generare questo file excel di un qualsiasi giorno che scegli tu e col copia e incolla cambi le estrazioni del mio file per analizzare quello nuovo.
Ripeto è chiaramente e infinitivamente + veloce uno script ma un file
di excel è immediato per quanto riguarda la parte VISIVA e serve più che altro a misurare una tua intuizione, io almeno la vedo così.
Per quanto riguarda il metodo dei terni ormai penso che Rubino lo abbia sciorinato a dovere è un mezzo ideale per fare le considerazioni del caso se giocare o meno in quanto tutto quello che era utile da sapere lo abbiamo a disposizione, se poi uno ha qualche altra idea allora..... si faccia avanti con qualche altra proposta.
Il file di excel che ti ho mandato prevede una macro che però è un semplice esercizio accademico perchè è vero che è suggestiva ma non è veloce inoltre ti consiglio a te a Cebino e agli interessati
che pur mantenendo l'impianto così come è , è meglio modificare
i numeri che si trovano A1:E1 manulmente perchè sembrerà più lenta ma controllando i num immessi Visivamente si trovano + facilmnte frequenze più elevate io l'ho modificato così:

dove in G3:K3 ho messo un semplice conta.se dei num che si trovano
n A1:E1 (le presenze indicate nella barra della formula "pippoo" è l'intervallo delle 17 estazioni) risultato che ho trovato 33 presenze complessive utilizzandoi num che si trovano A1:E1 vedi i risultati una cinquina secca !!! dopo 4 colpi. Se non sono stato
chiaro chiedi fill.

 

[keeper]

fin qui tutto ok e solo che lo script non estrai l'estrazionie giornaliere e la converte in execell cioè se digito 09/03/2011 mi risponde estrazione non presente per il resto c'ero arrivato e il tuo discorso a me va bene

 

[fillotto]

quote:Originally posted by keeper

fin qui tutto ok e solo che lo script non estrai l'estrazionie giornaliere e la converte in execell cioè se digito 09/03/2011 mi risponde estrazione non presente per il resto c'ero arrivato e il tuo discorso a me va bene

Allora devi fare PRIMA l'aggirnamento
e quando ti fai generare tramite lo script lo devi penso modificare
in questo punto:
nEstrFine = DataEstrToIdEstrDL(aV(0),aV(1),aV(2),204)è evidente che quel 204 lo debba modificare perchè il 9/3/2001 ancora deve arrivare all'estrazione 204!! e la vedo dura fare tutte queste operazioni in 5 Minuti!!!
Questo è un lavoro x SUPERMAN pardon SuprELLE (Luigi)

 

[keeper]

seguo un po ste previsioni
con gioco in progressione
04 07 08
24 42 43
12 21 24
78 79 80
42 43 44
62 78 79
41 47 49
71 75 81
36 38 58
71 73 78

 

[keeper]

1 colpo 79.80

 

[keeper]

sortiti ancora
71.73
71.75.81
62.78.79
79.80

 

[keeper]

quote:Originally posted by keeper

seguo un po ste previsioni
con gioco in progressione
04 07 08
24 42 43
12 21 24
78 79 80
42 43 44
62 78 79
41 47 49
71 75 81
36 38 58
71 73 78

restano da giocare
04 07 08
24 42 43
12 21 24
42 43 44
41 47 49
36 38 58

 

[keeper]

mi permetto di pubblicare lo script di rubino per il 10elotto 5 minuti
Sub Main()
' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
'condizione
'------------
'-------------------------------------------------------------------------------------------------------------------------------
Dim num(20)
Dim asom(20)
Dim acolpi(999)
ImpostaArclivio10ELotto(2)
storia = InputBox("Estrazioni Range Conc. ",,17849)
z = InputBox("Controllo Tempo = conc.n.",,204)
v = InputBox("nr.Garanzia somma 2,3,4,5",,3)
lis = InputBox("ambo=2, Terno=3, Quarterna=4, Cinquina=5",,3)
fin = storia
Ini = storia - z

Scrivi "Rileva somme numeri dal concorso n." & Ini & " al conc.n. " & fin & " Per il 10 E LOTTO "
Scrivi "Somma nr. consecutività.." & v
Scrivi "Conc.n. 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 ........somme......... 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20"
Scrivi "______________________________________________________________________________________________________________________________________________________"


For x = 1 To z
idastr = storia - x
riga = ""
For t = 1 To 20
asom(t) = ""
Next

For yy = 1 To 20
riga = riga & Format2(EstrattoDL(idestr,yy)) & " "
num(yy) = Format2(EstrattoDL(idestr,yy))
Next

If v = 2 Then
For b = 1 To 19
c = Fuori90(Int(num(b)) + Int(num(b + 1)))
asom(b) = asom(b) & CLng(c)
Next
lim = 19
End If

If v = 3 Then
For b = 1 To 18
c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)))
asom(b) = asom(b) & CLng(c)
Next
lim = 18
End If

If v = 4 Then
For b = 1 To 17
c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)))
asom(b) = asom(b) & CLng(c)
Next
lim = 17
End If
If v = 5 Then
For b = 1 To 16
c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)) + Int(num(b + 4)))
asom(b) = asom(b) & CLng(c)
Next
lim = 16
End If
rsomme = ""
For f = 1 To Int(lim)
rsomme = rsomme & Format2(asom(f)) & " "
Next
Scrivi "___________________________________________________________________________________________________________________________________________________________"
ColoreTesto(0):Scrivi idestr & " " & riga & "......................." & rsomme

''''riepilogo terni con somme uguali
For r = 1 To lim
For r2 = r + 1 To lim + 1
If asom(r) = asom(r2) Then
t1 = Format2(EstrattoDL(idestr,r))
t2 = Format2(EstrattoDL(idestr,r + 1))
t3 = Format2(EstrattoDL(idestr,r + 2))
If v = 4 Then
t4 = Format2(EstrattoDL(idestr,r + 3))
End If
If v = 5 Then
t4 = Format2(EstrattoDL(idestr,r + 3))
t5 = Format2(EstrattoDL(idestr,r + 4))
End If

u1 = Format2(EstrattoDL(idestr,r2))
u2 = Format2(EstrattoDL(idestr,r2 + 1))
u3 = Format2(EstrattoDL(idestr,r2 + 2))
If v = 4 Then
u4 = Format2(EstrattoDL(idestr,r2 + 3))
End If
If v = 5 Then
u4 = Format2(EstrattoDL(idestr,r2 + 3))
u5 = Format2(EstrattoDL(idestr,r2 + 4))
End If
ColoreTesto(1) : Scrivi "------ somma.." & Format2(asom(r)) & " .." & t1 & " " & t2 & " " & t3 & " " & t4 & " " & t5 & " " & u1 & " " & u2 & " " & u3 & " " & u4 & " " & u5
''''lis = 2
ReDim tnm(5)
tnm(1) = t1
tnm(2) = t2
tnm(3) = t3
tnm(4) = t4
tnm(5) = t5
If VerificaEsitoDL(tnm,idestr + 1,lis,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
ColoreTesto 2
Call Scrivi(GetInfoEstrazioneDL(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
acolpi(RetColpi) = acolpi(RetColpi) + 1
ColoreTesto 0
If RetEsito = "Terno" Then
ternitotali = ternitotali + 1
End If
If RetEsito = "Ambo" Then
ambitotali = ambitotali + 1
End If
End If

ReDim tnm(5)
tnm(1) = u1
tnm(2) = u2
tnm(3) = u3
tnm(4) = u4
tnm(5) = u5
I

 

[Roby]

Keeper
lo script ultimo postato era già aggiornata e definitivo e funzionante per quello che è stato concepito inizialmente:

lo riposto :

Sub Main()
	' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
	'condizione
	'------------
	'-------------------------------------------------------------------------------------------------------------------------------
	Dim num(20)
	Dim asom(20)
	Dim acolpi(9999)
	storia = InputBox("Estrazioni Range Conc.   ",,EstrazioneFin)
	z = InputBox("Controllo Tempo = conc.n.",,500)
	v = InputBox("nr.Garanzia somma 2,3,4,5",,3)
	lis = InputBox("ambo=2, Terno=3, Quarterna=4, Cinquina=5",,3)
	fin = storia
	Ini = storia - z
	
	Scrivi "Rileva somme numeri  dal concorso n." & Ini & "   al conc.n. " & fin & "    Per il 10 E LOTTO "
	Scrivi "Somma nr. consecutività.." & v
	Scrivi "Conc.n. 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 ........somme......... 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20"
	Scrivi "______________________________________________________________________________________________________________________________________________________"
	
	
	For x = 1 To z
		idestr = storia - x
		riga = ""
		For t = 1 To 20
		asom(t) = ""
		Next
		
		For yy = 1 To 20
			riga = riga & Format2(EstrattoDL(idestr,yy)) & " "
			num(yy) = Format2(EstrattoDL(idestr,yy))
		Next
		
	If v = 2 Then	
		For b = 1 To 19
		c = Fuori90(Int(num(b)) + Int(num(b + 1)))
		asom(b) = asom(b) & CLng(c)
		Next 					
	lim = 19
	End If
	
		If v = 3 Then	
		For b = 1 To 18
		c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)))
		asom(b) = asom(b) & CLng(c)
		Next 					
	lim = 18
	End If
	
	If v = 4 Then	
		For b = 1 To 17
		c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)))
		asom(b) = asom(b) & CLng(c)
		Next 					
	lim = 17
	End If
		If v = 5 Then	
		For b = 1 To 16
		c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)) + Int(num(b + 4)))
		asom(b) = asom(b) & CLng(c)
		Next 					
	lim = 16
	End If
			rsomme = ""
			For f = 1 To Int(lim)
			rsomme = rsomme & Format2(asom(f)) & " "
			Next
				Scrivi "___________________________________________________________________________________________________________________________________________________________"	
		ColoreTesto(0):Scrivi idestr & "    " & riga & "......................." & rsomme	

''''riepilogo terni con somme uguali
		For r = 1 To lim
		For r2 = r + 1 To lim + 1
		If asom(r) = asom(r2) Then
		t1 = Format2(EstrattoDL(idestr,r))
		t2 = Format2(EstrattoDL(idestr,r + 1))
		If v = 3 Then
		t3 = Format2(EstrattoDL(idestr,r + 2))
		End If
		If v = 4 Then
		t3 = Format2(EstrattoDL(idestr,r + 2))
		t4 = Format2(EstrattoDL(idestr,r + 3))
		End If
		If v = 5 Then
		t3 = Format2(EstrattoDL(idestr,r + 2))
		t4 = Format2(EstrattoDL(idestr,r + 3))
		t5 = Format2(EstrattoDL(idestr,r + 4))
		End If
		
		u1 = Format2(EstrattoDL(idestr,r2))
		u2 = Format2(EstrattoDL(idestr,r2 + 1))
		If v = 3 Then
		u3 = Format2(EstrattoDL(idestr,r2 + 2))
		End If
		If v = 4 Then
		u3 = Format2(EstrattoDL(idestr,r2 + 2))
		u4 = Format2(EstrattoDL(idestr,r2 + 3))
		End If
		If v = 5 Then
		u3 = Format2(EstrattoDL(idestr,r2 + 2))
		u4 = Format2(EstrattoDL(idestr,r2 + 3))
		u5 = Format2(EstrattoDL(idestr,r2 + 4))
		End If
		ColoreTesto(1) : Scrivi "------  somma.." & Format2(asom(r)) & " .." & t1 & " " & t2 & " " & t3 & " " & t4 & " " & t5 & "         " & u1 & " " & u2 & " " & u3 & " " & u4 & " " & u5
						ReDim tnm(5)
						tnm(1) = t1
						tnm(2) = t2
						tnm(3) = t3
						tnm(4) = t4
						tnm(5) = t5
						If VerificaEsitoDL(tnm,idestr + 1,lis,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
						ColoreTesto 2
						Call Scrivi(GetInfoEstrazioneDL(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
						acolpi(RetColpi) = acolpi(RetColpi) + 1
						ColoreTesto 0
						If RetEsito = "Cinquina" Then

 

[FREK50]

CIAO rubino

Vorrei chiederti un favore,ti è possibile postarmi uno script fatto in questo modo:
1 scegliere la ruota
2 inserire due decine a piacere (esempio da 1 a 20)
3 che mi faccia la statistica con la % dei 20 numeri
4 che mi riporti i due o tre ambi più probabili da giocare a ruota.
scusami se chiedo troppo ma di script non riesco a farli e vedo che te sei molto bravo te ne sarei grato. grazzie 1000

 

[Roby]

ciao Frek50

cosa intendi esattamente per queste 2 voci che scrivi:

3 che mi faccia la statistica con la % dei 20 numeri
4 che mi riporti i due o tre ambi più probabili da giocare a ruota.

quale statistica dovrebbe fare?
ambata + frequenti????
ambi più frequenti?????

breve periodo o dall'inizio della ruota?????



quale metodo dovrei applicare per mettere insieme 2 o 3 ambi più probabili sulla ruota????
parli di ritardo o di frequenza?????

breve periodo o dall'inizio della ruota????



ti dico questo perchè, non ci sono regole precise, che funzionano sempre, e quindi il tutto è molto precario</u>


------------------------------------------------------------------

qualcosa esiste già
per farti un esempio
apri il programma spaziometria
statistiche
su formazioni
statistiche veloci

seguendo la jpeg che ti posto
puoi selezionare le 2 decine che vuoi
puoi selezionare la ruota che vuoi
puoi selezionare la sorte che vuoi, dall'estratto alla cinquina

puoi selezionare se vuoi una statistica globale o mensile

[/URL]

Uploaded with ImageShack.us[/img]



ottieni come informazione l'indice di convenienza mensile
ed altro



-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

 

[Roby]

oppure
puoi usare questa funzione del programma
statistica
su ambi
lunghette ritardo per ambo o
lunghette frequenza per ambo


------------------------------------
pigiando sel
puoi inserire le 2 decine di numeri che desideri
scegliere classe (3) = terzine (4)=quartine
in basso scegli la ruota di elaborazione che vuoi
pigi il bottone calcola

et voilà
il programma ti evidenzia le terzine/quartine etc..
che sono in maggiore ritardo o in maggiore frequenza di sortita.




-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

 

[FREK50]

CIAO rubino
Grazie per la velocità della risposta

3) come statistica intendo (esempio

27= 98%
56= 91%
42= 67%
99 100%

4) ambata + frequenti
come metodo parlo di ritardo del'ambo,io non possiedo nessun metodo per essere sincero, pensavo alla tua gentilezza, nel mettere in pentola un qualche cosa di tuo se ti va,

5)la ricerca dall'inizio della ruota
grazie comunque del suggerimento