per mike58

[solare]

Ciao, vorrei chiederti se hai un listato che trovi i numeri simpatici. In pratica mi servirebbe sapere quali sono i numeri più frequenti su un capogioco da me impostato.

Ho trovato questo per L8 in rete, si può modificare per spaziometria ?

Sub main()
Scrivi "Spia - migliori ambate insieme al capogioco (modificato da esselotto )" & Chr(10)
Scrivi "modificato da esselotto per joi lotto lottoced )" & Chr(10)

Dim n(90,4),ru(1),ru1(1),nu(1),nn1(1)
''''ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?",,1000))
''''If ee="" Then Exit Sub
nn=CInt(InputBox("Numero Capogioco ?",,15))
If nn="" Then Exit Sub
mes1=CInt(InputBox("Quale mese 1 Gennaio, 2 Febbraio ?",,1))
If mes1="" Or Mes1 >12 Then Exit Sub
r1=CInt(InputBox(" Quale Ruota 1 Bari, 2 Cagliari, ecc.?",,1))
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
casi=0
'''''fin=EstrazioneFin
''''ini=EstrazioneFin-ee
fin=EstrazioneFin ' <----- fine archivio
ini=EstrazioneIni '<--- da inizio archivio
For es=ini To fin
If Posizione(es,r1,nn)>0 Then

ru1(1)=r2
If mes1=Mese (es) And SerieFreq(es,es,nn1,ru1,1)>0 Then


ess=es
If ess>fin Then ess=fin
casi=casi+1
co=0
For i=1 To 90
If i<>nn Then
co=co+1
n(co,1)=co
n(co,2)=i
nu(1)=i
ru(1)=r1
fr=SerieFreq(es,ess,nu,ru,1)
n(co,3)=n(co,3)+fr
End If
Next
End If
End If

Next
Scrivi
ColoreTesto 1
Scrivi " Migliori ambate con il Capogioco "& nn &" ruota di "&nomeruota(r1)& Chr(10)
ColoreTesto 0
Scrivi" Dal "&dataestrazione(ini)&"("&es-ee&") al "&dataestrazione(fin)&" ("&fin&")si è presentato "&casi&" volte"& Chr(10)
Scrivi " N° Presenze Ruota di ---->"& NomeRuota(r1)& "...... Mese di "& MeseNome (mes1),1
OrdinaMatrice n,-1,3
For w=1 To am
Scrivi" "& Format2(n(w,2))&" "&FormatSpace(n(w,3),4,1)

Next
ColoreTesto 0
Scrivi String(50,"=")& Chr(10)
Scrivi "°°°esselotto°°°",1



End Sub

 

[Mike58]

Ciao Solare, il tuo listato trova i numeri + frequenti che si sono accoppiati al numero spia solo nel mese richiesto.
Per fare la ricerca totale basta togliere la condizione if del mese.
If mes1=Mese (es) And SerieFreq(es,es,nn1,ru1,1)>0 Then
con
if SerieFreq(es,es,nn1,ru1,1)>0 Then
e otterrai i frequenti su tutte le estrazioni.

Tuttavia avevo già postato un listato simile e penso che possa fare al caso tuo

Sub Main
	Dim frequenze(90),ii(90)
	r = InputBox("QUALE RUOTA",,1)
	id = CInt(InputBox("QUALE SPIA",,15))
	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 Solare *** Forum LottoCed ******* ",True,True,1,5,3
End Sub

 

[solare]

Grazie mike58....ottimo

 

[Alien.]

NON HO TROVATO il posto dove inserire :If SerieFreq(es,es,nn1,ru1,1)>0 Then..
help

 

[Mike58]

Sub main()
Scrivi "Spia - migliori ambate insieme al capogioco (modificato da esselotto )" & Chr(10)
Scrivi "modificato da esselotto per joi lotto lottoced )" & Chr(10)

Dim n(90,4),ru(1),ru1(1),nu(1),nn1(1)
''''ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?",,1000))
''''If ee="" Then Exit Sub
nn=CInt(InputBox("Numero Capogioco ?",,15))
If nn="" Then Exit Sub
mes1=CInt(InputBox("Quale mese 1 Gennaio, 2 Febbraio ?",,1))
If mes1="" Or Mes1 >12 Then Exit Sub
r1=CInt(InputBox(" Quale Ruota 1 Bari, 2 Cagliari, ecc.?",,1))
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
casi=0
'''''fin=EstrazioneFin
''''ini=EstrazioneFin-ee
fin=EstrazioneFin ' <----- fine archivio
ini=EstrazioneIni '<--- da inizio archivio
For es=ini To fin
If Posizione(es,r1,nn)>0 Then

ru1(1)=r2
If mes1=Mese (es) And SerieFreq(es,es,nn1,ru1,1)>0 Then


ess=es
If ess>fin Then ess=fin
casi=casi+1
co=0
For i=1 To 90
If i<>nn Then
co=co+1
n(co,1)=co
n(co,2)=i
nu(1)=i
ru(1)=r1
fr=SerieFreq(es,ess,nu,ru,1)
n(co,3)=n(co,3)+fr
End If
Next
End If
End If

Next
Scrivi
ColoreTesto 1
Scrivi " Migliori ambate con il Capogioco "& nn &" ruota di "&nomeruota(r1)& Chr(10)
ColoreTesto 0
Scrivi" Dal "&dataestrazione(ini)&"("&es-ee&") al "&dataestrazione(fin)&" ("&fin&")si è presentato "&casi&" volte"& Chr(10)
Scrivi " N° Presenze Ruota di ---->"& NomeRuota(r1)& "...... Mese di "& MeseNome (mes1),1
OrdinaMatrice n,-1,3
For w=1 To am
Scrivi" "& Format2(n(w,2))&" "&FormatSpace(n(w,3),4,1)

Next
ColoreTesto 0
Scrivi String(50,"=")& Chr(10)
Scrivi "°°°esselotto°°°",1



End Sub

Ciao Alien il codice è sul listato postato da Solare

Ciao

 

[Alien.]

GRAZIE ,CIAO