次の例は、タイマーキーによって画像を切り替えて表示します。
|
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 31 32 33 34 35 36 37 38 39 40 41 |
Kf(_rotation){ Pe{ /*キーステーションが最初に実行するキーセット*/ N(_main); } } K(_main){ Se{ @s1{ ~image~fitted="2"; } } De{ (int).tm=0; } Pe(#init){ /* フォーム表示の 0 ミリ秒後からタイマー開始；5000ミリ秒ごとにタイマーをよんで画像を切り替える */ #_timer%start(0,5000); } U{ C(#_target,img="C:\\kscs\\kscs.png",@s1) } X Pt(#_timer){ switch( .tm? ){ case( 0 ){ #_target%img="C:\\kscs\\kago01.jpg"; } case( 1 ){ #_target%img="C:\\kscs\\kago03.jpg"; } case( 2 ){ #_target%img="C:\\kscs\\kago05.jpg"; } case( 3 ){ #_target%img="C:\\kscs\\kago07.jpg"; } } .tm? = mod(.tm?+1,4); } } |
