Novità

xMike58

Zetrix

Advanced Premium Member
Codice:
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
 
Zetrix , Non Lo so, forse non va bene il ciclo di scegliruote, sostituisci con scegliRuota.
Cosi scrive le 3 ruote scelte.

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

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

:)
 
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.
 
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..
 
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..
 
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.

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

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


2134.png
 
Ultima modifica:
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.
 
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:)
 
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à.

:)
 
Ultima modifica:
2131.png

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
 
Ultima modifica:
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
 
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
 
Ultima modifica:
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..
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 08 luglio 2025
    Bari
    29
    56
    53
    47
    86
    Cagliari
    31
    25
    53
    71
    76
    Firenze
    24
    12
    70
    90
    16
    Genova
    84
    79
    48
    81
    51
    Milano
    54
    73
    46
    53
    64
    Napoli
    64
    48
    73
    81
    47
    Palermo
    05
    60
    43
    63
    33
    Roma
    15
    82
    55
    13
    68
    Torino
    83
    13
    39
    53
    74
    Venezia
    52
    66
    24
    08
    41
    Nazionale
    76
    14
    90
    09
    12
    Estrazione Simbolotto
    Nazionale
    33
    27
    20
    14
    11

Ultimi Messaggi

Indietro
Alto