プログラミングのメモ帳(C/C++/HSP)

日々のプログラミングで気づいた点や小技集を紹介します。(Windows 10/XP/Vista、VC2017、HSP)

[HSP]デジタル時計のソース(1)

2014年09月01日 17時22分00秒 | HSP講座

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


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

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

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

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

//--------------------------------------
// メイン部
//--------------------------------------
*Init
    title "デジタル時計"
    screen 0, 50*4+16, 50
    font "MS ゴシック",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
//------------------------------------------------------------------------------

スクリーン・ショット

関連記事



コメント   この記事についてブログを書く
  • Twitterでシェアする
  • Facebookでシェアする
  • はてなブックマークに追加する
  • LINEでシェアする
« [HSP]絵文字閲覧ソフトのソ... | トップ | [HSP]デジタル時計のソース... »
最新の画像もっと見る

コメントを投稿

HSP講座」カテゴリの最新記事