次のスクリプトではrotation.ksfとexcelRead.ksfを画面の左右に表示します。
|
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 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 |
Kf(_partition){ 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) /* excelRead.ksf の main の U を C に書き換えて画像の枠の右側に挿入 */ C{ De{ (key)._table; } F(#label) Pe{ try{ /* xlsxデータ読込 */ /* 引数：ファイルパス */ /* [x] ：シート番号(0から) */ ._table?=$this%xlsxRead("C:\\共有フォルダ\\Excel\\sample.xlsx")[0]; foreach((key)rec,._table?){ /* 行作成 */ (key)tmp=tree("R(#_row)"); /* 列作成 */ tmp%addC(tree("C("+rec[0]?+")")); tmp%addC(tree("C("+rec[1]?+")")); tmp%addC(tree("C("+rec[2]?+")")); /* 枠に設定 */ #label%addC(tmp); } }catch((key)ex){ stop(ex.message?); } } } } 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); } } |
