script rilevamento somme e/o differenze

[lla]

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]

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]

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]

Ciao lla.

Prova questo:

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

 

[lla]

grazie Joe
lo provo

 

[lla]

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]

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]

grazie joe
più che altro mi interessa vedere che succede nel mezzo

 

[joe]

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.

 

[lla]

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]

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]

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.63	70 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


Se e quando hai tempo

tante grazie

 

[joe]

Ciao lla,

ho modificato lo script.

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

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

 

[lla]

una specie di cronistoria per avere più informazioni in un unico programma senza andare a cercare separatamente

ho aggiunto un piccolo fuori 90 su somme e differenze, è perfetto ...thanks

 

[joe]

Il Fuori90 si attiva con "F = True" all'inizio dello script.

 

[lla]

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]

chi ha tempo me lo adatterebbe per il superenalotto?

 

[lla]

nessuno?

 

[lla]

Ciao lla,

ho modificato lo script.

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

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]

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.

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.