Novità

cerco listato

dario25

Advanced Member
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
 
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

Codice:
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
 
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.
 
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.

Codice:
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
 
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
 
Ciao Dario, questo è il meglio che sono riuscito a fare.
Spero sia sufficiente

Codice:
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
 
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:cool:
 
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
 
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:cool:
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 02 agosto 2025
    Bari
    65
    06
    49
    14
    01
    Cagliari
    16
    20
    15
    28
    45
    Firenze
    39
    10
    83
    09
    16
    Genova
    52
    74
    79
    63
    59
    Milano
    44
    88
    57
    34
    80
    Napoli
    20
    29
    78
    84
    79
    Palermo
    76
    68
    60
    64
    02
    Roma
    80
    84
    27
    78
    57
    Torino
    25
    50
    41
    49
    69
    Venezia
    85
    33
    60
    45
    84
    Nazionale
    05
    02
    64
    79
    37
    Estrazione Simbolotto
    Nazionale
    41
    07
    11
    17
    22
Indietro
Alto