Novità

script rilevamento somme e/o differenze

lla

Super Member >PLATINUM<
Messaggi
414
Punti reazione
10
Punti
18
ciao a tutti
volevo chiedere agli scripters

è possibile avere uno script che rilevi l'andamento di una somma o differenza, a mia scelta su una ruota sempre a mia scelta , nelle estrazioni successive?
provo a spiegarmi meglio con un esempio:
-inserisco la somma 43 sulla mia ruota a scelta (somma 2+41dalla ruota di bari che sono il 1 estratto+2 estratto del 27 giugno)

-poi nelle estrazioni successive lo scipt dovrebbe rilevare dove si sposta sulla stessa ruota
diciamo che dopo 3 estrazioni diventa somma 3-4 dovrebbe darmi come risultato 43 in posizione 3-4
e dopo 5 estrazioni diventa somma 2-3 e cosi via per il numero di estrazioni predisposto.
se bi potesse verificare con un unico programma cosa diventa una somma o differenza nel corso delle estrazioni sarebbe ottimo, ma non ho idea se si possa fare

in pratica avere il programma che verifichi sia per somme che per differenze
Eventualmente non fosse possibile va benissimo solo la somma a scelta .

grazie a chi potrà
 

Sasa

Advanced Member >PLATINUM PLUS<
Messaggi
3.897
Punti reazione
2.012
Punti
113
Ciao Ila
Io ti posso semplicemente dire al riguardo che esiste già un "quadro somme/distanze" nel programma gratuito Spaziometria di LuigiB (in questo Forum esiste una sezione apposita relativa al proramma stesso)
Una volta scaricato se vai in alto alla voce tabelloni nella finestra a tendina è compreso anche il quadro somme distanze. Non so se è quanto tu richiedi ma una volta che hai visto te ne renderai conto. In ogni caso se non ho compreso bene quanto tu chiedevi ci saranno altri che potranno rispondere alla tua richiesta.
Buona domenica pomeriggio
 

lla

Super Member >PLATINUM<
Messaggi
414
Punti reazione
10
Punti
18
ciao Sasa
lo avevo visto ma io ne ho 5 per ogni ruota e a dire il vero non mi corrispondono come somme o differenze
ho provato a modificare l'archivio da reale lotto ad archivio L1 ecc..ma non accade niente
non so se c'è qualcosa che non va alla mia versione o è proprio un'altra cosa

buon pomeriggio anche a te
 

joe

Advanced Member >PLATINUM<
Messaggi
1.242
Punti reazione
117
Punti
63
Ciao lla.

Prova questo:

Codice:
Option Explicit
Sub Main
   Dim Ini,Fin,Es,R,S,P,Q,A,B
   Ini = EstrazioneFin - 155 : Fin = EstrazioneFin : S = 43: R = BA_
   For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
      For P = 1 To 4 : A = Estratto(Es,R,P)
         For Q = P + 1 To 5 : B = Estratto(Es,R,Q)
            If(A + B) = S Then
               Scrivi DataEstrazione(Es) & " " & SiglaRuota(R) & " " & StringaEstratti(Es,R) & " (",0,0
               Scrivi Format2(A) & " + " & Format2(B) & ") = " & S & " ",0,0
               Scrivi " Rit" & FormatSpace (EstrattoRitardo (R,S,1,Es ),3,1),0,0
               Scrivi " Pos " & P & "-" & Q
            End If
         Next
      Next
   Next
End Sub
 
Ultima modifica:

lla

Super Member >PLATINUM<
Messaggi
414
Punti reazione
10
Punti
18
ciao Joe si può aggiungere un'altra verifica?
per esempio un controllo iniziale prima di verificare la somma
se quel numero che scelgo è uscito in precedenza?
riprendendo lo stesso esempio il 43 a bari era uscito 7/8 colpi prima
 

joe

Advanced Member >PLATINUM<
Messaggi
1.242
Punti reazione
117
Punti
63
ciao Joe
si può aggiungere un'altra verifica?
per esempio un controllo iniziale prima di verificare la somma
se quel numero che scelgo è uscito in precedenza?
riprendendo lo stesso esempio il 43 a bari era uscito 7/8 colpi prima

Parafrasato è il ritardo del numero-somma.

Ho inserito quanto hai chiesto nello script precedente.

:)
 

lla

Super Member >PLATINUM<
Messaggi
414
Punti reazione
10
Punti
18
grazie joe
:) più che altro mi interessa vedere che succede nel mezzo
 

joe

Advanced Member >PLATINUM<
Messaggi
1.242
Punti reazione
117
Punti
63
Non ho capito.

Scrivi un paio di righe di testo-esempio che siano quello che vorresti.

Anche con numeri a caso.

Cioè uno schemino di cosa dovrebbe produrre lo script.

:)
 
Ultima modifica:

lla

Super Member >PLATINUM<
Messaggi
414
Punti reazione
10
Punti
18
ciao Joe x ora faccio verifiche con quanto che mi hai scritto se poi trovo qualcosa di interessante magari ne approfitto e ti chiedo di inserire qualche altra funzione

grazie :)
 

lla

Super Member >PLATINUM<
Messaggi
414
Punti reazione
10
Punti
18
Non ho capito.

Scrivi un paio di righe di testo-esempio che siano quello che vorresti.

Anche con numeri a caso.

Cioè uno schemino di cosa dovrebbe produrre lo script.

:)
ciao Joe

rieccomi :)
posso chiederti un'altro scriptino?

in modo simile al precedente
x vedere un estratto a scelta su una ruota a scelta
per esempio
quando è stato estratto il numero 34 a bari nelle ultime 200 estrazioni
la grafica come quello di prima per la somma cioè
data estrazione - estrazione .. ma a fianco è possibile vedere tutte e 10 le somme e differenze ?
una cosa così:

4/7/20- 87 44 78 34 62 - somme 41 - 75 - 31 - 59 ......
e sotto alle somme le differenze un pò come la tabellina di L8 afianco alle estrazioni
 

lla

Super Member >PLATINUM<
Messaggi
414
Punti reazione
10
Punti
18
Ciao Joe grazie mille

sì in pratica è questo
solo vorrei chiederti se è possibile cambiare la grafica del risultato in modo che si vedano somma 1-2 e differenza 1-2 , per esempio, uno sotto l'altro, una cosa così tipo:
(scusa ma non riesco a mettere la somma 1-2, 1-3, 1-4 ecc.ecc in modo preciso.)
In pratica come una tabellina
1-2 -13-1-4—15-23—24-25--34---35---45
13.04.2019 09.61.34.66.6370 43 75 72 95 127 124 100 97 129
52 25 57 54 27 5 2 32 29 3


Il massimo sarebbe poi avere integrato a questo l'altra parte fatta da te dove si vede per es. il numero 34 dopo che è stato estratto come viaggia fra somme e differenze per 10/15 estrazioni o prima di uscire di nuovo

quindi vedere se poi diventa somma 1-3 e poi differenza 2-3 e cosi' via
pero' se non si possono mettere insieme non fa niente li uso separati, non te ne preoccupare più di tanto .

spero di averlo spiegato meglio questa volta, non riesco a copiarti qui un'immagine dell'archivio estrazioni di L8, ma in pratica l'output è simile a quello dell'archivio di L8, solo che invece che girare le estrazioni a mano una dopo l'altra e vedere somme e differenze separatamente, scegli una ruota sola e un numero estratto e ti studi in sequenza quello che succede. Io me li controllo così ma onestamente sto diventando cieca :D


Se e quando hai tempo :)

tante grazie
 

joe

Advanced Member >PLATINUM<
Messaggi
1.242
Punti reazione
117
Punti
63
Ciao lla,

ho modificato lo script.

Il resto, penso sia fattibile ma non ho capito cosa debba essere.

Codice:
Option Explicit
Sub Main
  'Somme e Differenze alla presenza di un Estratto Beta By Joe 08/07/2020
  Dim Ini,Fin,Es,E,F,R,N,P,Q,S,T
  R = BA_ : N = 34 : F = False 'F = True applica il Fuori90
  Ini = EstrazioneFin - 179 : Fin = EstrazioneFin :
  S = Space(1)
  Scrivi "Numero" & S & Format2(N) & S & NomeRuota(R) & Space(25),True,False
  ColoreTesto 1 : Scrivi "SOMME" & S,True,False
  ColoreTesto 2 : Scrivi "DIFFERENZE",True,False
  ColoreTesto 0 : Scrivi : Scrivi
  Scrivi Space(3) & "Data" & Space(8) & "Estratti" & Space(5),True,False
  For P = 1 To 4
    For Q = P + 1 To 5
      Scrivi P & "-" & Q & Space(1),True,False
    Next
  Next
  Scrivi : Scrivi
  For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
    If Posizione(Es,R,N) > 0 Then
      Scrivi DataEstrazione(Es) & S & S,0,0
      E = Split("0." & StringaEstratti(Es,R),".")
      Scrivi StringaNumeri(E,,True) & S,0,0
      ColoreTesto 1
      For P = 1 To 4
        For Q = P + 1 To 5
          T = CInt(E(P)) + CInt(E(Q))
          If F Then T = Fuori90(T)
          Scrivi FormatSpace(T,4,True),True,False
        Next
      Next
      Scrivi
      ColoreTesto 0
      Scrivi DataEstrazione(Es) & S & S,0,0
      Scrivi StringaNumeri(E,,True) & S,0,0
      ColoreTesto 2
      For P = 1 To 4
        For Q = P + 1 To 5
          Scrivi FormatSpace(Abs(CInt(E(P)) - CInt(E(Q))),4,True),True,False
        Next
      Next
      ColoreTesto 0
      Scrivi
      Scrivi
    End If
  Next
  For Es = Ini To Fin
    E = Split("0." & StringaEstratti(Es,R),".")
    For P = 1 To 4
      For Q = P + 1 To 5
        T = CInt(E(P)) + CInt(E(Q))
        If F Then T = Fuori90(T)
        D = Abs(CInt(E(P)) - CInt(E(Q)))
        If T = N Then Scrivi DataEstrazione(Es) & S & Format2(E(P)) & "+" & Format2(E(Q)) & S & P & "-" & Q,True
        If D = N Then Scrivi DataEstrazione(Es) & S & Format2(E(P)) & "-" & Format2(E(Q)) & S & P & "-" & Q,True
      Next
    Next
  Next
End Sub

End Sub
:)
 
Ultima modifica:

lla

Super Member >PLATINUM<
Messaggi
414
Punti reazione
10
Punti
18
una specie di cronistoria per avere più informazioni in un unico programma senza andare a cercare separatamente
:D
ho aggiunto un piccolo fuori 90 su somme e differenze, è perfetto ...thanks
 
Ultima modifica:

joe

Advanced Member >PLATINUM<
Messaggi
1.242
Punti reazione
117
Punti
63
Il Fuori90 si attiva con "F = True" all'inizio dello script.
 

lla

Super Member >PLATINUM<
Messaggi
414
Punti reazione
10
Punti
18
(y)(y)ancora grazie

sulla mia versione non lo prendeva non so perchè, l'ho aggiunto su T così
T = Fuori90(CInt(E(P)) + CInt(E(Q)))
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 04 agosto 2020
    Bari
    37
    51
    75
    89
    06
    Cagliari
    18
    44
    89
    16
    17
    Firenze
    43
    22
    24
    45
    87
    Genova
    79
    19
    02
    68
    34
    Milano
    19
    08
    85
    12
    48
    Napoli
    83
    04
    82
    76
    07
    Palermo
    16
    80
    78
    06
    66
    Roma
    26
    17
    50
    23
    35
    Torino
    83
    07
    77
    43
    33
    Venezia
    11
    81
    73
    68
    33
    Nazionale
    54
    05
    69
    84
    25
    Estrazione Simbolotto
    Genova
    29
    11
    03
    17
    34
Alto