Met opties een code genereren.

[wampier]

In principe is het gewoon een binary encoding.

De reeks 2^(0...xx) levert alle benodigde binary values. De uitkomst is dus een getal dat de binaire waarden vertegenwoordigt van de opties:

bijvoorbeeld:

true false true = 1 0 1 = 2^0 + 0 + 2^2 = 5.

 

[snb]

Met 26 vinkvakken met de namen vink1 t/m vink26 lijkt me dit voldoende:

Sub M_codeer()
    For j = 1 To 26
      y = y + 2 ^ (j - 1) * Abs(Me("vink" & j))
    Next
    Label2.Caption = Hex(y)
End Sub