ポケコン時計

概要

ポケコンに時刻を表示するプログラムです。

PC-G830にて作成しています。
220行のFOR ～ NEXTにて更新タイミングを調整していますので、PC-G850(S/V)ではタイミングがずれます。
(PC-G850(S/V)でご利用の場合は、「473」の数字を書き換えてください。このままですと、相当早く進みます）

日→月の繰上げには対応していません。（例えば、２００１年３月３２日０時０分０秒となる場合があります）

当時10分程度で作ったプログラムです。あくまで時計を持っていない場合など、ちょっとした時向けです。

対応システム

SHARP PC-E200 / PC-G800シリーズ(PC-G850,PC-G850S,PC-G850Vでは要調整)

動作イメージ

      ２００８年    １０月    １０日

          １０時    ２０分    ３０秒

ソースコード

100: CLS
110: DIM DAT(5)
120: FOR A = 0 TO 5
130: PRINT CHR$ (242 + A);"ヲニュウリョク" : INPUT DAT(A) : DAT(A) = INT (DAT(A))
140: NEXT A
150: *MAIN
160: CLS
170: LOCATE 3,0 : PRINT DAT(0); CHR$ 242 : LOCATE 10,0 : PRINT DAT(1); CHR$ 243 : LOCATE 15,0 : PRINT DAT(2); CHR$ 244
180: LOCATE 5,2 : PRINT DAT(3); CHR$ 245 : LOCATE 10,2 : PRINT DAT(4); CHR$ 246 : LOCATE 15,2 : PRINT DAT(5); CHR$ 247
190: DAT(5) = DAT(5) + 1 : IF DAT(5) = 60 THEN DAT(5) = 0 : DAT(4) = DAT(4) + 1
200: IF DAT(4) = 60 THEN DAT(4) = 0 : DAT(3) = DAT(3) + 1
210: IF DAT(3) = 24 THEN DAT(3) = 0 : DAT(2) = DAT(2) + 1
220: FOR A = 0 TO 473 : NEXT A
230: GOTO *MAIN
240: END
※ポケコンに入力する時には、全角カタカナ(太字部分)を半角カタカナに置き換えてください。

バージョン履歴

【2001/02/13】 Version 1.0

(C)2000 - 2010 Kazuchi Software All Rights Reserved.