［HSP］デジタル時計のソース(１)

スクリプト言語の HSP については、公式ホームページの「HSPTV!」をどうぞ。(戻る)


ここには、デジタル時計のサンプル・ソース(１)を載せておきます。
このデジタル時計は、repeat 命令の繰り返しを使って1秒間に10回更新されます。

デジタル時計のソース(１)

管理上このサンプルは clock1.hsp のソースです。

//------------------------------------------------------------------------------
// デジタル時計のサンプル(１) by 科学太郎
//==============================================================================
// 新規作成日：2013-05-13 (月) 12:20:00
// 最終更新日：2013-05-13 (月) 12:23:00
//------------------------------------------------------------------------------

//--------------------------------------
// メイン部
//--------------------------------------
*Init
    title "デジタル時計"
    screen 0, 50*4+16, 50
    font "ＭＳ ゴシック",50
*Main
    repeat
        redraw 0
        if ( gettime(7) < 500 ){
            form="%02d:%02d.%02d"
        }
        else{
            form="%02d %02d.%02d"
        }
        msg=strf(form,gettime(4),gettime(5),gettime(6))
        color $80,$00,$00 : boxf
        color $66,$00,$00 : pos 8+2,2 : mes msg
        color $FF,$00,$00 : pos 8+0,0 : mes msg
        redraw 1
        await 100
    loop
    stop
//------------------------------------------------------------------------------
// End of clock1.hsp
//------------------------------------------------------------------------------

スクリーン・ショット

関連記事

• アナログ時計のソース(１)
• アナログ時計のソース(２)
• デジタル時計のソース(１)
• デジタル時計のソース(２)
• ストップウォッチのソース
• タイマーのソース

---