Novità

script rilevamento somme e/o differenze

lla

Advanced Member >PLATINUM PLUS<
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à
 

Zac

Advanced Premium Member
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

Advanced Member >PLATINUM PLUS<
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
 
  • Like
Reazioni: Zac

joe

Advanced Member >PLATINUM PLUS<
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

Advanced Member >PLATINUM PLUS<
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 PLUS<
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

Advanced Member >PLATINUM PLUS<
grazie joe
:) più che altro mi interessa vedere che succede nel mezzo
 

joe

Advanced Member >PLATINUM PLUS<
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

Advanced Member >PLATINUM PLUS<
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

Advanced Member >PLATINUM PLUS<
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

Advanced Member >PLATINUM PLUS<
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 PLUS<
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

Advanced Member >PLATINUM PLUS<
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:

lla

Advanced Member >PLATINUM PLUS<
(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)))
 

lla

Advanced Member >PLATINUM PLUS<
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

:)
spero che joe legga
ho appena cambiato versione di spaziometria e non mi gira più un programma ..questo in particolare mi restituisce sempre lo stesso errore " tipo non corrispondente CInt" sulla riga in grassetto sopra

sto per defenestrare qualcosa
 

joe

Advanced Member >PLATINUM PLUS<
Ho provato questo script sull'ultima versione di Spaziometria (1.6.44) e "gira" senza messaggi di errore.

Sinceramente non ricordo cosa facesse o quale rendiconto dovesse esporre

ma è uno script semplice dunque dovrebbe funzionare.

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,D
  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

NB: "End Sub" deve essere presente alla fine di ogni Sub per concluderla correttamente.

In particolare lo script è composto di una singola Sub Main.

Quindi termina una volta sola, ed di "End Sub", ce ne deve essere solo uno.

:)
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto