Aiuto per script

[Vincenzo74]

Buona sera a tutti, uso il software sapaziometria da veramente poco. Ho provato lo sviluppo di un metodo cambiando tutti i parametri e mi sono reso conto che lui sviluppa i metodo aggiungendo dei numeri, io avrei la necessità che lui svolga le operazioni di Addizione, moltiplicazione e sottrazioni tra i numeri del quadro estrazionale, mi spiego con un esempio: del form Metodi io vorrei che il software dopo la compilazione di tutti i campi su mio invio mi debba sommare

Il 1° di Bari + * o - il 2° di Bari

Il 1° di Bari + * o - il 3° di Bari

Il 1° di Bari + * o - il 4° di Bari

Il 1° di Bari + * o - il 4° di Venezia

E così via con tutte le altre ruote



4 del mese 5° Cagliari + 1° Nazionale per max 5 colpi

Mi da dei risultati sino al 9 Marzo dopo mi da degli esiti negativi molto probabilmente si è spostato di ruota ma rivedere tutte queste operazioni ogni mese è massacrante c’è qualche possibilità di farlo con spaziometria? con uno script? Leggendo il forum ci sono parecchi di voi che forse sono in grado di farlo e ritengo che possa essere utile a tutti, uno script molto valido, io poi avrei altre teorie ma non so programmare. Qualcuno può essere di aiuto? Grazie anticipatamente.

 

[claudio8]

Forse stai cercando un costruttore di metodi.....

Tutto è fattibile con gli script, ma tu dovresti essere + preciso nella richiesta...
Non si capisce se il risultato delle tue 3 elaborazioni (+ * o -) di tutti gli estratti della specifica estrazione debba essere usato per ambata, ambo o sorti superiori.
Spero che qualche volenteroso ti dia una mano.

Prova comunque a cercare su google "script sommativi" o " script sommativi indice mese" o similari ce ne sono tanti e vadrai che qualcosa di già fatto esiste.
Se non è proprio quanto richiedi, troverai sicuramente una base su cui poter ragionare del tuo algoritmo.

Saluti

 

[Sakti]

Non è perfetto, ma è il mio massimo possibile, visto che nessuno interviene ci ho provato io...
Spero ti permetta di provare il tuo metodo..
hai anche la possibilità di aggiungere i vertibili dei due estratti di base, basta eliminare
l'apostrofo dalle righe verdi non utilizzate...

Sub Main()
   Dim nr(15),num(6),ruote(2),posta(5)
   posta(2) = 1
   posta(3) = 1
   est = CInt(InputBox("Inserisci estrazione iniziale?","Inizio",9000))
   em = CInt(InputBox("Qual'è l'estrazione mensile ?","Estrazione Mensile",1))
   a = CInt(InputBox("1° Ruota di calcolo","Ruota",1))
   b = CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo","Posizione",1))
   c = CInt(InputBox("2° Ruota di calcolo","Ruota",1))
   d = CInt(InputBox("POSIZIONE estratto  2° Ruota di calcolo","Posizione",2))
   ruota1 = CInt(InputBox("1ª ruota di gioco ?","1ª Ruota",1))
   ruota2 = CInt(InputBox("2ª ruota di gioco ?","2ª Ruota",2))
   cp = CInt(InputBox("Quanti colpi di gioco ?","Colpi",10))
   For es = est To EstrazioneFin : Messaggio es
      If IndiceMensile(es) = em Then
         cc = cc + 1
         Scrivi
         ColoreTesto 1 :Scrivi " -- Previsione ricavata alla " &(em) & "° estrazione mensile -- ",1
         Scrivi" --------------------------------------------------------------------------------    Caso n° " & Format2(cc),1
         nr(1) = Estratto(es,a,b)
         nr(2) = Estratto(es,c,d)
         Scrivi : ColoreTesto 1
         Scrivi b & "° " & Left(NomeRuota(a),9) & ".." & nr(1) & " + " & nr(2) & " Numero in gioco > " &(num(1))
         Scrivi b & "° " & Left(NomeRuota(a),9) & ".." & nr(1) & " - " & nr(2) & " Numero in gioco > " &(num(2))
         Scrivi b & "° " & Left(NomeRuota(a),9) & ".." & nr(1) & " X " & nr(2) & " Numero in gioco > " &(num(3))
         'Scrivi b & "° " & Left(NomeRuota(a),9) & ".." & nr(1) & " Vertibile " & ".." & " Numero in gioco > " &(num(4))
         'Scrivi b & "° " & Left(NomeRuota(a),9) & ".." & nr(2) & " Vertibile " & ".." & " Numero in gioco > " &(num(5))
         Scrivi : ruote(1) = ruota1 : ruote(2) = ruota2
         num(1) = Fuori90(nr(1) + nr(2))
         num(2) = Fuori90(nr(1) - nr(2))
         num(3) = Fuori90(nr(1) * nr(2))
         'num(4) = Vert(nr(1))
         'num(5) = Vert(nr(2))
         EliminaRipetuti num
         ImpostaGiocata 1,num,ruote,posta,cp
         Gioca es,1
      End If
   Next
   ScriviResoconto
   ColoreTesto 2 : Scrivi "Idea di Vincenzo74",1
End Sub