プチコンまとめWiki (初代/mkII)

投稿プログラム : QRコード作成

パンくずリスト

2011年04月24日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム 実用ツール 初代対応 QRコード

概要

与えられた文字列からQRコードを作成します。
ただし、バージョン10、誤り訂正レベルL、8ビットバイトモード、マスクパターン011固定です。

LINPUTの仕様で32文字までしか入力できませんが、実際には271文字まで変換可能です。
(プチコンの文字数制限を超えているので、フルに使うのは難しいですが)

なお、作成に当たっては、こちらのサイトを参考にさせていただきました。

出力するQRコードの変更

プログラムの最初の方の数値を修正することで、モード以外は変更できるようになっています。
詳細はQRコードの仕様(JISX0510、閲覧のみならJISCのページから可能)を参照してください。

変数名行番号内容
VER2バージョン
ECL2誤り訂正レベル(ビット順を逆にする)
MASK2マスクパターン(ビット順を逆にする)
TOTAL3総コード語数
RSB3RSブロック数
ECW3RSブロックごとの誤り訂正コード語数
F(I)8生成多項式のαの指数
VINF12型番情報(必要ない場合は0)
APC12位置合わせパターンの中心の行座標数(必要ない場合は1)
P(I)17位置合わせパターンの中心の行座標(必要ない場合は6)

特に、マスクパターンについては、本来であれば自動的に調整されるべき項目なので、
認識率が悪いようであれば0〜7の間で変えてください。

一応、JISX0510から設定内容を調べる方法を簡単に説明します。

  1. QRコード化したい文字数の確認。
    例えば、MEM$を保存したいなら256文字
  2. 表7〜10から、希望の8ビットバイト文字数が入る型番(バージョン)と誤り訂正レベルを調べる。
    271文字入る「バージョン10、誤り訂正レベルL」を選択(VER=10)
  3. 表12〜18から、バージョンと誤り訂正レベルに対応する総コード語数、RSブロック数、RSブロックごとの誤り訂正コード語数を調べる。
    「バージョン10、誤り訂正レベルL」から、TOTAL=346、RSB=2+2=4、ECW=72/4=18
  4. 表20からマスクパターンを、表22から誤り訂正レベルを調べ、ビット順を逆にする。
    マスクパターンはとりあえず&B011、誤り訂正レベルはLだから&B01だが、ビット順を逆にするので MASK=&B110、ECL=&B10
  5. 附属書A表1〜5から、誤り訂正コード語数ECWに対応する生成多項式を見つけ、αの指数を抜き出す。
    ECW=18なので、F(I)=215,234,...,96,153
  6. 附属書D表1から、バージョンに対応する型番情報を調べる。
    VER=10なので、VINF=&H0A4D3
  7. 附属書E表1から、バージョンに対応する位置合わせパターンの中心の行座標を調べる。APCは座標の数。
    VER=10なので、P(I)=6,28,50、APC=3

スクリーンショット・動画

ありません。

QR コード

プチコンmkII 向けの QR コードです。

1/32/3
qr0.pngqr1.png
3/3-
qr2.png

作ったQRコード載せ場

プログラムリスト

  • 2011/04/25 (月) 20:02:40　2次元配列を使うのをやめて、プログラムを少し短くしました
  • 2011/05/02 (月) 22:53:08　最大文字数まで入れるとエラーになるバグ修正と、認識しやすいように拡大処理追加
  1. ＣＬＥＡＲ
  2. ＶＥＲ＝１０：ＥＣＬ＝２：ＭＡＳＫ＝６
  3. ＴＯＴＡＬ＝３４６：ＲＳＢ＝４：ＥＣＷ＝１８
  4. ＤＩＭ　Ｆ（ＥＣＷ）
  5. ＦＯＲ　Ｉ＝０　ＴＯ　ＥＣＷ−１
  6. 　ＲＥＡＤ　Ｆ（Ｉ）
  7. ＮＥＸＴ
  8. ＤＡＴＡ　２１５，２３４，１５８，９４，１８４
  9. ＤＡＴＡ　９７，１１８，１７０，７９，１８７
  10. ＤＡＴＡ　１５２，１４８，２５２，１７９，５
  11. ＤＡＴＡ　９８，９６，１５３
  12. ＶＩＮＦ＝＆Ｈ０Ａ４Ｄ３：ＡＰＣ＝３
  13. ＤＩＭ　Ｐ（ＡＰＣ）
  14. ＦＯＲ　Ｉ＝０　ＴＯ　ＡＰＣ−１
  15. 　ＲＥＡＤ　Ｐ（Ｉ）
  16. ＮＥＸＴ
  17. ＤＡＴＡ　６，２８，５０
  19. ＣＣＩ＝１＋（ＶＥＲ＞＝１０）：ＳＩＺＥ＝１７＋ＶＥＲ＊４
  20. ＤＷ＝ＦＬＯＯＲ（ＴＯＴＡＬ／ＲＳＢ）−ＥＣＷ
  21. ＭＡＧ＝ＦＬＯＯＲ（１９２／（ＳＩＺＥ＋８））
  22. ＯＸ＝ＦＬＯＯＲ（（２５６−ＳＩＺＥ＊ＭＡＧ）／２）
  23. ＯＹ＝ＦＬＯＯＲ（（１９２−ＳＩＺＥ＊ＭＡＧ）／２）
  24. ＤＩＭ　Ｄ（ＴＯＴＡＬ−ＥＣＷ＊ＲＳＢ＋１），Ｏ（ＴＯＴＡＬ），Ｔ（ＤＷ＋ＥＣＷ＋１），ＢＩ（ＲＳＢ）
  25. ＢＩ（０）＝０：ＢＩＣ＝ＲＳＢ−ＴＯＴＡＬ％ＲＳＢ
  26. ＦＯＲ　Ｉ＝１　ＴＯ　ＲＳＢ−１
  27. 　ＢＩ（Ｉ）＝ＢＩ（Ｉ−１）＋ＤＷ＋（Ｉ−１＞＝ＢＩＣ）
  28. ＮＥＸＴ
  29. ＤＩＭ　ＥＩ（２５５），ＩＥ（２５６）
  30. ＥＩ（０）＝１
  31. ＦＯＲ　Ｉ＝１　ＴＯ　２５４
  32. 　ＥＩ（Ｉ）＝ＥＩ（Ｉ−１）＊２
  33. 　ＩＦ　ＥＩ（Ｉ）＞＝２５６　ＴＨＥＮ　ＥＩ（Ｉ）＝（ＥＩ（Ｉ）−２５６）　ＸＯＲ　＆Ｈ１Ｄ
  34. ＮＥＸＴ
  35. ＦＯＲ　Ｉ＝０　ＴＯ　２５４
  36. 　ＩＥ（ＥＩ（Ｉ））＝Ｉ
  37. ＮＥＸＴ
  39. ＬＩＮＰＵＴ　”？”；Ａ＄
  40. Ｌ＝ＬＥＮ（Ａ＄）
  41. Ｄ（０）＝４
  42. Ｄ（１）＝ＦＬＯＯＲ（Ｌ／２５６）
  43. Ｄ（ＣＣＩ）＝Ｌ％２５６
  44. ＦＯＲ　Ｉ＝０　ＴＯ　Ｌ−１
  45. 　Ｄ（Ｉ＋ＣＣＩ＋１）＝ＡＳＣ（ＭＩＤ＄（Ａ＄，Ｉ，１））
  46. ＮＥＸＴ
  47. ＦＯＲ　Ｉ＝０　ＴＯ　Ｌ＋ＣＣＩ
  48. 　Ｄ（Ｉ）＝（Ｄ（Ｉ）＊１６＋ＦＬＯＯＲ（Ｄ（Ｉ＋１）／１６））％２５６
  49. ＮＥＸＴ
  50. ＦＯＲ　Ｉ＝１　ＴＯ　ＴＯＴＡＬ−ＥＣＷ＊ＲＳＢ−Ｌ−ＣＣＩ−１
  51. 　Ｄ（Ｌ＋Ｉ＋ＣＣＩ）＝＆Ｈ１１＋（Ｉ％２＝＝１）＊（＆ＨＥＣ−＆Ｈ１１）
  52. ＮＥＸＴ
  54. Ｉ＝０
  55. ＦＯＲ　Ｊ＝０　ＴＯ　ＤＷ−１
  56. 　ＦＯＲ　Ｋ＝０　ＴＯ　ＲＳＢ−１
  57. 　　Ｏ（Ｉ）＝Ｄ（ＢＩ（Ｋ）＋Ｊ）：Ｉ＝Ｉ＋１
  58. 　ＮＥＸＴ
  59. ＮＥＸＴ
  60. ＦＯＲ　Ｋ＝ＢＩＣ　ＴＯ　ＲＳＢ−１
  61. 　Ｏ（Ｉ）＝Ｄ（ＢＩ（Ｋ）＋Ｊ）：Ｉ＝Ｉ＋１
  62. ＮＥＸＴ
  64. ＦＯＲ　Ｉ＝０　ＴＯ　ＲＳＢ−１
  65. 　Ｌ＝ＤＷ＋（Ｉ＞＝ＢＩＣ）
  66. 　ＦＯＲ　Ｊ＝０　ＴＯ　Ｌ−１
  67. 　　Ｔ（Ｊ）＝Ｄ（ＢＩ（Ｉ）＋Ｊ）
  68. 　ＮＥＸＴ
  69. 　ＦＯＲ　Ｊ＝０　ＴＯ　ＥＣＷ−１
  70. 　　Ｔ（Ｊ＋Ｌ）＝０
  71. 　ＮＥＸＴ
  72. 　ＦＯＲ　Ｊ＝０　ＴＯ　Ｌ−１
  73. 　　ＩＦ　Ｔ（Ｊ）＝＝０　ＧＯＴＯ　＠ＳＫＩＰ１
  74. 　　Ｅ＝ＩＥ（Ｔ（Ｊ））
  75. 　　ＦＯＲ　Ｋ＝０　ＴＯ　ＥＣＷ−１
  76. 　　　Ｔ（Ｊ＋Ｋ＋１）＝Ｔ（Ｊ＋Ｋ＋１）　ＸＯＲ　ＥＩ（（Ｆ（Ｋ）＋Ｅ）％２５５）
  77. 　　ＮＥＸＴ
  78. 　　＠ＳＫＩＰ１
  79. 　ＮＥＸＴ
  80. 　ＦＯＲ　Ｊ＝０　ＴＯ　ＥＣＷ−１
  81. 　　Ｏ（ＴＯＴＡＬ−（ＥＣＷ−Ｊ）＊ＲＳＢ＋Ｉ）＝Ｔ（Ｊ＋Ｌ）
  82. 　ＮＥＸＴ
  83. ＮＥＸＴ
  85. ＶＩＳＩＢＬＥ　１，１，０，０，０，０
  86. ＧＣＬＳ　＆Ｈ１Ｅ
  87. ＧＦＩＬＬ　ＯＸ，ＯＹ，ＯＸ＋ＳＩＺＥ−１，ＯＹ＋ＳＩＺＥ−１，＆Ｈ０Ｆ
  89. ＧＦＩＬＬ　ＯＸ　　，ＯＹ　　，ＯＸ＋８，ＯＹ＋８，＆Ｈ１Ｅ
  90. ＧＢＯＸ　　ＯＸ　　，ＯＹ　　，ＯＸ＋６，ＯＹ＋６，＆Ｈ１Ｆ
  91. ＧＦＩＬＬ　ＯＸ＋２，ＯＹ＋２，ＯＸ＋４，ＯＹ＋４，＆Ｈ１Ｆ
  92. ＧＦＩＬＬ　ＯＸ＋ＳＩＺＥ−８，ＯＹ　　，ＯＸ＋ＳＩＺＥ−１，ＯＹ＋８，＆Ｈ１Ｅ
  93. ＧＢＯＸ　　ＯＸ＋ＳＩＺＥ−７，ＯＹ　　，ＯＸ＋ＳＩＺＥ−１，ＯＹ＋６，＆Ｈ１Ｆ
  94. ＧＦＩＬＬ　ＯＸ＋ＳＩＺＥ−５，ＯＹ＋２，ＯＸ＋ＳＩＺＥ−３，ＯＹ＋４，＆Ｈ１Ｆ
  95. ＧＦＩＬＬ　ＯＸ　　，ＯＹ＋ＳＩＺＥ−８，ＯＸ＋８，ＯＹ＋ＳＩＺＥ−１，＆Ｈ１Ｅ
  96. ＧＢＯＸ　　ＯＸ　　，ＯＹ＋ＳＩＺＥ−７，ＯＸ＋６，ＯＹ＋ＳＩＺＥ−１，＆Ｈ１Ｆ
  97. ＧＦＩＬＬ　ＯＸ＋２，ＯＹ＋ＳＩＺＥ−５，ＯＸ＋４，ＯＹ＋ＳＩＺＥ−３，＆Ｈ１Ｆ
  99. ＦＯＲ　Ｉ＝８　ＴＯ　ＳＩＺＥ−９
  100. 　ＧＰＳＥＴ　ＯＸ＋Ｉ，ＯＹ＋６，＆Ｈ１Ｅ＋（Ｉ％２＝＝０）
  101. 　ＧＰＳＥＴ　ＯＸ＋６，ＯＹ＋Ｉ，＆Ｈ１Ｅ＋（Ｉ％２＝＝０）
  102. ＮＥＸＴ
  103. ＧＰＳＥＴ　ＯＸ＋８，ＯＹ＋ＳＩＺＥ−８，＆Ｈ１Ｆ
  105. ＦＯＲ　Ｉ＝０　ＴＯ　ＡＰＣ−１
  106. 　ＦＯＲ　Ｊ＝０　ＴＯ　ＡＰＣ−１
  107. 　　ＩＦ（Ｉ＝＝０　ＡＮＤ　Ｊ＝＝０）ＯＲ（Ｉ＝＝０　ＡＮＤ　Ｊ＝＝ＡＰＣ−１）ＯＲ（Ｉ＝＝ＡＰＣ−１　ＡＮＤ　Ｊ＝＝０）ＧＯＴＯ　＠ＳＫＩＰ２
  108. 　　ＧＢＯＸ　ＯＸ＋Ｐ（Ｉ）−２，ＯＹ＋Ｐ（Ｊ）−２，ＯＸ＋Ｐ（Ｉ）＋２，ＯＹ＋Ｐ（Ｊ）＋２，＆Ｈ１Ｆ
  109. 　　ＧＢＯＸ　ＯＸ＋Ｐ（Ｉ）−１，ＯＹ＋Ｐ（Ｊ）−１，ＯＸ＋Ｐ（Ｉ）＋１，ＯＹ＋Ｐ（Ｊ）＋１，＆Ｈ１Ｅ
  110. 　　ＧＰＳＥＴ　ＯＸ＋Ｐ（Ｉ），ＯＹ＋Ｐ（Ｊ），＆Ｈ１Ｆ
  111. 　　＠ＳＫＩＰ２
  112. 　ＮＥＸＴ
  113. ＮＥＸＴ
  115. ＩＦ　ＶＥＲ＜７　ＧＯＴＯ　＠ＳＫＩＰ３
  116. Ｄ＝ＶＩＮＦ
  117. ＦＯＲ　Ｉ＝０　ＴＯ　１７
  118. 　ＧＰＳＥＴ　ＯＸ＋ＳＩＺＥ−１１＋Ｉ％３，ＯＹ＋Ｉ／３，＆Ｈ１Ｅ＋（Ｄ　ＡＮＤ　１）
  119. 　ＧＰＳＥＴ　ＯＸ＋Ｉ／３，ＯＹ＋ＳＩＺＥ−１１＋Ｉ％３，＆Ｈ１Ｅ＋（Ｄ　ＡＮＤ　１）
  120. 　Ｄ＝ＦＬＯＯＲ（Ｄ／２）
  121. ＮＥＸＴ
  122. ＠ＳＫＩＰ３
  124. Ｘ＝ＳＩＺＥ−２：Ｙ＝ＳＩＺＥ：Ｆ＝１：Ｄ＝−１
  125. ＦＯＲ　Ｉ＝０　ＴＯ　ＴＯＴＡＬ−１
  126. 　Ｊ＝１２８
  127. 　＠ＬＯＯＰ１
  128. 　　＠ＬＯＯＰ２
  129. 　　　Ｘ＝Ｘ＋Ｆ＊２−１：Ｙ＝Ｙ＋Ｆ＊Ｄ：Ｆ＝１−Ｆ
  130. 　　　ＩＦ　Ｙ＜０　ＴＨＥＮ　Ｙ＝０：Ｘ＝Ｘ−２：Ｄ＝１
  131. 　　　ＩＦ　Ｙ＞＝ＳＩＺＥ　ＴＨＥＮ　Ｙ＝ＳＩＺＥ−１：Ｘ＝Ｘ−２：Ｄ＝−１
  132. 　　　ＩＦ　Ｘ＝＝６　ＴＨＥＮ　Ｘ＝Ｘ−１
  133. 　　ＩＦ　ＧＳＰＯＩＴ（ＯＸ＋Ｘ，ＯＹ＋Ｙ）！＝＆Ｈ０Ｆ　ＧＯＴＯ　＠ＬＯＯＰ２
  134. 　　ＩＦ　Ｏ（Ｉ）　ＡＮＤ　Ｊ　ＴＨＥＮ　ＧＰＳＥＴ　ＯＸ＋Ｘ，ＯＹ＋Ｙ，＆Ｈ０Ｅ
  135. 　　Ｊ＝Ｊ／２
  136. 　ＩＦ　Ｊ＞＝１　ＧＯＴＯ　＠ＬＯＯＰ１
  137. ＮＥＸＴ
  139. ＦＯＲ　Ｉ＝０　ＴＯ　ＳＩＺＥ−１
  140. 　ＦＯＲ　Ｊ＝０　ＴＯ　ＳＩＺＥ−１
  141. 　　ＯＮ　ＭＡＳＫ　ＧＯＳＵＢ　＠０，＠４，＠２，＠６，＠１，＠５，＠３，＠７
  142. 　　Ｃ＝ＧＳＰＯＩＴ（ＯＸ＋Ｊ，ＯＹ＋Ｉ）
  143. 　　ＩＦ　Ｃ＜＆Ｈ１０　ＡＮＤ　Ａ　ＴＨＥＮ　ＧＰＳＥＴ　ＯＸ＋Ｊ，ＯＹ＋Ｉ，Ｃ　ＸＯＲ　１
  144. 　ＮＥＸＴ
  145. ＮＥＸＴ
  147. Ｄ＝ＭＡＳＫ＊４＋ＥＣＬ：Ｔ＝Ｄ
  148. ＦＯＲ　Ｉ＝０　ＴＯ　４
  149. 　ＩＦ　Ｔ　ＡＮＤ　１　ＴＨＥＮ　Ｔ＝Ｔ　ＸＯＲ　＆Ｈ７６５
  150. 　Ｔ＝Ｔ／２
  151. ＮＥＸＴ
  152. Ｄ＝Ｄ＋Ｔ＊３２　ＸＯＲ　＆Ｈ２４１５
  153. Ｘ＝０：Ｙ＝ＳＩＺＥ−１
  154. ＦＯＲ　Ｉ＝０　ＴＯ　１４
  155. 　ＧＰＳＥＴ　ＯＸ＋Ｘ，ＯＹ＋８，＆Ｈ１Ｅ＋（Ｄ　ＡＮＤ　１）
  156. 　ＧＰＳＥＴ　ＯＸ＋８，ＯＹ＋Ｙ，＆Ｈ１Ｅ＋（Ｄ　ＡＮＤ　１）
  157. 　Ｘ＝Ｘ＋１＋（Ｘ＝＝５）：Ｙ＝Ｙ−１−（Ｙ＝＝７）
  158. 　ＩＦ　Ｘ＝＝８　ＴＨＥＮ　Ｘ＝ＳＩＺＥ−８：Ｙ＝８
  159. 　Ｄ＝ＦＬＯＯＲ（Ｄ／２）
  160. ＮＥＸＴ
  161. 　
  162. ＦＯＲ　Ｉ＝ＳＩＺＥ−１　ＴＯ　０　ＳＴＥＰ　−１
  163. 　Ｙ＝ＯＹ＋Ｉ＊ＭＡＧ
  164. 　ＦＯＲ　Ｊ＝ＳＩＺＥ−１　ＴＯ　０　ＳＴＥＰ　−１
  165. 　　Ｘ＝ＯＸ＋Ｊ＊ＭＡＧ
  166. 　　ＧＦＩＬＬ　Ｘ，Ｙ，Ｘ＋ＭＡＧ−１，Ｙ＋ＭＡＧ−１，ＧＳＰＯＩＴ（ＯＸ＋Ｊ，ＯＹ＋Ｉ）
  167. 　ＮＥＸＴ
  168. ＮＥＸＴ
  169. 　
  170. ＶＩＳＩＢＬＥ　０，１，０，０，０，１
  171. ＦＯＲ　Ｉ＝０　ＴＯ　１：Ｉ＝ＢＵＴＴＯＮ（）！＝０：ＮＥＸＴ
  172. ＧＣＬＳ　０：ＶＩＳＩＢＬＥ　１，１，１，１，１，１：ＥＮＤ
  174. ＠０
  175. Ａ＝（Ｉ＋Ｊ）％２＝＝０：ＲＥＴＵＲＮ
  176. ＠１
  177. Ａ＝Ｉ％２＝＝０：ＲＥＴＵＲＮ
  178. ＠２
  179. Ａ＝Ｊ％３＝＝０：ＲＥＴＵＲＮ
  180. ＠３
  181. Ａ＝（Ｉ＋Ｊ）％３＝＝０：ＲＥＴＵＲＮ
  182. ＠４
  183. Ａ＝（ＦＬＯＯＲ（Ｉ／２）＋ＦＬＯＯＲ（Ｊ／３））％２＝＝０：ＲＥＴＵＲＮ
  184. ＠５
  185. Ａ＝Ｉ＊Ｊ％２＋Ｉ＊Ｊ％３＝＝０：ＲＥＴＵＲＮ
  186. ＠６
  187. Ａ＝（Ｉ＊Ｊ％２＋Ｉ＊Ｊ％３）％２＝＝０：ＲＥＴＵＲＮ
  188. ＠７
  189. Ａ＝（Ｉ＊Ｊ％３＋（Ｉ＋Ｊ）％２）％２＝＝０：ＲＥＴＵＲＮ

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.098 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:20 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30