xMike58

[Zetrix]

Sub Main

   Dim arrData(3,5)
   Dim Ruote1,Ruote2,Ruote3
   Dim R1,R2,R3
   Dim es,x,y,k
 
 
     x = InputBox("1 numero vuoi controllare?",,0)
     y = InputBox("2 numero vuoi controllare?",,0)

 
   For es = EstrazioneFin To EstrazioneFin
  AvanzamentoElab EstrazioneFin,EstrazioneFin,es
 
  ReDim R1(0)
 
   Ruote1 = ScegliRuote(R1)

  ReDim R2(0)
 
   Ruote2 = ScegliRuote(R2)

 ReDim R3(0)
 
   Ruote3 = ScegliRuote(R3)


 
         arrData(1,1) = "" & SiglaRuota(Ruote1) & ""
         arrData(2,1) = "" & SiglaRuota(Ruote2) & ""
         arrData(3,1) = "" & SiglaRuota(Ruote3) & ""
       
 

   
    arrData(1,3) = AmboRitardo(Ruote1,x,y)
    arrData(2,4) = AmboRitardo(Ruote2,x,y)
    arrData(3,5) = AmboRitardo(Ruote3,x,y)
 



For k = 1 To 1


 
 
 Next



      Call Scrivi("Grafico" & k)
      Call Grafico(arrData,2,DataEstrazione(es) & Space(5) & x & "." & y & Space(5) & " Rit.Att. " & Space(5) & "","titX","titY",True)
 
 
      Scrivi SiglaRuota(Ruote1) & "  " & x & "." & y & " . " & Space(0) & "Rit." & AmboRitardo(Ruote1,x,y)
      Scrivi SiglaRuota(Ruote2) & "  " & x & "." & y & " . " & Space(0) & "Rit." & AmboRitardo(Ruote2,x,y)
      Scrivi SiglaRuota(Ruote3) & "  " & x & "." & y & " . " & Space(0) & "Rit." & AmboRitardo(Ruote3,x,y)
     
   
Next

End Sub

Ciao Mike58,volevo chiederti perche questo listato evidenzia sempre la stessa ruota
dove e lo sbaglio lo script sembra che sia scritto in modo esatto

 

[Mike58]

Zetrix , Non Lo so, forse non va bene il ciclo di scegliruote, sostituisci con scegliRuota.
Cosi scrive le 3 ruote scelte.

Sub Main
   Dim arrData(3,5)
   Dim Ruote1,Ruote2,Ruote3
   'Dim R1,R2,R3
   Dim es,x,y,k
   x = InputBox("1 numero vuoi controllare?",,0)
   y = InputBox("2 numero vuoi controllare?",,0)
   For es = EstrazioneFin To EstrazioneFin
      AvanzamentoElab EstrazioneFin,EstrazioneFin,es
      'ReDim R1(0)
      Ruote1 = ScegliRuota
      'ReDim R2(0)
      Ruote2 = ScegliRuota
      'ReDim R3(0)
      Ruote3 = ScegliRuota
      arrData(1,1) = "" & SiglaRuota(Ruote1) & ""
      arrData(2,1) = "" & SiglaRuota(Ruote2) & ""
      arrData(3,1) = "" & SiglaRuota(Ruote3) & ""
      arrData(1,3) = AmboRitardo(Ruote1,x,y)
      arrData(2,4) = AmboRitardo(Ruote2,x,y)
      arrData(3,5) = AmboRitardo(Ruote3,x,y)
      For k = 1 To 1
      Next
      Call Scrivi("Grafico" & k)
      Call Grafico(arrData,2,DataEstrazione(es) & Space(5) & x & "." & y & Space(5) & " Rit.Att. " & Space(5) & "","titX","titY",True)
      Scrivi SiglaRuota(Ruote1) & "  " & x & "." & y & " . " & Space(0) & "Rit." & AmboRitardo(Ruote1,x,y)
      Scrivi SiglaRuota(Ruote2) & "  " & x & "." & y & " . " & Space(0) & "Rit." & AmboRitardo(Ruote2,x,y)
      Scrivi SiglaRuota(Ruote3) & "  " & x & "." & y & " . " & Space(0) & "Rit." & AmboRitardo(Ruote3,x,y)
   Next
End Sub

 

[Zetrix]

Mike lo script con scegliruota ne ho una marea di script piu di 5000 script
volevo fare una prova con scegliruote ma a quanto sembra non ci sei riuscito
nemmeno te..
mi chiedo a cosa serve scegliruote se non puoi scegliere piu di una ruota
comunque grazie lo stesso
Ciao

 

[joe]

Mike lo script con scegliruota ne ho una marea di script piu di 5000 script
volevo fare una prova con scegliruote ma a quanto sembra non ci sei riuscito
nemmeno te..
mi chiedo a cosa serve scegliruote se non puoi scegliere piu di una ruota
comunque grazie lo stesso
Ciao

Serve a scegliere le ruote.

Ma lo devi usare, come va usato.

Ci sono esempi di codice applicativo delle varie istruzioni.

Normalmente è: Test_Nome della Funzione.

Tra i miei, per esempio, ho questo :

Option Explicit
Sub Main
   Dim RuoteSelezionate
   Dim k
   ReDim aRuoteSel(12)
   RuoteSelezionate = ScegliRuote(aRuoteSel)

   For k = 1 To RuoteSelezionate
      Call Scrivi("Scelta ruota " & NomeRuota(aRuoteSel(k)))
   Next
End Sub

 

[Mike58]

Attenta Zetrix, non sono errati i codici ma è sbagliato come si usano.
scegliruote fa la statistica sulle ruote selezionate in modo cumulatico. ( esempio ritardo su ba-ca-fi del numero 90 = 7 anzichè 45-7-15)
scegliruotafa la statistica su ruota singola e in un ciclo for next raccogliere i dati per ruota.

Altro non saprei.

 

[Zetrix]

ok Mike mi sembra che ti sei spiegato bene allora ScegliRuote puoi selezionare una
singola Ruota e puoi scrivere diversi numeri di cui si vuole fare la statistica
quindi non si puo selezionare piu Ruote ma solo piu numeri per la statistica
mi ai scambiato per una donna va be tra pochi giorni e hallowen..

 

[Zetrix]

grazie Joe dell'esempio che ai messo quindi ScegliRuote si possono anche scrivere
le Ruote che a me non interessa comunque vedrò se riesco a fare uno script con questa
funzione ScegliRuote..

 

[joe]

grazie Joe dell'esempio che ai messo quindi ScegliRuote si possono anche scrivere
le Ruote che a me non interessa comunque vedrò se riesco a fare uno script con questa
funzione ScegliRuote..

Invece secondo me è quello che ti interessa.

Perché quella funzione raccoglie in un array

"i numeri" delle ruote scelte e restituisce "la quantità" di esse.

Questa prima parte dell'output "coincide" con il numero e nome della ruota.

Dunque "Scrivi NomeRuota assieme a RuoteScelte

(che è la quantità di ruote) sono di per sé inutili se non li si intende utilizzare.

Però sono i grimaldelli capaci di sbloccare, "la criptazione" di quel il codice.

Cioè è l'esempio (più semplice), per capire, come si può sfruttare, quella istruzione.

 

[Mike58]

Zetrix, sicuramente si può migliorare ma vedi questa soluzione.

Sub Main
   Dim RuoteSelezionate
   Dim es,x,y,k,kk
   x = InputBox("1 numero vuoi controllare?",,1)
   y = InputBox("2 numero vuoi controllare?",,2)
   For es = EstrazioneFin To EstrazioneFin
      AvanzamentoElab EstrazioneFin,EstrazioneFin,es
      ReDim aruoteSel(12)
      RuoteSelezionate = ScegliRuote(aruoteSel)
      ab = UBound(aruoteSel)
      ReDim arrData(ab,ab)
      For kk = 1 To ab
         arrData(kk,1) = "" & SiglaRuota(aruoteSel(kk)) & ""
         arrData(kk,ab) = AmboRitardo(aruoteSel(kk),x,y)
      Next
   Next
   Call Scrivi("Grafico")
   Call Grafico(arrData,2,DataEstrazione(EstrazioneFin) & Space(5) & x & "." & y & Space(5) & " Rit.Att. " & Space(5) & "","titX","titY",True)
   For k = 1 To ab
      Scrivi SiglaRuota(aruoteSel(k)) & "  " & x & "." & y & " . " & Space(0) & "Rit." & AmboRitardo(aruoteSel(k),x,y)
   Next
End Sub

 

[Zetrix]

Invece secondo me è quello che ti interessa.

Perché quella funzione raccoglie in un array

"i numeri" delle ruote scelte e restituisce "la quantità" di esse.

Questa prima parte dell'output "coincide" con il numero e nome della ruota.

Dunque "Scrivi NomeRuota assieme a RuoteScelte

(che è la quantità di ruote) sono di per sé inutili se non li si intende utilizzare.

Però sono i grimaldelli capaci di sbloccare, "la criptazione" di quel il codice.

Cioè è l'esempio (più semplice), per capire, come si può sfruttare, quella istruzione.

si Joe i tuoi script sono interessanti vedrò se riesco a fare uno script
con la funzione ScegliRuote che ai scritto te..

 

[Zetrix]

Mike lo script che ai fatto va benissimo ma per il colore non si puo fare niente ?
sarebbe meglio colorare la tabella verde blu e giallo..

 

[Zetrix]

questa tabella a un altro aspetto con tre colori diversi

 

[Mike58]

For kk = 0 To ab
arrData(kk,0) = "" & SiglaRuota(aruoteSel(kk)) & ""
arrData(kk,ab) = AmboRitardo(aruoteSel(kk),x,y)
Next
il colore lo gestisce la riga evidenzita dove kk è il numero scelta ruote e ab è la q.tà ruote scelte.
Se dovessi modificare i prametri non ci sarà controllo nella redim arrData( x,y) ma è qui che stabilisce il colore.
Si potrebbe ovviare modificando ab la q.tà in quella riga sottraendo un numero voluto per arrivare al numero colore voluto.
Esempio ab = 4 il colore sarà giallo ab-2 il colore diventa verde.
arrData(kk,ab-2) = AmboRitardo(aruoteSel(kk),x,y)
Puoi giocarci come meglio credi.

P.s. io faccio solo prove e simulazioni non conosco tutte le risposte corrette.

 

[i legend]

Ciao a tutti il problema non sono le funzioni anzi queste sono le soluzioni.
Uno script più flessibile si può ottenere
Utilizzando scegliNumeri.
Cosi se si vuole analizzare un ambo si inseriscono due numeri oppure di più.
Poi si utilizza scegliRuote.
Se si vogliono analizzare le ruote contemporaneamente si fa
Statistica formazione turbo ( parametri e il vettore delle ruote.
Se invece si vuole analizzare singolarmente ogni ruota selezionata
Si imposta un ciclo for scorre il vettore ruote si utilizza un vettore d'appoggio che contiene una singola ruota e si lancia statisti formazione turbo.

Ho utilizzzatobquesta funzione perché da in contemporanea ritardo frequenza rit storico .
Con gli script di Spaziometria si possono realizzare qualaiasi tipo di ricerche. Non so se esistano software con sceglinumeri scegli opzioni o sceglidalista. È fantastico.
Ma ripeto bisogna studiarlo e approfondire.
Sperando di essere stato utile porgo un saluto a tutti

 

[joe]

Sono perfettamente in accordo con quanto ha scritto Ilegend.

Luigi ha creato e migliorato a poco a poco delle funzioni di alto livello.

Estremamente alto.

Dunque con "10 righe" di script si possono effettuare ricerche complicatissime.

In esse sono riassunti, giorni e giorni di prove, modifiche, riscritture, ampliamenti, correzioni,

ottimizzazioni e velocizzazioni.

Giustamente per poterle sfruttare è necessario quel minimo di motivazione e di buona volontà.

 

[Zetrix]

Mike in questa estr ho rilevato una condizione di gioco
con la figura 9
Mi 72 27 dist 45
To 9 72 dist 27
To 9 18 dist 9
To 72 18 dist 36

manca la dist 18 ho fatto questo disegno di ciclometria
l'ambo che chiude il disegno e 36 45
che ne dite di questo disegno
la ciclometria del disegno si svolge in questo modo
72+18=90:2=45 isoliamo il nr 36 ed e il capogioco
gli ambi in gioco sono 36 45/36 27/
si puo tentare il 36 45 come ambo unico che chiude la formazione
del disegno con la figura 9

Mi To Tu 36 45 ambo unico

 

[bubù]

il gioco a Tutte non mi piace, aggiungerei PALERMO e ROMA danno la conferma del 45 dalla somma della terzina simmetrica 15-75-45 inoltre aggiungerei il 90 che esce dalle somme 90 72-18 a TORINO e 15-75 a PALERMO . Grazie e scusate se mi sono permesso di dire la mia

 

[Zetrix]

bubu nemmeno a me mi piace il gioco a tutte però per correttezza
si deve scrivere la previsione anche a tutte
il disegno e ottimo speriamo che il 36 45 esce sulle ruote di calcolo

Mi 72 27
To 09 72 18

bubu ecco perche la condizione e ottima

 

[Zetrix]

 

[Zetrix]

bubu ho messo il disegno ciclom con una gif
il disegno e stato realizzato con il programma spaziometria
vedi se altri programmi fanno queste cose..