デジタ ル時計 課題 デジタル時計 文 GLocate GPrint 機能 グラフィック画面で表示する位置を指定する。 GLocate(X,Y) グ ラ フ ィ ッ ク 画 面 で x座 標 X、 y座 標 Yを 指 定 す る 。 グラフィック画面に式の値を表示する。 GPrintで は 、 出 力 の 並 び に カ ン マ や セ ミ コ ロ ン を 含 ん だ 形は使えない。 た と え ば 、 Gprint"abc";X Gprint X,Y GPrint 式 グラフィック画面に式の値を表示する。 デジタル時計を作成せよ。 ● プ ロ グ ラ ム (KA611.bas) 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 ' << KA611.bas >> ' デジタル時計 ' ' グラフック画面の背景色を白に設定。 BackColor="White" ' ' グ ラ フ ィ ッ ク 画 面 の サ イ ズ （ 縦 200ピ ク セ ル 、 横 200ピ ク セ ル ） を 設 定 。 GScreen(200,200) ' 座 標 の 設 定 。画 面 左 下 隅 の 座 標 を (-1,-1)、右 上 隅 の 座 標 を (1,1)と す る 。 Window(-1,-1)-(1,1) MathGraph On ' ' グ ラ フ ィ ッ ク 画 面 の 位 置 (-0.5,0.2)を 指 定 し 、 「 デ ジ タ ル 時 計 」を 表 示 。 GLocate(-0.5,0.2) GPrint"デ ジ タ ル 時 計 " ' ' デジタル時計の表示。 Do ' 時、分、秒を取得。 T$=Time$: ' TIME$は 、 hhttmmttss秒 を 文 字 列 hh:mm:ss と し て 返 す 。 HH$=Mid$(T$,1,2): ' 文 字 型 変 数 T$の 1文 字 目 か ら 2文 字 分 抽 出 す る 。 MM$=Mid$(T$,4,2): ' 文 字 型 変 数 T$の 4文 字 目 か ら 2文 字 分 抽 出 す る 。 SS$=Mid$(T$,7,2): ' 文 字 型 変 数 T$の 7文 字 目 か ら 2文 字 分 抽 出 す る 。 ' ' グ ラ フ ィ ッ ク 画 面 の 位 置 (-0.5,0)を 指 定 し 、 時 刻 を 表 示 。 GLocate(-0.5,0) GPrint HH$+"時 "+MM$+"分 "+SS$+"秒 " Loop End - 1 - デジタ ル時計 実行結果 - 2 -
© Copyright 2024 ExpyDoc
