[VB6] Costruire una combinazione

[allejo]

Ciao a tutti per caso uno di voi ha costruito una combinazione in VB6?
Mi spiego un esempio
xkè devo trovare una combinazione adatta......
cioè

a
b
c
d
.......
z

se non va bene allora ricomincio con
aa
ab
ac
ad
....
az

se nn va bene ricomincio con
ba
bb
bc
bd
....
bz

se nn va bene

aaa
aab
aac
aad
....
aaz



Spero di essermi spiegato!!!!!!

Ma nn solo ho i carattere ma o anche in numeri......

[allejo]

up?
nessuno sa?
ho fatto una ricerca e niente allora dovrò iniziare a farmi il codice da solo......

[digre80]

ma la combinazione di quanti caratteri deve essere?aumenta sempre?avrà un limite di caratteri penso o no?
credo tu debba creare due vettori, uno da 21 campi (le lettere) e l'altro da 10 campi (i numeri) e con dei for creare il codice che ti serve, se funziona lanci l'exit sub altrimenti, finito il for passa a quello successivo..

[allejo]

E nel ciclo che tipo di lavoro faccio?

[digre80]

te lo sto preparando...dammi cinque minuti...

[digre80]

'creati una funzione "ProvaCodice" che ti restituisce un true se il codice è giusto e False se è sbagliato

Dim vettLettere, vettNumeri

vettLettere = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "l")
vettNumeri = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)

'provi con una lettera
For i% = 0 To 10
test$ = vettLettere(i%)
If ProvaCodice(test$) = True Then
codice$ = test$
' memorizzi il codice giusto variabile codice$
Exit Sub
End If
Next i%
'provi con due lettere
For k% = 0 To 10
For i% = 0 To 10
test$ = vettLettere(k%) + vettLettere(i%)
If ProvaCodice(test$) = True Then
codice$ = test$
Exit Sub
End If
Next i%
Next k%
'provi con tre lettere
For j% = 0 To 10
For k% = 0 To 9
For i% = 0 To 9
test$ = vettLettere(j%)+vettLettere(k%)+vettLettere(i%)
If ProvaCodice(test$) = True Then
codice$ = test$
Exit Sub
End If

Next i%
Next k%
Next j%

' e così via finche non raggiungi il limite di caratteri del tuo codie
' e poi inizi ad inserire anche i numeri con lo stesso metodo

[digre80]

cazzo me la impaginato malissimo....non si capiscce nulla!!! ma ho sbagliato qualcosa nell'inserire la risposta?sono nuovo del forum...

[allejo]

E anche un buon ragionamento
però volevo fare un pò più ottimizzato cioè cercando di scrivere il meno codice possibile......

[allejo]

Beh non ho altro tempo x trovare una soluzione cmq uso il codice di digre80.....
Grazie

[alka]

Originariamente inviato da digre80
cazzo me la impaginato malissimo....non si capiscce nulla!!!

Per favore, teniamo un linguaggio consono.

Originariamente inviato da digre80
ma ho sbagliato qualcosa nell'inserire la risposta?sono nuovo del forum...

Il pulsante delle nella parte superiore del forum e il Regolamento di quest'area dovrebbero sufficienti a fornire tutte le indicazioni.

Ciao!