Modesto Contributo 10 e lotto

[Roby]

Salve a tutti ho notato un curioso fenomeno in 10 e lotto :
in ogni estrazione di 20 num ci sono più di 1000 terni possibili ma se li prendiamo consecutivi sono solo 18 cioe il 1°+il 2°+il 3° il SEcondo terno formato dal 2°+3°+4° numero ..... il 18° terno formato dal 18°+19°+20° num.
Ora se di ciascuno terno faccio la somma fuori 90 ottengo 18 somme che vanno da 1 a 90.
Se trovo due somme uguali relative a due terni una delle due formazioni esce così come (trovati anche tutti e due i terni riusciti nella stessa estrazione!!)è in un tempo relativamente utile per avere un guadagno .
L'ho provato con Excel qualcuno lo può fare con uno script???
Tento di mandare l'immagine (tento in quanto il direct link non funziona più

[/URL]

Uploaded with ImageShack.us[/img]

 

[fillotto]

Qualcuno sa dirmi perchè da ImageShack non si può mettere più directlink non riesco più a mettere l'immagine come facevo prima (più centrata), buona serata.
X LUIGI per non combinare casini faccio rimanere questa versione e aspetto il prossimo aggiornamento o necessariamente bisogna fare la correzione della'arcivio adesso??

 

[imported_n/a]

Ciao Fillotto,capita anche a me per l'inserimento dell'immagine su imageshack devi entrare come utente registrato solo cosi ti abilita la direct link.

Puoi benissimo copiare il file delle estrazioni che luigi ha postato e copiarlo nella directory dati il tutto funziona correttamente.

Poi per quanto riguarda la tua trovata sui terni 10 e lotto sembra interessante chiaro andrebbe visto con uno script speriamo che qualcuno di più fresca memoria può realizzare lo script in questione.

Io attualmente sono impegnato a recuperare questo stramaledetto 32
con i suoi abbinamenti....
Ciao Mike58

 

[LuigiB]

ehi fil se non vuoi fare previsioni basate su ub archivio del tutto inventato fai come sta scritto sul post delò setup ..la cosa è semplicissima

 

[imported_n/a]

quote:Originally posted by fillotto

Salve a tutti ho notato un curioso fenomeno in 10 e lotto :
in ogni estrazione di 20 num ci sono più di 1000 terni possibili ma se li prendiamo consecutivi sono solo 18 cioe il 1°+il 2°+il 3° il SEcondo terno formato dal 2°+3°+4° numero ..... il 18° terno formato dal 18°+19°+20° num.
Ora se di ciascuno terno faccio la somma fuori 90 ottengo 18 somme che vanno da 1 a 90.
Se trovo due somme uguali relative a due terni una delle due formazioni esce così come (trovati anche tutti e due i terni riusciti nella stessa estrazione!!)è in un tempo relativamente utile per avere un guadagno .
L'ho provato con Excel qualcuno lo può fare con uno script???
Tento di mandare l'immagine (tento in quanto il direct link non funziona più

[/URL]

Uploaded with ImageShack.us[/img]

ei fill stà cosa mi incuriosisce
mo provo
se puoi mandami il file excel per fare qualche riscontro
ciao

 

[fillotto]

X MIKE58:
Ho parlato adesso con Bigele e mi ha spiegato come ovviare alla questione "ImageShack" in effetti si prende quell'url sotto direct link e si tagliano dei pezzi prima e dopo in modo da otterere lo stesso risultato che si otteneva prima
Speriamo che qualcuno faccia lo script !!! il fatto che si prendano in considerazione 18 TERNI sa un po di cabalistico (18 x 5 = 90 !!) insomma sento che c'è qualcosa.....
X Luigi:
non mi preoccupo di aspettere domando solo se aspettando il prossimo aggiornamento va tutto a posto parlando con Bigele che mi ha spiegato la faccenda di "ImageShack" ho confrontato il suo archivio
con il mio , abbiamo fatto una stessa struttura su 1016 estrazioni , a lui (vers1.1.99) vengono + di 130 a me (ultima vers) 13 !!! trasportato su excel a me non va oltre il 2010 a lui prende anche e giustamente il 2004 inoltre a lui è sfalsato di una estrazione quella che per lui è 8340 a me risulta 8339 !! se posso aspettare è meglio!!!
X CEBINO :
Allora quando ho visto diciamo questo metodo l'ho scoperto x caso
perchè vedendo realmente l'archivio solo qualche giorno fa (non sapevo come ci arrivava fino a quando è stata postata un 'immagine)ho notato che c'era un terno ripetuto dopo 8,9 colpi
incuriosito ho visto che nello stesso colpo anche un altro terno
era uscito nel medesimo colpo insomma sei numeri!!!! (premio 2000 euro) questo però è successo 4 o 5 giorni fa, con il ritmo delle versioni che sforna Luigi pure io ho aggiornato per cuiadesso non lo ricordo più dove lo posso rintracciare senza contare che adesso sembra essere un po tutto instabile m ail concetto rimane.
Per quanto riguarda il file di excel per fare delle prove è semplicissimo fai girare questo script che ha fatto penso luigi e che si trova nel programma :digiti una data qualsiasi del 10 e lotto ogni 5 m e si formerà un file di excel contenente le 240 estrazioni di quel giornoe puoi fare i riscontri che vuoi
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
Vado a dormì !!! buona notte

 

[LuigiB]

ciaoi Fil nella versioen 1.2.9 per errore c'era una archivio delle estrazioni del tutto inventato.
In questa nuova versione 1.2.10 il problema è risolto scaricala e installala

 

[keeper]

caro cebino cerca di fare il miracolo

 

[fillotto]

lo script che ho postato più sopra si riferisce al 10Elotto5min
sulla base di quello si può ricavare il file excel per il 10ELotto normale basta cambiare innanzi tutto l'archivio al posto di
"Call ImpostaArchivio10ELotto(2) quel 2 si riferisce al 10Elotto5min"
"Call ImpostaArchivio10ELotto(1) quel 1 si riferisce al 10ElottoNorm"
Comunque ecco lo script corretto per fare un file di excel del 10ElottoNorm
per quanto riguarda per ricavare il fuori 90 dei tre numeri dei terni
io quando avevo l'excel 2003 usavo una funzione utente :
Function circ(Val, limite)
If Val > limite Then
circ = Val - limite
ElseIf Val <= 0 Then
circ = Val + limite
Else
circ = Val
End If
End Function
dove limite è 90 e Val = alla somma dei 3 numeri siccome puo capitare che si superi anche il 180 allora bisogno usare 2 volte la funzione circ usando opportunamente le parentesi
Purtroppo essendo migrato da excel 2003 a 2007 ho delle difficoltà a inserire macro perchè non so la ragione ma pur facendo Alt F11 e inserendo quella funzione poi salvando il file non accetta il salvataggio con macro ... Bho?!? ( MIKE58, Luigi, Cebino o chiunque mi fate luce??)


Sub Main


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

Call ImpostaArchivio10ELotto(1)

'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 = 8000
nEstrFine = 8345

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

 

[claudio8]

x filotto vers. 2003 ed altre

formula somma e fuori 90

=SE(RESTO(SOMMA(B155:D155);90)=0;90;RESTO(SOMMA(B155:D155);90))

claudio

 

[fillotto]

quote:Originally posted by claudio8

x filotto vers. 2003 ed altre

formula somma e fuori 90

=SE(RESTO(SOMMA(B155:D155);90)=0;90;RESTO(SOMMA(B155:D155);90))

claudio

Grazie Clauio io uso :
=circ(circ(B155+C155;90)+D155;90) come vedi è più breve ma non riesco
più a salvare il file con le macro è questo che vorrei sapere come si fa???

 

[fillotto]

Ecco l'inghippo con il 2003 non succedeva com si fa passo x passo???

 

[claudio8]

x Filotto, premesso che non conosco questa versione, però credo che se lo salvi con "Salva con nome" dovresti avere la possibilità di
salvarlo come file con macro, inoltre dovresti poter entrare nelle "opzioni" del programma e settare le moalità di salvataggio del file ( versione precedente, file di altri programmi ecc.)

claudio

 

[imported_n/a]

quote:Originally posted by fillotto

Ecco l'inghippo con il 2003 non succedeva com si fa passo x passo???

ciao fill
il file excel lo fatto con le formule il problema e che non riesco a fare la macro per il controllo delle terzine in esame.

Secondo me dobbiamo rivolgerci ad uno scripter in gamba e farlo con spaziometria e piu gestibile secondo me, anche perche evitiamo di importare in excel e gestiamo piu lotterie
ciao

 

[imported_n/a]

quote:Originally posted by claudio8

x Filotto, premesso che non conosco questa versione, però credo che se lo salvi con "Salva con nome" dovresti avere la possibilità di
salvarlo come file con macro, inoltre dovresti poter entrare nelle "opzioni" del programma e settare le moalità di salvataggio del file ( versione precedente, file di altri programmi ecc.)

claudio

Claudio ci vuole uno script e meglio

 

[fillotto]

quote:Originally posted by claudio8

x Filotto, premesso che non conosco questa versione, però credo che se lo salvi con "Salva con nome" dovresti avere la possibilità di
salvarlo come file con macro, inoltre dovresti poter entrare nelle "opzioni" del programma e settare le moalità di salvataggio del file ( versione precedente, file di altri programmi ecc.)

claudio

GRAZIE CLAUDIO è proprio come hai detto!!!!
Il fatto è non ho molta confidenza con il 2007 , grazie mi hai levato un peso

 

[imported_n/a]

quote:Originally posted by fillotto

quote:Originally posted by claudio8

x Filotto, premesso che non conosco questa versione, però credo che se lo salvi con "Salva con nome" dovresti avere la possibilità di
salvarlo come file con macro, inoltre dovresti poter entrare nelle "opzioni" del programma e settare le moalità di salvataggio del file ( versione precedente, file di altri programmi ecc.)

claudio

GRAZIE CLAUDIO è proprio come hai detto!!!!
Il fatto è non ho molta confidenza con il 2007 , grazie mi hai levato un peso

Ciao fill a chi possiamo chedere per realizzare questo script ?
ciao

 

[imported_n/a]

Ciao Fill, vedo che hai risolto il salvataggio con macro, era proprio come diceva claudio se posso aggiungere abilita anche la scheda sviluppo da opzioni excel --> impostazioni generali per accedere più facilmente alla generazione delle macro.

Per lo script la prova su strada potrebbe cimentarsi Claudio o Rubino
se ne avessero voglia sicuramente hanno più dimestichezza a cominciare ex novo uno script..

Un saluti a tutti i partecipante di questo post.

Mike58

 

[Roby]

è una bozza questo script

se volete apportare le modifiche necesssarie per ottenere quello che volete.

sono influenzato e non riesco a concentarmi più di tanto.

non so se è esattamente quello che volete, ma l'ho buttato giù così.

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)
	storia = InputBox("Estrazioni Range Conc.   ",,EstrazioneFin)
	z = InputBox("Controllo Tempo = conc.n.",,20)
	v = InputBox("nr.Garanzia somma 2,3,4,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 idestr & "    " & riga & "......................." & rsomme	
		
	Next
	



End Sub

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

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

 

[Roby]

l'output che esce è questo:

Rileva somme numeri  dal concorso n.8327   al conc.n. 8347    Per il 10 E LOTTO 
Somma nr. consecutività..3
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
______________________________________________________________________________________________________________________________________________________
8346    03 05 06 22 25 26 29 30 37 45 47 49 55 61 63 78 79 82 84 86 .......................14 33 53 73 80 85 06 22 39 51 61 75 89 22 40 59 65 72 
8345    04 06 14 20 23 24 25 29 30 31 33 42 46 50 57 61 63 69 75 82 .......................24 40 57 67 72 78 84 90 04 16 31 48 63 78 01 13 27 46 
8344    04 18 22 24 27 30 37 47 48 50 56 57 60 62 68 74 78 83 85 88 .......................44 64 73 81 04 24 42 55 64 73 83 89 10 24 40 55 66 76 
8343    07 13 21 23 27 30 32 33 37 39 45 47 49 53 59 62 64 81 83 90 .......................41 57 71 80 89 05 12 19 31 41 51 59 71 84 05 27 48 74 
8342    03 10 12 22 24 30 34 35 39 41 48 56 57 58 61 63 67 68 76 88 .......................25 44 58 76 88 09 18 25 38 55 71 81 86 02 11 18 31 52 
8341    03 04 07 18 22 28 45 47 50 54 57 58 62 66 69 70 74 80 83 84 .......................14 29 47 68 05 30 52 61 71 79 87 06 17 25 33 44 57 67 
8340    09 19 28 33 36 37 40 41 42 46 51 52 56 66 69 71 76 79 82 86 .......................56 80 07 16 23 28 33 39 49 59 69 84 11 26 36 46 57 67 
8339    01 02 03 08 18 19 29 32 33 34 37 42 51 53 71 74 77 79 88 90 .......................06 13 29 45 66 80 04 09 14 23 40 56 85 18 42 50 64 77 
8338    01 08 09 11 13 15 23 41 43 44 55 58 61 66 67 69 75 77 78 81 .......................18 28 33 39 51 79 17 38 52 67 84 05 14 22 31 41 50 56 
8337    06 10 23 30 31 37 39 45 48 49 64 65 69 70 72 75 80 81 84 90 .......................39 63 84 08 17 31 42 52 71 88 18 24 31 37 47 56 65 75 
8336    02 04 12 13 14 18 23 32 44 52 64 66 67 75 81 83 85 87 88 90 .......................18 29 39 45 55 73 09 38 70 02 17 28 43 59 69 75 80 85 
8335    05 09 12 17 20 32 35 43 44 45 46 49 50 55 60 61 62 69 78 85 .......................26 38 49 69 87 20 32 42 45 50 55 64 75 86 03 12 29 52 
8334    04 05 17 18 22 30 33 36 40 41 48 51 54 56 58 74 79 82 84 90 .......................26 40 57 70 85 09 19 27 39 50 63 71 78 08 31 55 65 76 
8333    01 03 06 10 19 21 25 28 33 37 41 43 46 48 57 70 74 85 86 87 .......................10 19 35 50 65 74 86 08 21 31 40 47 61 85 21 49 65 78 
8332    10 12 14 15 17 23 24 25 27 36 38 43 49 58 65 72 74 75 83 84 .......................36 41 46 55 64 72 76 88 11 27 40 60 82 15 31 41 52 62 
8331    02 27 31 32 37 40 41 48 52 53 57 60 61 66 68 69 70 84 87 89 .......................60 90 10 19 28 39 51 63 72 80 88 07 15 23 27 43 61 80 
8330    04 10 13 19 20 25 28 34 38 39 45 48 64 65 66 70 78 83 84 89 .......................27 42 52 64 73 87 10 21 32 42 67 87 15 21 34 51 65 76 
8329    01 04 08 12 16 17 21 23 35 43 55 58 64 65 76 77 80 83 85 90 .......................13 24 36 45 54 61 79 11 43 66 87 07 25 38 53 60 68 78 
8328    06 17 20 27 38 40 41 43 45 48 54 55 61 64 68 72 81 82 83 87 .......................43 64 85 15 29 34 39 46 57 67 80 90 13 24 41 55 66 72 
8327    01 09 12 13 18 24 29 39 46 53 56 57 62 68 69 70 71 74 79 87 .......................22 34 43 55 71 02 24 48 65 76 85 07 19 27 30 35 44 60

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

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