1. No category

デジタ ル時計
課題
デジタル時計
文
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 -