Richiesta Script estratti in cadenza

[maumau]

Buonasera, gentilmemte se qualcuno potesse crearmi uno script che ricerca due estratti isotopi in cadenza su ruote consecutive. Una volta trovati i due estratti vanno sommati così da avere il capogioco1, quindi il capogioco2 costituito dal suo vertibile e di entrambi il capogioco3 e 4 costituiti dal corrispettivo in cadenza 9. A questo punto ognuno deve essere abbinato per ambo ai nove mancanti della propria decina. Verifica dell'eventuale vincita nei sei colpi successivi sulle due ruote base.

Esempio dall'estrazione del 01.10.2019

Genova 3°estratto 23
Milano 3° estratto 53
Capogioco1 = 76
Capogioco2 = 67
Capogioco3 = 79
Capogioco4 = 69

Esito al 2° colpo ambo secco 76-74 su Milano

Grazie a chi vorrà aiutarmi

 

[maumau]

Grazie Magia per l'elaborato. Mi da quest'errore.....risolvibile?

 

[druid]

Buongiorno a tutti....
....senza "scomodare" Magia che noto "recupera" spesso da tempo script lasciati sul fondo di quest' area in quanto sono veramente pochi coloro che "trattano" tale materia, l'errore e' semplicemente risolvibile in due modi:
1) se hai copiato lo script dopo OPTION EXPLICIT basta remmare tale istruzione e cioe' anteporre un' apostrofo all' istruzione, cosi':

'Option Explicit

oppure

2) dichiarare la variabile (il messaggio "non definita" vuol dire quello) scrivendo (ti riporto le righe interessate):

Dim vetruota
Dim TetRuota,VetPosta,Durata : vetruota = Array(00,r1,r2)

oppure aggiungendola nella dichiarazione dopo "durata", cosi':

Dim TetRuota,VetPosta,Durata, vetruota : vetruota = Array(00,r1,r2)

Spero esser stato chiaro.

Buon studio.....

Ciao

P.s.: per Magia: alcuni si chiedono da dove scrivi......se di giorno esordisci con buongiorno e viceversa quando qui e' sera..... se vuoi e puoi....Grazie.

Ciao

 

[maumau]

Chiarissimo druid....risolto con l'apostrofo
Grazie

 

[maumau]

Effettivamente non è ciò che chiedevo......ne farò una base di partenza