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.984
Punti reazione
2.086
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.256
Punti reazione
119
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.256
Punti reazione
119
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.256
Punti reazione
119
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.256
Punti reazione
119
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.256
Punti reazione
119
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
    giovedì 13 agosto 2020
    Bari
    85
    14
    03
    88
    26
    Cagliari
    75
    85
    81
    77
    13
    Firenze
    69
    86
    10
    60
    36
    Genova
    02
    57
    16
    09
    59
    Milano
    83
    06
    51
    18
    46
    Napoli
    75
    80
    20
    52
    47
    Palermo
    64
    05
    73
    89
    88
    Roma
    67
    02
    60
    74
    63
    Torino
    83
    42
    23
    03
    35
    Venezia
    83
    87
    86
    72
    88
    Nazionale
    12
    77
    42
    19
    32
    Estrazione Simbolotto
    Genova
    11
    36
    06
    30
    05

Ultimi Messaggi

Alto