24 ポート分の入力確認とロータリーエンコーダの扱い方を学ぶところまで。
コミックマーケット85 受かりました。
ちゅーことで本文書いたりテストプログラム作ったりしてます。
コミケウェブカタログって当落確定すると、全サークルの当・落・抽選漏れが全て調べられちゃうんですね。
冊子及びROM版出るまでの間サークル参加情報を隠蔽出来なくなってしまった訳ですか、そうですか。
ISBN-13←→ISBN-10 変換プログラム。
サンプルその2。前回プログラムの応用編的な感じで。
ISBN1310.COB (ISBN-13→ISBN-10 変換)
IDENTIFICATION DIVISION. PROGRAM-ID. ISBN1310-VER001. AUTHOR. DUMBO. DATE-WRITTEN. 11.11.2013. DATA DIVISION. WORKING-STORAGE SECTION. 01 ISBN-IN PIC X(13). 01 ISBN-TMP PIC X(9). 01 ISBN-CNT PIC 99 VALUE 9. 01 MOD-11 PIC 9(3) VALUE 11. 01 WAIT-10-2 PIC 9(3) VALUE 10. 01 TEMP PIC 9(3) VALUE ZEROS. 01 TOTAL PIC 9(3) VALUE ZEROS. 01 Q PIC 9(3). 01 R PIC 9(3). 01 CDTEMP PIC 9. 01 CDIGIT PIC X. 01 CNT PIC 99. 01 FLG PIC 9 VALUE ZERO. PROCEDURE DIVISION. MAIN. DISPLAY "ISBN-13→ISBN-10 変換プログラム ver0.01" UPON CONSOLE. PERFORM UNTIL FLG >= 1 DISPLAY "ISBN-13(13桁) を入力してください。" UPON CONSOLE ACCEPT ISBN-IN FROM CONSOLE DISPLAY "入力した ISBN-13 = " ISBN-IN UPON CONSOLE IF ISBN-IN IS NUMERIC THEN * DISPLAY "入力は正しいです。" UPON CONSOLE MOVE ISBN-IN(4:9) TO ISBN-TMP MOVE 1 TO FLG ELSE DISPLAY "入力に誤りがあります。" UPON CONSOLE END-IF END-PERFORM. *ISBN-TMPを左桁の数字から順に×10、×9…×2と乗算して、 *その結果を合計する。 PERFORM VARYING CNT FROM 1 BY 1 UNTIL CNT > ISBN-CNT COMPUTE TEMP = FUNCTION NUMVAL(ISBN-TMP(CNT:1)) COMPUTE TOTAL = (WAIT-10-2 - CNT + 1) * TEMP + TOTAL END-PERFORM. *合計÷モジュラス11=余り *→モジュラス11−余り=チェックデジット を算出する。 *結果が10ならX、11なら0、それ以外なら余り値がチェックディジット。 DIVIDE MOD-11 INTO TOTAL GIVING Q REMAINDER R. COMPUTE TEMP = MOD-11 - R. MOVE TEMP TO CDTEMP. EVALUATE TEMP WHEN 10 MOVE "X" TO CDIGIT WHEN 11 MOVE 0 TO CDIGIT WHEN OTHER MOVE CDTEMP TO CDIGIT END-EVALUATE. DISPLAY "ISBN-10 は " ISBN-TMP CDIGIT " です。" UPON CONSOLE. STOP RUN.
ISBN1013.COB (ISBN-10→ISBN-13 変換)
IDENTIFICATION DIVISION. PROGRAM-ID. ISBN1013-VER001. AUTHOR. DUMBO. DATE-WRITTEN. 11.11.2013. DATA DIVISION. WORKING-STORAGE SECTION. 01 ISBN-IN PIC X(10). 01 ISBN-TMP PIC X(12). 01 ISBN-HD PIC X(3) VALUE "978". 01 ISBN-CNT PIC 99 VALUE 12. 01 MOD-10 PIC 9(3) VALUE 10. 01 WAIT-3-1 PIC 9(3) VALUE 3. 01 ODD PIC 9(3) VALUE ZEROS. 01 EVEN PIC 9(3) VALUE ZEROS. 01 TOTAL PIC 9(3) VALUE ZEROS. 01 Q PIC 9(3). 01 R PIC 9(3). 01 CDIGIT PIC 9. 01 CNT PIC 99. 01 FLG PIC 9 VALUE ZERO. PROCEDURE DIVISION. MAIN. DISPLAY "ISBN-10→ISBN-13 変換プログラム ver0.01" UPON CONSOLE. PERFORM UNTIL FLG >= 1 DISPLAY "ISBN-10(10桁) を入力してください。" UPON CONSOLE ACCEPT ISBN-IN FROM CONSOLE DISPLAY "入力した ISBN-10 = " ISBN-IN UPON CONSOLE IF ISBN-IN IS NUMERIC OR (ISBN-IN(1:9) IS NUMERIC AND ISBN-IN(10:1) = "X") THEN * DISPLAY "入力は正しいです。" UPON CONSOLE STRING ISBN-HD DELIMITED BY SIZE ISBN-IN(1:9) DELIMITED BY SIZE INTO ISBN-TMP END-STRING MOVE 1 TO FLG ELSE DISPLAY "入力に誤りがあります。" UPON CONSOLE END-IF END-PERFORM. *ISBN-TMPを左から奇数桁の数字を合計する。 PERFORM VARYING CNT FROM 1 BY 2 UNTIL CNT > ISBN-CNT ADD FUNCTION NUMVAL(ISBN-TMP(CNT:1)) TO ODD END-PERFORM. *ISBN-TMPを左から偶数桁の数字を合計×3する。 PERFORM VARYING CNT FROM 2 BY 2 UNTIL CNT > ISBN-CNT ADD FUNCTION NUMVAL(ISBN-TMP(CNT:1)) TO EVEN END-PERFORM. COMPUTE EVEN = EVEN * WAIT-3-1. *合計÷モジュラス10=余り *→モジュラス10−余り=チェックデジット を算出する。 *結果が10なら0、それ以外なら余り値がチェックディジット。 COMPUTE TOTAL = ODD + EVEN. DIVIDE MOD-10 INTO TOTAL GIVING Q REMAINDER R. COMPUTE CDIGIT = MOD-10 - R. DISPLAY "ISBN-13 は " ISBN-TMP CDIGIT " です。" UPON CONSOLE. STOP RUN.
ISBN チェックディジット算出サンプル。
プログラミング教える用で書いてみたやつなのでそのまま業務で使うにはベタ過ぎるかもです。
つか、COBOL 知らない俺が COBOL 説いてるってのがまず訳解らんのですがねぇ…。
ISBN13.COB
IDENTIFICATION DIVISION. PROGRAM-ID. ISBN13-VER001. AUTHOR. DUMBO. DATE-WRITTEN. 11.09.2013. DATA DIVISION. WORKING-STORAGE SECTION. 01 ISBN-IN PIC X(12). 01 ISBN-CNT PIC 99 VALUE 12. 01 MOD-10 PIC 9(3) VALUE 10. 01 WAIT-3-1 PIC 9(3) VALUE 3. 01 ODD PIC 9(3) VALUE ZEROS. 01 EVEN PIC 9(3) VALUE ZEROS. 01 TOTAL PIC 9(3) VALUE ZEROS. 01 Q PIC 9(3). 01 R PIC 9(3). 01 CDIGIT PIC 9. 01 CNT PIC 99. 01 FLG PIC 9 VALUE ZERO. PROCEDURE DIVISION. MAIN. DISPLAY "ISBN13 チェックディジット算出プログラム ver0.01" UPON CONSOLE. PERFORM UNTIL FLG >= 1 DISPLAY "チェックディジットを調べる ISBN(12桁) を" - "入力してください。" UPON CONSOLE ACCEPT ISBN-IN FROM CONSOLE DISPLAY "入力した ISBN(12桁) = " ISBN-IN UPON CONSOLE IF ISBN-IN IS NUMERIC THEN * DISPLAY "入力は正しいです。" UPON CONSOLE MOVE 1 TO FLG ELSE DISPLAY "入力に誤りがあります。" UPON CONSOLE END-IF END-PERFORM. *ISBN-INを左から奇数桁の数字を合計する。 PERFORM VARYING CNT FROM 1 BY 2 UNTIL CNT > ISBN-CNT ADD FUNCTION NUMVAL(ISBN-IN(CNT:1)) TO ODD END-PERFORM. *ISBN-INを左から偶数桁の数字を合計×ウェイト3する。 PERFORM VARYING CNT FROM 2 BY 2 UNTIL CNT > ISBN-CNT ADD FUNCTION NUMVAL(ISBN-IN(CNT:1)) TO EVEN END-PERFORM. COMPUTE EVEN = EVEN * WAIT-3-1. *合計÷モジュラス10=余り *→モジュラス10−余り=チェックデジット を算出する。 *結果が10なら0、それ以外なら余り値がチェックディジット。 COMPUTE TOTAL = ODD + EVEN. DIVIDE MOD-10 INTO TOTAL GIVING Q REMAINDER R. COMPUTE CDIGIT = MOD-10 - R. DISPLAY "チェックディジットは " CDIGIT " です。" UPON CONSOLE. STOP RUN.
ISBN10.COB
IDENTIFICATION DIVISION. PROGRAM-ID. ISBN10-VER001. AUTHOR. DUMBO. DATE-WRITTEN. 11.09.2013. DATA DIVISION. WORKING-STORAGE SECTION. 01 ISBN-IN PIC X(9). 01 ISBN-CNT PIC 99 VALUE 9. 01 MOD-11 PIC 9(3) VALUE 11. 01 WAIT-10-2 PIC 9(3) VALUE 10. 01 TEMP PIC 9(3) VALUE ZEROS. 01 TOTAL PIC 9(3) VALUE ZEROS. 01 Q PIC 9(3). 01 R PIC 9(3). 01 CDTEMP PIC 9. 01 CDIGIT PIC X. 01 CNT PIC 99. 01 FLG PIC 9 VALUE ZERO. PROCEDURE DIVISION. MAIN. DISPLAY "ISBN10 チェックディジット算出プログラム ver0.01" UPON CONSOLE. PERFORM UNTIL FLG >= 1 DISPLAY "チェックディジットを調べる ISBN(9桁) を" - "入力してください。" UPON CONSOLE ACCEPT ISBN-IN FROM CONSOLE DISPLAY "入力した ISBN(9桁) = " ISBN-IN UPON CONSOLE IF ISBN-IN IS NUMERIC THEN * DISPLAY "入力は正しいです。" UPON CONSOLE MOVE 1 TO FLG ELSE DISPLAY "入力に誤りがあります。" UPON CONSOLE END-IF END-PERFORM. *ISBN-INを左桁の数字から順に×10、×9…×2と乗算して、 *その結果を合計する。 PERFORM VARYING CNT FROM 1 BY 1 UNTIL CNT > ISBN-CNT COMPUTE TEMP = FUNCTION NUMVAL(ISBN-IN(CNT:1)) COMPUTE TOTAL = (WAIT-10-2 - CNT + 1) * TEMP + TOTAL END-PERFORM. *合計÷モジュラス11=余り *→モジュラス11−余り=チェックデジット を算出する。 *結果が10ならX、11なら0、それ以外なら余り値がチェックディジット。 DIVIDE MOD-11 INTO TOTAL GIVING Q REMAINDER R. COMPUTE TEMP = MOD-11 - R. MOVE TEMP TO CDTEMP. EVALUATE TEMP WHEN 10 MOVE "X" TO CDIGIT WHEN 11 MOVE 0 TO CDIGIT WHEN OTHER MOVE CDTEMP TO CDIGIT END-EVALUATE. DISPLAY "チェックディジットは " CDIGIT " です。" UPON CONSOLE. STOP RUN.
COBOL でゲームプログラミングとか。
出向先で OpenCOBOL 入れてくれって頼まれついでに簡単なプログラム書いてみた。
変数の考え方にクセがあるとか1つの処理に機能盛り過ぎとか、
エクセルIF関数の如く入れ子しないと else if 相当のことが出来ないとか。
色々言いたいところもあるけれど、割と嫌いじゃない言語です。
KAZUATE.COB
IDENTIFICATION DIVISION. PROGRAM-ID. KAZUATE-VER001. AUTHOR. DUMBO. DATE-WRITTEN. 11.07.2013. DATA DIVISION. WORKING-STORAGE SECTION. 01 ANS PIC 99 VALUE ZEROS. 01 USR PIC 99 VALUE ZEROS. 01 FLG PIC 9 VALUE ZERO. PROCEDURE DIVISION. MAIN. ACCEPT ANS FROM TIME. DISPLAY "KAZUATE GAME" UPON CONSOLE. PERFORM UNTIL FLG >= 1 DISPLAY "GUESS(0-99)?" UPON CONSOLE ACCEPT USR FROM CONSOLE IF USR = ANS THEN DISPLAY "IT'S CORRECT!!" UPON CONSOLE MOVE 1 TO FLG ELSE IF USR = ANS - 1 OR USR = ANS + 1 THEN DISPLAY "IT'S NEAR!" UPON CONSOLE ELSE IF USR > ANS THEN DISPLAY "IT'S SMALLER." UPON CONSOLE ELSE IF USR < ANS THEN DISPLAY "IT'S LARGER." UPON CONSOLE END-IF END-IF END-IF END-IF END-PERFORM. STOP RUN.
JANKEN.COB
IDENTIFICATION DIVISION. PROGRAM-ID. JANKEN-VER100. AUTHOR. DUMBO. DATE-WRITTEN. 11.07.2013. DATA DIVISION. WORKING-STORAGE SECTION. 01 DSP. 03 HND PIC N(3) OCCURS 3. 01 USR PIC 99 VALUE ZEROS. 01 USR2 PIC 99 VALUE ZEROS. 01 COM PIC 99 VALUE ZEROS. 01 TMP PIC 99 VALUE ZEROS. *ユーザーの勝ち数をカウントする変数を初期化する。 01 WIN PIC 9 VALUE ZERO. * PROCEDURE DIVISION. MAIN. *手を表す変数を初期化する。 MOVE "グー " TO HND(1) MOVE "チョキ" TO HND(2) MOVE "パー " TO HND(3) *起動メッセージを表示する。 DISPLAY "じゃんけんゲーム Ver.1.00 by DumBo" UPON CONSOLE. *5回勝負する。 PERFORM 5 TIMES *ユーザーの手を入力する。 DISPLAY "0:グー、1:チョキ、2:パー" UPON CONSOLE ACCEPT USR FROM CONSOLE *コンピュータの手を現在時間うち1/10秒2桁を種として決める。 ACCEPT COM FROM TIME DIVIDE 3 INTO COM GIVING TMP REMAINDER COM *出した手を表す文字列を作成する。 DISPLAY "ユーザー:" HND(USR + 1) "、コンピュータ:" HND(COM + 1) *勝敗を判定し、結果を表示する。 IF USR = COM THEN DISPLAY "・・・あいこです!" ELSE COMPUTE USR2 = USR + 1 DIVIDE 3 INTO USR2 GIVING TMP REMAINDER USR2 IF COM = USR2 THEN DISPLAY "・・・ユーザーの勝ちです!" UPON CONSOLE ADD 1 TO WIN ELSE DISPLAY "・・・コンピュータの勝ちです!" UPON CONSOLE END-IF END-IF END-PERFORM. *ユーザーの勝ち数を表示する。 DISPLAY "ユーザーの勝ち数:" WIN UPON CONSOLE. STOP RUN.
色々作ってる風味。
レコード登録にばかりに気が向いててメイン画面作ってなかったので実装開始。
どうやって使いやすいものに仕上げようか手間取ってる最中。
・大人の蔵書管理 V0.09
モードレス間同士でウィンドウを行き来した際フリーズバグが発生。
あれこれ試して解決方法探ったけど規模が大きくなり過ぎてて原因に当りをつけられず。
ウィンドウ間の移動時に現れるので、一先ずモードレスからモーダルに変更。
バグ発生動作を行えない仕様に変えて対処(バグ潰しではないので、解決したとは言えないが。)。
マルチウィンドウの操作感は失われたけど、ウィンドウが開かれる順序や閉じられるタイミング等見直してみた結果、
これはこれで悪くない操作性に落ち着いた感じ。
とらのあなからの商品情報取得ルーチンとレコード登録ルーチンとを連結。
同人誌の自動登録が機能しだしたので使いながらバグ潰したり微妙な部分を直したりを現在進行形で実施中。
バーコードリーダーでの登録機能も残した。
買って来て直ぐの状態のものとか、やっぱりあると便利なので。
ウィンドウの半透明表示とか、プルダウンで頒布物一覧表示とか。欲しい機能は大体実装。
サークル参加情報だけはまだワークシートに手入力だけど。
使い方説明もないのでまだ非公開な状態。
・その他
サイトコンテンツの成果物増やしたり、同人誌の自炊したり。
今月の日経ソフトウェア。
表紙がGMC-4。記事に取り上げられてる訳でもないのに何故?
- 作者: 日経ソフトウエア
- 出版社/メーカー: 日経BP社
- 発売日: 2013/08/24
- メディア: 雑誌
- この商品を含むブログ (4件) を見る