X MIKE TUTTO SU NUMERI SPIA

keeper · 11 Gennaio 2014

se non ricordo male la spia era il numero 1 per 30 ambatate e 5000 estr.

Mike58 · 12 Gennaio 2014

x Alien, i 2 script con scelta numeri dispari o pari

10 e lotto

Codice:

Sub Main()
	'BY Mike58 NUMERI FREQUENTI DOPO SPIA X '
	Dim n(90,7),ru(1),ru1(1),nu(1),nn1(1),anum(90),spia(1)
	arch = CInt(InputBox("QUALE ARCHIVIO 10 e Lotto " & Chr(13) & "  " & Chr(13) & "1 = 10 e lotto serale" & Chr(13) & "2 = 10 e lotto 5 Min ",,1))
	ImpostaArchivio10ELotto(arch)
	ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?",,200))
	If ee = "" Then Exit Sub
	nn = CInt(InputBox("Quale numero spia ?",,5))
	If nn = "" Then Exit Sub
	cl = CInt(InputBox("Quanti colpi ?",,20))
	If cl = "" Then Exit Sub
	'r1 = CInt(InputBox(" Quale Ruota ?",,6))
	'If r1 = "" Then Exit Sub
	am = CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 90?",,20))
	If am = "" Then Exit Sub
	dp = CInt(InputBox("QUALI NUMERI ANALIZZO" & Chr(13) & Chr(13) & "1 - DISPARI " & Chr(13) & "2 - PARI ",,1))

	Call Scrivi("*** Listato by Mike58 *** ",True,True,,2,10)
	If arch = 1 Then Call Scrivi("   ******  10 e lotto Serale ****** ",True,True,,1,5)
	If arch = 2 Then Call Scrivi("   ******  10 e lotto 5 Min ****** ",True,True,,1,5)
	r2 = 11
	nn1(1) = nn
	fin = EstrazioniArchivioDL
	ini = fin - ee
	'---------init tabella----------------------------------------------
	ReDim atitoli(9)
	atitoli(1) = " Numeri dopo SPIA "
	atitoli(2) = " Presenza su Casi "
	atitoli(3) = " Rit. corrente "
	atitoli(4) = " Rit.Max nel ciclo "
	atitoli(5) = " freq ult.ciclo "
	atitoli(6) = " sfaldato "
	atitoli(7) = " Coplo "
	atitoli(8) = " Frequenze tot "
	atitoli(9) = " Media Uscite "
	Call InitTabella(atitoli,266,,3,4)
	'---------- fine titoli tabella -------------------------------------
	'------------------------------
	'g = 0
	For es = ini To fin
		'If g = 1 Then: es = es + cl : g = 0
		'End If
		spia(1) = nn
		If SerieFreqDL(es,es,spia,1) = 1 Then
			'g = 1
			'------------------------------------Modifica
			ru1(1) = r2
			If SerieFreqDL(es,es,ru1,1) = 1 Then
				ess = es + cl
				If ess > fin Then ess = fin
				co = 0
				For i = 1 To 90
					co = co + 1
					n(co,1) = co
					n(co,2) = i
					nu(1) = i
					ru(1) = r1
					If dispari(dp) And dispari(i) Or pari(dp) And pari(i) Then

					sfe = SerieFreqDL(Ini,fin,nu,1)
					fr = SerieFreqDL(es + 1,ess,nu,1)' ricerca frequenza su ruota
					rt = SerieRitardoDL(ini,fin,nu,1) 'ricerca ritardo
					rs = SerieStoricoDL(fin - ee,fin,nu,1)
					fru = SerieFreqDL(fin - cna,fin,nu,1)
					n(co,3) = n(co,3) + fr
					n(co,4) = rt
					n(co,5) = rs
					n(co,6) = fru
					n(co,7) = sfe
					ca = Fin - es
					cnn = SerieFreqDL(Ini,fin,spia,1)
					cna = EstrattoRitardoDL(nn,fin - ee,fin)
					End If
				Next
			End If
		End If
	Next
	Scrivi "__________________________________________________________________________________"
	Scrivi ""
	ColoreTesto 1
	Scrivi "Migliori ambate dopo Numero Spia " & nn,True,True,,1,5
	ColoreTesto 0
	Scrivi"Dal " & DataEstrazioneDL(ini) & "(" & es & ") al " & DataEstrazioneDL(fin) & "(" & fin & ")",1
	Scrivi"estrazioni Totali esaminate : " & ee,True,True,,7,3
	Scrivi "nelle successive " & cl & " estrazioni - - - Dopo l'uscita del numero spia: ---> " & nn,1
	Scrivi "numero di volte uscita del n° spia nel periodo analizzato " & " ---> " & cnn,2
	ColoreTesto 2
	Scrivi "RITARDO SPIA.....  " & cna,True,True,,2,3
	ColoreTesto 0
	If dp = 1 Then Scrivi"VISUALIZZO Numeri scelti : DISPARI ",1
	If dp = 2 Then Scrivi"VISUALIZZO Numeri scelti : PARI ",1

	Scrivi "__________________________________________________________________________________"
	Scrivi ""
	OrdinaMatrice n,- 1,3
	For w = 1 To am
		riga = riga & Format2(n(w,1)) & " "
		anum(w) = n(w,1)
		rtc2 = SerieRitardoDL(Ini,fin,anum,2)
		rtc1 = SerieRitardoDL(Ini,fin,anum,1)
		rtc3 = SerieRitardoDL(Ini,fin,anum,3)
		fr1 = SerieFreqDL(Ini,fin,anum,1)
		fr2 = SerieFreqDL(Ini,fin,anum,2)
		fr3 = SerieFreqDL(Ini,fin,anum,3)
		'-------- scrivi valori -------------------------------------------------
		ReDim avalori(9)
		avalori(1) =(n(w,2))
		avalori(2) =(n(w,3)) & " su " & cnn
		avalori(3) =(n(w,4))
		avalori(4) =(n(w,5))
		avalori(5) =(n(w,6))
		If avalori(3) <= cna Then avalori(6) = n(w,2)
		If avalori(3) > cna Then avalori(6) = "-"
		If avalori(3) <= cna Then avalori(7) = cna -(avalori(3))
		If avalori(3) > cna Then avalori(7) = "-"
		avalori(8) =(n(w,7))
		avalori(9) = "1/" & Left(Int(fin - Ini)/avalori(8),2)
		Call AddRigaTabella(avalori,,,3)
		If avalori(3) = 0 Then Call SetColoreCella(1,,2)
		If avalori(3) = 0 Then Call SetColoreCella(3,,2)
		'Call ImpostaGiocataDL(1,anum,1,cl)
	Next
	CreaTabella()
	ColoreTesto 0
	Scrivi "================================= DETTAGLIO ULTIME " & cna & " ESTRAZIONI =================================== ",True,True,,1,2
	Scrivi "Combinazione Ricavata...." & StringaNumeri(anum),1
	Scrivi String(100,"-"),1
	'Call GiocaDL(fin-cl)
	For x = fin - cna To fin
		Call VerificaEsitoDL(anum,x,1,1,resito,recolpi,restratti,reid)
		If resito = "Cinquina" Then ColoreTesto 2
		If resito = "Sestina" Then ColoreTesto 7
		If resito = "Sette" Then ColoreTesto 1
		If resito = "Otto" Then ColoreTesto 2
		If resito = "Nove" Then ColoreTesto 1
		If resito = "Dieci" Then ColoreTesto 3
		If resito = "Estratto" Then ColoreTesto 0
		If resito = "Ambo" Then ColoreTesto 0
		If resito = "Terno" Then ColoreTesto 0
		If resito = "Quaterna" Then ColoreTesto 0
		Scrivi GetInfoEstrazioneDL(reid) & "  ",1,0
		Scrivi restratti & "  ",1,0
		Scrivi resito,1
	Next
	Scrivi String(100,"="),1
End Sub

superenalotto

Codice:

Sub Main()
	'BY Mike58 NUMERI FREQUENTI DOPO SPIA X '
	ColoreTesto 2
	Call Scrivi("*** Listato by Mike58 *** ",True,True,,2,10)
	Call Scrivi("   ******  S U P E R E N A L O T T O ****** ",True,True,,1,5)
	dp = CInt(InputBox("QUALI NUMERI ANALIZZO" & Chr(13) & Chr(13) & "1 - DISPARI " & Chr(13) & "2 - PARI ",,1))
	ColoreTesto 0
	Dim n(90,7),ru(1),ru1(1),nu(1),nn1(1),anum(90),spia(1)
	ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?",,200))
	If ee = "" Then Exit Sub
	nn = CInt(InputBox("Quale numero spia ?",,90))
	If nn = "" Then Exit Sub
	cl = CInt(InputBox("Quanti colpi ?",,14))
	If cl = "" Then Exit Sub
	'r1 = CInt(InputBox(" Quale Ruota ?",,6))
	'If r1 = "" Then Exit Sub
	am = CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 90?",,10))
	If am = "" Then Exit Sub
	r2 = 11
	nn1(1) = nn
	fin = EstrazioniArchivioSE
	ini = fin - ee
	'---------init tabella----------------------------------------------
	ReDim atitoli(9)
	atitoli(1) = " Numeri dopo SPIA "
	atitoli(2) = " Presenza su Casi "
	atitoli(3) = " Rit. corrente "
	atitoli(4) = " Rit.Max nel ciclo "
	atitoli(5) = " freq ult.ciclo "
	atitoli(6) = " sfaldato "
	atitoli(7) = " Coplo "
	atitoli(8) = " Frequenze tot "
	atitoli(9) = " Media Uscite "
	Call InitTabella(atitoli,266,,3,4)
	'---------- fine titoli tabella -------------------------------------
	'------------------------------
	'g = 0
	For es = ini To fin
		'If g = 1 Then: es = es + cl : g = 0
		'End If
		spia(1) = nn
		If SerieFreqSE(es,es,spia,1) = 1 Then
			'g = 1
			'------------------------------------Modifica
			ru1(1) = r2
			If SerieFreqSE(es,es,nn1,1) = 1 Then
				ess = es + cl
				If ess > fin Then ess = fin
				co = 0
				ok = 0
				For i = 1 To 90
					co = co + 1
					n(co,1) = co
					n(co,2) = i
					nu(1) = i
					ru(1) = r1
					'ok = 0
					If dispari(dp) And dispari(i) Or pari(dp) And pari(i) Then
						sfe = SerieFreqSE(Ini,fin,nu,1)
						fr = SerieFreqSE(es + 1,ess,nu,1)' ricerca frequenza su ruota
						rt = SerieRitardoSE(ini,fin,nu,1) 'ricerca ritardo
						rs = SerieStoricoSE(fin - ee,fin,nu,1)
						fru = SerieFreqSE(fin - cna,fin,nu,1)
						n(co,3) = n(co,3) + fr
						n(co,4) = rt
						n(co,5) = rs
						n(co,6) = fru
						n(co,7) = sfe
						ca = Fin - es
						cnn = SerieFreqSE(Ini,fin,spia,1)
						cna = EstrattoRitardoSE(nn,fin - ee,fin)
					End If
				Next
			End If
		End If
	Next
	Scrivi "__________________________________________________________________________________"
	Scrivi ""
	ColoreTesto 1
	Scrivi "Migliori ambate dopo Numero Spia " & nn,True,True,,1,5
	ColoreTesto 0
	Scrivi"Dal " & DataEstrazioneSE(ini) & "(" & es & ") al " & DataEstrazioneSE(fin) & "(" & fin & ")",1
	Scrivi"estrazioni Totali esaminate : " & ee,True,True,,7,3
	Scrivi "nelle successive " & cl & " estrazioni - - - Dopo l'uscita del numero spia: ---> " & nn,1
	Scrivi "numero di volte uscita del n° spia nel periodo analizzato " & " ---> " & cnn,2
	ColoreTesto 2
	Scrivi "RITARDO SPIA.....  " & cna,True,True,,2,3
	ColoreTesto 0
	If dp = 1 Then Scrivi"VISUALIZZO Numeri scelti : DISPARI ",1
	If dp = 2 Then Scrivi"VISUALIZZO Numeri scelti : PARI ",1
	Scrivi "__________________________________________________________________________________"
	Scrivi ""
	OrdinaMatrice n,- 1,3
	For w = 1 To am
		riga = riga & Format2(n(w,1)) & " "
		anum(w) = n(w,1)
		rtc2 = SerieRitardoSE(Ini,fin,anum,2)
		rtc1 = SerieRitardoSE(Ini,fin,anum,1)
		rtc3 = SerieRitardoSE(Ini,fin,anum,3)
		fr1 = SerieFreqSE(Ini,fin,anum,1)
		fr2 = SerieFreqSE(Ini,fin,anum,2)
		fr3 = SerieFreqSE(Ini,fin,anum,3)
		'-------- scrivi valori -------------------------------------------------
		ReDim avalori(9)
		avalori(1) =(n(w,2))
		avalori(2) =(n(w,3)) & " su " & cnn
		avalori(3) =(n(w,4))
		avalori(4) =(n(w,5))
		avalori(5) =(n(w,6))
		If avalori(3) <= cna Then avalori(6) = n(w,2)
		If avalori(3) > cna Then avalori(6) = "-"
		If avalori(3) <= cna Then avalori(7) = cna -(avalori(3))
		If avalori(3) > cna Then avalori(7) = "-"
		avalori(8) =(n(w,7))
		avalori(9) = "1/" & Left(Int(fin - Ini)/avalori(8),2)
		Call AddRigaTabella(avalori,,,3)
		If avalori(3) = 0 Then Call SetColoreCella(1,,2)
		If avalori(3) = 0 Then Call SetColoreCella(3,,2)
	Next
	CreaTabella()
	ColoreTesto 0
	Scrivi "======================================================================================================================",1
	Scrivi "Combinazione Ricavata...." & StringaNumeri(anum),1
	Scrivi String(100,"-"),1
	'Call GiocaDL(fin-cl)
	For x = fin - cna To fin
		Call VerificaEsitoSE(anum,x,1,1,resito,recolpi,restratti,reid)
		If resito = "Cinquina" Then ColoreTesto 2
		If resito = "Sestina" Then ColoreTesto 7
		'If resito = "" Then Scrivi "ZERO PUNTI "'ColoreTesto 1 & "ZERO PUNTI"
		If resito = "Estratto" Then ColoreTesto 0
		If resito = "Ambo" Then ColoreTesto 0
		If resito = "Terno" Then ColoreTesto 2
		If resito = "Quaterna" Then ColoreTesto 2
		Scrivi GetInfoEstrazioneSE(reid) & " - ",1,0
		Scrivi restratti & "  ",1,0
		Scrivi resito,1
	Next
	Scrivi String(100,"="),1
End Sub

Per gli altri script c'è da aspettare che ritorni il genio,per adesso la lampada è otturata.

Ciao e buon week-end

Alien. · 12 Gennaio 2014

TE ...possino fà un......

grazie.....

controllo l'andamento.......poi chiamo l'idraulico...........

Ciao e buon week-end anche a te...........

Alien. · 12 Gennaio 2014

keeper ha scritto:
se non ricordo male la spia era il numero 1 per 30 ambatate e 5000 estr.

grazie Keeper.......$$$$

keeper · 12 Gennaio 2014

perchè hai chiesto numeri dispari o pari?

Alien. · 12 Gennaio 2014

keeper ha scritto:
perchè hai chiesto numeri dispari o pari?

per uno studio ma per adesso non da grandi risultati

keeper · 12 Gennaio 2014

si ho intuido e che si ha una prima riduzione al 50%

keeper · 12 Gennaio 2014

facciamo una prova
con la spia 16
6.42.67.65.48.68.16.51.58.2.43.15.60.25.69.81.71.73.53.31

x mike esiste uno script oppure un modo di ricerca in spaziometria che mi verifichi i numeri sono alla presenza della spia?

Alien. · 12 Gennaio 2014

ciao,tu dici per 10elotto ogni 5'io non l'ho mai preso in considerazione anche se valido..........non posso passare il tempo al botteghino.
Si in effetti ti riduce un po tutto anche i numeri presi....non ho avuto tempo per approfondire,fatto 2/3 prove ma sono state deludenti.......un caso?

ALLA SPIA 16 DAGLI COME RISULTATO 10 NUMERI NO 20 CINQUINA SICURA.
<<<<<<<E' CHE IDEA PERO'.

keeper · 13 Gennaio 2014

ora provvedo i 20 numeri era solo per far capire da dove inizia la mia ricerca io ho eseguito la ricerca su 5000 estr.

keeper · 13 Gennaio 2014

65.58.67.43.31.42.68.51.25.44

Mike58 · 13 Gennaio 2014

x mike esiste uno script oppure un modo di ricerca in spaziometria che mi verifichi i numeri sono alla presenza della spia?

In spaziometria non lo so, ma ho fatto una sorte di script che elenca i numeri + usciti con una ipotetica spia.
vedi se fa al caso tuo.

Codice:

Sub Main
	Dim frequenze(90)
	arch = CInt(InputBox("QUALE ARCHIVIO" & Chr(10) & Chr(10) & "1 =  10 E LOTTO SERALE" & Chr(10) & "2 = 10 E LOTTO 5 MIN",,1))
	ImpostaArchivio10ELotto(arch)
	id = CInt(InputBox("QUALE SPIA",,74))
	QE = InputBox("QUANTE ESTRAZIONI",,600)
	Ini = EstrazioniArchivioDL - QE
	fin = EstrazioniArchivioDL
	If arch = 1 Then Scrivi"Gioco per 10 e lotto Serale",True,False,2,4,3
	If arch = 2 Then Scrivi"Gioco per 1o e lotto 5 Min ",True,False,2,4,3
	Scrivi "  Spia analizzata..." & id & "   ",True,False,4,2,3
	Scrivi " Estrazioni totali analizzate  " & fin - Ini,True,True,3,1,3
	Scrivi
	For es = Ini To fin
		If EstrattoFrequenzaDL(id,es,es) = 1 Then
			cc = cc + 1
			ScriviEstrazioneDL(es),1
		End If
	Next
	Scrivi
	Scrivi "casi trovati..." & cc & " con spia trovata " & id,1
	Scrivi
	For n = Ini To fin
		If EstrattoFrequenzaDL(id,n,n) > 0 Then
			For i = 1 To 20
				e = EstrattoDL(n,i)
				frequenze(e) = frequenze(e) + 1
			Next
		End If
	Next
	For n = 0 To 100
		s = "numeri sortiti " & CStr(n) & " volte: "
		c = 0
		For i = 1 To 90
			If frequenze(i) = n Then
				s = s & Format2(i) & " "
				c = c + 1
			End If
		Next
		If c > 0 Then
			Scrivi Format2(c) & " - " & s,True,True,,2,2
		End If
	Next
	Scrivi
	Scrivi "****** listed by Mike58 ******* for Forum LottoCed ******* ",True,True,1,5,3
End Sub

keeper · 13 Gennaio 2014

GRAZIE MIKE ALLORA STO FACENDO QUESTO STUDIO
HO IPOTIZZATO SU 17000 ESTR. LA SPIA MAGGIORMENTE FREQUENTE OVVERO IL 16 E CON IL TUO SCRIPT HO RICAVATO SU SUGGERIMENTO DI ALINE 10ESTRATTI QUINDI METTENDO IN GIOCO LA DECINA IN PROGRESSIONE CON IL 5 SI PUò VINCERE SENZA INVESTIRE MOLTO ANCHE PER 15 COLPI SE POI SUBEMDRANO COM ESPESSA ACADE SORTI SUPERIORI SI VA DI LUSSO, POI PROVERò ANCHE AD INTRECCIARE PIà SPIE VEDIAMO COSA SUCCEDE. ATTENDO COMMENTI E IDEE

keeper · 13 Gennaio 2014

HO provato ma non è quello che cerco ovvero vorrei scegliere la spia e dire allo script ogni volta che trovi la spia x metti in gioco i numeri y. credo di aver reso l'idea

Alien. · 13 Gennaio 2014

Alien. · 13 Gennaio 2014

Mike58 ha scritto:

In spaziometria non lo so, ma ho fatto una sorte di script che elenca i numeri + usciti con una ipotetica spia.
vedi se fa al caso tuo.

Codice:

Sub Main
	Dim frequenze(90)
	arch = CInt(InputBox("QUALE ARCHIVIO" & Chr(10) & Chr(10) & "1 =  10 E LOTTO SERALE" & Chr(10) & "2 = 10 E LOTTO 5 MIN",,1))
	ImpostaArchivio10ELotto(arch)
	id = CInt(InputBox("QUALE SPIA",,74))
	QE = InputBox("QUANTE ESTRAZIONI",,600)
	Ini = EstrazioniArchivioDL - QE
	fin = EstrazioniArchivioDL
	If arch = 1 Then Scrivi"Gioco per 10 e lotto Serale",True,False,2,4,3
	If arch = 2 Then Scrivi"Gioco per 1o e lotto 5 Min ",True,False,2,4,3
	Scrivi "  Spia analizzata..." & id & "   ",True,False,4,2,3
	Scrivi " Estrazioni totali analizzate  " & fin - Ini,True,True,3,1,3
	Scrivi
	For es = Ini To fin
		If EstrattoFrequenzaDL(id,es,es) = 1 Then
			cc = cc + 1
			ScriviEstrazioneDL(es),1
		End If
	Next
	Scrivi
	Scrivi "casi trovati..." & cc & " con spia trovata " & id,1
	Scrivi
	For n = Ini To fin
		If EstrattoFrequenzaDL(id,n,n) > 0 Then
			For i = 1 To 20
				e = EstrattoDL(n,i)
				frequenze(e) = frequenze(e) + 1
			Next
		End If
	Next
	For n = 0 To 100
		s = "numeri sortiti " & CStr(n) & " volte: "
		c = 0
		For i = 1 To 90
			If frequenze(i) = n Then
				s = s & Format2(i) & " "
				c = c + 1
			End If
		Next
		If c > 0 Then
			Scrivi Format2(c) & " - " & s,True,True,,2,2
		End If
	Next
	Scrivi
	Scrivi "****** listed by Mike58 ******* for Forum LottoCed ******* ",True,True,1,5,3
End Sub

Ciao Mike,interessante la ricerca richiesta da keeper......èè...non so se sia possibile individuare quale delle ventine ha fatto il max dei punteggi e dopo quanti colpi è successo ciò.......c'è la fai ad far uscire il genio?

Alien. · 13 Gennaio 2014

keeper ha scritto:
65.58.67.43.31.42.68.51.25.44

10elotto ogni 5' minuti e da quando li metti ingioco? a che ora?

keeper · 13 Gennaio 2014

successivamente alla sortita del 16

Alien. · 13 Gennaio 2014

Alien. ha scritto:
ACC.... ma sei peggio del genio della lampada di Aladino,basta chiedere ed il desiderio è esaudito..........grazie....

un altra struffatina alla lampada.....puoi inserire da 1 a 5/6 numeri spia...a richiesta ed unire il risultato?in 1 a 5/6 responsi.....grazie-----

se poi vinco mandami il tuo cc....

giusto ....6 numeri spia e poi che mi dica di tutti i numeri estrapolati quanti ce ne sono a zero uscite,una uscita,due uscite ecc.(frequenze) e quali sono questi numeri è.... gasp spero che il genio non mi invii alla prima porta a destra ahahah..

sia pe il super classico dispari e pari sia per super solo dispari e solo pari...........

Alien. · 13 Gennaio 2014

keeper ha scritto:
successivamente alla sortita del 16

acc..cavolacci ma allora devi stare incollato al botteghino ....hahhahah dai scherzo.........se il gioco ne vale la candela.....allora accendila...

ma quante volte esce il 16 in una giornata?

X MIKE TUTTO SU NUMERI SPIA

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member