X Joe91

[solare]

Ciao, volevo chiederti se è possibile modificare questo tuo listato in questo senso:
Posso inserire la data fine ma non quella iniziale. Si può modificarlo per avere anche la possibilità di decidere il periodo di inizio ?
Grazie
REM Frequenze e Ritardi nelle Decine Naturali V.6.0 per Solare Script By Joe

Sub Main()
C = True ' C=True=Compatto // C=False=Esteso
Dim Nu(10),Ru(1),ST(9),TG(9),R(9): ReDim T(9) : Ru(1) = ScegliRuota
Scrivi "Frequenze degli Ambi nella Decina Naturale : " & NomeRuota(Ru(1)),1
Scrivi : Scrivi " Estraz.",1,0 : Scrivi String(5," "),0,0
Scrivi " Estratti" & String(6," "),1,0
For D = 0 To 8 : Scrivi "D" & D & " ",1,0 : Next : Scrivi
For Es = EstrazioneFin - 4839 To EstrazioneFin : KK = 0 : K = K + 1
If Not C Then Scrivi DataEstrazione(Es) & " " & StringaEstratti(Es,Ru(1)),0,0 '
If K = 1 Then Ini = Es
For D = 0 To 80 Step 10
For U = 1 To 10
Nu(U) = D + U
Next
SF = SerieFreq(Es,Es,Nu,Ru,2)
KK = KK + 1 : T(KK) = T(KK) + SF
If Not C Then Scrivi FormatSpace(SF,4,1),0,0
If SF > 0 And R(KK) >= ST(KK) Then ST(KK) = R(KK)'Rilevo Storico
If SF > 0 Then R(KK) = 0 Else R(KK) = R(KK) + 1 'Calcolo Ritardi
Next
If Not C Then Scrivi '
If K = 10 Then
Fin = ES : K = 0 : Scrivi : Scrivi(Ini) & "-" &(Fin),0,0
Scrivi " .... Ambi ....",0,0
For Tot = 1 To 9
Scrivi FormatSpace(T(Tot),4,1),1,0 : TG(Tot) = TG(Tot) + T(Tot)
Next : Scrivi : Scrivi
ReDim T(9)
End If
Next
Scrivi : Scrivi "Riepilogo" & String(5," "),1,0
Scrivi FormatSpace(NomeRuota(Ru(1)),14),1,0
For D = 0 To 8 : Scrivi "D" & D & " ",1,0 : Next : Scrivi
Scrivi String(63,"="),1
Scrivi EstrazioneFin - 4839 & "-" & EstrazioneFin & " . Frequenze . ",1,0
For Tot = 1 To 9 : Scrivi FormatSpace(TG(Tot),4,1),1,0 : Next
Scrivi : Scrivi String(63,"="),1
Scrivi EstrazioneFin - 4839 & "-" & EstrazioneFin & " . Ritardi . ",1,0
For Tot = 1 To 9 : Scrivi FormatSpace(R(Tot),4,1),1,0 : Next
Scrivi : Scrivi String(63,"="),1
Scrivi EstrazioneFin - 4839 & "-" & EstrazioneFin & " . Sto/Per . ",1,0
For Tot = 1 To 9 : Scrivi FormatSpace(ST(Tot),4,1),1,0 : Next
Scrivi : Scrivi String(63,"="),1
Scrivi "Periodo : " & DataEstrazione(Fin - 4835) & " >< " & DataEstrazione(Fin),1
End Sub

 

[kendariel]

in attesa che Joe 91 ti risponda prova modificando la cifra chè si trova dopo ogni ( Scrivi EstrazioneFin -4839) col numero dellestrazione da cui vuoi partire.
saluti ken

 

[i legend]

Ciao, non so se possa essere corretto perchè sto imparando ma forse potresti fare così , se non è corretto, spero joè non me ne voglia e mi mostri come fare.
Un saluto a joè e a tutti

Option Explicit
Sub Main
    Dim iEstr,iIni,iFin,Es  ' Es è il valore dello script
    iEstr= InputBox("Quante estrazioni vuoi Esaminare?","Analisi Estrazionale")
    iFin=InputBox("Inserisci numero Concorso fine Analisi","Ultima Estrazione Utile")
    iIni= iFin-iEstr
    
    For Es= iIni To iFin   ' poi continua il codice
End Sub

 

[Joe91]

Buon Giorno a tutte/i.

Solare, lo script che avevi richiesto ... era per una "ricerca ciclica".

Sicchè il valore iniziale dovrebbe corrispondere al numero NECESSARIO a completare il numero di cicli.

Quindi non dovrebbe essere scelto il numero iniziale di Estrazione ... MA ... un numero di cicli,

eppoi lo script dovrebbe ... calcolarsi da sè il numero iniziale per averne il numero estrazione iniziale

tale, da completare, il numero di cicli che si è scelto.

MA ... qui sei tu che devi ... specificare se è ancora una ricerca ciclica ...

oppure ricerchi "in un TOT di estrazioni" ... eventualmente definibili dall'utente.

All'esito di questo ... giuste le indicazioni ... occorre adottare una variabile che contenga questa nostra scelta,

(eventualmente inseribile con un inputbox) e sostituirla al fisso (-4839) nello script una volta per tutte.

Così non si dovrà modicicarlo ... ogni volta.

Fammi sapere.

 

[solare]

Grazie della risposta Joe91, ok se è possibile tempo permettendo "ok inserimento di una variabile che contenga questa nostra scelta,

(eventualmente inseribile con un inputbox) e sostituirla al fisso (-4839) nello script una volta per tutte.

Grazie ancora

 

[Joe91]

Grazie della risposta Joe91, ok se è possibile tempo permettendo "ok inserimento di una variabile che contenga questa nostra scelta,

(eventualmente inseribile con un inputbox) e sostituirla al fisso (-4839) nello script una volta per tutte.

Grazie ancora

Ciao Solare ...

"questa nostra scelta" se non specificata ... non ha valore come risposta.

Non so se si debba avere un numero di cicli completi ...

o si debba partire da una estrazione fissa e si termini con un ciclo eventualmente incompleto,

oppure si debba terminare con un ciclo completo,

o sia in un Tot di estrazioni.

Se no so cosa vorresti ... non lo posso realizzare.

Fammi sapere.

 

[solare]

Ho ottenuto quello che volevo modificando questa riga "EstrazioneFin - 100"
Grazie comunque della tua disponibilità e scusami se non mi sono spiegato bene.
Ciao

 

[i legend]

Ciao Joe, se non ti disturba ho provato a fare questo script, che non dovrebbe snaturare la tua ricerca.

Sub Main
    Dim Ru(1),iQ_Cicli,iIni,iFin,Es  ,Num,conta                 ' Es è il valore dello script
    iQ_Cicli= CInt(InputBox("Quante Cicli da 9 Estrazioni vuoi Esaminare?","Analisi Estrazionale"))
    iFin=CInt(InputBox("Inserisci numero Concorso fine Analisi","Ultima Estrazione Utile"))
    Num=CInt(InputBox("Inserisci un numero compreso tra 1 e 90","Statistica Numero",90))
    iIni= iFin-(iQ_Cicli*9)+1

    Ru(1)=1
    conta=0
    For Es= iIni To iFin  
    conta=conta+1
    Next 

    Scrivi  "Il numero ("& Num &")è stato Estratto :"& EstrattoFrequenzaTurbo (Ru(1),Num,iIni,iFin)
    Scrivi "Estrazioni totali esaminati: "& conta
    Scrivi "Periodo Ricerca Dal : " & DataEstrazione(iIni) & " Al " & DataEstrazione(iFin),1
End Sub

Sostituendo le parole iIni e iFin e togliendo il superfluo dal mio codice ( statistica numero e conta) dovrebbe dare il risultato voluto.
Puoi dirmi se è corretto? o dove ho sbagliato?
l'ho testato e sembra andare
Ciao e grazie

 

[giorgio1960]

ciao Joe, se non ti prende troppo tempo, gentilmente, è possibile modificare lo script in oggetto in modo che segnali, per ogni ruota, la decina con maggior ritardo relativo per ambo?
anticipatamente ringrazio
Giorgio

 

[Joe91]

Ho ottenuto quello che volevo modificando questa riga "EstrazioneFin - 100"
Grazie comunque della tua disponibilità e scusami se non mi sono spiegato bene.
Ciao

Ciao Joe, se non ti disturba ho provato a fare questo script, che non dovrebbe snaturare la tua ricerca.

Sub Main
    Dim Ru(1),iQ_Cicli,iIni,iFin,Es  ,Num,conta                 ' Es è il valore dello script
    iQ_Cicli= CInt(InputBox("Quante Cicli da 9 Estrazioni vuoi Esaminare?","Analisi Estrazionale"))
    iFin=CInt(InputBox("Inserisci numero Concorso fine Analisi","Ultima Estrazione Utile"))
    Num=CInt(InputBox("Inserisci un numero compreso tra 1 e 90","Statistica Numero",90))
    iIni= iFin-(iQ_Cicli*9)+1

    Ru(1)=1
    conta=0
    For Es= iIni To iFin  
    conta=conta+1
    Next 

    Scrivi  "Il numero ("& Num &")è stato Estratto :"& EstrattoFrequenzaTurbo (Ru(1),Num,iIni,iFin)
    Scrivi "Estrazioni totali esaminati: "& conta
    Scrivi "Periodo Ricerca Dal : " & DataEstrazione(iIni) & " Al " & DataEstrazione(iFin),1
End Sub

Sostituendo le parole iIni e iFin e togliendo il superfluo dal mio codice ( statistica numero e conta) dovrebbe dare il risultato voluto.
Puoi dirmi se è corretto? o dove ho sbagliato?
l'ho testato e sembra andare
Ciao e grazie

ciao Joe, se non ti prende troppo tempo, gentilmente, è possibile modificare lo script in oggetto in modo che segnali, per ogni ruota, la decina con maggior ritardo relativo per ambo?
anticipatamente ringrazio
Giorgio

x i legend:

Funziona.

Per l'istruzione che hai usato ... bastava la ruota come numero.

Gli inputbox possono rilevare e poi proporre un valore di default.

Ad esempio: iFin=CInt(InputBox("Inserisci numero Concorso fine Analisi","Ultima Estrazione Utile",EstrazioneFin))

... nel complesso ... fa una cosa molto diversa da quello che voleva Solare ... ma come hos scritto non si poteva sapere.

Era solo una delle tante possibili soluzioni.

X solare:

Così facendo non si ha certezza della completezza dei cicli (specie quello finale)

comunque gli interessi sono individuali ... ed in un TOT di estrazioni ... è ciò che fa.

x Giorgio:

Avevo intenzione di ri-pubblicare uno script ... più completo, che sicuramente ha il conteggio di quanto richiedi.

Cordiali saluti a tutte/i.

 

[giorgio1960]

Joe se intendi ripubblicarlo mi faresti cosa gradita
grazie Giorgio

 

[giorgio1960]

...trovato, grazie comunque

 

[i legend]

Buon giorno a tutti
Ciao joe sto studiando il tuo script, ( intanto ti ringrazio per il suggerimento dell'inputBox ), e ho alcune domande da farti:
1) costruendo il numero di cicli che voglio analizzare influenzo altri parametri?
2)esempio la variabile k Rapprenta la quantita cicli?
3)Tutti gli array dichiarati es TG(9),T(9) andrebbero modificati?
Ti ringrazio e ti chiedo scusa se sto lavorando sul tuo lavoro , non voglio snaturarlo o rovinarlo, voglio solo imparare
Ciao e buona giornata a tutti

 

[Joe91]

Ciao i legend

1) In linea generale no.

per modificare il valore di un parametro devi usare

(Let) variabile = valore

quindi no a meno che POI non ci sia qualche collegamento

che unisce quel valore ad altra variabile.

es: fin = 8000 : ini = fin - 100

cambiando fin cambi ini

2) K è acronimo di kontatore che si incrementa ad ogni iterazione.

3) No .. se non c'è necessità di ridimensionarle.

 

[i legend]

Ciao Joe .Grazie mille sempre gentile come sempre
I tuoi script sono molto interessanti, siano percome sono compilati che per le ricerche che proponi.
C'è una raccolta dove poterli studiare?
Su spazio sarebbe bello se ci fosse una cartella apposita dove poter leggere i tuoi quelli di Mike di Luigi e di tutti i Maestri con la M maiuscola..
Uno Spazio studio
Ciao

 

[Joe91]

Ciao i legend

troppo buono.

Sono solo un appassionato autodidatta.

No, non ho reccolto i miei lavori e di tanto in tanto

faccio prima a riscrivere che cercare/trovare

quello che mi serve.

Moltissimi script sono facilmente recuperabili in rete.