In un certo range di estrazioni calcolare il numero con maggior ritardo a tutte

[Elbaz]

Ciao.
Sto studiando gli script ma non riesco a calcolare i ritardi.

Ad esempio impostando:

ini=EstrazioneFin -100
fin=EstrazioneFin

calcolare per le ultime 100 estrazioni (in ciascuna estrazione) il maggior ritardatario, all'epoca dell'estrazione, a tutte e metterlo in gioco per un numero n di estrazioni:

Indicare nell'estrazione di rilevazione oltre al numero in oggetto anche il ritardo attuale e non porlo in gioco se il ritardo
è inferiore a un certo numero di colpi (necessario un messaggio di richiesta per determinare questo limite) con relativa
stringa di avvertimento tipo: "numero con ritardo non giocabile".

Dopo con questa base proverò a "complicare" lo script per imparare a comporli sempre meglio.

Grazie.

 

[Baffoblu]

Mi era sfuggita questa richiesta....

Aspetta che vedo cosa posso fare....

 

[Baffoblu]

Intanto guarda questo, non sarà proprio quello che cerchi, ma....

Sub Main
    Dim n1(1)
    Dim ruote(1)
    r = 11
    ruote(1) = r
    Ini = EstrazioneFin - 100
    fin = EstrazioneFin
    For n = Ini To Fin
        Call Messaggio("elaborazione..... " & n)
        Call AvanzamentoElab(Ini,fin,n)
        For x = 1 To 90
            n1(1) = x
            Call StatisticaFormazione(n1,ruote,1,rit,ritmax,Incrmax,freq,Ini,fin)
            ColoreTesto 7
            Scrivi DataEstrazione(n) & " - " & NomeRuota(r),1
            ColoreTesto 0
            Scrivi String(130,"°"),1
            ColoreTesto 1
            Scrivi"Analisi combinazione Numero : " & x & " - Ritardo : " & rit & " - Ritmax " & ritmax & " - incrMax " & incrmax & " - Frequenza " & freq,1
        Next
    Next
End Sub

 

[Baffoblu]

Comunque in Spaziometria, andando su "Statistiche" / "su Estratti" / "Statistica".

Considerando le ruote globalmente(tutte)

considerando tutte le posizioni....

si ottiene qualcosa di simile

I numeri più ritardati a tutte e il loro max ritardo, etc....etc....

 

[Mike58]

Tabella

Tabella

Be! visto che lo script di Baffo è ok nei calcoli mettiamolo anche in Tabella.

Sub Main
 Dim n1(1)
 Dim ruote(1)
 qr = CInt(InputBox("Quale ritardo superiore a? considerare",,3))
 r = 11
 ruote(1) = r
 ReDim atitoli(7)
 atitoli(1) = " Data "
 atitoli(2) = " Ruota "
 atitoli(3) = " Numero "
 atitoli(4) = " Ritardo "
 atitoli(5) = " Rit Max "
 atitoli(6) = " incr Max "
 atitoli(7) = " frequenza "
 Call InitTabella(atitoli,1,,3,5)
 Ini = EstrazioneFin - 100
 fin = EstrazioneFin
 df = fin - Ini
 Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " Totali estraz. " & df,1,- 1,3
 Scrivi
 Call Messaggio("elaborazione..... " & n)
 Call AvanzamentoElab(Ini,fin,n)
 For x = 1 To 90
  n1(1) = x
  Call StatisticaFormazione(n1,ruote,1,rit,ritmax,Incrmax,freq,Ini,fin)
  If rit > qr Then
   ReDim avalori(7)
   avalori(1) = DataEstrazione(fin)
   avalori(2) = NomeRuota(r)
   avalori(3) =(x)
   avalori(4) = rit
   avalori(5) = ritmax
   avalori(6) = Incrmax
   avalori(7) = freq
   Call AddRigaTabella(avalori,,,3)
   Call SetColoreCella(4,vbMagenta)
   Call SetColoreCella(3,,1)
  End If
 Next
 Call CreaTabella(4)
 Scrivi"     Tabella by Mike58       ",1,- 1,6
 'Next
End Sub

 

[Elbaz]

Ciao.

Grazie mille a tutti per le vostre soluzioni.
Avevo bisogno di una traccia per ragionarci su e poi modificarlo con altre cosette per addentrarmi sempre più nella creazione degli script.

 

[Elbaz]

Sub Main
	Dim x
	Dim n
	Dim n1(1)
	Dim ruote(1)
	qr = CInt(InputBox("Quale ritardo superiore a? considerare",,3))
	r = 11
	ruote(1) = r
	ReDim atitoli(7)
	atitoli(1) = " Data "
	atitoli(2) = " Ruota "
	atitoli(3) = " Numero "
	atitoli(4) = " Ritardo "
	atitoli(5) = " Rit Max "
	atitoli(6) = " incr Max "
	atitoli(7) = " frequenza "
	Call InitTabella(atitoli,1,,3,5)
	Ini = EstrazioneFin - 10
	fin = EstrazioneFin
	df = fin - Ini
	Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " Totali estraz. " & df,1,- 1,3
	Scrivi
	Scrivi
	For n = Ini To fin
		Call Messaggio("elaborazione..... " & n)
		Call AvanzamentoElab(Ini,fin,n)
		For x = 1 To 90
			n1(1) = x
			Call StatisticaFormazione(n1,ruote,1,rit,ritmax,Incrmax,freq,EstrazioneIni,n)
			If rit > qr Then
				ReDim avalori(7)
				avalori(1) = DataEstrazione(n)
				avalori(2) = NomeRuota(r)
				avalori(3) =(x)
				avalori(4) = rit
				avalori(5) = ritmax
				avalori(6) = Incrmax
				avalori(7) = freq
				Call AddRigaTabella(avalori,,,3)
				Call SetColoreCella(4,vbMagenta)
				Call SetColoreCella(3,,1)
			End If
		Next
		Call CreaTabella(4)
	Next
	Scrivi
	Scrivi"     Tabella by Mike58       ",1,- 1,6
End Sub

Ciao, come vedete quando ha finito di ciclare i 90 numeri crea la tabella poi riparte con l'estrazione "EstazioneFin -9" "-8" ect.
Il problema è che quando crea la seconda tabella si porta con se i risultati della prima;
ora mi chiedevo se tra un ciclo ed un altro sia possibile azzerare la tabella per creare la nuova, corrispondente alla estrazione successiva, senza perdere i dati della prima.

Seconda domanda: utilizzando ScegliPoste(aPosteSel) As Integer e dopo averla dichiarata con Redim aPosteSel (10)come passare l'array alla funzione ImpostaGIocata ?

Terza domanda: come memorizzare i ritardi di ciascuna estrazione in un vettore per poi analizzarlo estraendo solo il massimo ritardatario?


Grazie.

 

[Mike58]

Ciao Elbaz, purtroppo in questa tua modifica ci sono un pò di errori di concetto e quindi di impostazione.
hai un inizio,fine di range di 10 estrazioni che possono bastare per il ritardo a tutte(ma non sufficente in pochi casi)
poi fai ciclare la tabella 10 volte con il ciclo for next
poi su statistiche formazioni usi come range estrazioneini(1871) e come estrazionefin usi una delle 10 estrazioni del tuo range(quando l'help dice FINE) e guarda l'esito delle frequenze.
Rivedi il concetto......

2° punto sulla cartella test di spaziometria c'è l'esempio di scegliposta
3° punto non saprei come passare e memorizzare il ritardatario ma in uno script ordinato userei la funzione piuritardatario.

Ciao

 

[Elbaz]

Grazie rivedrò.

Ho interpretato la cosa in un modo che non è corretto.

 

[LuigiB]

Ciao la tabella ti riporta le righe precedenti perche la tabella per essere creata daccapo deve ricevere
l'istruzione InitTabella non basta solo fare CreaTabella.
Nel tuo codice InitTabella lo richiami solo all'inizio invece lo devi richiamare ogni volta che vuoi creare una nuova tabella.

 

[Elbaz]

Ciao la tabella ti riporta le righe precedenti perche la tabella per essere creata daccapo deve ricevere
l'istruzione InitTabella non basta solo fare CreaTabella.
Nel tuo codice InitTabella lo richiami solo all'inizio invece lo devi richiamare ogni volta che vuoi creare una nuova tabella.

Grazie della risposta, come sempre molto gentile e disponibile.

 

[Elbaz]

Ciao.

Ok questo problema delle tabelle sono riuscito a risolverlo dunque ho imparato una cosa nuova.

Ora c'è un altro argomento che vorrei imparare ma mi "incarto" con i cicli nidificati: trovare tutti gli estratti isotopi puri (stesso numero nella stessa posizione su ruote diverse) in un certo range di estrazioni;
non voglio uno script completo, mi bastano alcune righe, quelle dei cicli appunto.
Lo so che spaziometria ha già questa funzione ma io volevo farla con gli script, anzi vorrei fare tutto con gli script.



Grazie.

 

[Elbaz]

Ok, come non detto ho smanettato un po' ed ho risolto.

 

[Baffoblu]

Smanettare aiuta.....

Aiuta molto guardare gli script degli altri,
anche se non ci serve di preciso, ma magari c'è
quel pezzetto di codice che fa quello che ci serve.....

 

[Elbaz]

Smanettare aiuta.....

Aiuta molto guardare gli script degli altri,
anche se non ci serve di preciso, ma magari c'è
quel pezzetto di codice che fa quello che ci serve.....

Infatti ho fatto anche quello....