ゼロ始まりに対応！

どんな理由があって、そうなったのか知りませんが、マークシート方式で行われる予定の大学入学共通テストサンプル問題、教科「情報Ⅰ」の解答の選択肢は、始まりが「１」ではなく、「０」からになってます･･･。

ディジタルのイメージから、「０」・「１」とつながる０始まりにしたのか？
それとも他に何か０から始めなければならない必然的な理由があるのか？
サンプル問題を作成した方に、その理由をぜひ伺ってみたい気もしますが･･･

今回は、My MarkSheet Reader を、解答の選択肢「０」始まりに対応させたというお話です。

【今回の記事】

１．なんで０始まりなの？
２．教科「情報」用マークシートを作成
３．ゼロ始まりに対応
４．まとめ
５．お願いとお断り

１．なんで０始まりなの？

大学入学共通テストの理科基礎科目は例外なく、解答の選択肢の始まりは「１」から。
物理も、化学も、生物も、地学も、全部、それが「１」になってるってのは、「選択肢の始まりは１から」って、誰もがそう感じるから･･･だと思うのですが。

教科「情報」では、なぜかそれが「０」からになってる･･･。

検索してみると、そのことに注意を促すWebサイトが複数見つかります。
例えば、選択肢の番号が「０」始まりであることに気付かず、「１２１」とマークしたつもりが実際には「０１０」だった。思い込みにはくれぐれも注意しましょう！･･･みたいな。

僕は、僕のマークシートリーダーをよくする云々ではなく、今回だけは、この無視できない現実にとにかく「対応する」ことにしました！

２．教科「情報」用マークシートを作成

まずはマークシートそのものを準備しなければいけません。これが理科の場合なら、選択肢の数は８個もあれば十分です。しかし、教科「情報」では、例えば著作権関係の内容を見てみると、著作者の権利として、氏名表示権、同一性保持権、複製権、上演権、演奏権、公衆送信権、口述権、展示権、頒布権、貸与権、翻訳権、翻案権の12の権利があることがわかります。これを解答の選択肢として準備する場合があり得ますから、選択肢の数は少なくても15程度、十分な余裕を持って設定した方がよさそうです。

幸いなことに僕のマークシートリーダーは、数学での利用を想定して選択肢数は最大16個まで対応できるように作成してあります。そこで、数学用のマークシートを改造して教科「情報」用のマークシートを作成することにしました。

まず、行番号の「アイウエオ･･･」を「１２３４５･･･」に書き換えます。

次に、マークを０始まりで15まで、16個用意します。
１行分作成したら、あとはひたすらコピペします。
これを３列分繰り返して、１列25問×３で75問に対応できるマークシートとしました。

列の行番号が半角のカタカナから、半角の数字２桁になったため、解答欄座標を取得するマーカー■■■（トリプルドット）の位置に関して若干の修正が必要でしたが、何とか思った通りの形に仕上げることができました。

出来れば、問題数は100問まで対応可能としたいところですが、用紙サイズの関係もあり、75問でよしとすることにしました。どうしても75問以上の設問が必要な場合は、数学用途に２枚１セットで採点できるようにプログラムを組んであるので、それを活用すればなんとかなります。まぁ･･･試験時間60分なら、最大75問に対応していればOKでしょう。

とりあえず、マークシートは完成です。ここまでは極めて順調に推移しました。次は、いよいよプログラムの改良です。

３．ゼロ始まりに対応

どのようにプログラムを改良しようかと考えた時、一瞬、教科「情報」専用のマークシートリーダーにしようか･･･と思ったのですが、やはり、そうではなく、１つのプログラムで様々な教科・科目に対応できる方が理想だと思い直し、選択肢の始まりは「０」とするか、「１」とするか、ユーザーが選べるようにプログラムを改良することにしました。

設定欄に、最初の選択肢の番号を指定するVCLコントロールを設置するスペースを何とか作成し、そこにComboBox１個とLabelを２つ貼って、上の図のように選択肢の始まりの番号を指定できるようにしました。もちろん、ここで指定した番号は必要であればイニシャライズファイルに保存して、次回起動時も有効化されるように設定。このComboBoxの名前は思いついたまま適当に「cmbOneZeroSelect」として、読み取りコードを次のように改良します。

  begin
    //StringGridに読み取り結果を表示
    //オリジナルのプログラムは１行で終わってた
    //StringGrid1.Cells[intSG_Col,intSG_Row]:=strAnsList[intSG_k];
    //選択肢の０始まりに対応できるようコードを改良
    if cmbOneZeroSelect.Text='1' then
    begin
      StringGrid1.Cells[intSG_Col,intSG_Row]:=strAnsList[intSG_k];
    end else begin
      if (strAnsList[intSG_k]='99') or (strAnsList[intSG_k]='999') then
      begin
        StringGrid1.Cells[intSG_Col,intSG_Row]:=strAnsList[intSG_k];
      end else begin
        strAnsList[intSG_k]:=IntToStr(StrToInt(strAnsList[intSG_k])-1);
        StringGrid1.Cells[intSG_Col,intSG_Row]:=strAnsList[intSG_k];
      end;
    end;
    ・・・
  end;

早速、実行してみました！

よかった☆　期待通りに動作してくれました！

１行16選択肢で、１列に25行、これが１枚に３列あるから、マークの数は合計1200個／枚あります。MyPC環境では、マークシート１枚について1200あるマークを約250ミリ秒で読み取ってますから･･･。１秒でほぼ４枚、１クラス40名分なら約10秒で読み取り完了です。

自分で言うのもなんですが、結構、高速に動作しているんじゃないか･･･と。

ただ、10万枚くらいは手作業で採点できそうな時間を開発に費やしてますが･･･。

４．まとめ

ようやく、大学入学共通テストの教科「情報」に対応したマークシートリーダーが出来ました。解答欄の選択肢の始まりが「０」か、「１」か、ただそれだけのことなのですが、両方にきちんと対応するのは、やっぱりそれなりに大変でした。

５．お願いとお断り

このサイトの内容を利用される場合は、自己責任でお願いします。ここに記載した内容を利用した結果、利用者および第三者に損害が発生したとしても、このサイトの管理者は一切責任を負えません。予め、ご了承ください。

反撃を開始するぞ！

【今回の記事】

１．色が消えた！
２．BYODがあった
３．反撃開始！
４．お願いとお断り

１．色が消えた！

そのマシンを僕たちはCIJP３号機と呼んでいた･･･。
いちおう、解説すると、３機めのColor Inkjet PrinterだからCIJP３号機。規定の印刷契約枚数まではカラー・モノクロ問わず、同一料金で印刷可能な、愛すべきマシンだったが･･･。

今、僕の隣に CIJP３号機はいない。

あのマシンさえ、あれば･･･。この２週間、何度、その思いを繰り返したか、わからない。
気がつけば空を見上げて。なつかしい人たちの面影を思い浮かべて、涙し、大量印刷可能なマシンは、モノクロの輪転機しかない環境に涙し、毎日、心が折れに、折れまくった。

大量カラー印刷。それが「当たり前」に出来た世界から、「まったく」出来ない世界へ来たのだから、そう思うのは当然だけど。

正直、なんとかなるんじゃないか･･･と、あまく考えていた部分もあって･･･。
とにかく、このままでは命懸けで作った My Secret Weapon^※1 が使えない。
マークシートリーダーは、カラー印刷ができなくてもまだなんとかなりそうだけれど･･･。手書き答案採点プログラムの返却用答案画像だけは･･･「赤」が使えないと、どうにもならない。

^※1「赤」で採点記号を答案画像に印字する、手書き答案の採点プログラムのこと。

例えがよくないかもしれないが、心境的には、高性能（？）ミサイルはあるんだけれど、その発射装置が破壊されたってところだ。

せめて２色印刷^※2ができないか･･･？

^※2２色印刷は、普通「黒」＋カラー１色（例：赤）で行う印刷のこと。フルカラー印刷に比較すれば、ローコストでインパクトのある資料が作成できる。

そう考え、取り敢えず事務方の責任者にそれとなく伺ってみたが、現状、難しいではなく、「無理」である とのこと。しゅんとして孤独な作業部屋に戻り、また、空を見上げて、心に涙の雨を降らす。空は･･･あんなに青く、美しく、晴れて、きれいなのに。

なぜ･･･。

僕は聞きたいよ。これまでのすべてが、嘘だったって、思えばいいの？

やりたいことは、〇や × 、合計点を赤で印刷したいだけなんだけど･･･。

きっと、月面に一人取り残されて、太陽光の散乱のない、真っ暗な空に浮かぶ青い地球をみたら、こんな気持ちになるんじゃないか･･･。

モノクロームの世界から眺める、フルカラーの地球。
あぁ、僕はあそこに住んでいたんだって･･･。

たのしかったなー。（T_T）

こうなったら、いっそのこと･･･

たかが２５０万だろ？
個人的に購入する分には何の問題もない はずだ。
思い切って、マシンを買うか？

でも、よく考えろ･･･
Delphi の使用許諾ライセンスが１０個分買えるぞ。

バカ！
そんなにDelphi買って、どぉすんだ？

Object Pascalの信者は、絶滅危惧種の生存個体数グラフのように減少の一途をたどっているはずだ･･･

（それは〇県の〇科（科目名：〇）の教員数も同じだと思うが･･･）

だから Embarcadero Technologies, Inc. さんの営業収益増に貢献することはきみの悲願だろ？　Delphiの未来がかかってるんだ･･･

あぁでも、今は･･･カラー印刷がどぉしてもしたいんだ。
Ａ社の営業担当の方の名刺は、大切に保存してある。
電話して『ボク、１台買います！』って言えば、
それで済む話じゃないか。

おまえには、そのガッツと勇気がないのか･･･

（それは「勇気」ではなく、「無茶・無謀」だよ：亡くなった祖母の言葉）

ばぁちゃん、ごめんよ。
オレ、やっぱり大人になんか、なれないよ･･･

モノクロームの世界では、誰も気にしないことで、また、オレはこんなに悩んでる。なぜ、毎回毎回、オレばかり、誰も悩まないことで悩むんだ。

ふと THE STREET SLIDERS の、あの名曲が心に浮かぶ･･･

この曲、リアルタイムで聴いてたんだ･･･。
確か･･･大学２、３年の頃だから、もう30年も前のことだ･･･。

Please get out of my mind.
Please get out of my mind.
抜け殻になっちまうからさ。

Please get out of my mind.
Please get out of my mind.
何処かへ、消え失せてくれ。

THE STREET SLIDERS 「GET OUT OF MY MIND」より引用

あぁ･･･どうせ折れた心だ。
抜け殻のような気持ちを抱えて、
ひとりで苦しむのは、もうたくさんだ･･･

こんな消え失せて欲しい現実なんかに負けてたまるか･･･
七転八倒の人生でいいじゃないか･･･
何回倒れたって、オレは起き上がって見せる･･･

ここから抜け出すんだ。
今までだって何とかしてきたじゃないか･･･
そうだ･･･ ここに色がないのなら、
オレが色をつくってやる。

この色の消えた世界に･･･

２．BYODがあった

挫けそうな気持ちを抱えたまま、起案文書を書く。どうしても･･･、どうしても、このままでは終われない。My Secret Weapon が「もし使える状態」になれば、働き方改革にも大いに貢献できるはずだ。僕にできる唯一の社会貢献じゃないか。それに･･･

『僕がこの世から消えた後でも、動くプログラムを創る』

この夢を叶えないうちは死ねない･･･。なにか･･･、なにか、いい方法はないか･･･。
また、くすんだ窓ガラスの向こう側の空を見上げる、気がつけば、この２週間ですっかりそれがクセになってしまった･･･。

ふと、空よりずっと近いところ、天井に無線LANのアンテナが見えるのに気づく･･･

あの部屋の前の廊下にも･･･
その隣の部屋の前の廊下にも･･･
その隣の隣の部屋の前の廊下にも･･･それが･･･ある

そうだ。BYOD（Bring Your Own Device）環境があった。
カラー印刷の「紙」じゃなくて、「画像データ」、または「PDF文書」を、個人所有のタブレットに送信するんだ･･･。せっかく整備したBYOD環境の活用にもつながるし･･･。なにより「紙」を大量に消費するという、My Secret Weapon の最大の弱点も解消できる！

最高の解決方法だ！
なんとかなりそうだ！！

３．反撃開始！

スキャナーは幸い、使い慣れたものと同機種の複合機が、これまた幸い、僕の自由になる環境下に１台あった。ただ、スキャンした画像の転送先が設定されていなかったので、記憶を頼りにNASの中に適当なフォルダを作成して、そこに転送されるよう設定。セキュリティの部分でちょっと引っ掛かったけど、なんとか、クリア。そのへんにあったA4の印刷物を使ってテストした結果も良好。これで答案の読み取り準備はOKだ。

次は、僕のプログラムの改良。

まずは、マークシートリーダーで使用するExcelのマクロだ。今のままでは紙への印刷しかできないから、CheckBoxを追加して、これにチェックマークを入れて印刷ボタンをクリックしたら、採点結果を通知するPDFファイルを作成するようにすればイイ。

VBA（Visual Basic for Applications）は、そんなに詳しくないけど、Object Pascal よりメジャーだし、参考資料はWebに山のようにあるはずだ。きっと、なんとか、なる･･･

TabIndexも忘れずに変更。開始番号のテキストボックスのTabIndexが０、終了番号のテキストボックスは１、追加したチェックボックスは２、印刷実行のコマンドボタンは３、キャンセルボタンは４に設定する。

なんで、そうなってるのか、理解に苦しむんだけど、Delphiと違って、VBAでは「標準仕様」で、なんにもプログラムコードを書かなくてもEnterキー押し下げでフォーカスがTabIndexで指定したコントロールへ「勝手に」移動する。そのようなonKeyPress イベントが予め実装されているようだ。

Enterキー押し下げで、他の動作をさせたい場合はどうするのか知らないけど、便利と言えば便利な「標準仕様」であることは言うまでもない。でも、Delphiみたいな、すべてをプログラマが制御できる環境に慣れると、VBAの「標準仕様」には驚きというか、恐怖に近いものを感じてしまう。これは僕だけのことだろうか･･･。

この動作はDelphiのObject Pascalなら、次のコードを書かなければ実現できない。

//TEditのonKeyPress イベント
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  //Enterキーで次のコントロールへ
  if key = #13 then begin
    keybd_event(VK_TAB,0,0,0);
    Key := #0;
  end;
  //入力制限する場合 ここに記述する

end;

Form1のKeyPreview を True にする必要があったと思うが、状況によっては、これも使える。

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  //リターンキーで移動させる
  if Key = #13 then
  begin
    SelectNext(ActiveControl, True, True);
    Key := #0;
  end;
end;

だから、僕が作ったVBAのGUIをマウスなしで操作するなら、設計時にコントロールを移動したい順番にTabIndexを指定しておき、実行時には、まず開始番号をテキストボックスへ入力してEnter、次に終了番号をテキストボックスに入力してEnter、チェックボックスへフォーカスが勝手に移動したら、スペースキーを押し下げてチェックをON／OFFし、Tabキーを押してフォーカスを印刷実行のコマンドボタンへ移動。Enterキー押し下げで、印刷（or PDFファイル作成）が実行という手順になる。

Windows標準のコントロールの移動は、Enterキーではなく、Tabキーであることを忘れてはいけない。

印刷＆PDFファイル作成部分は･･･

Private Sub CommandButton1_Click()

    Dim PrintNo1 As Integer
    Dim PrintNo2 As Integer
    Dim i As Integer
    
    'PDF出力用に追加
    Dim Rng As Range
    Dim fName As String
    
    If UserForm1.TextBox1.Text = "" Then
        MsgBox ("開始番号を半角数字で入力してください。")
        TextBox1.SetFocus
        Exit Sub
    End If
    
    If UserForm1.TextBox2.Text = "" Then
        MsgBox ("終了番号を半角数字で入力してください。")
        TextBox2.SetFocus
        Exit Sub
    End If
    
    PrintNo1 = UserForm1.TextBox1.Text
    PrintNo2 = UserForm1.TextBox2.Text
    i = PrintNo1

    For i = PrintNo1 To PrintNo2
        Range("A2").Select
        ActiveCell.FormulaR1C1 = i
        Range("B6:AB38").Select
    
        ActiveSheet.PageSetup.PrintArea = "$B$6:$AB$38"

        'PDFにする範囲を指定
        Set Rng = ActiveSheet.Range("B6:AB38")

        'PDFファイル名
        If i < 10 Then
            fName = Range("C8") & "0" & Range("E8") & "_" & Range("G8")
        Else
            fName = Range("C8") & Range("E8") & "_" & Range("G8")
        End If

        '全角＆半角スペースを削除する
        fName = Replace(fName, " ", "")
        fName = Replace(fName, "　", "")
        
        If Not CheckBox1.Value Then
            '紙に印刷（テスト時にはここをコメント化する）
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        Else
            'PDF出力
            Rng.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=ActiveWorkbook.Path & "\" & fName & ".pdf"
        End If
        
    Next i
    
    Range("A2").Select

End Sub

なんでVBAなのに、PDF作成部分の代入演算子（？）が := なんだ？って疑問が･･･生まれたけど、取り敢えず、動かす方が先。

=と:=の違い

http://officetanaka.net/excel/vba/beginner/02.htm

上の疑問について、調べてみた結果、VBAで、引数に値を設定するときに使用される記号が「:=」であるとのこと。初めて知りました。

サンプルデータだから、超簡略化して･･･

これで実行すると･･･

結果は･･･、次の通り。

PDFファイルの内容は･･･

あとは、このPDFファイルをBYOD環境を利用して、個人所有のタブレット端末へ送信する仕組みを構築すれば、いい。それは仲間と協力すれば、必ずできる。

魂の抜け殻みたいな状態の･･･今の僕でも、取り敢えず、ここまでは･･･できた。
明日、朝、目が覚めたら、手書き答案採点プログラムの合計点印刷手続きを改良して、「紙」へ印刷するのではなく、上で行った作業と同様に、今度は指定フォルダ内に返却用答案画像ファイルを作成＆保存できるようにしよう。アルゴリズムは同じだから、Delphiでも必ずできるはずだ。

プログラムも、僕も、よくなるんだ･･･。
それで、いいじゃないか。
また、ゼロから創めればいいだけのことじゃないか･･･。

今までだって、全部ゼロから作ってきたんだ。
そうだ。僕は･･･ 精一杯、やった。
その時々で、僕にできることは全部やった。
後悔など、何ひとつない。

それが今、また、ゼロに戻っただけだ。

この･･･色のない世界に、色を創るのは僕だ。
僕にしか、出来ない仕事だ。
僕が色を創るんだ。

僕があきらめない限り、
この夢は･･･実現できる可能性を残している。

僕にしか、出来ない仕事をしてみせる･･･。

あきらめるもんか。
やるぞ！

４．お願いとお断り

このサイトの内容を利用される場合は、自己責任でお願いします。記載した内容を利用した結果、利用者および第三者に損害が発生したとしても、このサイトの管理者は一切責任を負えません。予め、ご了承ください。