Help

[i legend]

Ciao ora devo contarle

Option Explicit
Sub Main
    Dim R,Es,K,Co
    Dim Ini,Fin
    Dim C
    Dim aRu(1)
    Dim aTemp(1),num,i,j,nSorte
    ReDim aFreq(0)
    R = TO_ : Co = 5
    aRu(1) = R
    nSorte = 1
    For Es = 8900 To EstrazioneFin
        If SommaEstratti(Es,R) = 253 Then
            K = K + 1 : Scrivi String(100,"=") & FormatSpace(K,5,1),True
            Scrivi "[" & Es & "] " & DataEstrazione(Es) & " ",False,False
            Ini = Es + 1 : Fin = Es + Co 'Definisco limiti e ampiezza del ciclo.
            Scrivi "[" & Ini & "]><[" & Fin & "]"
            '''' Questo è l'intervallo in cui conteggiare  le presenze
                If Fin > EstrazioneFin Then Fin = EstrazioneFin
            K = 0
            For num = 1 To 90
                aTemp(1) = num
                If SerieFreq(Ini,Fin,aTemp,aRu,nSorte) > 0 Then
                    K = K + 1
                    ReDim Preserve aFreq(K)
                    aFreq(K) = aTemp(1)
                End If
            Next
        End If
        For C = Ini To Fin
            Scrivi DataEstrazione(C)
        Next
        For j = 1 To UBound(aFreq)
            Scrivi aFreq(j)
        Next
        ' .......
    
Next
End Sub

 

[Joe91]

Ciao ilegend

Si è giusto. E' una possibile soluzione ed apprezzo il tuo desiderio di arrivare presto a conclusione,

tuttavia la fretta è cattiva consigliera.

Se ricordi, s'era detto che occorre anche "controllare" la parte relativa all'inizio,

del periodo, in cui "contare", le nostre presenze.

In questo caso bisogna assolutamente evitare che venga svolto qualsiasi conteggio.

Perchè se così fosse, esso sarebbe relativo ad estrazioni in archivio semplicemente inesistenti.

Dunque propongo alla sintesi di quanto precedentemente detto e qui esposto, questo aggiornamento:

Per una più comoda verifica ... ho aggiunto anche un contatore che ci riferisce

sia dei cicli completi 15/15 che di quelli incompleti 12/15 e 5/15.

Ancora, si potrà provare ad inserire So = 285 che sappiamo essere l'ultima somma

attualmente componibile con gli estratti di Torino del 21/03/2015 ...

che non mostrerà ... estrazioni ... a cui riferirsi.

Dunque in entrambe le prove "Ini" e "Fin" opportunamente calcolati e trattati ... evitano messaggi di errore ...

e conseguentemente errori nei nosti risultati.

Option Explicit
Sub Main
	Dim R,Es,K,Co,So 
	Dim Ini,Fin
	Dim C,KK
	R = TO_ : Co = 15 : So = 253
	For Es = 8800 To EstrazioneFin
		If SommaEstratti(Es,R) = So Then
			K = K + 1 : Scrivi String(100,"=") & FormatSpace(K,5,1),True
			Scrivi "[" & Es & "] " & DataEstrazione(Es) & " ",False,False
			Ini = Es + 1 : Fin = Es + Co 'Definisco limiti e ampiezza del ciclo.
			If Ini < EstrazioneFin Then 'Controllo validità iniziale del cicl'
				If Fin > EstrazioneFin Then Fin = EstrazioneFin 'Controllo/limitazione lunghezza del ciclo.
			'''' Questo è l'intervallo in cui conteggiare  le presenze
				Scrivi "[" & Ini & "]><[" & Fin & "]"
				KK = 0 
				For C = Ini To Fin
				KK = KK + 1
					Scrivi FormatSpace (KK,4) & DataEstrazione(C)
				Next
			End If
			' .......
		End If
	Next
End Sub

 

[i legend]

Ciao joe ,hai ragione non avevo gestito l'inizio gioco,
Cmq vedo che la logica del if nidificato era corretta
Ho provato con il redim preserve ma non riesco a sommare tutti i casi.
in output mi restituisce la frequenza dei numeri sortiti per ogni caso.....
non posto lo script per evitare confusione, attendo con impazienza
e la suspense Cresce......................
a Domani
Buona notte a tutti

 

[surmang]

Se creo scompiglio o vado fuori tema ...fatemi un fischio Ciao

Option Explicit
Sub Main()
	Dim IdEs,Fin,Ini,r,ValSomma,nEsC,nES,co,x,IniCiclo,FinCiclo,IdEsC
	Dim Nu,p,nE,Fr,FrRif,EsFrRif,cf,cp
	'
	ValSomma = CInt(InputBox("Valore Somma ",,285))
	nEsC = CInt(InputBox("numero di estrazioni per ciclo ",,15))
	nES = CInt(InputBox("numero di estrazioni ",,180))
	r = InputBox(" ruota ",,9)
	FrRif = 9: EsFrRif = 90
	'
	Fin = EstrazioneFin
	Ini = Fin -(nES - 1)
	'
	Scrivi SiglaRuota(r) & "  " & Fin & " Fin <" & String(100,"-") & "< Ini  " & Fin -(nES - 1) :Scrivi
	'
	'
	For x = nES To 0 Step - 1
		IdEs = Fin - x
		IniCiclo = IdEs + 1
		FinCiclo = IdEs + nEsC
		'
		'
		If SommaEstratti(IdEs,r) = ValSomma Then
			cp = cp + 1
			Scrivi IdEs & "    " & Format2(cp) & "  ",0,0,0,5
			If FinCiclo > Fin Then FinCiclo = Fin
			If IniCiclo > Fin Then Exit For
			Scrivi IniCiclo & "-" & FinCiclo & "  ",0,1,0,5
			For IdEsC = IniCiclo To FinCiclo
				co = co + 1
				Nu = Split("0." & StringaEstratti(IdEsC,r),".",- 1,1)
				For p = 1 To 5
					nE = Nu(p)
					Fr = EstrattoFrequenzaTurbo(r,nE,IdEsC -(EsFrRif - 1),IdEsC)
					If Fr = FrRif Then
						cf = cf + 1
						ReDim Preserve aNum(cf)
						aNum(cf) = nE
						Nu(p) = nE
					Else
						Nu(p) = "||"
					End If
				Next
				
				Scrivi FormatSpace(co,4) & DataEstrazione(IdEsC) & "   " & IdEsC & "  " & StringaEstratti(IdEsC,r) & "  ",0,0,5
				Scrivi"  " & StringaNumeri(Nu," ",True),0,1,5,1
			Next
                                      co=0
		End If
		'
		'
	Next
	'
	'
	Scrivi
	Scrivi String(100,"="),1
	If cf>0 Then 
	EliminaRipetuti(aNum)
	Scrivi StringaNumeri(aNum,".",True),0,0,1,5
	End If
End Sub

 

[Joe91]

Buon giorno a tutte/i.

Rispondo ancora una volta ... cominciando dal fondo e da Surmang.

No, anzi, è molto utile ... per poter verificare se ci saranno o meno allineamenti nei risultati.

Pertanto in caso di coincidenza abbiamo doppia, vicendevole, conferma, del corretto funzionamento.

In alternativa, al suono di campanellini di allarme, non trascurare.

Quindi avvicinandoci ad un qualcosa di concreto ...

... disponendo di ruota e periodi, non manca che la ricerca (ora, elenco) degli Estratti

che saranno da "conteggiare".

Li ho aggiunti per esteso.

Qui, sottolineo che, in funzione dell'ottenimento di un buon codice ...

è necessario che questo sia anche (compatto) efficiente, veloce.

Con questa premessa, si intuisce già, che non userò e non farò ciclare tutti i 90 numeri ...

per interrrogarli "uno ad uno" chiedendo loro: "Sei tu che ? ..."

Ed in alternativa (20 volte più veloce) mi sono rivolto ed

interpello SOLO ... quei gruppi di 5 noti ... cui avevo accennato.

Option Explicit
Sub Main
	Dim R,Es,K,Co,So 
	Dim Ini,Fin
	Dim KK,C,E,P
	R = TO_ : Co = 15 : So = 253
	For Es = 8800 To EstrazioneFin
		If SommaEstratti(Es,R) = So Then
			K = K + 1 : Scrivi String(100,"=") & FormatSpace(K,5,1),True
			Scrivi "[" & Es & "] " & DataEstrazione(Es) & Space(3) ,True,False
			Ini = Es + 1 : Fin = Es + Co 'Definisco limiti e ampiezza del ciclo.
			If Ini < EstrazioneFin Then 'Controllo validità iniziale del cicl'
				If Fin > EstrazioneFin Then Fin = EstrazioneFin 'Controllo/limitazione lunghezza del ciclo.
			'''' Questo è l'intervallo in cui conteggiare  le presenze
				Scrivi "[" & Ini & "]><[" & Fin & "] ", True
				KK = 0 
				For C = Ini To Fin
				KK = KK + 1
					Scrivi FormatSpace (KK,7) & DataEstrazione(C)  & Space (3),False,False
					For P = 1 To 5
					E = Estratto (C,R,P)
					Scrivi Format2  (E) & Space(1),0,0
					Next
					Scrivi "" 
				Next
			End If
			' .......
		End If
	Next
End Sub

 

[i legend]

Wow la soluzione si avvicina,
Surmag sei bravissimo,
io ci sto sbattendo ma ancora non ci sto arrivando , vi aspetto
a dopo

 

[i legend]

Nel frattempo che la mia testa continua ripetutamente ad appoggiarsi delicatamente contro una parete di mattoni ,
Ho capito lo script di joe
x surmang
Ciao ho lanciato il tuo script e ho provato a studiarlo, ma non sono riuscito a capire il criterio di selezione dei numeri.
FrRif =9
if Fr=FrRif then

Potresti spiegarmi questo passaggio?
Scusa Surmang sii paziente (come Joe e Mike e Luigi).,ma come ben sai è da poco che mi sono avvicinato agli script.
Il dubbio mi è venuto vedendo i numeri scritti di lato ||
In pratica cerchi i numer che abbiano avuto una frequenza pari a 9?
Ciao e grazie

P.S: Il muro in mattoncini Rossi è di gommaPiuma

 

[Joe91]

Bhe si ...

ove è scritto :

Scrivi Format2 (E) & Space(1),0,0

... otteniamo lo scopo tenendo a memoria quale Lottorìone si è presentato all'estrazione.

TMP (E) = True

Ed abbiamo memorizzata vera la presenza di quel lottrone ... nel ciclo considerato.

Infine, ci è già possibile avere il resoconto di quali estratti sono presenti per ognuno dei cicli.

Nell'ultimo ciclo ancora incompleto, a titolo di verifica,

abbiamo 24 Lottroni (piuttosto che 5 x 5 = 25) perchè l' 87 a Torino è ripetuto presente 2 volte.

(E' affermazione valida solo fino all'estrazione di questa sera perchè il periodo è in fase di completamento).

Option Explicit
Sub Main
	Dim R,Es,K,Co,So
	Dim Ini,Fin
	Dim KK,C,E,P
	Dim X
	R = TO_ : Co = 15 : So = 253
	For Es = 8800 To EstrazioneFin
		If SommaEstratti(Es,R) = So Then
			K = K + 1 : Scrivi String(100,"=") & FormatSpace(K,5,1),True
			Scrivi "[" & Es & "] " & DataEstrazione(Es) & Space(3),True,False
			Ini = Es + 1 : Fin = Es + Co 'Definisco limiti e ampiezza del ciclo.
			If Ini < EstrazioneFin Then 'Controllo validità iniziale del cicl'
				If Fin > EstrazioneFin Then Fin = EstrazioneFin 'Controllo/limitazione lunghezza del ciclo.
				'''' Questo è l'intervallo in cui conteggiare  le presenze
				Scrivi "[" & Ini & "]><[" & Fin & "] " & NomeRuota(R),True
				KK = 0
				ReDim TMP(90)
				For C = Ini To Fin
					KK = KK + 1
					Scrivi FormatSpace(KK,7) & DataEstrazione(C) & Space(3),False,False
					For P = 1 To 5
						E = Estratto(C,R,P)
						TMP(E) = True : Scrivi Format2(E) & Space(1),0,0
					Next
					Scrivi ""
				Next
			End If
			'''''
		'''Qui evidenzio quali Estratti sono presenti nei vari cicli. 
		For X = 1 To 90
			If TMP(X) = True Then Scrivi Format2(X) & " ",True,False
		Next
		Scrivi
		
		End If
	Next
End Sub

Buona Giornata.

PS: Eseguendo lo script vedi ...

Che i numeri presenti variano da ciclo a ciclo.

L' "1" e il "2" no ... ma il "3" è presente in tutti e "4" cicli.

Questo è quanto manca ancora:

Riassumere in totale.

 

[i legend]

Ciao joe fin qui ci sono,e vedo che scrive i numeri per ciclo,(ed è velocissimo), Stiamo finalmente arrivando al punto dove il mio cervello comincia a fumare.
Noto che il numero 3 ha coperto tutti i casi,
Aspetto di vedere come fai a sintetizzare,,,,,
Caso 1 =presente 3
caso 2=3
caso 3=3
Caso 4=3
Num 3 Copertura =4
Proprio non ci arrivo
a dopo

 

[Joe91]

Si ... ma che ti credi ?!?! mica lo so.

Lo trovo ... il modo.

 

[i legend]

Lo sai, e penso che ci sei arrivato da subito
Ora le cose sono 2:
1) ci vuoi far impazzire
2) ci vuoi far arrivare

Propendo decisamente per il punto 2
Un piccolo indirizzamento?
Dovrei fare un ciclo per tutti i casi, ma non riesco ad impostare
che ne so
for i= 1 to k ' dove k sono i casi
e contare quante volte un numero si presenta nel primo vettore
ma...............................
Ti aspetto
a dopo

 

[Joe91]

Intanto, mi sono informato.

Per la cicoria ho visto che va bene, solo parzialmente,

perchè è: una pianta perennante con gemme poste al livello del suolo con fusto allungato e poco foglioso.

Option Explicit
Sub Main
	Dim R,Es,K,Co,So
	Dim Ini,Fin
	Dim KK,C,E,P
	Dim X,PrCi(90)
	R = TO_ : Co = 15 : So = 253
	For Es = 8800 To EstrazioneFin
		If SommaEstratti(Es,R) = So Then
			K = K + 1 : Scrivi String(100,"=") & FormatSpace(K,5,1),True
			Scrivi "[" & Es & "] " & DataEstrazione(Es) & Space(3),True,False
			Ini = Es + 1 : Fin = Es + Co 'Definisco limiti e ampiezza del ciclo.
			If Ini < EstrazioneFin Then 'Controllo validità iniziale del cicl'
				If Fin > EstrazioneFin Then Fin = EstrazioneFin 'Controllo/limitazione lunghezza del ciclo.
				'''' Questo è l'intervallo in cui conteggiare  le presenze
				Scrivi "[" & Ini & "]><[" & Fin & "] " & NomeRuota(R),True
				KK = 0
				ReDim TMP(90)
				For C = Ini To Fin
					KK = KK + 1
					Scrivi FormatSpace(KK,7) & DataEstrazione(C) & Space(3),False,False
					For P = 1 To 5
						E = Estratto(C,R,P)
						TMP(E) = True 
						Scrivi Format2(E) & Space(1),0,0
					Next
					Scrivi ""
				Next
			End If
			'''''
		'''Qui evidenzio quali Estratti sono presenti nei vari cicli. 
		For X = 1 To 90
			If TMP(X) = True Then PrCi(X) = PrCi(X)+1 : Scrivi Format2(X) & " ",True,False
		Next
		Scrivi
		
		
		End If
	Next
	Scrivi  : Scrivi "Riepilogo :",True
	For X = 1 To 90
			Scrivi  Format2 (X)  &   "  " & CInt(PrCi(X)) & " ",True		
	Next
End Sub

Un rapido controllo ... dovrebbe confermarne il funzionamento.

 

[i legend]

La Cicoria , ha pochissimo scarto, si mangia anche il gambo
Ovviamente la parte più saporita è la foglia.Facilissima da cucinare, il suo sapore amarognolo, ricorda molto il radicchio , per spaziare in tutto il territorio nazionale
La sera quando fa freddo, a tavola con la famiglia,(che scalda il cuore), un piatto semplice e povero,che contribuisce a scaldare la pancia,e il portafoglio ringrazia
Ora provo subito lo script

 

[i legend]

Ovviamente funziona
Serenità per scaldare il cuore
Un piatto caldo per scaldare la pancia
Parlare con Joe per stimolare e scaldare le celluline grigie
Non ci sarei mai arrivato
Grazie....
adatto tutto allo script che avevo in mente e lo posto
a dopo...
P.S
Joe sei grande, anzi di più

 

[surmang]

Wow la soluzione si avvicina,
Surmag sei bravissimo,
io ci sto sbattendo ma ancora non ci sto arrivando , vi aspetto
a dopo

Ciao a Tutti.
Ciao i legend grazie per i tuoi complimenti, e scusami se mi permetto di essere in disaccordo
ma io sono solo:

https://www.youtube.com/watch?v=7i7Tw0DY0u8


FrRif=Frequenza di rferimento

 

[i legend]

Ciao Surmag, non ho capito bene su cosa sei in disaccordo,ma
se ho scritto qualcosa di sbagliato sono io che ti chiedo scusa,
Secondo me Proietti é un genio
Lo script di Joe è perfetto ,ora sto cercando di adattarlo al mio script con scarsi risultati,
Se non ci riesco lo riscrivo da capo ....
Sto arrivando ......
A dopo
Ciao a tutti

 

[surmang]

Ciao Surmag, non ho capito bene su cosa sei in disaccordo,ma
se ho scritto qualcosa di sbagliato sono io che ti chiedo scusa,
Secondo me Proietti é un genio
Lo script di Joe è perfetto ,ora sto cercando di adattarlo al mio script con scarsi risultati,
Se non ci riesco lo riscrivo da capo ....
Sto arrivando ......
A dopo
Ciao a tutti

Ciao iLegend non c'è motivo alcuno perchè tu debba chiedermi scusa!
La mia era solo una metafora scherzosa per dire che i tuoi complimenti erano eccessivi nei miei confronti,
conosco i miei limiti e mi piace scherzarci sopra quando capita,
anche perché, mi pare che in materia di script la sai piu lunga di quello che racconti.


W :
https://www.youtube.com/watch?v=Q7caqzM6Xrk

 

[i legend]

mi piace imparare,e ,lo sto facendo dai migliori
grazie
a dopo.

 

[nelson1331]

Ciao I Legend,
facendo alcune prove, riscontro alcune difficolta' nella lettura dell' output e di conseguenza le verifiche degli esiti.
Questi sono i parametri, che chiedo tu possa inserire nell' output :
Riporta la data inizio calcolo.
In ciascun caso, scrivere la data dell' evento, cioe' su ciascuna riga.
Riporta su ciascuna riga, i 3 algoritmi convertiti in triplice somma estratti (come fai gia' in testata).
Sara' cosi' assai piu' facile fare le verifiche degli esiti (e' quello che voglio fare).
Potresti anche provare a prendere i primi o migliori 10 risultati di questa classifica e vedere gli esiti, in corrispondenza di ciascun evento.
Ci sentiamo per controlli e migliorie.
Nelson