Come poter dinamicizzare possibilmente il tutto?

[lotto_tom75]

ARUOTEQ1(4)
ARUOTEQ1(1) = BA_
ARUOTEQ1(2) = CA_
ARUOTEQ1(3) = FI_
ARUOTEQ1(4) = GE_

Vorrei, se fosse possibile, dinamicizzare il valore 1 e le sigle delle ruote dopo l'= affinchè possa avere tutti i 330 casi possibili relativi alle 330 quartine di ruote unite che si formano con le 11 ruote.

Es. del secondo caso...

ARUOTEQ2(4)
ARUOTEQ2(1) = BA_
ARUOTEQ2(2) = CA_
ARUOTEQ2(3) = FI_
ARUOTEQ2(4) = MI_

ecc...

fino al 330° e ultimo caso...

ARUOTEQ330(4)
ARUOTEQ330(1) = RO_
ARUOTEQ330(2) = TO_
ARUOTEQ330(3) = VE_
ARUOTEQ330(4) = NZ_




Qualche idea per fare tutto con un semplice for o analoga funzione prima che mi metta con tibetana e certosina pazienza... a costruirle tutte e 330 a mano?

Grazie a chiunque risponderà

 

[claudio8]

Il tuo
futuro è il Tibet

 

[Giggio]

possono essere utili in questo caso gli array a piu dimensioni , come per esempio

redim ARUOTEQ(330 , 4)

prima alimenti l'array delle 330 quartine , poi lo rileggi con un ciclo e imposti il tuo array ad una sola dimensione su quello corrente

 

[lotto_tom75]

possono essere utili in questo caso gli array a piu dimensioni , come per esempio

redim ARUOTEQ(330 , 4)

prima alimenti l'array delle 330 quartine , poi lo rileggi con un ciclo e imposti il tuo array ad una sola dimensione su quello corrente

Se per "alimenti l'array delle 330 quartine" intendi l'unico modo che volevo evitare ovvero fare come ho descritto sopra... FATTO

per quanto riguarda il passaggio successivo...

"poi lo rileggi con un ciclo e imposti il tuo array ad una sola dimensione su quello corrente"

ho provato a fare così:

ReDim ARUOTEQ(330,4)
   
For numeroprogressivo = 1 To 330
aruote = ARUOTEQ & numeroprogressivo
next

ma mi si blocca con messaggio relativo alla riga

aruote = ARUOTEQ & numeroprogressivo

e al fatto che sia "tipo non corrispondente"



Cazziatone in 3...2..1.

a entrambi...

 

[Giggio]

allora lottotom fammi vedere come si sviluppano 11 numeri in quartine.

 

[lotto_tom75]

allora lottotom fammi vedere come si sviluppano 11 numeri in quartine.

1-2-3-4
1-2-3-5
1-2-3-6
1-2-3-7
1-2-3-8
1-2-3-9
1-2-3-10
1-2-3-11
1-2-4-5
1-2-4-6
1-2-4-7
1-2-4-8
1-2-4-9
1-2-4-10
1-2-4-11
1-2-5-6
1-2-5-7
1-2-5-8
1-2-5-9
1-2-5-10
1-2-5-11
1-2-6-7
1-2-6-8
1-2-6-9
1-2-6-10
1-2-6-11
1-2-7-8
1-2-7-9
1-2-7-10
1-2-7-11
1-2-8-9
1-2-8-10
1-2-8-11
1-2-9-10
1-2-9-11
1-2-10-11
1-3-4-5
1-3-4-6
1-3-4-7
1-3-4-8
1-3-4-9
1-3-4-10
1-3-4-11
1-3-5-6
1-3-5-7
1-3-5-8
1-3-5-9
1-3-5-10
1-3-5-11
1-3-6-7
1-3-6-8
1-3-6-9
1-3-6-10
1-3-6-11
1-3-7-8
1-3-7-9
1-3-7-10
1-3-7-11
1-3-8-9
1-3-8-10
1-3-8-11
1-3-9-10
1-3-9-11
1-3-10-11
1-4-5-6
1-4-5-7
1-4-5-8
1-4-5-9
1-4-5-10
1-4-5-11
1-4-6-7
1-4-6-8
1-4-6-9
1-4-6-10
1-4-6-11
1-4-7-8
1-4-7-9
1-4-7-10
1-4-7-11
1-4-8-9
1-4-8-10
1-4-8-11
1-4-9-10
1-4-9-11
1-4-10-11
1-5-6-7
1-5-6-8
1-5-6-9
1-5-6-10
1-5-6-11
1-5-7-8
1-5-7-9
1-5-7-10
1-5-7-11
1-5-8-9
1-5-8-10
1-5-8-11
1-5-9-10
1-5-9-11
1-5-10-11
1-6-7-8
1-6-7-9
1-6-7-10
1-6-7-11
1-6-8-9
1-6-8-10
1-6-8-11
1-6-9-10
1-6-9-11
1-6-10-11
1-7-8-9
1-7-8-10
1-7-8-11
1-7-9-10
1-7-9-11
1-7-10-11
1-8-9-10
1-8-9-11
1-8-10-11
1-9-10-11
2-3-4-5
2-3-4-6
2-3-4-7
2-3-4-8
2-3-4-9
2-3-4-10
2-3-4-11
2-3-5-6
2-3-5-7
2-3-5-8
2-3-5-9
2-3-5-10
2-3-5-11
2-3-6-7
2-3-6-8
2-3-6-9
2-3-6-10
2-3-6-11
2-3-7-8
2-3-7-9
2-3-7-10
2-3-7-11
2-3-8-9
2-3-8-10
2-3-8-11
2-3-9-10
2-3-9-11
2-3-10-11
2-4-5-6
2-4-5-7
2-4-5-8
2-4-5-9
2-4-5-10
2-4-5-11
2-4-6-7
2-4-6-8
2-4-6-9
2-4-6-10
2-4-6-11
2-4-7-8
2-4-7-9
2-4-7-10
2-4-7-11
2-4-8-9
2-4-8-10
2-4-8-11
2-4-9-10
2-4-9-11
2-4-10-11
2-5-6-7
2-5-6-8
2-5-6-9
2-5-6-10
2-5-6-11
2-5-7-8
2-5-7-9
2-5-7-10
2-5-7-11
2-5-8-9
2-5-8-10
2-5-8-11
2-5-9-10
2-5-9-11
2-5-10-11
2-6-7-8
2-6-7-9
2-6-7-10
2-6-7-11
2-6-8-9
2-6-8-10
2-6-8-11
2-6-9-10
2-6-9-11
2-6-10-11
2-7-8-9
2-7-8-10
2-7-8-11
2-7-9-10
2-7-9-11
2-7-10-11
2-8-9-10
2-8-9-11
2-8-10-11
2-9-10-11
3-4-5-6
3-4-5-7
3-4-5-8
3-4-5-9
3-4-5-10
3-4-5-11
3-4-6-7
3-4-6-8
3-4-6-9
3-4-6-10
3-4-6-11
3-4-7-8
3-4-7-9
3-4-7-10
3-4-7-11
3-4-8-9
3-4-8-10
3-4-8-11
3-4-9-10
3-4-9-11
3-4-10-11
3-5-6-7
3-5-6-8
3-5-6-9
3-5-6-10
3-5-6-11
3-5-7-8
3-5-7-9
3-5-7-10
3-5-7-11
3-5-8-9
3-5-8-10
3-5-8-11
3-5-9-10
3-5-9-11
3-5-10-11
3-6-7-8
3-6-7-9
3-6-7-10
3-6-7-11
3-6-8-9
3-6-8-10
3-6-8-11
3-6-9-10
3-6-9-11
3-6-10-11
3-7-8-9
3-7-8-10
3-7-8-11
3-7-9-10
3-7-9-11
3-7-10-11
3-8-9-10
3-8-9-11
3-8-10-11
3-9-10-11
4-5-6-7
4-5-6-8
4-5-6-9
4-5-6-10
4-5-6-11
4-5-7-8
4-5-7-9
4-5-7-10
4-5-7-11
4-5-8-9
4-5-8-10
4-5-8-11
4-5-9-10
4-5-9-11
4-5-10-11
4-6-7-8
4-6-7-9
4-6-7-10
4-6-7-11
4-6-8-9
4-6-8-10
4-6-8-11
4-6-9-10
4-6-9-11
4-6-10-11
4-7-8-9
4-7-8-10
4-7-8-11
4-7-9-10
4-7-9-11
4-7-10-11
4-8-9-10
4-8-9-11
4-8-10-11
4-9-10-11
5-6-7-8
5-6-7-9
5-6-7-10
5-6-7-11
5-6-8-9
5-6-8-10
5-6-8-11
5-6-9-10
5-6-9-11
5-6-10-11
5-7-8-9
5-7-8-10
5-7-8-11
5-7-9-10
5-7-9-11
5-7-10-11
5-8-9-10
5-8-9-11
5-8-10-11
5-9-10-11
6-7-8-9
6-7-8-10
6-7-8-11
6-7-9-10
6-7-9-11
6-7-10-11
6-8-9-10
6-8-9-11
6-8-10-11
6-9-10-11
7-8-9-10
7-8-9-11
7-8-10-11
7-9-10-11
8-9-10-11

 

[Giggio]

tom non ti ho chiesto di farmi vedere lo sviluppo, forse non hai letto bene ... come si sviluppnao con lo script ...

 

[lotto_tom75]

tom non ti ho chiesto di farmi vedere lo sviluppo, forse non hai letto bene ... come si sviluppnao con lo script ...

Dim aNum
aNum = Array(0,1,2,3,4,5,6,7,8,9,10,11)
Classe = 4
ColTot = InitSviluppoIntegrale(aNum,Classe)
If ColTot > 0 Then
Call Scrivi
Call Scrivi(" Sviluppo in classe: " & Classe)
Call Scrivi
Do While GetCombSviluppo(aCol) = True
i = i + 1
Call Scrivi(StringaNumeri(aCol))
Else
Call Messaggio("Colonna " & i)
End If
Call AvanzamentoElab(1,ColTot,i)
If ScriptInterrotto Then Exit Do
Loop

 

[Giggio]

ecco durante il ciclo do , ovvero in mezzo fai un ciclo for che va da 1 a 4 e che alimenta il tuo array da 330, 4

alla fine dello sviluppo il tuo arraya vra tutte le combinazioni in memoria ...sei daccordo ?

 

[lotto_tom75]

ecco durante il ciclo do , ovvero in mezzo fai un ciclo for che va da 1 a 4 e che alimenta il tuo array da 330, 4

alla fine dello sviluppo il tuo arraya vra tutte le combinazioni in memoria ...sei daccordo ?

D'accordo sono d'accordo solo che non saprei come farlo

Forse ho capito solo dove posizionare il ciclo for...

Dim aNum
aNum = Array(0,1,2,3,4,5,6,7,8,9,10,11)
Classe = 4
ColTot = InitSviluppoIntegrale(aNum,Classe)
If ColTot > 0 Then
Call Scrivi
Call Scrivi(" Sviluppo in classe: " & Classe)
Call Scrivi
Do While GetCombSviluppo(aCol) = True
i = i + 1
Call Scrivi(StringaNumeri(aCol))

dim i
for i = 1 to 330

ARUOTEQ=ARUOTEQ(i)

next

Else
Call Messaggio("Colonna " & i)
End If
Call AvanzamentoElab(1,ColTot,i)
If ScriptInterrotto Then Exit Do
Loop

 

[Giggio]

cioè non si ecapace di scrivere

for k = 1 to 4
next

?

 

[lotto_tom75]

cioè non si ecapace di scrivere

for k = 1 to 4
next

?

ok lo scrivo...



Dim aNum
aNum = Array(0,1,2,3,4,5,6,7,8,9,10,11)
Classe = 4
ColTot = InitSviluppoIntegrale(aNum,Classe)
If ColTot > 0 Then
Call Scrivi
Call Scrivi(" Sviluppo in classe: " & Classe)
Call Scrivi
Do While GetCombSviluppo(aCol) = True
i = i + 1
Call Scrivi(StringaNumeri(aCol))

dim k

for k = 1 to 4


next

Else
Call Messaggio("Colonna " & i)
End If
Call AvanzamentoElab(1,ColTot,i)
If ScriptInterrotto Then Exit Do
Loop

 

[Giggio]

ok ora dentro al ciclo devi alimentare l'array ARUOTEQ(330 , 4)

quindi ti serve un contatore prima del ciclo for che per forza di cose andra da 1 a 330 , poi dentro al ciclo valorizi le 4 posizioni con i dati delal colonna sviluppata in quel momento cioè l'array aCol contiene dei numeri che sono la colonna sviluppata in quel monmento, sti numeri devono finire dentro l'array ARUOTEQ(330 , 4)

 

[lotto_tom75]

ok ora dentro al ciclo devi alimentare l'array ARUOTEQ(330 , 4)

quindi ti serve un contatore prima del ciclo for che per forza di cose andra da 1 a 330 , poi dentro al ciclo valorizi le 4 posizioni con i dati delal colonna sviluppata in quel momento cioè l'array aCol contiene dei numeri che sono la colonna sviluppata in quel monmento, sti numeri devono finire dentro l'array ARUOTEQ(330 , 4)

Dim aNum
aNum = Array(0,1,2,3,4,5,6,7,8,9,10,11)
Classe = 4
ColTot = InitSviluppoIntegrale(aNum,Classe)
If ColTot > 0 Then
Call Scrivi
Call Scrivi(" Sviluppo in classe: " & Classe)
Call Scrivi
Do While GetCombSviluppo(aCol) = True
i = i + 1
Call Scrivi(StringaNumeri(aCol))

dim k
dim contatore

for contatore = 1 to 330
for k = 1 to 4

'... ???

ARUOTEQ(contatore ,k)


next ' x k
next ' x contatore

Else
Call Messaggio("Colonna " & i)
End If
Call AvanzamentoElab(1,ColTot,i)
If ScriptInterrotto Then Exit Do
Loop

 

[Giggio]

comunque mi pare ci fosse una funzione che sviluppava le combinazioni in memoria e alimentava proprio un array della forma che serve a te.
Questo ti eviterebbe la parte precedente ...

 

[Giggio]

quasi

ARUOTEQ(contatore ,k) = anum ( k)


o no ?

 

[Giggio]

il contatore si deve incrementare ad ogni nuova colonna di 1 che c'entra fare il ciclo ?

 

[lotto_tom75]

quasi

ARUOTEQ(contatore ,k) = anum ( k)


o no ?

Dim aNum
aNum = Array(0,1,2,3,4,5,6,7,8,9,10,11)
Classe = 4
ColTot = InitSviluppoIntegrale(aNum,Classe)
If ColTot > 0 Then
Call Scrivi
Call Scrivi(" Sviluppo in classe: " & Classe)
Call Scrivi
Do While GetCombSviluppo(aCol) = True
i = i + 1
Call Scrivi(StringaNumeri(aCol))

dim k
dim contatore

for contatore = 1 to 330
for k = 1 to 4

'... ???

ARUOTEQ(contatore ,k) = Anum(k)


next ' x k
next ' x contatore

Else
Call Messaggio("Colonna " & i)
End If
Call AvanzamentoElab(1,ColTot,i)
If ScriptInterrotto Then Exit Do
Loop

 

[Giggio]

mbe ? lo hai levaot sto ciclo sul contatore ?
a parte che avevi gia la variabile i ....

 

[lotto_tom75]

mbe ? lo hai levaot sto ciclo sul contatore ?
a parte che avevi gia la variabile i ....

Dim aNum
aNum = Array(0,1,2,3,4,5,6,7,8,9,10,11)
Classe = 4
ColTot = InitSviluppoIntegrale(aNum,Classe)
If ColTot > 0 Then
Call Scrivi
Call Scrivi(" Sviluppo in classe: " & Classe)
Call Scrivi
Do While GetCombSviluppo(aCol) = True
i = i + 1
Call Scrivi(StringaNumeri(aCol))

dim k
dim contatore

for contatore = 1 to 330
for k = 1 to 4

'... ???

ARUOTEQ(contatore ,k) = Anum(k)


next ' x k
next ' x contatore

Else
Call Messaggio("Colonna " & i)
End If
Call AvanzamentoElab(1,ColTot,i)
If ScriptInterrotto Then Exit Do
Loop