７セグメントLEDコードジェネレータ(AWK)
７セグメントLEDは、表示器として利用される 便利なLEDです。７セグメントは、独立したLEDが７個入っているので 意味のある表示をするには、１と０の組合せが必要に なります。
'0' → (a,b,c,d,e,f,g) = (1,1,1,1,1,1,0) '1' → (a,b,c,d,e,f,g) = (0,1,1,0,0,0,0) '2' → (a,b,c,d,e,f,g) = (1,1,0,1,1,0,1) '3' → (a,b,c,d,e,f,g) = (1,1,1,1,0,0,1) '4' → (a,b,c,d,e,f,g) = (0,1,1,0,0,1,1) '5' → (a,b,c,d,e,f,g) = (1,0,1,1,0,1,1) '6' → (a,b,c,d,e,f,g) = (1,0,1,1,1,1,1) '7' → (a,b,c,d,e,f,g) = (1,1,1,0,0,1,0) '8' → (a,b,c,d,e,f,g) = (1,1,1,1,1,1,1) '9' → (a,b,c,d,e,f,g) = (1,1,1,1,0,1,1) C言語のように、２進数の表現をサポートして いない場合、16進数や８進数に変換したコード を指定しなければなりません。 ２進数から16進数に変換して楽をするときは スクリプト言語を利用するのが、お約束です。 Tcl/Tkを利用すると、セグメントａからｇを フィールドの＄１から＄７に対応させ、２倍 の値を加算すればよいでしょう。 BEGIN { FS = "," } { result = 0 for ( i = 7 ; i > 0 ; i-- ) { result = result * 2 + $i } printf("%s -> 0x%02X \n",$0,result) } 上のAWKスクリプトを利用して、２進数から 16進数に変換すると、次のようになります。利用したテキストファイルの内容は、以下。 1,1,1,1,1,1,0 0,1,1,0,0,0,0 1,1,0,1,1,0,1 1,1,1,1,0,0,1 0,1,1,0,0,1,1 1,0,1,1,0,1,1 1,0,1,1,1,1,1 1,1,1,0,0,1,0 1,1,1,1,1,1,1 1,1,1,1,0,1,1 この場合、正論理で変換しています。 カソードコモンの７セグメントLEDであれば、正論理扱い ですが、入手した７セグメントLEDがアノードコモンでは 負論理で扱います。 論理反転すればよいので、フィールドごとに １と０を入れ替えた後、２倍し加算します。 フィールド値のデフォルトを１としておき 対象フィールド値が１のときは、０と置換 します。 BEGIN { FS = "," } { result = 0 for ( i = 7 ; i > 0 ; i-- ) { xx = 1 if ($i == 1) { xx = 0 } result = result * 2 + xx } printf("%s -> 0x%02X \n",$0,result) } この方法で、16進数とすると以下。
８進数で表現したいときには、printfで 出力するときに、変換子を変えます。 printf("%s -> 0%03O \n",$0,result) ８進数表現は、次のようになります。
ここまでは、０から９の表現でしたが ＡからＦの場合、２進数のパターンを 付加するだけで、目的のコードを生成 できます。 目的のコードだけを取り出す場合には パイプを利用して、フィールドを指定 します。
目次 前 次