Per Luigi .. se c'è

[imported_n/a]

Un grazie a Luigi per la precisazione,sicuramente un altro arrichimento per la conoscenza in materia di script.

Ciao
Mike58

 

[fillotto]

Grazie a mike58 e naturalmente a Luigi voglio comunque informarvi
che quanto ipotizzato FUNZIONA , a me interessava che il valore che
mi restituiva fosse unico perchè la distanza mi falsava il tutto giacchè volevo mettere insieme i risultati dei cento numeri delle somme e i cento numeri delle differenze inoltre, accertato che il
tutto funziona ho trovato anche i 100 risultati con il prodotto ecco la tabella unita su excel per trovare dei sincronismi (invece di 3 a 1) la tabella si riferisce alla situaz prima dell'estraz di ieri:
Ruota P1 P2 Ritardo RitMax Freq I.C. Pronostico VerdeSomma RossoProd BiancoDiff
Palermo 1 4 101 101 40 4,8675 51  
Firenze 3 5 67 74 50 4,0361 22  
Firenze 1 5 63 63 52 3,947 18  
Roma 1 2 65 65 48 3,759 90  
Napoli 1 2 55 55 52 3,4458 52  
Palermo 2 4 66 66 41 3,2602 29  
Cagliari 4 5 49 49 55 3,247 60  
Roma 2 4 56 61 47 3,1711 60  
Napoli 1 5 82 85 32 3,1614 31  
Palermo 1 5 68 80 37 3,0313 79  
Napoli 1 3 53 53 46 2,9373 68  
Venezia 1 5 52 62 46 2,8819 63  
Firenze 3 5 54 73 44 2,8627 90  
Torino 1 5 67 71 35 2,8253 60  
Firenze 1 2 55 77 42 2,7831 68  
Torino 4 5 57 118 40 2,747 46  
Roma 1 4 69 137 33 2,7434 42  
Cagliari 1 3 65 92 35 2,741 52  
Cagliari 1 4 47 57 48 2,7181 60  
Roma 1 5 53 102 41 2,6181 20  
Cagliari 3 4 50 50 43 2,5904 84  
Bari 1 3 53 53 40 2,5542 54  
Firenze 1 2 43 73 49 2,5386 67  
Roma 2 3 35 58 60 2,5301 40  
Palermo 2 3 36 85 58 2,5157 3  
Venezia 2 4 48 62 43 2,4867 48  
Venezia 1 5 41 64 48 2,3711 90  

 

[fillotto]

NEL confermare che ho risolto tutti i dubbi espressi sopra circa la possibilità di fare anche la differenza come la intendo io ribadisco
la potenza di questo script:
Quindi sempre per capirne di più TI CHIEDO COME FA A FARE UN OUTPUT
CON UNA TABELLA FATTA DA 100 RIGHE , NON RIESCO A CAPIRE DOVE STA L'ISTRUZIONE 100 O
LE TABELLE SONO SEMPRE DA 100?

quote:Originally posted by LuigiB

un evoluzione dello script precedente che risolve questo problema :

Problema :
Creare una classifica ordinata per indice di convenienza considerando
di giocare entro X colpi i numeri che si possono formare sommando
due a due col fuori90 quelli presi da tutte le posssibili 10
combinazioni di classe 2 di ciascuna estrazione per le 10 ruote (es. 1-2,1-3,1-4,1-5,2-3...).

In questo script tra l'altro si fa uso delle classi e delle collection
due armi molto potenti !

Option Explicit
Sub Main
	Dim Coll
	Dim ClsI
	Dim idEs
	Dim Colpi
	Dim i
	Dim nEstrTot
	Dim NumDaGioc
	nEstrTot =(EstrazioneFin + 1) - EstrazioneIni
	Colpi = Int(InputBox("Entro quanti colpi verificare l'esito ?","Colpi di verifica",3))
	If Colpi <= 0 Then Exit Sub
	Call AlimentaCollItem(Coll)
	For Each ClsI In Coll
		For idEs = EstrazioneIni To EstrazioneFin
			Call CalcoloStat(ClsI,idEs,Colpi)
		Next
		i = i + 1
		Call AvanzamentoElab(1,Coll.count,i)
		If ScriptInterrotto Then Exit Sub
	Next
	ReDim aTitoli(9)
	aTitoli(1) = "Ruota"
	aTitoli(2) = "P1"
	aTitoli(3) = "P2"
	aTitoli(4) = "Ritardo"
	aTitoli(5) = "RitMax"
	aTitoli(6) = "Freq"
	aTitoli(7) = "I.C."
	aTitoli(8) = "Pronostico"
	aTitoli(9) = "Esito Colpi"
	Call InitTabella(aTitoli)
	For Each ClsI In Coll
		ReDim aV(9)
		aV(1) = NomeRuota(ClsI.ruota)
		aV(2) = ClsI.P1
		aV(3) = ClsI.P2
		aV(4) = ClsI.Rit
		aV(5) = ClsI.RitMax
		aV(6) = ClsI.Frq
		aV(7) = round(Dividi(ClsI.rit,Dividi(nEstrTot,ClsI.frq)),4)
		aV(9) = GetColpiEsito(ClsI,NumDaGioc)
		aV(8) = NumDaGioc
		Call AddRigaTabella(aV)
	Next
	Call Scrivi("Classifica dei numeri ottenuti sommando col fuori90 " & vbCrLf & "i numeri di 2 singole posizioni per ciascuna estrazione sulle 10 ruote esclusa la nazionale")
	Call Scrivi
	Call Scrivi("Analisi da           : " & GetInfoEstrazione(EstrazioneIni) & " a " & GetInfoEstrazione(EstrazioneFin))
	Call Scrivi("Estrazioni esaminate :" & nEstrTot)
	Call Scrivi
	Call CreaTabella(7)
End Sub
Function GetColpiEsito(ClsI,RetNum)
	Dim idEs
	ReDim aN(1)
	ReDim aR(1)
	Dim nRetColpi
	idEs = EstrazioneFin
	aN(1) = Fuori90(Estratto(idEs,ClsI.ruota,ClsI.p1) + Estratto(idEs,ClsI.ruota,ClsI.p2))
	aR(1) = ClsI.ruota
	
	If VerificaEsito(aN,aR,idEs + 1,1,,,,nRetColpi) Then
		GetColpiEsito = nRetColpi
	End If
	
	RetNum = aN(1)
	
End Function

Function Dividi(a,b)
	If b > 0 Then
		Dividi = a / b
	End If
End Function
Sub CalcoloStat(ClsI,idEs,Colpi)
	ReDim aN(1)
	ReDim aR(1)
	aN(1) = Fuori90(Estratto(idEs,ClsI.ruota,ClsI.p1) + Estratto(idEs,ClsI.ruota,ClsI.p2))
	aR(1) = ClsI.ruota
	If VerificaEsito(aN,aR,idEs + 1,1,Colpi) Then
		ClsI.frq = ClsI.frq + 1
		ClsI.rit = 0
	Else
		ClsI.rit = ClsI.rit + 1
		If ClsI.rit > ClsI.ritmax Then
			ClsI.ritmax = ClsI.rit
		End If
	End If
End Sub
Sub AlimentaCollItem(coll)
	Dim clsI
	Dim k,kk,r
	Set coll = GetNewCollection
	For r = 1 To 10
		If r <> 11 Then
			For k = 1 To 4
				For kk = k + 1 To 5
					Set clsI = New clsItem
					clsI.p1 = k
					clsI.p2 = kk
					clsI.ruota = r
					coll.Add clsI
				Next
			Next
		End If
	Next
End Sub
Class clsItem
	Public p1,p2,ruota,Rit,RitMax,Frq
End Class