di rubino script a colpo

keeper · 22 Aprile 2011

anche a me funziona qualsiasi numero inserisca.ho anche aggiunto il riduttore 23 numeri garanzia 6

joi_lotto · 22 Aprile 2011

Ciao.
Anche a me non funziona.
mi da errore linea 206 colonna:2
Grazie.

Dimenticavo:non cambio nussuna condizione.

Roby · 22 Aprile 2011

per joilotto

probabilmente non trova automaticamente il riduttore adatto.
ci sarà qualche condizione che come numeri totali della lunga supera un tot. al quale non corrisponde nessun riduttore nella cartella.

che parametri hai messo all'inizio?

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

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

joi_lotto · 22 Aprile 2011

dimenticavo: non cambio nessuna condizione.

Roby · 22 Aprile 2011

non cambiando nessuna condizione io ottengo questo output, senza nessun errore.

Codice:

 Ricerca Numeri che si sono ripetuti in 2 concorsi consecutivi nel range dal....al....12828/20.04.2011    -    12828/20.04.2011
 Metodo verifica quanti si ripetono per la terza volta nei 2 concorsi successivi            (script  KeepSistema)
_________________________________________________________________________________________________________________________________

____________________________________________________________________________________________________
[12827] [139] 20.04.2011...Estratti...04 11 13 14 20 21 28 34 38 45 49 52 54 56 63 66 70 76 82 83 
[12828] [140] 20.04.2011...Estratti...10 11 15 17 18 19 20 21 24 28 40 42 43 44 46 55 73 80 86 90 
Rilevato....12828 20.04.2011....Estratti aventi Distanza richiesta...4  ...... 11 - 15
Rilevato....12828 20.04.2011....Estratti aventi Distanza richiesta...4  ...... 15 - 19
Rilevato....12828 20.04.2011....Estratti aventi Distanza richiesta...4  ...... 17 - 21
Rilevato....12828 20.04.2011....Estratti aventi Distanza richiesta...4  ...... 20 - 24
Rilevato....12828 20.04.2011....Estratti aventi Distanza richiesta...4  ...... 24 - 28
Rilevato....12828 20.04.2011....Estratti aventi Distanza richiesta...4  ...... 40 - 44
Rilevato....12828 20.04.2011....Estratti aventi Distanza richiesta...4  ...... 42 - 46
Rilevato....12828 20.04.2011....Estratti aventi Distanza richiesta...4  ...... 86 - 90
...numeri.in gioco...14......dal........12829...11 15 17 19 20 21 24 28 40 42 44 46 86 90 
11 15 17 20 21 24 40 42 46 90
11 17 19 20 21 28 40 44 86 90
15 17 19 21 24 28 42 44 46 86

 R_I_E_P_I_L_O_G_O_ 
3  Punti totali realizzati...
4  Punti totali realizzati...
5  Punti totali realizzati...
6  Punti totali realizzati...
7  Punti totali realizzati...
8  Punti totali realizzati...
9  Punti totali realizzati...
10 Punti totali realizzati...
concorsi esaminati totale..1
Vincenti Combinazione .....

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

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

Roby · 22 Aprile 2011

se anche volessi aggiungere la 60a come decina ottengo questa lunga dove non corrisponde a nessun ridotto, perchè con 24 numeri non ne ho messi.

ma di errore non me ne da, anzi mette la segnalazione che il sistema non è sviluppabile perche il riduttore è mancante

Codice:

 Ricerca Numeri che si sono ripetuti in 2 concorsi consecutivi nel range dal....al....12828/20.04.2011    -    12828/20.04.2011
 Metodo verifica quanti si ripetono per la terza volta nei 2 concorsi successivi            (script  KeepSistema)
_________________________________________________________________________________________________________________________________

____________________________________________________________________________________________________
[12827] [139] 20.04.2011...Estratti...04 11 13 14 20 21 28 34 38 45 49 52 54 56 63 66 70 76 82 83 
[12828] [140] 20.04.2011...Estratti...10 11 15 17 18 19 20 21 24 28 40 42 43 44 46 55 73 80 86 90 
Rilevato....12828 20.04.2011....Estratti aventi Distanza richiesta...4  ...... 11 - 15
Rilevato....12828 20.04.2011....Estratti aventi Distanza richiesta...4  ...... 15 - 19
Rilevato....12828 20.04.2011....Estratti aventi Distanza richiesta...4  ...... 17 - 21
Rilevato....12828 20.04.2011....Estratti aventi Distanza richiesta...4  ...... 20 - 24
Rilevato....12828 20.04.2011....Estratti aventi Distanza richiesta...4  ...... 24 - 28
Rilevato....12828 20.04.2011....Estratti aventi Distanza richiesta...4  ...... 40 - 44
Rilevato....12828 20.04.2011....Estratti aventi Distanza richiesta...4  ...... 42 - 46
Rilevato....12828 20.04.2011....Estratti aventi Distanza richiesta...4  ...... 86 - 90
...numeri.in gioco...24......dal........12829...11 15 17 19 20 21 24 28 40 42 44 46 60 61 62 63 64 65 66 67 68 69 86 90 
 Sistema NON SVILUPPABILE per mancanza del ridotto...

 R_I_E_P_I_L_O_G_O_ 
3  Punti totali realizzati...
4  Punti totali realizzati...
5  Punti totali realizzati...
6  Punti totali realizzati...
7  Punti totali realizzati...
8  Punti totali realizzati...
9  Punti totali realizzati...
10 Punti totali realizzati...
concorsi esaminati totale..1
Vincenti Combinazione .....

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

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

joi_lotto · 22 Aprile 2011

Non so cosa dirti,ho provato più volte ma non cambia niente.

Grazie.

Roby · 22 Aprile 2011

ho fatto un tentativo di correzione, ma non so se cambia o meno.

prova a copiare questo e lanciarlo.</u>

Codice:

Sub Main()
	ImpostaArchivio10ELotto(2)
	'-------------------------------------------------------------------------------------------------------------------------------
	Dim num(2)
	Dim nm(40)
	Dim lun(90)
	Dim anm(90)
	fin = EstrazioniArchivioDL
	storia = InputBox("Estrazioni Iniziale..",,fin)
	lis = InputBox("verifica garanzia  2=Ambo   3=Terno   4=Quaterna 5=Cinquina  6=Sestina  7=Settina   8=Ottina  9=Novina  10=10 punti   11=11 punti   12=12 punti   13=13punti",,6)
	s1 = InputBox("esamina solo presenze = 2 ",,2)
	s2 = InputBox("esamina distanza (x) tra 2 estratti",,4)
	s3 = InputBox("vuoi aggiungere fissi una 1 decina ? ",,0)
	s4 = InputBox("Verifica in n.colpi..",,6)
	ColoreTesto 2
	Scrivi " Ricerca Numeri che si sono ripetuti in 2 concorsi consecutivi nel range dal....al...." & Storia & "/" & DataEstrazioneDL(storia) & "    -    " & fin & "/" & DataEstrazioneDL(fin)
	Scrivi " Metodo verifica quanti si ripetono per la terza volta nei 2 concorsi successivi            (script  KeepSistema)"
	Scrivi "_________________________________________________________________________________________________________________________________"
	Scrivi
	ColoreTesto 0
	Ini = storia - 1
	For Ini = Ini + 1 To fin
		idestr = Ini
		numeria = ""
		numerib = ""
		ok = 0
		lunghetta = ""
		z = z + 1
		'''azzera schiere
		For j = 1 To 90
			anm(j) = 0
			lun(j) = 0
		Next
		'''carica schiera con 20 numeri estratti
		For h = 1 To 20
			numeria = numeria & Format2(EstrattoDL(idestr - 1,h)) & " "
			numerib = numerib & Format2(EstrattoDL(idestr,h)) & " "
		Next
		ColoreTesto 0
		Scrivi "____________________________________________________________________________________________________"
		Scrivi GetInfoEstrazioneDL(idestr - 1) & "...Estratti..." & numeria
		Scrivi GetInfoEstrazioneDL(idestr) & "...Estratti..." & numeriB
		ColoreTesto 2
		''''----------------------------------------------------------------------------------------------------
		num(1) = 0
		num(2) = 0
		''''''vede se presenze = 2 in 2 concorsi
		For h = 1 To 20
			num(1) = EstrattoDL(idestr,h)
			pres = SerieFreqDL(idestr - 1,idestr,num,1)
			If pres = 2 Then
				ok = ok + 1
				lun(ok) = Format2(num(1))
			End If
		Next
		''''----------------------------------------------------------------------------------------------------
		''''esamina distanza (x) tra 2 estratti
		For h = 1 To 19
			h1 = h
			For h1 = h1 + 1 To 20
				dis = EstrattoDL(idestr,h1) - EstrattoDL(idestr,h)
				If Int(s2) = dis Then
					num(1) = EstrattoDL(idestr,h)
					num(2) = EstrattoDL(idestr,h1)
					anm(num(1)) = Format2(num(1))
					anm(num(2)) = Format2(num(2))
					ColoreTesto 1
					Scrivi "Rilevato...." & idestr & " " & DataEstrazioneDL(idestr) & "....Estratti aventi Distanza richiesta..." & dis & "  ...... " & Format2(num(1)) & " - " & Format2(num(2))
				End If
			Next
		Next
		For j = 1 To 90
			If anm(j) > 0 Then
				ok = ok + 1
				lun(ok) = anm(j)
			End If
		Next
		''''------facoltativo a scelta--------------------------------------------------------------------------
		'''aggiungere una decina come fissi
		If s3 > 0 Then
			de = s3
			For x = 1 To 10
				ok = ok + 1
				lun(ok) = de
				de = de + 1
			Next
		End If
		''''----------------------------------------------------------------------------------------------------
		EliminaRipetuti lun
		ctr = 0
		For j = 1 To 90
			If lun(j) > 0 Then
				lunghetta = lunghetta & Format2(lun(j)) & " "
				ctr = ctr + 1
			End If
		Next
		ColoreTesto 2
		Scrivi "...numeri.in gioco..." & ctr & "......dal........" & idestr + 1 & "..." & lunghetta
		ColoreTesto 0
		'''prepara campi per lancio sviluppo del sistema ridotto
		completa = lunghetta
		k = s4
		If Int(ctr) > 10 And Int(ctr) < 23 Then
		
			risultati = Getridotto(completa,g,ctr,idestr,lis,k)
			'''accumula punteggi del sistema
					ReDim aV2(0)

joi_lotto · 22 Aprile 2011

Grazie adesso funziona.

Nuovamente grazie.

keeper · 22 Aprile 2011

ciao rubino sono riuscito ad applicare allo script la riduzione in sestine dalle prove da buon esiti di cinquine ora con cebino cercheremo di cambiare la logica di ricerca dei numeri in quanto 23 sono tanti appena ho notizie ti aggiorno

Alien. · 22 Aprile 2011

Dunque :lo script dove si copia? bella domanda,ma mi son "perso"strada facendo

Debora73 · 23 Aprile 2011

quote:Originally posted by rubino

mi puoi dire quali valori hai messo?

a me funziona

che valore hai messo come inizio della decina da aggiungere?

oppure

che tipo di pc hai?

io ho XP

non vorrei che non trovi il percorso giusto per recuperare lo sviluppo del ridotto.

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

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

Ciao Rubino,
con l'ultimo script postato è tutto ok,
però una cosa non ho capito e cioè come applicare la riduzione,
io in pratica ho scaricato il file dei sistemi ridotti da Megaupload
e l'ho salvata in C/Temp; e poi?
Scusami ancora...
Grazie e buona giornata

Roby · 23 Aprile 2011

c:\Temp\SVILUPPOBASE
conterrà o dovrà contere i riduttori.

io ne ho messi alcuni da 10 a 22 numeri, alcuni con gar.6 su 10 altri gar.7 su 10

fatto ciò, lo script, in base a quanti numeri si troverà nella lunghetta, adatterà lo sviluppo colonnare al riduttore che trova nella cartella SVILUPPOBASE.

ora se vuoi inserire altri riduttori, con meno colonne o con più colonne, con meno numeri o più numeri,

inserire lo sviluppo del ridotto dandogli un nome, usare il separatore (,) tra un numero e l'altro

modificare lo script, inserendo alcune righe nuove, dove vi sono gli altri nomi dei ridotti, già codificati.

devi modificare lo script

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

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

Debora73 · 23 Aprile 2011

Ciao Rubino,
sono una frana,
ancora non ho capito
o forse sbaglio in qualcosa.
Al conc 18 ho fatto girare lo script e ho aggiunto la decina 10,
ottengo 22 numeri ma lo script non mi sviluppa nessuna riduzione

può essere che non trova la cartella SVILUPPOBASE...
io l'ho salvata qui

scusami ancora[:I]

elephantbig · 23 Aprile 2011

X Keeper

Ti allego uno specchietto di alcuni sistemi con 13 e 14 numeri in gioco, con 2 o 3 fisse,con e senza riduzione.

Tieni presente che le vincite segnate sono le MINIME a condizioni rispettate.
Spero di esserti stato di aiuto.
Ciao e ancora BUONA PASQUA.

imported_n/a · 23 Aprile 2011

Ciao Debora devi creare la cartella Temp e salvarla li
questo modo
c:\\Temp\SVILUPPOBASE
dentro ci devi mettere i file di testo con i ridotti
vedrai che funge tutto
Buona Pasqua

Debora73 · 24 Aprile 2011

quote:Originally posted by cebino

Ciao Debora devi creare la cartella Temp e salvarla li
questo modo
c:\\Temp\SVILUPPOBASE
dentro ci devi mettere i file di testo con i ridotti
vedrai che funge tutto
Buona Pasqua

Grazie Cebino,
ci sono riuscita

Buona Pasqua anche a te e tutti gli amici del forum,
sempre dispononibili e gentile come te

elephantbig · 24 Aprile 2011

quote:Originally posted by keeper

X cebino ee elephantbig non vi ho trovato in linea buona pasqua

Ciao Keeper,hai visto lo specchietto ?

keeper · 26 Aprile 2011

l'ho visto solo ora grazie provo ad effettuare delle prove

keeper · 27 Aprile 2011

quote:Originally posted by rubino

ho fatto un tentativo di correzione, ma non so se cambia o meno.

prova a copiare questo e lanciarlo.</u>

Codice:

Sub Main()
	ImpostaArchivio10ELotto(2)
	'-------------------------------------------------------------------------------------------------------------------------------
	Dim num(2)
	Dim nm(40)
	Dim lun(90)
	Dim anm(90)
	fin = EstrazioniArchivioDL
	storia = InputBox("Estrazioni Iniziale..",,fin)
	lis = InputBox("verifica garanzia  2=Ambo   3=Terno   4=Quaterna 5=Cinquina  6=Sestina  7=Settina   8=Ottina  9=Novina  10=10 punti   11=11 punti   12=12 punti   13=13punti",,6)
	s1 = InputBox("esamina solo presenze = 2 ",,2)
	s2 = InputBox("esamina distanza (x) tra 2 estratti",,4)
	s3 = InputBox("vuoi aggiungere fissi una 1 decina ? ",,0)
	s4 = InputBox("Verifica in n.colpi..",,6)
	ColoreTesto 2
	Scrivi " Ricerca Numeri che si sono ripetuti in 2 concorsi consecutivi nel range dal....al...." & Storia & "/" & DataEstrazioneDL(storia) & "    -    " & fin & "/" & DataEstrazioneDL(fin)
	Scrivi " Metodo verifica quanti si ripetono per la terza volta nei 2 concorsi successivi            (script  KeepSistema)"
	Scrivi "_________________________________________________________________________________________________________________________________"
	Scrivi
	ColoreTesto 0
	Ini = storia - 1
	For Ini = Ini + 1 To fin
		idestr = Ini
		numeria = ""
		numerib = ""
		ok = 0
		lunghetta = ""
		z = z + 1
		'''azzera schiere
		For j = 1 To 90
			anm(j) = 0
			lun(j) = 0
		Next
		'''carica schiera con 20 numeri estratti
		For h = 1 To 20
			numeria = numeria & Format2(EstrattoDL(idestr - 1,h)) & " "
			numerib = numerib & Format2(EstrattoDL(idestr,h)) & " "
		Next
		ColoreTesto 0
		Scrivi "____________________________________________________________________________________________________"
		Scrivi GetInfoEstrazioneDL(idestr - 1) & "...Estratti..." & numeria
		Scrivi GetInfoEstrazioneDL(idestr) & "...Estratti..." & numeriB
		ColoreTesto 2
		''''----------------------------------------------------------------------------------------------------
		num(1) = 0
		num(2) = 0
		''''''vede se presenze = 2 in 2 concorsi
		For h = 1 To 20
			num(1) = EstrattoDL(idestr,h)
			pres = SerieFreqDL(idestr - 1,idestr,num,1)
			If pres = 2 Then
				ok = ok + 1
				lun(ok) = Format2(num(1))
			End If
		Next
		''''----------------------------------------------------------------------------------------------------
		''''esamina distanza (x) tra 2 estratti
		For h = 1 To 19
			h1 = h
			For h1 = h1 + 1 To 20
				dis = EstrattoDL(idestr,h1) - EstrattoDL(idestr,h)
				If Int(s2) = dis Then
					num(1) = EstrattoDL(idestr,h)
					num(2) = EstrattoDL(idestr,h1)
					anm(num(1)) = Format2(num(1))
					anm(num(2)) = Format2(num(2))
					ColoreTesto 1
					Scrivi "Rilevato...." & idestr & " " & DataEstrazioneDL(idestr) & "....Estratti aventi Distanza richiesta..." & dis & "  ...... " & Format2(num(1)) & " - " & Format2(num(2))
				End If
			Next
		Next
		For j = 1 To 90
			If anm(j) > 0 Then
				ok = ok + 1
				lun(ok) = anm(j)
			End If
		Next
		''''------facoltativo a scelta--------------------------------------------------------------------------
		'''aggiungere una decina come fissi
		If s3 > 0 Then
			de = s3
			For x = 1 To 10
				ok = ok + 1
				lun(ok) = de
				de = de + 1
			Next
		End If
		''''----------------------------------------------------------------------------------------------------
		EliminaRipetuti lun
		ctr = 0
		For j = 1 To 90
			If lun(j) > 0 Then
				lunghetta = lunghetta & Format2(lun(j)) & " "
				ctr = ctr + 1
			End If
		Next
		ColoreTesto 2
		Scrivi "...numeri.in gioco..." & ctr & "......dal........" & idestr + 1 & "..." & lunghetta
		ColoreTesto 0
		'''prepara campi per lancio sviluppo del sistema ridotto
		completa = lunghetta
		k = s

di rubino script a colpo

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Roby

Guest

Super Member >PLATINUM<

Roby

Guest

Roby

Guest

Super Member >PLATINUM<

Roby

Guest

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Super Member >GOLD<

Roby

Guest

Super Member >GOLD<

Advanced Member >PLATINUM<

Advanced Premium Member

Super Member >GOLD<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<