目次に戻る＊−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
＊成績処理メインプログラム 【個人別偏差値レーダー作成システム】
＊−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
変数宣言 固有,数値｛＆年１，＆試験名,＆データ｝
変数宣言 固有,数値{＆科目番号,&line,&gyend,&gxend｝
変数宣言 固有,文字列{＆表１，＆表２，＆表３，＆表４，＆学年１，＆学年２，＆試１｝
変数宣言 固有,文字列{＆試験｝
変数宣言 固有,文字列{&BANGO,&CLASS,&HYOUDAI,&GRA}
変数宣言 固有,整数{&C0,&CMIN,&CMAX,&G0,&HYOU,&確認}
表示制御 処理中表示=しない,蝸表示=しない
&line =#表示行数 -5
&gyend =#case(#機種,399,399,479,399,749,749)
&gxend =#case(#機種,639,639,639,639,1124,1124)
手続き実行 グラフィック画面
データパス名 "C:\KIRIV5\THC"
,{0,5,19," 定期テスト 偏差値レーダー印刷 システム a",黄｝￥
,{0,7,20,"◇◇◇ 学年を選択して下さい。 ◇◇◇",水｝￥
,{1, 9,31,"１：高校１年生",白｝￥
,{2,11,31,"２：高校２年生",白｝￥
,{3,13,31,"３：高校３年生",白｝￥
,{4,15,31,"４：終了 ",白｝￥
,{0,17,15,"矢印キーまたは番号を選んでＲＥＴキーを押して下さい。”,緑，点滅｝
ケース開始
ケース（＆年１＝１）
代入 ＆学年１＝”１”
代入 ＆学年２＝”\H1-”
ケース（＆年１＝２）
代入 ＆学年１＝”２”
代入 ＆学年２＝”\H2-”
ケース（＆年１＝３）
代入 ＆学年１＝”３”
代入 ＆学年２＝”\H3-”
ケース その他
分岐 処理終了１
ケース終了
手続き実行 グラフィック画面
メニュー ＆試験名,初期項目=5,文字選択=する￥
,{0,5,19," 定期テスト 偏差値レーダー印刷 システム a",黄｝￥
,{0,7,20,"◇◇◇ 学年を選択して下さい。 ◇◇◇",水｝￥
,{1,9,8,"１：１学期中間試験",白｝￥
,{2,9,32,"２：１学期期末試験",白｝￥
,{3,9,56,"３：１学期評価点",白｝￥
,{4,11,8,"４：２学期中間試験",白｝￥
,{5,11,32,"５：２学期期末試験",白｝￥
,{6,11,56,"６：２学期評価点",白｝￥
,{7,13,8,"７：学年末試験",白｝￥
,{8,13,32,"８：学年評価点",白｝￥
,{9,13,56,"９：終了",白｝￥
,{0,17,15,"矢印キーまたは番号を選んでＲＥＴキーを押して下さい。",緑，点滅｝
ケース開始
ケース（＆試験名＝１）
代入 ＆試１＝”1”
代入 ＆試験＝”１学期中間試験”
ケース（＆試験名＝２）
代入 ＆試１＝”2”
代入 ＆試験＝”１学期期末試験”
ケース（＆試験名＝３）
代入 ＆試１＝”3”
代入 ＆試験＝” １学期評価点 ”
ケース（＆試験名＝４）
代入 ＆試１＝”4”
代入 ＆試験＝”２学期中間試験”
ケース（＆試験名＝５）
代入 ＆試１＝”5”
代入 ＆試験＝”２学期期末試験”
ケース（＆試験名＝６）
代入 ＆試１＝”6”
代入 ＆試験＝” ２学期評価点 ”
ケース（＆試験名＝７）
代入 ＆試１＝”7”
代入 ＆試験＝” 学年末試験 ”
ケース（＆試験名＝８）
代入 ＆試１＝”8”
代入 ＆試験＝” 学年評価点 ”
ケース その他
分岐 処理終了１
ケース終了
代入 ＆表１＝＃連結（”B:”，＆学年２，”ﾃｲｷ”，＆試１，”.TBL”）
代入 ＆表２＝＃連結（"C:\kIRIV5\THC",＆学年２，”ﾃｲｷ”，＆試１，”.TBL”）
代入 ＆表３＝＃連結（"C:\kIRIV5\THC",＆学年２，”ﾃｲｷ”，＆試１）
代入 ＆表４＝＃連結（"C:\kIRIV5\THC",＆学年２，”ﾃｲｷ”，＆試１，”.BAK”）
表 ＆表３
繰り返し
選択解除 ＊
手続き実行 グラフィック画面
メニュー &データ,初期項目=1,文字選択=する￥
,{0,5,19," 定期テスト 偏差値レーダー印刷 システム ",黄｝￥
,{0,7,20,"◇◇◇ 対象データを選択して下さい。 ◇◇◇",水｝￥
,{1,9,20,"１：全クラスのデータ",白},{-1, 9,42,"・・・for 学年",緑}\
,{2,11,20,"２：指定クラスのデータ",白},{-1,11,42,"・・・for 学級",緑}\
,{3,13,20,"３：指定生徒のデータ",白},{-1,13,42,"・・・for 個人面談用",緑}\
,{4,15,20,"４：終了",白}\
,{0,17,15,"矢印キーまたは番号を選んでＲＥＴキーを押して下さい。”,緑，点滅｝
ケース開始
ケース (&データ=1)
項目集計 [組]
代入 &CMIN=＆最小値,&CMAX=＆最大値
ケース (&データ=2)
手続き実行 グラフィック画面
画面表示 (6, 15)-(6, 60),”中止するときはESCキーを押して下さい。”,赤
画面表示 (8, 15)-(8, 60),”所属クラスを入力してください。(数字）”
キー入力 (10, 15)-(10,60),モード=全角,終了状態=&確認,&CMIN
代入 &CLASS=#CAT(#全角(#STR(&CMIN)),"組を選択しました。")
画面表示 (10,15)-(10,60),&CLASS,白
代入 &CMAX=&CMIN
画面表示 (16,15)-(16,60),"この選択でよろしいですか？(OK:ENT NO:ESC)”,黄
確認 ,&確認
分岐(&確認=0) 処理終了２
ケース (&データ=3)
手続き実行 グラフィック画面
画面表示 (6, 15)-(6, 60),”中止するときはESCキーを押して下さい。”,赤
画面表示 (8, 15)-(8, 60),”所属クラスを入力してください。(数字）”
キー入力 (10, 15)-(10,60),モード=全角,終了状態=&確認,&CMIN
代入 &CLASS=#CAT(#全角(#STR(&CMIN)),"組を選択しました。")
画面表示 (10,15)-(10,60),&CLASS,白
代入 &CMAX=&CMIN
画面表示 (12, 15)-(12, 60),”出席番号を入力してください。(数字）”
キー入力 (14, 15)-(14,15),モード=全角,終了状態=&確認,&G0
代入 &BANGO=#CAT(#全角(#STR(&G0)),"番を選択しました。")
画面表示 (14,15)-(14,60),&BANGO,白
画面表示 (16,15)-(16,60),"この選択でよろしいですか？(OK:ENT NO:ESC)”,黄
確認 ,&確認
分岐(&確認=0)
処理終了２
ケース (&データ=4) 繰り返し中止
ケース終了
手続き実行 グラフィック画面
繰り返し &C0=&CMIN,&CMAX,1
選択 [組]=&C0
分岐(&データ=3) 指定生徒データ用１
項目集計 []
繰り返し &G0=1,&最大値,1
名札 指定生徒データ用１
選択 []=&G0
代入 &CLASS=#CAT(#全角(#STR(&C0)),"組")
代入 &BANGO=#CAT(#全角(#STR(&G0)),"番"," ",[生徒名])
代入 &HYOUDAI=" "+&試験＋"偏差値レーダー"+" "
画面表示 (7,18)-(7,62),&HYOUDAI,黄
画面表示 (10,22)-(10,60),"印刷中の組",白
画面表示 (10,36)-(10,60),"・・・",白
画面表示 (10,43)-(10,60),&CLASS,白
画面表示 (12,22)-(12,60),"印刷中の生徒",緑
画面表示 (12,36)-(12,60),"・・・",緑
画面表示 (12,43)-(12,60),&BANGO,緑
グラフ定義 "レーダ",主グラフ=標準レーダ,構図={データ転置=する}\
,Ｘ軸={格子線=する},Ｙ軸={名称＝［生徒名］\
,単位名称="",軸線=する,格子線=する,目盛線=する\
,最小目盛値=20,最大目盛値=80,目盛表示間隔=10}\
,仕上げ={データ値表示=しない},凡例={凡例=する}\
,表題={表題=&HYOUDAI,背景色=影付,飾り=斜体}
代入 &GRA="レーダ"
グラフ作成 "レーダ",描画=しない,印刷=しない,倍率=3,グラフファイル=&GRA\
,{[現文偏]主Ｙ,[古典偏］主Ｙ,[社選偏］主Ｙ,[公民偏］主Ｙ,[数１偏］主Ｙ\
,[数２偏］主Ｙ,[理選偏］主Ｙ,[化学偏］主Ｙ,[英１偏］主Ｙ,[英２偏］主Ｙ\
,[試験名]Ｘ軸項目名} * 帳票印刷 "偏差.FRM",部数=1,ページ番号=1
**************************************
**********[]=&G0の選択解除**********
**************************************
選択解除 1
分岐(&データ=3) 指定生徒データ用２
繰り返し終了
**************************************
**********[組]=&C0の選択解除**********
**************************************
選択解除 ＊
名札 指定生徒データ用２
繰り返し終了
手続き実行 グラフィック画面
名札 処理終了２
繰り返し終了
グラフ削除 ＊
圧縮
表
変数削除 ＊
名札 処理終了１
終了
****************************
********サブルーチン********
****************************
名札 グラフィック画面
画面消去 *
描画 矩形 (000,000)-(&gxend,&gyend),青,点線,塗りつぶし
描画 矩形 (000,000)-(&gxend,&gxend),水,実線
図形表示 (03,05)-(&line,76),"",確認=しない,枠表示=する
手続き終了
ホームページに戻る