generazione combinazioni booleane

[gaullo]

Ciao a tutti

Devo generare le combinazioni booleane, tipo x 2 bit

00
01
10
11

Il numero dei bit è variabile (ma oviamente al momento dell'algoritmo lo conosco)

ho scritto del codice

For i = 1 To ncombinazioni (2 ^ nbit)
   subnt = ""
   For t = 0 To nbit
      if ?? ><=mod?? then
      subnt = 1 o 0 & subnt      
   Next
   Set mItem = ListView1.ListItems.Add(, , i)
   mItem.ListSubItems.Add , , subnt
Next

Ma non mi viene propio come far generare le varie combinazioni.
So che gli 1 (e zeri) vengono ripetuti ciclicamente per 2 ^ (posizione bit).
Ma non posso dimensionare una variabile che controlli le variazioni per ogni bit, xchè non so quanti sono.....
Qualcuno ha qualche idea????

[darkblOOd]

cosa dovresti realizzare? Un elenco delle combinazioni in base al numenro di bit passato?

[darkblOOd]

Originariamente inviato da gaullo
Ma non posso dimensionare una variabile che controlli le variazioni per ogni bit, xchè non so quanti sono.....
Qualcuno ha qualche idea????

come no? Se per esempio sono 2 bit non devi "ripartire" ogni 2 combinazioni?

[gaullo]

pensandoci bene, potrei usare un array, ridimensionandolo secondo il numero di bit
.....

[darkblOOd]

Originariamente inviato da gaullo
pensandoci bene, potrei usare un array, ridimensionandolo secondo il numero di bit
.....

stavo proprio provando a vedere se si poteva fare un array... magari multidimensionale...

[darkblOOd]

ma usi vb6? non potresti creare una stringa a lunghezza fissa impostando la lunghezza al numero di bit? (non so se accetta una variabile)

[gaullo]

anche questa è una soluzione.

si uso vb6

ora provo un po'

[cik]

questa funzione converte un valore (Value) in binario restituendolo in una stringa lunga N_bit

Private Function BoolStr(ByVal Value As Long, ByVal N_bit As Integer) As String
    If N_bit = 1 Then
        If Value = 1 Then
            BoolStr = "1"
        Else
            BoolStr = "0"
        End If
        Exit Function
    End If
    If Value >= 2 ^ (N_bit - 1) Then
        BoolStr = "1" + BoolStr(Value - 2 ^ (N_bit - 1), N_bit - 1)
    Else
        BoolStr = "0" + BoolStr(Value, N_bit - 1)
    End If
End Function

puoi farti un array lungo 2^n e riempirlo con un ciclo

[gaullo]

è ancora + semplice.......


conosco il numero di combinazioni.....
ho una function che mi converte i numeri in binario.....

quindi con un for da 1 a n° combinazioni semplicemente traduco in binario la variabile del for che si incrementa di 1!!!!!!


Grazie per le dritte.....

:quote: :quote: :quote: :metallica