cerco listato

[dario25]

ciao a tutti sto cercando un listato semplicissimo
che mi elabora 10 numeri a scelta e mi da frequenze uscite e ritardo atuale e ic di convenenza e
scegliendo la ruota grazie


buone feste a tutti e buon anno
ciao

 

[Mike58]

Ciao Dario25, buone feste e buon anno 2014 anche a te e tutti gli amici del forum Lottoced.
Il Listato dovrebbe fare quello che sono le tue necessità, verifica se il tutto è corretto.

Ciao Mike

Sub Main
	Dim n2,anum(2),comb(90)
	Dim ruote(1)
	qt = InputBox("QUANTE ESTRAZIONI ANALIZZO",,600)
	r = InputBox("Quale Ruota",,5)
	sorte = CInt(InputBox("QUALE SORTE VERIFICO LA COMBINAZIONE",,2))
	ruote(1) = r
	ReDim atitoli(10)
	atitoli(1) = " I.C. "
	atitoli(2) = " Ruota "
	atitoli(3) = " Numero "
	atitoli(4) = " Ritardo "
	atitoli(5) = " Rit Max "
	atitoli(6) = " incr Max "
	atitoli(7) = " frequenza "
	atitoli(8) = "  Esito ultimo "
	atitoli(9) = " Tipo esito "
	atitoli(10) = " Data esito "
	Call InitTabella(atitoli,1,,3,5)
	Ini = EstrazioneFin - qt
	fin = EstrazioneFin
	df = fin - Ini
	Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " --> Totali estraz. " & df,1,- 1,3
	Scrivi
	Messaggio "elaboro... ruota di  " & NomeRuota(r)
	Call AvanzamentoElab(1,10,100)
	Call ScegliNumeri(n2)
	For k = 1 To UBound(n2)
		anum(1) = n2(k)
		comb(k) = n2(k)
		Call StatisticaFormazione(anum,ruote,1,rit,ritmax,Incrmax,freq,Ini,fin)
		Call VerificaEsito(anum,ruote,fin - rit,1,,,retesito,,retestratti,retidestr)
		Call StatisticaFormazione(comb,ruote,sorte,rit2,max2,Incr2,freq2,Ini,fin)
		Call VerificaEsito(comb,ruote,fin - rit2,sorte,,,esito2,colpi2,estratti2,id2)
		ReDim avalori(10)
		avalori(1) = Round(freq/df*rit,2)
		avalori(2) = SiglaRuota(r)
		avalori(3) = StringaNumeri(anum)
		avalori(4) = rit
		avalori(5) = ritmax
		avalori(6) = Incrmax
		avalori(7) = freq
		avalori(8) = retestratti
		avalori(9) = retesito
		avalori(10) = DataEstrazione(retidestr)
		Call AddRigaTabella(avalori,,,3)
		Call SetColoreCella(1,3,1)
		Call SetColoreCella(4,vbMagenta)
		Call SetColoreCella(3,,1)
		Call SetColoreCella(8,,7)
		Call SetColoreCella(7,vbGreen)
		If rit = 0 Then Call SetColoreCella(10,vbYellow)
	Next
	Call SetTableWidth("100%")
	Call CreaTabella(7,,,90)
	Scrivi "Combinazione Globale analizzata per " & NomeSorte(sorte),1
	ReDim aTT(8)
	aTT(1) = " Combinazione "
	aTT(2) = " Ritardo "
	aTT(3) = " Storico "
	aTT(4) = " incr "
	aTT(5) = " Freq "
	aTT(6) = " I.C."
	aTT(7) = " Esito ultimo "
	aTT(8) = " Data "
	Call InitTabella(aTT,2,,3,5)
	ReDim aVV(8)
	aVV(1) = StringaNumeri(comb)
	aVV(2) = rit2
	aVV(3) = max2
	aVV(4) = Incr2
	aVV(5) = freq2
	aVV(6) = Round(freq2/df*rit2,2)
	aVV(7) = estratti2
	aVV(8) = DataEstrazione(id2)
	Call AddRigaTabella(aVV,,,3)
	CreaTabella()
	Scrivi"     Tabella by Mike58       ",1,- 1,6
End Sub

 

[dario25]

ciao Mike58 grazie della tua disponibilita e perfetto grazie 1000

 

[dario25]

ciao mike58 il listato e ok e ti ringrazio , con calma quando ai un po ti tempo sempre si puo potresti aggiungere
il numero spia , cosi posso verificare ogni volta che esce la spia con i numeri scelti da me.

 

[Mike58]

Ciao Dario, il listato lo avevo modificato da questo che con il numero spia dava la statistica con la spia + abbinamenti scelti.
Quindi eccolo subito.

Sub Main
	Dim n1,n2,anum(2)
	Dim ruote(1)
	r = InputBox("Quale Ruota",,5)
	qn = CInt(InputBox("Quale Capogioco",,74))
	qe = CInt(InputBox("Quante estrazioni analizzo",,1000))
	ruote(1) = r
	ReDim atitoli(10)
	atitoli(1) = " I.C. "
	atitoli(2) = " Ruota "
	atitoli(3) = " Numero "
	atitoli(4) = " Ritardo "
	atitoli(5) = " Rit Max "
	atitoli(6) = " incr Max "
	atitoli(7) = " frequenza "
	atitoli(8) = "  Esito ultimo "
	atitoli(9) = " Tipo esito "
	atitoli(10) = " Data esito "
	Call InitTabella(atitoli,1,,3,5)
	Ini = EstrazioneFin - qe
	fin = EstrazioneFin
	df = fin - Ini
	Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " --> Totali estraz. " & df,1,- 1,3
	Scrivi
	Messaggio "elaboro... ruota di  " & NomeRuota(r)
	Call AvanzamentoElab(1,10,100)
	n1 = qn
	Call ScegliNumeri(n2)
	For k = 1 To UBound(n2)
		If n1 <> n2(k) Then
			anum(1) = n1
			anum(2) = n2(k)
			Call StatisticaFormazione(anum,ruote,2,rit,ritmax,Incrmax,freq,Ini,fin)
			Call VerificaEsito(anum,ruote,fin - rit,2,,,retesito,,retestratti,retidestr)
			ReDim avalori(10)
			avalori(1) = Round(freq/df*rit,2)
			avalori(2) = NomeRuota(r)
			avalori(3) = n1 & "." & n2(k)
			avalori(4) = rit
			avalori(5) = ritmax
			avalori(6) = Incrmax
			avalori(7) = freq
			avalori(8) = retestratti
			avalori(9) = retesito
			If retesito <> "" Then avalori(10) = DataEstrazione(retidestr)
			If retesito = "" Then avalori(10) = " -- "
			Call AddRigaTabella(avalori,,,3)
			Call SetColoreCella(4,vbMagenta)
			Call SetColoreCella(3,,1)
			Call SetColoreCella(8,,7)
			Call SetColoreCella(7,vbGreen)
			If rit = 0 Then Call SetColoreCella(10,vbYellow)
		End If
	Next
	Call SetTableWidth("100%")
	Call CreaTabella(7,,,90)
	Scrivi"     Tabella by Mike58       ",1,- 1,6
End Sub

 

[dario25]

mike questo non va bene mi controlla la spia con i 10 numeri che metto , mi dovrebbe controllare i 10 numeri che scelgo dopo che siverifica la spia

 

[Mike58]

Ciao Dario, questo è il meglio che sono riuscito a fare.
Spero sia sufficiente

Sub Main
	Dim frequenze(90),ii(90)
	r = InputBox("QUALE RUOTA",,5)
	id = CInt(InputBox("QUALE SPIA",,74))
	QE = InputBox("QUANTE ESTRAZIONI",,600)
	Ini = EstrazioneFin - QE
	fin = EstrazioneFin
	Scrivi "Ruota analizzata..." & NomeRuota(r),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 Posizione(es,r,id) > 0 Then
			cc = cc + 1
			Scrivi GetInfoEstrazione(es) & " - " & StringaEstratti(es,r) & "  posiz. - " & Posizione(es,r,id),True,True,,1,3
		End If
	Next
	Scrivi
	Scrivi "casi trovati..." & cc,1
	Scrivi
	For n = fin To fin - qe Step - 1
		If Posizione(n,r,id) > 0 Then
			For i = 1 To 5
				e = Estratto(n,r,i)
				frequenze(e) = frequenze(e) + 1
			Next
		End If
	Next
	Scrivi "NUMERI + FREQUENTI",True,True,2,4,2
	For n = 0 To 9
		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 "--------------------------------------"
	ScegliNumeri(ii)
	Scrivi "Numeri scelti..." & StringaNumeri(ii),1
	For n = 0 To 9
		s = "numeri sortiti " & CStr(n) & " volte: "
		c = 0
		For i = 1 To UBound(ii)
			If frequenze(ii(i)) = n Then
				s = s & Format2(ii(i)) & " "
				c = c + 1
			End If
		Next
		If c > 0 Then
			Scrivi(c) & " " & s,True,True,,2,2
		End If
	Next
	Scrivi
	Scrivi "****** Scripted by Mike58 ******* for Dario25 *** Forum LottoCed ******* ",True,True,1,5,3
End Sub

 

[dario25]

si dai va bene mike58 grazie di tutto e ancora buon anno .

 

[Micio]

BUON ANNO RAGAZZI DA PARTE MIA, IL SCRIPT E BUONO KOMPLIMENTI A MIKE , USCITA DI UN NUMERO IN PRECEDENZA E PURE CON POSIZIONI SEMPRE E UNA COSA UTILE PERO SE POSSO FARE UNA DOMANDA, NUMERO SPIA SECONDO ME E UN NUMERO DOPO DI CHE ESCONO ALTRI NUMERI MA LI CE UNA OPZIONE PER FARE QUELLO O NO ??? SI DEVE FARE ALTRO SCRIPT OPPURE E POSSIBILE FARE ANKE CON QUESTO ???? PER CHIARIRE FACCIO UN ESEMPIO: SE VEDO SPESSO CHE A MILANO ESCE 1 ENTRO MASSIMO 3 COLPI VEDO IL 2 E ANKE MEGLIO SE ESCE AMBO 2 3 COME FACCIO LA RICERCA??? ADESSO METTENDO IL NUMERO 1 MI DA USCITA DI STESSO NUMERO INDIETRO MA AVANTI COME SI FA??? AVANTI IN SENSO DOPO DI 1 PIU FREQUENTI NUMERI QUALLI SONO???? VABENE ANKE CINQUINA DOPO 1 OGNI VOLTA QUANDO ESCE 1, SPERO HO CHIARITO UN PO LE COSE SALUTONE

 

[Mike58]

Ciao Micio, un buon anno anche a te.
Giusto per essere chiaro, gli script quasi sempre sono costruiti ad ok per svolgere un determinato problema e metodologia, e questo ultimo nella fattispecie cerca insieme alla spia i numeri che maggiormente si sono accoppiati per sorte di ambo col capoGioco Spia.
Inveve la statistica che vorresti ottenere tu e una cosa diversa e magari creata ad ok la si può anche ottenere.
Secondo me sono anche 2 script diversi, il primo potrebbe elaborare i numeri migliori dopo l'uscita del numero spia e l'altro potrebbe spiare il numero spiato con i numeri che io chiamo RIVELATORI che sono quelli che maggiormente si sono presentati prima del numeri spia in colpi a ritroso stabiliti in un ciclo.

Entrambi gli script devo averli già sviluppati e se sono questi che ti interessano posso magari anche postarteli magari facendo richiesta aprendo un nuovo post.

Ciao fammi sapere.

Mike

 

[Micio]

CIAO MIKE SI SI TI RINGRAZIO APRI UN NUOVO POST E METTI TUTTO QUELLO CHE TU PENSI PUO ESSERE INTERESANTE APROPOSITO DI NUMERI SPIA, SALUTONE