Help

i legend · 21 Marzo 2015

Ciao joe, ci studio sopra , e ti aggiorno

Grazie mille e buona serata.
ciao a tutti
a Domani

Joe91 · 21 Marzo 2015

Dopo aver definito i casi ...

Si devono definire (CON PRECISIONE) i limiti dei cicli in cui

si procederà a rilevare le presenze dei numeri caduti.

Codice:

Option Explicit
Sub Main
Dim R,Es,K,Co
Dim Ini,Fin
	R = BA_ : Co = 1
	For Es = 8000 To EstrazioneFin
		If SommaEstratti(Es,R) = 200 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 & "]"
			Scrivi DataEstrazione(Ini) & " - " & DataEstrazione(Fin) 
		End If
	Next
End Sub

In questo script ... ben funzionante si osservi bene cosa capita

se lo si riesegue dopo aver cambiato il numero di colpi (Co=1) ... ovvero portandolo a Co=200.

Joe91 · 21 Marzo 2015

Cambia da :

Codice:

====================================================================================================    7
[8887] 16.08.2014 [8888]><[8888]
19.08.2014 - 19.08.2014
====================================================================================================    8
[8940] 18.12.2014 [8941]><[8941]
20.12.2014 - 20.12.2014

a:

Codice:

====================================================================================================    7
[8887] 16.08.2014 [8888]><[9087]
19.08.2014 - Numero estrazione fuori dal range (DataEstrazione)
====================================================================================================    8
[8940] 18.12.2014 [8941]><[9140]
20.12.2014 - Numero estrazione fuori dal range (DataEstrazione)

IMPORTANTE E' Osservare come 8887 + 1 = 8888

8888-8888 = Zero ma questo Zero è l'estrazione Numero 8888 ...

Cioè è comunque "Una Estrazione"

Poi anche ... 9140-8941 = 199 ... MA sono 200 Estrazioni.

Ed in ultimo ... con 200 estrazioni ... si superano i limiti delle estrazioni conosciute!

La prossima correzione aggiunta ... da farsi.

Buona sera a tutte ...

... segue.

i legend · 22 Marzo 2015

Buon Giorno e buona domenica a tutti
Ieri sera sono crollato come una pera cotta
Stamattina, dopo un buon caffè e una doccia ,(e sono ancora mezzo addormentato

)vedo joe all'opera...
La giornata è grigia ,ma la comincio con un sorriso

Mi metto al lavoro e cerco di aiutare e seguire joe nella scrittura di questa funzione...
Grazie joe:
Ancora buona domenica a tutti....

i legend · 22 Marzo 2015

Ciao Joe , Ho provato a risolvere cosi:
Ho Aggiunto la Voce IniGioco,FinGioco, e una riga di codice
sembra funzionare, :

Codice:

Option Explicit
Sub Main
Dim R,Es,K,Co
Dim Ini,Fin
Dim IniGioco,FinGioco,FinRicerca
Ini=8000
Fin=EstrazioneFin
FinRicerca=EstrazioneAttivata(Fin)
    R = BA_ : Co = 200
    For Es = Ini To Fin
        If SommaEstratti(Es,R) = 200 Then
            K = K + 1 : Scrivi String(100,"=") & FormatSpace(K,5,1),True
            Scrivi "[" &Es& "] " & DataEstrazione(Es) &" ",False,False
            IniGioco = Es+1 : FinGioco = Es+Co 'Definisco limiti e ampiezza del ciclo.
            If EstrazioneAttivata(FinGioco)=False Then FinGioco=Fin ' questa riga dovrebbe correggere
            
            Scrivi "[" &Ini& "]><[" & Fin & "]"
            Scrivi DataEstrazione(IniGioco) & " - " & DataEstrazione(FinGioco) 
        End If
    Next
End Sub

i legend · 22 Marzo 2015

Ciao Altro caso di possibile errore:

Codice:

Option Explicit
Sub Main
    Dim R,Es,K,Co
    Dim Ini,Fin
    Dim IniGioco,FinGioco
    Dim qCasi '  questi sono i casi  in cui fare la ricerca se la prima estrazione di ricerca non è attiva 
    Ini = 8000
    Fin = EstrazioneFin
    
    R = BA_ : Co = 200
    For Es = Ini To Fin
        If SommaEstratti(Es,R) = 321 Then
            K = K + 1 : Scrivi String(100,"=") & FormatSpace(K,5,1),True
            Scrivi "[" & Es & "] " & DataEstrazione(Es) & " ",False,False
            IniGioco = Es + 1 : FinGioco = Es + Co 'Definisco limiti e ampiezza del ciclo.
            If EstrazioneAttivata(IniGioco) = False Then
            qCasi=K-1
                MsgBox " Non ci sono estrazioni Utili per analizzare il caso in corso .Casi Totali da analizzare= "&qCasi,vbCritical
                Exit For
            End If
            If EstrazioneAttivata(FinGioco) = False Then FinGioco = EstrazioneFin ' questa riga dovrebbe correggere
            Scrivi "[" & Ini & "]><[" & Fin & "]"
            Scrivi DataEstrazione(IniGioco) & " - " & DataEstrazione(FinGioco)
        End If
    Next
    
End Sub

nelson1331 · 22 Marzo 2015

Ciao I legend,
il lavoro che stai facendo mi piace.
Vorrei lanciare un' idea : e' possibile eseguire lo script con i 3 algoritmi ma, anziche' lavorare su una sola somma, lavorare per i 3 cicli for next, sulle 125 combinazioni risultanti ? Una volta che tu lo lanci, assegnandogli da input box, solo le 3 ruote di ricerca e la ruota di gioco, poi lui, tempo permettendo, ti raccogliera' 125 risultati. A questo punto, se raccogliegrai i risultati identici (convergenze) fra i 125 suddetti, potresti scoprire che nei colpi successivi, molto spesso quelli che hanno piu' ripetizioni, sono anche quelli che avranno i migliori risultati. Spero di essere stato chiaro, altrimenti domanda, ed io chiarisco. Se hai una mail o un contatto su skype, ho del materiale da condividere. Nelson

Joe91 · 22 Marzo 2015

Joe91 ha scritto:
Cambia da :

Codice:

==================================================================================================== 7 [8887] 16.08.2014 [8888]><[8888] 19.08.2014 - 19.08.2014 ==================================================================================================== 8 [8940] 18.12.2014 [8941]><[8941] 20.12.2014 - 20.12.2014

a:

Codice:

==================================================================================================== 7 [8887] 16.08.2014 [8888]><[9087] 19.08.2014 - Numero estrazione fuori dal range (DataEstrazione) ==================================================================================================== 8 [8940] 18.12.2014 [8941]><[9140] 20.12.2014 - Numero estrazione fuori dal range (DataEstrazione)

IMPORTANTE E' Osservare come 8887 + 1 = 8888

8888-8888 = Zero ma questo Zero è l'estrazione Numero 8888 ...

Cioè è comunque "Una Estrazione"

Poi anche ... 9140-8941 = 199 ... MA sono 200 Estrazioni.

Ed in ultimo ... con 200 estrazioni ... si superano i limiti delle estrazioni conosciute!

La prossima correzione aggiunta ... da farsi.

Buona sera a tutte ...

... segue.

Ciao I legend ...

Rispondo indirettamente alle tue proposte ...

affermando che SI ... hai bruciato le tappe o ... mangiato la foglia,

che dir si voglia!

Prima "della soluzione" sottolineo ancora un aspetto dello script "originale" quello che controlla ... una sola estrazione.

s'è detto che ad un certo punto esso propone 8888-8888 rispettivamente inizio e fine del periodo lungo una sola estrazione.

Si ricava implicitamente... deduce, che sè è fuori dal range valido, il secondo "8888" ... lo è anche il primo che gli è identico.

Quindi si tratta di verificare se vera questa ipotesi ... credibile.

Come si fa?

Si cerca all'ultima estrazione che ad oggi è la 8980 del 21/03/2015

e da questa discende la ragione del tuo 321 come somma barese.

Vediamolo con un semplice script. (Utile a quelli che come me hanno l'ascendente in Tommaso)

Codice:

Option Explicit
Sub Main
	Dim R,Fin,SE
	Fin = 8980
	R = BA_
	SE = StringaEstratti(EstrazioneFin,R,"+")
	Scrivi DataEstrazione(Fin) & Space(2),False,False
	Scrivi SiglaRuota(R) & Space (2),False,False
	Scrivi SE & Space(1) & "=" & Space (1),False,False
	Scrivi SommaEstratti(Fin,R),True
End Sub

Dunque riportando questo 321 ... nello script presente al messaggio #23 ...

Diventa diventa:

Codice:

Option Explicit
Sub Main
Dim R,Es,K,Co
Dim Ini,Fin
	R = BA_ : Co = 1
	For Es = 8000 To EstrazioneFin
		If SommaEstratti(Es,R) = 321 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 & "]"
			Scrivi DataEstrazione(Ini) & " - " & DataEstrazione(Fin) 
		End If
	Next
End Sub

e dimostra che anche con "un solo colpo" potrebbe essere "Fuori..." producendo ...

DUE messaggi di errore

UNO per l' INIZIO del periodo

l' altro per la FINE di esso.

Ovvero è come si è appena ipotizzato:

Codice:

====================================================================================================    1
[8300] 16.11.2010 [8301]><[8301]
18.11.2010 - 18.11.2010
====================================================================================================    2
[8493] 09.02.2012 [8494]><[8494]
11.02.2012 - 11.02.2012
====================================================================================================    3
[8520] 12.04.2012 [8521]><[8521]
14.04.2012 - 14.04.2012
====================================================================================================    4
[8558] 10.07.2012 [8559]><[8559]
12.07.2012 - 12.07.2012
====================================================================================================    5
[8595] 04.10.2012 [8596]><[8596]
06.10.2012 - 06.10.2012
====================================================================================================    6
[8980] 21.03.2015 [8981]><[8981]
[COLOR="#FF0000"]Numero estrazione fuori dal range (DataEstrazione) - Numero estrazione fuori dal range (DataEstrazione)[/COLOR]

E' cosa a cui ... dobbiamo porre doppia e diversa soluzione.

Modi, ne esistono ... più d'uno.

Ma almeno uno che verificheremo funzionante ... lo proporrò in seguito, oltre a quanto abbiamo già accennato.

Cordiali saluti.

... Segue

surmang · 22 Marzo 2015

Buona Domenica a Tutti .

Molto utile la discussione.

Le mie conoscenze sono elementari , ma fin dove riesco a seguirvi provo a partecipare .... grazie per le lezioni gratis

Codice:

Option Explicit
Sub Main
	Dim R,Es,K,Co
	Dim Ini,Fin
	R = BA_ : Co = 200
	For Es = 8000 To EstrazioneFin
		If SommaEstratti(Es,R) =200 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 EstrazioneFin - Fin >= 0 Then
				Scrivi " [" & Ini & "]><[" & Fin & "]  > Ciclo Completato composto da : " & Fin -(Ini - 1)&" estrazioni",0,1,5,1
				Scrivi DataEstrazione(Ini) & " - " & DataEstrazione(Fin)
			Else
				Scrivi "[" & Ini & "]><[" & EstrazioneFin & "]  > Ciclo in Corso  : " & EstrazioneFin -(Ini - 1)&" estrazioni gia effettuate",0,1,5,2
				If EstrazioneFin = True Then Scrivi DataEstrazione(Ini) & " - " & DataEstrazione(EstrazioneFin)
			End If
		End If
	Next
End Sub

i legend · 22 Marzo 2015

Ciao a tutti

x Nelson: al momento stiamo compilando uno script che permetta a tutti di fare determinate ricerche in generale.Quello che suggerisci, il caso particolare lo potremo affrontare in seguito

x Surmang: Ciao il tuo intervento è sempre graditissimo,imparo da tutti voi

x Joe: ho mangiato cicoria (bollite in acqua,con sale olio,cipolla,ed alloro),(Vale)?

Mi sono posto il problema di inizio e fine ricerca, che anche surmag ho visto ha risolto
Che ne pensi di questi metodi?
Il risultato che otteniamo,(e sono sicuro tu abbia già risolto, ma ci vuoi far arrivare anche a noi

), lo vorrei includere in una function che tutti possano utilizzare
proprio come SerieFre
Avevo pensato a

Codice:

Function FlagCasi(qCasiUtili,IniGioco,FinGioco,vetNum,VetRuote,Colpi)
' dove qCasi utili  li otteniamo dallo script proposto sopra con l' IF
'Inigioco,finGioco sono il Range di Ricerca
'VetNum potrebbe essere la TMP(1)=x per estratto 
'oppure Tmp(2) 
'Tmp(1)= x -> da 1 a 89
'Tmp(2)= y-> x+1 to 90
' per sorte di estratto o ambo
' VetRuote= se  fare la ricerca su una ruota oppure + ruote da considerarsi come ruota unica
'Colpi=il numero di colpi

' Questo per spiegarti i parametri da passare alla funzione . Credo di aver considerato tutto quello che serve

End Function

Cmq tutto ciò si farà solo più avanti intanto ti seguo nelle tue spiegazioni

Grazie mille

A dopo

rudivall · 22 Marzo 2015

Mi piaci Legend, sei una bella persona

i legend · 22 Marzo 2015

Ciao Rodolfo,grazie mille .
Penso lo stesso di tutte le persone con cui ho il piacere di dialogare, e con cui scambio qualcosina

.
Un saluto,un sorriso,o la gioia di apprendere grazie a degli ottimi maestri.
A dopo

Joe91 · 22 Marzo 2015

Buon giorno a tutte/i.

Prima di rispondere singolarmente ... a tutti gli interventi.

Vi lascio una sintetica descrizione di come intendevo affrontare e risolvere ... questo "problema".

ho cercato nelle varie ruote due "spie" (o estrazioni di SOMME-estratti) sia RECENTI che UGUALI.

Così da poter avere nel ristretto di poche estrazioni ... condizioni-utili per verificare l'efficacia

delle scelte che si adotteranno.

Mi sono costruito una piccola utility.

Che per Torino trova interessante per questo scopo, la somma 253.

Codice:

Option Explicit
Sub Main
	Dim R,Es,K
	R = TO_
	Scrivi NomeRuota(R),True
	For Es = EstrazioneFin To EstrazioneFin - 20 Step - 1
		K = K + 1
		Scrivi FormatSpace(K,3),True,False
		Scrivi DataEstrazione(Es) & Space(1),True,False
		Scrivi "SommaEstratti = ",False,False
		Scrivi SommaEstratti(Es,R) & Space(1),False,True
	Next
End Sub

Eseguendolo produce:

Codice:

Torino
1  21.03.2015 SommaEstratti = 285 
2  19.03.2015 SommaEstratti = 216 
3  17.03.2015 SommaEstratti = 176 
4  14.03.2015 SommaEstratti = 282 
5  12.03.2015 SommaEstratti = 168 
[COLOR="#FF0000"]6[/COLOR]  10.03.2015 SommaEstratti = [COLOR="#FF0000"]253 [/COLOR]
7  07.03.2015 SommaEstratti = 138 
8  05.03.2015 SommaEstratti = 191 
9  03.03.2015 SommaEstratti = 267 
10 28.02.2015 SommaEstratti = 247 
11 26.02.2015 SommaEstratti = 200 
12 24.02.2015 SommaEstratti = 124 
[COLOR="#FF0000"]13[/COLOR] 21.02.2015 SommaEstratti = [COLOR="#FF0000"]253 [/COLOR]
14 19.02.2015 SommaEstratti = 300 
15 17.02.2015 SommaEstratti = 214 
16 14.02.2015 SommaEstratti = 150 
17 12.02.2015 SommaEstratti = 243 
18 10.02.2015 SommaEstratti = 141 
19 07.02.2015 SommaEstratti = 209 
20 05.02.2015 SommaEstratti = 243 
21 03.02.2015 SommaEstratti = 212

Di questi risultati in prima colonna si possono facilmente verificare

a quante estrazioni ... DALL'ULTIMA (oggi) DISPONIBILE ...

è avvenuta la presenza di questa "SommaEstratti = 253" a Torino.

Quindi nel solito script ... inserisco: Torino, 253, ed un piccolo Semplice For-Next ...

Che elenchi le date (e gli errori che sappiamo saranno) dopo queste Spie se si fissano ad esempio

15 Estrazioni ... e/o colpi per il contegggio (ora) ... di gioco (poi).

Lo script diventa:

Codice:

Option Explicit
Sub Main
Dim R,Es,K,Co
Dim Ini,Fin
Dim C
	R = TO_ : Co = 15
	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		
			For C =  Ini To Fin
			Scrivi DataEstrazione(C)
			Next
			' ....... 
		End If
	Next
End Sub

che produce i risultati e gli errori attesi.

Cocli completi prima ... ed incompleti gli ultimi 2.

Codice:

====================================================================================================    1
[8953] 17.01.2015 [8954]><[8968]
20.01.2015
22.01.2015
24.01.2015
27.01.2015
29.01.2015
31.01.2015
03.02.2015
05.02.2015
07.02.2015
10.02.2015
12.02.2015
14.02.2015
17.02.2015
19.02.2015
21.02.2015
====================================================================================================    2
[8968] 21.02.2015 [8969]><[8983]
24.02.2015
26.02.2015
28.02.2015
03.03.2015
05.03.2015
07.03.2015
10.03.2015
12.03.2015
14.03.2015
17.03.2015
19.03.2015
21.03.2015
Numero estrazione fuori dal range (DataEstrazione)
Numero estrazione fuori dal range (DataEstrazione)
Numero estrazione fuori dal range (DataEstrazione)
====================================================================================================    3
[8975] 10.03.2015 [8976]><[8990]
12.03.2015
14.03.2015
17.03.2015
19.03.2015
21.03.2015
Numero estrazione fuori dal range (DataEstrazione)
Numero estrazione fuori dal range (DataEstrazione)
Numero estrazione fuori dal range (DataEstrazione)
Numero estrazione fuori dal range (DataEstrazione)
Numero estrazione fuori dal range (DataEstrazione)
Numero estrazione fuori dal range (DataEstrazione)
Numero estrazione fuori dal range (DataEstrazione)
Numero estrazione fuori dal range (DataEstrazione)
Numero estrazione fuori dal range (DataEstrazione)
Numero estrazione fuori dal range (DataEstrazione)

Ma dallo script precedente sappiamo essere esatte

"12 Estrazioni Valide" per la raccolta dei dati ... "+3" fuori range = 15 Colpi.

"5 Estrazioni Valide" per la raccolta dei dati ... "+10" fuori range = 15 Colpi.

Quindi non ci rimane che correggere -questo ERRORE- che interessa la parte "finale" dei cicli di controllo .

... segue

i legend · 22 Marzo 2015

Ciao joe ti riposto in modo "+ elegante" la soluzione precedente, ma non so se un if nidificato rallenti o sia la soluzione corretta
Eccoti il codice:

Codice:

Option Explicit
Sub Main
    Dim R,Es,K,Co
    Dim Ini,Fin
    Dim C
    R = TO_ : Co = 15
    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 EstrazioneAttivata(Ini) Then
                If EstrazioneAttivata(Fin) = False Then Fin = EstrazioneFin
            Else
                Exit For
            End If
            For C = Ini To Fin
                Scrivi DataEstrazione(C)
            Next
            ' .......
        End If
    Next
End Sub

A dopo

surmang · 22 Marzo 2015

Ciao

Codice:

Option Explicit
Sub Main()
	Dim IdEs,Fin,Ini,ruota,ValSomma,NuEsCi,nES,co,x
	
	ValSomma = CInt(InputBox("Valore Somma ",,253))
	NuEsCi = CInt(InputBox("numero di estrazioni per ciclo ",,15))
	nES = CInt(InputBox("numero di estrazioni ",,80))
	ruota = InputBox(" ruota ",,9)
	'
	Fin = EstrazioneFin
	Ini = Fin -(nES - 1)
	'
	Scrivi SiglaRuota(ruota)&"  "&Fin & " Fin <" & String(100,"-") & "< Ini  " & Fin -(nES - 1) :Scrivi
	'
	'
	For x = nES To 0 Step - 1
		IdEs = Fin - x
		If SommaEstratti(IdEs,ruota) = ValSomma Then
			co = co + 1
			Scrivi IdEs & "    ",0,0,5
			If IdEs + NuEsCi <= Fin Then
				Scrivi IdEs + 1 & "-" & IdEs + NuEsCi & "  " & Format2(co),0,1,5
				'Qui avviene il conteggio delle presenze nei cicli completi
			Else 
			Scrivi FormatSpace(Fin-IdEs,9)  & "  " & Format2(co),0,1,5,2
			'Qui il numero di estrazioni valide dei cicli in corso 
			End If
		End If
	Next
End Sub

Joe91 · 23 Marzo 2015

Buon giorno a tutte/i.

Delle soluzioni proposte, quella di Surmang,

appare più orientata a ciò che mi ero indirizzato a proporre.

Come avevo accennato, le soluzioni ... possono essere molte

ed alcune migliori anche solo in funzione di come si sviluppa il progetto nel suo complesso.

Per esempio ciclare tutti i 90 numeri rispetto ai 5 presenti

può essere uno spreco enorme ... tuttavia per me...

ciclando una sola volta i 90 numeri ... in una sola volta ...

prelevando una tantum i dati essenziali ho ridotto i tempi di escuzione

di uno script da 20 minuti a qualche secondo.

Pertanto anticipo per ilegend che se si agisse

direttamente su 5 esratti componendoli in 10 ambi piu 10 terni...

MA ... s' è controllato TUTTO.

Joe91 · 23 Marzo 2015

Dunque...

S' è visto che dopo l'evento spia, il massimo di estrazioni utili

può essere variabile da zero a tutte le estazioni da noi richieste.

Per immagini è come quando un ragazzo dice al genitore:

Mi servirebbero tot-euro per fare il pieno al motorino..

Ed al quale il genitore-archivio ...

visto il protafoglio.. dà tutto quel che può.

In script:

If fin > estrazionefin then fin=estrazionefin

i legend · 23 Marzo 2015

Buon giorno a tutti

Joe ti seguo......Ho di nuovo problemi con la formattazzione del testo, non riesco ad inserire il codice.Spero di risolvere in giornata.Immaginavo che il doppio if non fosse la soluzione migliore anche se gestiva l'inizio verifica....mparo da voi

A dopo.

surmang · 23 Marzo 2015

Joe91 ha scritto:
In script:

If fin > estrazionefin then fin=estrazionefin

Ciao internauti, buona giornata !

Grazie per il suggerimento Joe

Codice:

Option Explicit
Sub Main()
	Dim IdEs,Fin,Ini,ruota,ValSomma,nEsCi,nES,co,x,IniCiclo,FinCiclo
	ValSomma = CInt(InputBox("Valore Somma ",,253))
	nEsCi = CInt(InputBox("numero di estrazioni per ciclo ",,15))
	nES = CInt(InputBox("numero di estrazioni ",,80))
	ruota = InputBox(" ruota ",,9)
	'
	Fin = EstrazioneFin
	Ini = Fin -(nES - 1)
	'
	Scrivi SiglaRuota(ruota) & "  " & Fin & " Fin <" & String(100,"-") & "< Ini  " & Fin -(nES - 1) :Scrivi
	'
	'
	For x = nES To 0 Step - 1
		IdEs = Fin - x
		If SommaEstratti(IdEs,ruota) = ValSomma Then
			co = co + 1
			IniCiclo = IdEs + 1
			FinCiclo = IdEs + nEsCi
			Scrivi IdEs & "    ",0,0,5
			If FinCiclo > EstrazioneFin Then FinCiclo = EstrazioneFin:ColoreTesto 2
			Scrivi IniCiclo & "-" & FinCiclo & "  " & FormatSpace(FinCiclo -(IniCiclo - 1),3) & "  " & Format2(co),0,1,5:ColoreTesto 0
		End If
	Next
End Sub

i legend · 23 Marzo 2015

Ciao joe allora facciamo un ciclo

Codice:

for n= 1 to 90
aTemp(1)=n
 if serieFreq(Ini,fin,aTemp,aRu,nSorte)  then
k=k+1
redim preserve aFreq(K)
aFreq(K)=n
end if
next

Poi devo scrivere 
for i=1 to ubound(aFreq)-1
' qui devo scrivere il codice 
'di confronto e contare 
'quante volte esce un numero
next

Sono vicino o lontanissimo dalla soluzione?
a Dopo

Help

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Premium Member

Premium Member

Premium Member

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM PLUS<

Premium Member

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Premium Member

Super Member >PLATINUM<

Premium Member