《 かるたの文字を１字づつ表示する 》
【内容】
百人一首（かるた）の上の句３句を１文字づつ表示します。（『桐』v5）
【用例】
名札 一字ずつ表示
画面表示 (22,11)-(22,50),"矢印キーを押すと字が表われます。",黄
画面表示 (23,11)-(23,55),"わかったらESCキーか←↑→↓を押しましょう。",赤
繰り返し &M=1,3 ①
条件 (&M=1) &行１=5,&桁１=71,&桁２=72,&I=1,&J=6
条件 (&M=2) &行１=6,&桁１=67,&桁２=68,&I=1,&J=8
条件 (&M=3) &行１=7,&桁１=63,&桁２=64,&I=1,&J=6
繰り返し &I=1,&J ②
条件 (&M=1) &字=#部分列([一かな],&I,1)
条件 (&M=2) &字=#部分列([二かな],&I,1)
条件 (&M=3) &字=#部分列([三かな],&I,1)
画面表示 (&行１,&桁１)-(&行１,&桁２),&字,白,反転 ③
機能キー入力 (23,51)-(23,52),文字キー＝有効,入力待ち＝しない,&機能キー
&ESC=27,&→=28,&←=29,&↑=30,&↓=31
条件 (&機能キー＝&ESC .or &機能キー＝&→ .or &機能キー＝&← \
.or &機能キー＝&↓ .or &機能キー＝&↑) 繰り返し中止 ④
&行１=&行１+1 ⑤
遅延 ５ ⑥
繰り返し終了
条件 (&機能キー＝&ESC .or &機能キー＝&→ .or &機能キー＝&← \
.or &機能キー＝&↓ .or &機能キー＝&↑) 繰り返し中止
繰り返し終了
手続き終了
【解説】
① 上の句３句は縦書きです。＆行と＆桁１と＆桁２で開始位置を決めます。
ひらがなですので、桁（幅）を２桁とります。これで縦１列になります。
各句の開始位置を変えています。（【参考】参照）
② 上の句、１句から３句までのひらがなを１文字ずつ変数（＆字）に取り込みます。
③ 上の句３句を順次表示します。
④ １文字ずつ表示中にESCキーか←↑→↓のキーが押されたら、表示を中止します。
⑤ １文字ごとに表示位置を変えます。（１文字下げる）
⑥ 文字を表示する間合いをとります。
【参考】
【内容２】
百人一首（かるた）の句を１文字づつ表示します。（『桐』v8）
【用例】（イベント処理）
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ 一文字づつ表示（「一文字づつ表示」左クリック時）
手続き定義開始 ｺﾏﾝﾄﾞﾎﾞﾀﾝ_49::ﾏｳｽ左ｸﾘｯｸ(長整数 &マウス位置[2]，長整数 &明細番号，長整数 &フラグ，参照 長整数 &処理中止)
&一句目=[一かな],&二句目=[二かな],&三句目=[三かな],&四句目=[四かな],&五句目=[五かな]
&一句=#部分列(&一句目,1,&一句N)
条件 (&一句N=5) &一句=#部分列(&一句目,1,7)
条件 (&一句N=>1 .and &一句N=<6) &一句N=&一句N+1
条件 (&一句N=>1 .and &一句N=<6) オブジェクト操作 @ﾃｷｽﾄ_41{ ソース = &一句 }
ケース開始
ケース (&一句N>6)
&二句=#部分列(&二句目,1,&二句N)
条件 (&二句N=7) &一句=#部分列(&一句目,1,9)
条件 (&二句N=>1 .and &二句N=<8) &二句N=&二句N+1
条件 (&二句N=>1 .and &二句N=<8) オブジェクト操作 @ﾃｷｽﾄ_42{ ソース = &二句 }
条件 (&二句N=8) &一句N=""
ケース (&二句N>7)
&三句=#部分列(&三句目,1,&三句N)
条件 (&三句N=5) &三句=#部分列(&三句目,1,7)
条件 (&三句N=>1 .and &三句N=<6) &三句N=&三句N+1
条件 (&三句N=>1 .and &三句N=<6) オブジェクト操作 @ﾃｷｽﾄ_43{ ソース = &三句 }
条件 (&三句N=6) &二句N=""
ケース (&三句N>5)
&四句=#部分列(&四句目,1,&四句N)
条件 (&四句N=7) &四句=#部分列(&四句目,1,9)
条件 (&四句N=>1 .and &四句N=<8) &四句N=&四句N+1
条件 (&四句N=>1 .and &四句N=<8) オブジェクト操作 @ﾃｷｽﾄ_44{ ソース = &四句 }
条件 (&四句N=8) &三句N=""
ケース (&四句N>7)
&五句=#部分列(&五句目,1,&五句N)
条件 (&五句N=7) &五句=#部分列(&五句目,1,9)
条件 (&五句N=>1 .and &五句N=<8) &五句N=&五句N+1
条件 (&五句N=>1 .and &五句N=<8) オブジェクト操作 @ﾃｷｽﾄ_45{ ソース = &五句 }
条件 (&五句N=8) &四句N=""
ケース終了
手続き定義終了
【参考】
END of FILE 《戻る》 《玄関へ》