Novità

Somma Estratti

X

Xeroxs

Advanced Member >PLATINUM<
Buongiorno a Tutti,
Vorrei fare delle analisi sulla somma degli estratti ma non so come fare per utilizzare tutti i 50 o 55 estratti
Faccio un esempio

1 - Vorrei eseguire nell'ultima estrazione la somma di tutti gli estratti con il fuori 90
2 - Vorrei ora eseguire la somma dei soli numeri pari (Fuori 90)
3 - Vorrei ora eseguire la somma dei soli numeri dispari (Fuori 90)

Come posso codificare che voglio utilizzare ogni numero dell'estrazione

Qualcuno può darmi un consiglio

Grazie come sempre
 
Ciao Xeroxs,
nel ricordardarti dell' help di SPMT per quanto riguarda tutte le istruzioni (che sono anche divise per argomenti, e quindi di facile ricerca/consultazione), visto che ti occorre la somma dei numeri pari e/o dispari, il mio consiglio e' ciclare tutta l'estrazione quindi:

for r=1.....
for p=1....
x=estratto(es,r,p)
if se x e' pari ( function(pari) leggi help ).....somma pari
altrimenti function(dispari) leggi help .....somma dispari
somma estrazione totale= sp + sd
(chiudi i for)
Buon studio
 
Codice: 
Option Explicit
Sub Main
  'Somma / Pari / Dispari / Totale
  'Script By Joe V.1.0
  Dim Es,R,P,E,Somma_Pari,Somma_Disp
  Es = EstrazioneFin
  Scrivi DataEstrazione(Es),True
  Scrivi ""
  For R = 1 To 12 : If R = 11 Then R = 12
    ColoreTesto 0 : Scrivi SiglaRuota(R) & Space(1),True,False
    For P = 1 To 5
      E = Estratto(Es,R,P)
      If pari(E) Then
        Somma_Pari = Somma_Pari + E
        ColoreTesto 2
      Else
        Somma_Disp = Somma_Disp + E
        ColoreTesto 1
      End If
      Scrivi Format2(E) & Space(1),False,False
    Next
    Scrivi
  Next
  Scrivi
  ColoreTesto 2 : Scrivi " Somma Pari " & Somma_Pari
  ColoreTesto 1 : Scrivi " Somma Disp " & Somma_Disp
  ColoreTesto 0 : Scrivi " - TOTALE - " & Somma_Pari + Somma_Disp
End Sub
 
Grazie Joe,
Mi ero perso nella somma pari e dispari mi restituiva sempre la somma totale e non pari o dispari
grazie a
Somma_Disp = Somma_Disp + E
mi hai aiutato,
Poi che dire oltre la mia migliore ipotesi un ottimo listato nella sua esposizione,

Vorrei chiederti un consiglio se volessi fare la somma dei soli gemelli o numeretti (anche ripetuti) seguo lo stesso criterio con un if o è complicato?

Sto cercando soluzioni alternative ai soliti calcoli.

Grazie ancora.
 
Ciao Xeroxs,

Non è complicato ma devi considerare di scrivere

questo nuovo IF (qualsiasi cosa)

Prima o Dopo

cioè fuori da:

IF pari E then
'
Else
'
End if

Perchè "dentro" verrebbero sommati solo quei (qualsiasi cosa)

che sono solo pari nella prima metà

cioè prima della scritta else

e solo se anche dispari

dopo Else, nella seconda metà.

:)
 
Grazie davvero,
ho aggiunto un'altro piccolo passo per capire meglio non solo cosa vorrei ma anche la logica delle varie funzioni.
Appena ho un pò di calma mi vedrò attentamente le tue lezioni.
 
Bene Ho Corretto il Tuo listato sia per i numeretti che per i gemelli seguendo il tuo consiglio, tutto ok anche per le colorazioni dove pensavo di tribulare, grazie ancora Joe
 
Ok ... benissimo.

Lo script che hai ... è scritto sfruttando le istruzioni più comuni ai "basic" dedicati a questo ambiente.

Mentre Spaziometria, permette, anche molte cose "difficili" (o impossibili) con altri programmi.

Per prova, ho indirizzato lo stesso script, allo sfruttare maggiormente le possibilità "grafiche" di questo programma.

Codice: 
Sub Main
  'Somma / Pari / Dispari / Totale
  'Script By Joe V.2.0
  Dim Es,R,P,E,Somma_Pari,Somma_Disp,Somma_Gem
  Es = EstrazioneFin
  Scrivi DataEstrazione(Es,,,"/"),True,True,4,1
  Scrivi ""
  For R = 1 To 12 : If R = 11 Then R = 12
    ColoreTesto 0 : Scrivi SiglaRuota(R) & Space(1),True,False,5
    For P = 1 To 5
      E = Estratto(Es,R,P)
      If pari(E) Then
        Somma_Pari = Somma_Pari + E
      Else
        Somma_Disp = Somma_Disp + E
      End If
      If Gemello (E) Then Somma_Gem = Somma_Gem + E
      Scrivi Format2(E),False,False,Iif(Gemello(E),4,5),Iif(pari(E),1,2)
      If P < 5 Then Scrivi Space(1),False,False,5
    Next
    Scrivi
  Next
  Scrivi
  ColoreTesto 2 : Scrivi " Somma Pari " & Somma_Pari
  ColoreTesto 1 : Scrivi " Somma Disp " & Somma_Disp
  ColoreTesto 0 : Scrivi " - TOTALE - " & Somma_Pari + Somma_Disp
  Scrivi
  Scrivi "Somma Gemelli " & Somma_Gem,True,False,4,0
End Sub

:)
 
Grazie Joe,
Prima di Tutto Ti chiedo scusa se Ti rispondo un pò in ritardo.

Che Dire Un Gioiello di Script, che permette di unire più idee e di esporle anche nel modo migliore, quando vedo certe cose e così tanta bravura nella materia per me è uno stimolo a migliorasi, certo mi basterebbe anche la metà della tua bravura, come quella di altri che quì hanno imparato e migliorato nel modo migliore la conoscenza di alcuni aspetti della programmazione, mi piace vedere tutto questo mi spinge nella giusta direzione, ed anche se a volte alcune cose sto faticando ad assorbirle come gli array, alcuni Redim o le Function, cerco di non fermarmi, così leggo e, e pasticcio alcuni listati per capirne non solo le cose più complicate ma anche le più banali o che io considero banali come le posizioni dei vari codici o scritte messe prima o dopo di altre condizioni, lo considero un buon allenamento, mentre per altre devi proprio assimilarle prima che diventino tue nella gestione delle idee.

Sto cercando di creare un listato o script per una mia amica sui sommativi dove cerco di assemblare le varie formule possibili ed attivabili con gli apici a seconda di ciò che uno vuole fare, usare estratti o da li usare i suoi diametrali e così via, cercando di prendere spunto dai tuoi script come quelli di Mike58 di I-Legend, Salvo50, Claudio8, per capire come incastrali in uno script il più possibile dinamico, come le funzioni del listato di I-legend che ha più spunti per le mie idee ma devo ancora apllicarla, o come questo tuo script senza tralasciare tutti gli altri.
Pensa di utilizzare quache array, ma devo capirne alcune sue potenzailità che sembrano davvero enormi.

Grazie davvero, Joe a volte uno script aiuta più di tante ore di studio per capire tanto di questo.
 
Buon Pomeriggio a Tutti,
Sto cercando di elaborare con lo script quanto fatto con calcoli a mano e volendo verificare se la base andasse bene prima di impostare il tutto, non riesco a capire perchè non mi riporta le somme giuste degli estratto pari e dispari, ho testato lasciando una sola estrazione l'ultima e funziona aumento a 4 ma sbaglia il conteggio, dove sto sbagliando,
penso il legame tra Es ed estratto E ma non riesco ad uscirne...

Per correttezza l'ultima estrazione riporta 63 totale come somma dispari e 36 quella pari, ma i valori non corrispondono...

Qualcuno può darmi una dritta?

??

Questo è il listato bozza

Option Explicit
Sub Main
'Metodo Test Somma / Pari / Dispari / Totale Degli Estratti
Dim R,P,E,Somma_Pari,Somma_Disp
Dim Fin,Clp,Ini,Es,Caso,Casi
Dim A,B,C,Amba1,Amba2
Dim MAmba1,PAmba1,MAmba2,PAmba2
Dim Ambo1(2)
Dim Ru(1),Posta(2),Poste(2)
Posta(1) = 1
Posta(2) = 1
Poste(2) = 1
Fin = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9814)
Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",,8))
Call ScegliRange(Ini,Fin,Ini,Fin)
Scrivi Space(25) & " Script Test ",1
Scrivi
For Es = Ini To Fin
Messaggio Es
AvanzamentoElab Ini,Fin,Es
'If IsUltimaDelMese (Es) Then
'If IndiceMensile(Es) = 3 Then
For R = 1 To 12 : If R = 11 Then R = 12
For P = 1 To 5
E = Estratto(Es,R,P)
If pari(E) Then
Somma_Pari = Fuori90 (Somma_Pari + E)
' ColoreTesto 2
Else
Somma_Disp = Fuori90 (Somma_Disp + E)
' ColoreTesto 1
End If
'Scrivi Format2(E) & Space(1),False,False
Next
' Scrivi
Next
' Scrivi
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,2
ColoreTesto 0 : Scrivi SiglaRuota(R) & Space(1),True,False
A = Somma_Pari
B = Somma_Disp
C = A + B
Amba1 = Fuori90(A)
Amba2 = ComplAdX(Amba1)
Scrivi("Estrazione n " & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi ""
ColoreTesto 2 : Scrivi " Somma Pari " & Somma_Pari
ColoreTesto 1 : Scrivi " Somma Disp " & Somma_Disp
ColoreTesto 0 : Scrivi " - TOTALE - " & Fuori90(Somma_Pari + Somma_Disp)
Scrivi
Scrivi " " &(Amba1) & " Prima Ambata",1,0,,2
Scrivi " - Complemento a 90 = " & Format2(Amba2) & " Seconda Ambata",1,,,2
Scrivi
Scrivi Space(10) & Format2(Amba1) & " " & Format2(Amba2) & " Ambate e Ambo"
Ru(1) = 1
Ambo1(1) = Amba1 : Ambo1(2) = Amba2
ImpostaGiocata 1,Ambo1,Ru,Posta,Clp
Gioca Es
'End If 'Chiude Indice Mensile
Next
ScriviResoconto
End Sub
 
Codice: 
Option Explicit
Sub Main
  'Metodo Test Somma / Pari / Dispari / Totale Degli Estratti
   Dim R,P,E,Somma_Pari,Somma_Disp
   Dim Fin,Clp,Ini,Es,Caso,Casi
   Dim A,B,C,Amba1,Amba2
   Dim MAmba1,PAmba1,MAmba2,PAmba2
   Dim Ambo1(2)
   Dim Ru(1),Posta(2),Poste(2)
   Posta(1) = 1
   Posta(2) = 1
   Poste(2) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9814)
   Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",,8))
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(25) & " Script Test ",1
   Scrivi
   For Es = Ini To Fin
          Messaggio Es
          AvanzamentoElab Ini,Fin,Es
          'If IsUltimaDelMese (Es) Then
          'If IndiceMensile(Es) = 3 Then
      For R = 1 To 12 : If R = 11 Then R = 12
      For P = 1 To 5
      E = Estratto(Es,R,P)
      If pari(E) Then
        Somma_Pari = Fuori90 (Somma_Pari + E)
      '  ColoreTesto 2
      Else
        Somma_Disp = Fuori90 (Somma_Disp + E)
       ' ColoreTesto 1
      End If
      'Scrivi Format2(E) & Space(1),False,False
      Next
      ' Scrivi
     Next
     ' Scrivi
             Caso = Caso + 1
             Casi = Casi + 1
             Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,2
             ColoreTesto 0 : Scrivi SiglaRuota(R) & Space(1),True,False
             A = Somma_Pari
             B = Somma_Disp
             C = A + B
            Amba1 = Fuori90(A)
            Amba2 = ComplAdX(Amba1)
            Scrivi("Estrazione n " & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi ""
            ColoreTesto 2 : Scrivi "   Somma Pari " & Somma_Pari
            ColoreTesto 1 : Scrivi "   Somma Disp " & Somma_Disp
            ColoreTesto 0 : Scrivi "   - TOTALE - " & Fuori90(Somma_Pari + Somma_Disp)
            Scrivi
            Scrivi "   " &(Amba1) & " Prima Ambata",1,0,,2
            Scrivi "  -  Complemento a 90 = " & Format2(Amba2) & " Seconda Ambata",1,,,2
            Scrivi
            Scrivi Space(10) & Format2(Amba1) & " " & Format2(Amba2) & "    Ambate e Ambo"
            Ru(1) = 1
            Ambo1(1) = Amba1 : Ambo1(2) = Amba2
            ImpostaGiocata 1,Ambo1,Ru,Posta,Clp
            Gioca Es
           'End If 'Chiude Indice Mensile
   Next
   ScriviResoconto
End Sub
 
La somma pari e dispari vale per tutte le ruote o ruota per ruota?
Se calcoli ritieni per ruota dove azzeri la somma?
Ciao :)
 
Ultima modifica:
Ti è stato consigliato da Claudio di non scrivere più comandi sulla stessa riga, a mio parere un grandissimo consiglio.
Soprattutto dentro i cicli , la leggibilità per te e per chi ti deve leggere ne risente.
Ai fini della velocità non cambia nulla se scrivi 10 comandi su 10 righe o 10 comandi su una riga utilizzando i ":"
Ciao:)
 
Ciao, Ci Ho provato e riprovato vengono fuori solo errori, e non comprendo perchè, ma se lascio l'ultima estrazione
il risultato è corretto


****************************************************************** Estrazione 9817 caso 0001
Estrazione n 9817 del 05.09.2020
Somma Pari 36
Somma Disp 63
- TOTALE - 9

Che dire sarà la stanchezza ma non riesco a concentrarmi su una logica, certamente sono cosciente che devo migliorare come evidenziato dalle osservazioni.

Pensavo di aver compreso certe logiche ma non è cosi come si evince dagli errori che emergono.

a quanto pare ho fatto solo un pasticcio di script.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto