metodi sommativi

[Vincenzo74]

Salve a tutti volevi chiedervi una informazione, il software spaziometria fa il calcolo dei metodi sommativi partendo solo da una singola ruota? non lo fa su pi+ ruote di partenze? Esempio il 1° Bari + 3° Nazionale da un'ambata e così via. se si può fare mi potete dare una spiegazione? grazie a tutti

 

[Sakti]

Non so se è questo che vuoi, ma dai un'occhiata..
Quasi tutti i passaggi sono spiegati, io non sono un gran che come scripter, ma se si può aiutare...

Sub Main()
   ColoreTesto 2
   Scrivi
   Scrivi "SPIEGAZIONE LISTATO SOMMATIVO",1
   Scrivi
   Scrivi
   ColoreTesto 0
   Dim ruote(12) 'Dimensiona la quantità di ruote a 12
   Dim g1(6) 'Dimensiona la quantità di Numeri in gioco
   Dim poste(4) 'Dimensiona la posta, 1 ambata, 2 ambo ecc.
   poste(1) = 1 ' Ambata 1€
   'poste(2) = 1 ' Ambo 1€
   clp = 10 ' Colpi di gioco
   ini = 9850 ' Estrazione di inizio ricerca
   fin = EstrazioneFin
   cp = 0
   For es = ini To fin
      'If IndiceMensile(es) = x Then      'L'indice, "x" estrazione mensile, cambiando la "x" con il numero dell'estrazione mensile che vuoi analizzare.
                                                                                       '(se lo vuoi usare togli l'apostrofo anche all' "End If" più sotto)
      ruote(1) = 1     'Ruota di BARI
      ruote(2) = 12   'Ruota Nazionale       Se vuoi eliminare una o più ruote aggiungi l'apostrofo davanti..
      ruote(3) = 11   'Ruota Tutte                Per cambiarle basta cambiare il numero della ruota..
      casi = casi + 1
      cp = cp + 1
      ColoreTesto 1:Scrivi String(100,"-") & " Caso n° " & casi,1
      ColoreTesto 1:Scrivi DataEstrazione(es) & "===>" & IndiceMensile(es) & "° Estrazione Mensile"
      ColoreTesto 1:Scrivi String(100,"-")
      ColoreTesto 0
      g1(1) = Fuori90(Estratto(es,1,1) +(Estratto(es,12,3))) '  Ambata = col fuori 90, Bari primo estratto + Nazionale terzo estratto
      'g1(2) = Fuori90(Estratto(es,x,x) + (Estratto(es,x,x)))            ' Se lo vuoi asare per ambo con altro sommativo
      ImpostaGiocata 1,g1,ruote,poste,clp 'Impostazione gicata, numeri di "g1" sulle 3 ruote con le poste da gicare per "clp" colpi di gioco
      Gioca es,1 'Visualizza solo i risultati positivi, senza il ",1" mostra tutti i risultati
      'End If
   Next
   Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Trovati " & CInt(cp)
   ScriviResoconto
End Sub

 

[Vincenzo74]

Grazie toon ma mi da errore allego immagine errore. premetto che non capisco nulla di script. grazie ancora

 

[Xeroxs]

Ciao, Vedo che hai aggiunto
"Option Explicit" all'inizio del listato quando lo copi devi cancellarlo o dimensionere ogni variabile

se lo cancelli vedi che Funziona

 

[Zac]

Ciao Vincenzo
Io ho provato a inserirlo in spaziometria è lo ha elaborato.
Come dice giustamente Xeroxs, prima di copiare lo script cancella le scritte che compaiono quando clicchi su Gestione Script

 

[Sakti]

Grazie Ragazzi, anche a me funziona bene, basta eliminare "Option Explicit".

 

[Vincenzo74]

grazie a tutti ragazzi funziona, ma non esiste uno script dove lui fa il conteggio di tutte le ruote, in questo script devo copiarlo a fare uno script per ogni abbinamento. poi dove posso trovare una guida per costruire gli script?

 

[Sakti]

Così puoi vedere nel resoconto i risultati su ogni ruota...

Sub Main()
   ColoreTesto 2
   Scrivi
   Scrivi "SPIEGAZIONE LISTATO SOMMATIVO",1
   Scrivi
   Scrivi
   ColoreTesto 0
   Dim ruote(12) 'Dimensiona la quantità di ruote a 12
   Dim g1(6) 'Dimensiona la quantità di Numeri in gioco
   Dim poste(4) 'Dimensiona la posta, 1 ambata, 2 ambo ecc.
   poste(1) = 1 ' Ambata 1€
   'poste(2) = 1 ' Ambo 1€
   clp = 10 ' Colpi di gioco
   ini = 9850 ' Estrazione di inizio ricerca
   fin = EstrazioneFin
   cp = 0
   For es = ini To fin
      'If IndiceMensile(es) = x Then      'L'indice, "x" estrazione mensile, cambiando la "x" con il numero dell'estrazione mensile che vuoi analizzare.
                                                                                       '(se lo vuoi usare togli l'apostrofo anche all' "End If" più sotto)
      'ruote(1) = 1 'Ruota di BARI
      'ruote(2) = 12 'Ruota Nazionale       Se vuoi eliminare una o più ruote aggiungi l'apostrofo davanti..
      'ruote(3) = 11 'Ruota Tutte                Per cambiarle basta cambiare il numero della ruota..
      ruote(1) = 1: ruote(2) = 2:ruote(3) = 3:ruote(4) = 4:ruote(5) = 5:ruote(6) = 6:ruote(7) = 7:ruote(8) = 8:ruote(9) = 9:ruote(10) =10:ruote(12) =12
      casi = casi + 1
      cp = cp + 1
      ColoreTesto 1:Scrivi String(100,"-") & " Caso n° " & casi,1
      ColoreTesto 1:Scrivi DataEstrazione(es) & "===>" & IndiceMensile(es) & "° Estrazione Mensile"
      ColoreTesto 1:Scrivi String(100,"-")
      ColoreTesto 0
      g1(1) = Fuori90(Estratto(es,1,1) +(Estratto(es,12,3))) '  Ambata = col fuori 90, Bari primo estratto + Nazionale terzo estratto
      'g1(2) = Fuori90(Estratto(es,x,x) + (Estratto(es,x,x)))            ' Se lo vuoi usare per ambo con altro sommativo
      ImpostaGiocata 1,g1,ruote,poste,clp 'Impostazione gicata, numeri di "g1" sulle 3 ruote con le poste da gicare per "clp" colpi di gioco
      Gioca es,1 'Visualizza solo i risultati positivi, senza il ",1" mostra tutti i risultati
      'End If
   Next
   Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Trovati " & CInt(cp)
   ScriviResoconto
End Sub

 

[Vincenzo74]

Non mi sono piegato bene, necessiterei di uno script dove il codice calcoli tutte le possibilità di ambata tra tutte le ruote per ogni sua singola posizione, ad esempio il 1° di Bari +il 2° bari, il 1° di Bari + 3° di Bari; il 1° di bari + il 1° di Cagliari e così vie per tutte le posizioni e ruote e darmi così un prospetto dove mi dovrebbe dire che ad esempio con la somma del 1° di Cagliari ed il 4° di Firenze è uscito nelle prime (estrazioni dovrebbe variare la richiesta) 5 estrazioni 3 volte su 5 sulla ruota di Roma,

 

[Sakti]

Mi spiace ma io arrivo fino qui, per altro devi chiedere a Scripter Navigati più di me..

 

[Vincenzo74]

Ti ringrazio veramente tanto toon, ma uno script sul 10elotto sapresti farlo?

 

[Sakti]

Non lo seguo, quindi non ne conosco le dinamiche, ma se cerchi nel Forum troverai script e scripter che fanno al caso Tuo, almeno spero, Fai una richiesta e certamente avrai risposta, ci sono persone valide e gentili..