Novità

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

Elbaz

Super member
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.
 
Mi era sfuggita questa richiesta....

Aspetta che vedo cosa posso fare....
 
Intanto guarda questo, non sarà proprio quello che cerchi, ma....





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

Tabella

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

Codice:
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
 
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.
 
Codice:
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.
 
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 (n) 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
 
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.
 
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.
 
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.
 
Ultima modifica:
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.....
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 19 luglio 2025
    Bari
    70
    37
    36
    68
    01
    Cagliari
    57
    02
    64
    33
    41
    Firenze
    18
    62
    09
    05
    06
    Genova
    36
    10
    74
    37
    42
    Milano
    39
    07
    58
    23
    22
    Napoli
    18
    69
    28
    36
    40
    Palermo
    71
    66
    72
    64
    23
    Roma
    19
    64
    39
    77
    10
    Torino
    83
    63
    71
    08
    72
    Venezia
    51
    83
    26
    50
    74
    Nazionale
    89
    81
    63
    32
    03
    Estrazione Simbolotto
    Nazionale
    16
    32
    21
    19
    03

Ultimi Messaggi

Indietro
Alto