Per Joe, Claudio8, DJnomade, Enplein, Lottopython, ecc...

[salvo50]

Esiste una funzione in Spaziometri che somma 2 vettori,
esempio:

aD = aB + aC
nel senso che tutti i numeri memorizzati in aB insieme a quelli memorizzati in aC devono trovarsi tutti memorizzati in aD

 

[joe]

Non so. Penso di no.
Bisognerebbe fare delle prove e vedere se si hanno risultati.

 

[salvo50]

Ciao Joe

Ti spiego a cosa mi serve, ho 2 vettori ognuno con 36 numeri, devo controllare se c'è la cinquina volevo farlo con verifica esito, ma devo farlo con 72 numeri, per questo mi serviva che i 72 numeri fossero in un solo vettore.

 

[claudio8]

Sub Main
     Dim numeri1(),numeri2()
     Dim co
     Call ScegliNumeri(numeri1) ' 1° elenco
     Call ScegliNumeri(numeri2) ' 2° elenco
     Scrivi StringaNumeri(numeri1)
     Scrivi StringaNumeri(numeri2)
     Scrivi UBound(numeri1)
     Scrivi UBound(numeri2)
     ReDim aD(UBound(numeri1) + UBound(numeri2)) ' - - - - - - - > cosi dimensiono l'array aD
     For x = 1 To UBound(numeri1)
          aD(x) = numeri1(x)
     Next
     co = 0
     For x = UBound(numeri1) + 1 To UBound(aD)
          co = co + 1
          aD(x) = numeri2(co)
     Next
     Scrivi UBound(aD)
     '    If VerificaEsito(aD,BA_,10400,3 ,10,,retesito,retColpi, ret estratti)Then
     Scrivi "in gioco " & StringaNumeri(aD)
     'End If
End Sub

prova questa soluzione senza Verifica esito

 

[salvo50]

scegli numeri1 come ti pare e piace,
scegli numeri2 come ti pare e piace,


(ubound) aB= ubound( numeri1)
(ubound) aC= ubound( numeri2)

dim aD= (ubound) aB+(ubound) aC) -------> cosi dimensiono l'array aD

for x = 1 to (ubound) aB
aD(x)= aB(x) 'oppure leggi la array numeri1
next

for x = (ubound) aB+1 to (ubound) aD
aD(x)= aC(x)
next
-------------
in aD hai tuti i numeri scelti con scegli numeri1 e sceglinumeri2 o altro.
per sciverli in output vedi tu come fare.

prova questa soluzione

Ciao Claudio

provo

 

[claudio8]

Ciao Claudio

provo

Ti ho rifatto "SOPRA" lo script con scegli numeri chiamato 2 volte, se non è questa la strda di sceta numeri, usa il tuo pogetto di scelta

 

[salvo50]

Ciao a Tutti

Grandissimo Claudio
Grazie 1000x1000

Queste poche righe sono da salvare per eventuali progetti futuri.

Questa è la mia impostazione con i nomi dei vettori che ho usato io

 ReDim Pronostico(UBound(CuBas1) + UBound(CuBas2)) ' - - - - - - - > cosi dimensiono l'array Pronostico
         For X = 1 To UBound(CuBas1)
            Pronostico(X) = CuBas1(X)
         Next
         co = 0
         For X = UBound(CuBas1) + 1 To UBound(Pronostico)
            co = co + 1
            Pronostico(X) = CuBas2(co)
         Next
         If VerificaEsito(Pronostico,Ru,Es + 1,5,1,,retesito,retColpi,retestratti)Then
         Scrivi "in gioco " & StringaNumeri(Pronostico," ",True),1

 

[claudio8]

Ciao a Tutti

Grandissimo Claudio
Grazie 1000x1000

Salvo non esagerare, spesso è solo questione di ruggine...
Ciao