Modesto Contributo 10 e lotto

fillotto · 4 Marzo 2011

però ,considerando che verifica esito si stoppa se esce l'ambo (perchè poi?) e che il terno ha un autonomia di 25 estrazioni giocandone 2 ogni estrazione senza remissione (premio 50:2=25)con una progressione
si porebbe aspettare ... o sbaglio qualcosa[?]

LuigiB · 4 Marzo 2011

si stoppa perche al dieci e lotto non è che giochi puntando solo sul terno , se esce l'ambo e avevi giocato 3 numeri vinci lo stesso ..e la funzione esce nona appena si è vinto altrimenti se è necessariocontrollare un esito specifico basta scrivere una piccola routine che lo faccia ..Rubino penso ne sia capacissimo.

imported_n/a · 4 Marzo 2011

quote:Originally posted by LuigiB

si stoppa perche al dieci e lotto non è che giochi puntando solo sul terno , se esce l'ambo e avevi giocato 3 numeri vinci lo stesso ..e la funzione esce nona appena si è vinto altrimenti se è necessariocontrollare un esito specifico basta scrivere una piccola routine che lo faccia ..Rubino penso ne sia capacissimo.

Luigi come faccio ha impostare nello script l'archivio 10elotto 5min ?

LuigiB · 4 Marzo 2011

andando nell'help e leggendolo

imported_n/a · 4 Marzo 2011

quote:Originally posted by LuigiB

andando nell'help e leggendolo

touché

Come al solito mio non leggo mai l'help

comunque risolto
allego pezzetto

Dim num(20)
Dim asom(20)
ImpostaArchivio10ELotto(2)
storia = InputBox("Estrazioni Range Conc. ",,EstrazioneFin)
z = InputBox("Controllo Tempo = conc.n.",,500)
v = InputBox("nr.Garanzia somma 2,3,4,5",,3)

Grazie Luigi

LuigiB · 4 Marzo 2011

ecco vedo con piacere che con gli opportuni stimoli
sei riuscito nell'intento ! Bene !

imported_n/a · 4 Marzo 2011

quote:Originally posted by LuigiB

ecco vedo con piacere che con gli opportuni stimoli
sei riuscito nell'intento ! Bene !

Semplicemente ammetto la mia stupidità
e rimgrazio il tuo operato

LuigiB · 4 Marzo 2011

bhe io direi pigrizia perche stupidità .... l'help
dello spazioscript è l'unico che c'è e se c'è è
proprio perche è necessario (Perfino a me ) !! E quindi
in caso di necessita va letto

... Ciao !

keeper · 4 Marzo 2011

,Un altro fattore da tener presente e purtroppo negativo e' che non appena sortisce un solo numero la previsione va a rotoli ma possibile che non riusciamo a creare un algoritmo per spaccare tutto

imported_n/a · 5 Marzo 2011

quote:Originally posted by keeper

,Un altro fattore da tener presente e purtroppo negativo e' che non appena sortisce un solo numero la previsione va a rotoli ma possibile che non riusciamo a creare un algoritmo per spaccare tutto

Keeper perche va a rotoli.
invece funziona.
Analizza dalla 16932 che e l'ultima delle ore 23.59 per 204 estrazioni quindi tutto oggi, non vedo negativi

imposta lo script con questi parametri

storia = InputBox("Estrazioni Range Conc. ",,16932)
z = InputBox("Controllo Tempo = conc.n.",,204)
v = InputBox("nr.Garanzia somma 2,3,4,5",,3)

fillotto · 5 Marzo 2011

quote:Originally posted by LuigiB

si stoppa perche al dieci e lotto non è che giochi puntando solo sul terno , se esce l'ambo e avevi giocato 3 numeri vinci lo stesso ..e la funzione esce non appena si è vinto altrimenti se è necessario controllare un esito specifico basta scrivere una piccola routine che lo faccia ..Rubino penso ne sia capacissimo.

Ciao Rubino prima di tutto come stai[?] spero bene,che ne dici di quanto ha detto Luigi? "altrimenti se è necessario controllare un esito specifico basta scrivere una piccola routine che lo faccia ..Rubino penso ne sia capacissimo" sareti capace?
Il verifica esito con il controllo che esce quando sortisce il 1° dei due terni intendo; perchè ho l'impressione la sortita di uno dei due terni non abbia tutto questo ritardo al limite si fa stoppare comunque al 25° colpo e si fa una statistica se tutto questo è positivo in termini di cassa.
Bisogna considerare che si aspetta il 25° colpo nel frattempo saranno usciti quasi sicuramente prima degli ambi dove ce un pur minimo di recupero.

keeper · 5 Marzo 2011

quote:Originally posted by cebino

quote:Originally posted by keeper

,Un altro fattore da tener presente e purtroppo negativo e' che non appena sortisce un solo numero la previsione va a rotoli ma possibile che non riusciamo a creare un algoritmo per spaccare tutto

Clicca per espandere...

Keeper perche va a rotoli.
invece funziona.
Analizza dalla 16932 che e l'ultima delle ore 23.59 per 204 estrazioni quindi tutto oggi, non vedo negativi

imposta lo script con questi parametri

storia = InputBox("Estrazioni Range Conc. ",,16932)
z = InputBox("Controllo Tempo = conc.n.",,204)
v = InputBox("nr.Garanzia somma 2,3,4,5",,3)

si su 25 colpi c'è la sortia ma che progressione puoi giocare per raggiungere i 25 colpi forse dovresti attendere e poi porre in essere delle giocate e se poi esce prima dei 25 colpi?
volevo chiederti ma non è meglio ragionare su cicli di sortita? lo chiedo anche a luigib se sa come ricercare dei 18 terni la loro ciclicità

keeper · 5 Marzo 2011

caro cebino sai io invece avevo elaborao un semplice metodo sempre al 10elotto5m
bastava fare la somma del 1 estr e il 20
se i numeri erano superiori al 90 compresi 87 88 89 nel giro di sei colpi sortivano con una giusta progressione riuscivo a ricavare un buon utile
poi ti invito ad effetuare un'altra prova
per ogni estratto aggiungi +30 +60 ossia disanze simmetriche di trenta
fai una verifica e vedrai che dei 40 numeri ottenuti enro sei colpli il 85% si sfaldano in 6/7 colpi. atendo riscontro

imported_n/a · 5 Marzo 2011

quote:Originally posted by keeper

caro cebino sai io invece avevo elaborao un semplice metodo sempre al 10elotto5m
bastava fare la somma del 1 estr e il 20
se i numeri erano superiori al 90 compresi 87 88 89 nel giro di sei colpi sortivano con una giusta progressione riuscivo a ricavare un buon utile
poi ti invito ad effetuare un'altra prova
per ogni estratto aggiungi +30 +60 ossia disanze simmetriche di trenta
fai una verifica e vedrai che dei 40 numeri ottenuti enro sei colpli il 85% si sfaldano in 6/7 colpi. atendo riscontro

Keeper mi puoi fare un esempio sull'ultima estrazione sia del primo che del secondo metodo
ti ho risposto via mail

imported_n/a · 5 Marzo 2011

quote:Originally posted by LuigiB

bhe io direi pigrizia perche stupidità .... l'help
dello spazioscript è l'unico che c'è e se c'è è
proprio perche è necessario (Perfino a me ) !! E quindi
in caso di necessita va letto ... Ciao !

Ciao Luigi
non riesco a capire come fare per impostare solo il terno.
Cioe io voglio che l'esito sia solo per terno e non per ambo.
Credo che sia in questo punto

If RetEsito = "Terno" Then
ternitotali = ternitotali + 1
End If
If RetEsito = "Ambo" Then
ambitotali = ambitotali + 1
End If
End If
Ho provato a "remmare" ma non ottengo nulla
Puoi darmi un indizio grazie

LuigiB · 5 Marzo 2011

ciao , infatti non si puo impostare , quella funzione torna al primo esito positivo

Roby · 5 Marzo 2011

sostituire la riga

lis = 2

in questo modo

lis = 3

lo script elaborerà il verificaesitoDL con garanzia minima del terno

è naturale assistere all'allungarsi dei tempi di vincita.</u>
qualche riga dell'output come esce:

Codice:

7852    03 09 15 16 26 30 31 38 42 45 58 64 66 67 68 69 75 78 83 86 .......................27 40 57 72 87 09 21 35 55 77 08 17 21 24 32 42 56 67 
------  somma..21 ..31 38 42           66 67 68  
[07908] [ 1 ] 15.05.2008 Terno colpi : 56 .. .. .. .. 31 38 42 .. .. .. .. .. .. .. .. .. .. .. .. ..
[07910] [ 1 ] 20.05.2008 Terno colpi : 58 .. .. .. .. .. .. .. .. .. .. .. .. .. .. 66 67 68 .. .. ..
___________________________________________________________________________________________________________________________________________________________
7851    01 20 27 29 30 39 40 41 48 52 54 56 63 64 66 74 76 79 84 85 .......................48 76 86 08 19 30 39 51 64 72 83 03 13 24 36 49 59 68 
___________________________________________________________________________________________________________________________________________________________
7850    11 12 13 14 16 22 26 33 36 38 40 60 61 65 69 79 84 85 87 90 .......................36 39 43 52 64 81 05 17 24 48 71 06 15 33 52 68 76 82 
------  somma..52 ..14 16 22           69 79 84  
[07910] [ 1 ] 20.05.2008 Terno colpi : 60 .. 14 16 .. 22 .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..
[07919] [ 1 ] 10.06.2008 Terno colpi : 69 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. 69 .. 79 84 ..
___________________________________________________________________________________________________________________________________________________________
7849    07 12 15 22 23 26 36 37 39 43 46 48 52 64 70 71 74 84 85 87 .......................34 49 60 71 85 09 22 29 38 47 56 74 06 25 35 49 63 76 
------  somma..49 ..12 15 22           71 74 84  
[07877] [ 1 ] 04.03.2008 Terno colpi : 28 .. 12 .. 15 .. .. 22 .. .. .. .. .. .. .. .. .. .. .. .. ..
[07883] [ 1 ] 18.03.2008 Terno colpi : 34 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. 71 .. 74 .. 84
___________________________________________________________________________________________________________________________________________________________
7848    04 06 09 13 14 19 20 23 37 49 53 54 55 61 64 67 71 72 75 89 .......................19 28 36 46 53 62 80 19 49 66 72 80 90 12 22 30 38 56 
------  somma..19 ..04 06 09           23 37 49  
[07936] [ 1 ] 19.07.2008 Terno colpi : 88 04 06 .. .. 09 .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..
[07881] [ 1 ] 13.03.2008 Terno colpi : 33 .. .. .. 23 .. .. 37 .. .. 49 .. .. .. .. .. .. .. .. .. ..
------  somma..80 ..20 23 37           54 55 61  
[07858] [ 1 ] 19.01.2008 Terno colpi : 10 .. .. .. .. .. .. 20 23 .. .. .. 37 .. .. .. .. .. .. .. ..
[07991] [ 1 ] 25.11.2008 Terno colpi : 143 .. .. .. .. .. .. .. .. .. 54 55 61 .. .. .. .. .. .. .. ..
___________________________________________________________________________________________________________________________________________________________
7847    12 16 22 29 31 35 36 38 45 46 49 52 55 69 72 74 81 83 85 89 .......................50 67 82 05 12 19 29 39 50 57 66 86 16 35 47 58 69 77 
------  somma..50 ..12 16 22           45 46 49  
[07850] [ 1 ] 02.01.2008 Terno colpi : 3 .. 12 .. .. 16 22 .. .. .. .. .. .. .. .. .. .. .. .. .. ..
[07995] [ 1 ] 04.12.2008 Terno colpi : 148 .. .. .. .. .. .. .. .. 45 46 49 .. .. .. .. .. .. .. .. ..
___________________________________________________________________________________________________________________________________________________________
7846    01 03 07 11 14 23 29 30 31 35 42 45 47 50 56 57 63 66 84 87 .......................11 21 32 48 66 82 90 06 18 32 44 52 63 73 86 06 33 57 
------  somma..32 ..07 11 14           35 42 45  
[07860] [ 1 ] 24.01.2008 Terno colpi : 14 .. .. 07 .. 11 .. 14 .. .. .. .. .. .. .. .. .. .. .. .. ..
[07948] [ 1 ] 16.08.2008 Terno colpi : 102 .. .. .. .. .. .. .. .. .. 35 42 45

LuigiB · 5 Marzo 2011

ecco bravo Rubino , io stesso non me ne ricordavo...

keeper · 7 Marzo 2011

salve rubino si può avere il listato completo e correttto da te?

Roby · 7 Marzo 2011

questo è lo script, mio ultimo aggiornato:

Codice:

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)
	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))
		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
						If VerificaEsitoDL(tn

Modesto Contributo 10 e lotto

Advanced Member >PLATINUM<

LuigiB

Guest

Advanced Premium Member

LuigiB

Guest

Advanced Premium Member

LuigiB

Guest

Advanced Premium Member

LuigiB

Guest

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

LuigiB

Guest

Roby

Guest

LuigiB

Guest

Advanced Member >PLATINUM PLUS<

Roby

Guest