[大至急]５つの数字のパターンは？

質問

1,2,3,4,5 番のスイッチを見立てた数字があり、
これを以下のようなパターンで考えるとどの様な組み合わせ数になるのか？
また、それを記述していただいたらうれしいです

1,-,-,-,-
1,2,-,-,-
1,2,3,-,-
1,2,3,4,-
1,2,3,4,5

※必要ないパターン
2,3,1,4,5
2,-,3,5,-
順番が入れ替わる必要はありません
つまり、
１だけがONの時にはこの処理を行う
１と３だけがONの時にはこの処理を行う
などの様に、１～５個のスイッチ条件の組み合わせをプログラムで作りたいのです。

よろしくお願いします。

回答No.2

chie65536（@chie65535） · ベストアンサー

5ビットの2進数で考えましょう。

以下の３２個の2進数の０と１を、各スイッチのオンオフに対応させましょう。

00000
00001
00010
00011
00100
00101
00110
00111
01000
01001
01010
01011
01100
01101
01110
01111
10000
10001
10010
10011
10100
10101
10110
10111
11000
11001
11010
11011
11100
11101
11110
11111

お礼

有難うございます。

Excelにて、置換してこの３２個のパターンを活用させていただきます。

回答No.3

eden3616

>これをもとに、VBA形式でやってみます。

ビット演算で・・・VBAでならこんなかんじです。

Sub test()
Dim inp As String
Dim sw As Variant
Dim mySw As Variant
Dim anSw As Integer
Dim msg As String

'ONにするスイッチを設定
inp = InputBox("ONとするスイッチNo1～5の番号をカンマ区切りで入力", "スイッチ設定", "1,3,5")
If inp = "" Then Exit Sub
sw = Split(inp, ",")
For Each mySw In sw
　　anSw = anSw Or 1 * 2 ^ (CInt(mySw) - 1)
Next

'処理を記述
If anSw And 1 Then
　　msg = msg & "1番の処理" & vbCrLf
End If
If anSw And 2 Then
　　msg = msg & "2番の処理" & vbCrLf
End If
If anSw And 4 Then
　　msg = msg & "3番の処理" & vbCrLf
End If
If anSw And 8 Then
　　msg = msg & "4番の処理" & vbCrLf
End If
If anSw And 16 Then
　　msg = msg & "5番の処理" & vbCrLf
End If

'処理結果を表示
MsgBox msg & "以上の処理が実行されました"
End Sub

お礼

有難うございます。

今回の場合は、スイッチ番号が確定した後に、更にそのスイッチに該当するセルの条件値とあっている場合に処理を行う様にしたかったのです。。。

上記を参考にSelect　Case　を利用して、３２分類して目的を達成する事が出来ました。

回答No.1

KEIS050162

5ビットの整数の値を条件として、条件分を組み立てればよいです。

５ビットの整数：　０００００B　～　１１１１１B　の３２通りです。（後ろにBがついているのは、二進数の意味です。）

５ビットの整数は下記の様な意味になります。
例えば、
０　（00000B) 全部がOFF
７　(00111B)　　３～５番がON
10　（01010B) ２番と４番がON
３１ (1111B) 全部がON

全部の組み合わせに対してそれぞれ別の処理が必要なら、０～３１に対して、それぞれ処理を割り当てます。

Cの構文のswitch文なら、下記の様な形になります。

　unsigned char s;

　（s　の入力処理）

　switch( s & h1f ) {
　　　case 0:
　　　　　　（処理）
　　　　　　break;
　　　　case 1:
　　　　　　（処理）
　　　　　　break;

　　　　（中略　　必要なら０～３１まですべてに対してcase文を書く）

　　　　default:
　　　　　　break;
　　}

ご参考に。

お礼

有難うございます。

これをもとに、VBA形式でやってみます。