Novità

Per Luigi .. se c'è

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  
 
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 !

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

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
Indietro
Alto