MacOS 10.6 10.8のベンチマークテスト Xbench (Mac) 3 サブルーチンを使ってリピート文を簡単にしてみる

例によって、こちらで勉強させてもらいました。

『on サブルーチン名()』〜『end サブルーチン名』がサブルーチン部です。
『on サブルーチン名( [パラメータ１, パラメータ２, ・・・] ) 』の『on』は『to』としても動作は同じです。パラメータを与えるときは『 ( ) 』内に（複数あるときは『, 』で区切って）記述します。
サブルーチン実行後の結果（値）を得るにはサブルーチン内に『 return値 』を記述します。

サブルーチンを使うメリットは、リピート文がどこからどこまでをしていているかが

わかりやすくなるということです。

反面、抜け出す事、サブルーチンの中の結果の値を取り出す事がむずかしいというデメリットもあります。

試してみましたが、上手く動きませんでしたので、やむを得ず普通のリピート文にしました。

リピート文で、時間を計測しそれをリストの最後尾に入れるという作業です。

変数 theListでは取り出せませんでしたので、AppleScript、Editorの結果欄の値を使用します。

複数回のテスト結果値のリストを一遍に調べることができましたので便利だと思います。

今回の構文の目的は、アプリケーション「テキストエディット」が

MacOS 10.8.2と10.6.8での起動時間の違いを調べるというものでしたが、

自分で書いた構文を良く見返してみると、AppleScriptで命令して何行かを処理する時間を

計っているだけに過ぎないなと思います。

しかし、その何行かの処理時間の差がOSの性能と言えなくもないので、

（苦しいいいわけ）

ベンチマークテストの一環としては、やむを得ないかなと考えています。

1. –計測値をリストに入れる。 
2. –指定の回数だけ繰り返す。 
3. –まとめてクリップボードに書き出す。 
4. –もし起動していたら、終了させる。saving no とやりたいが無理。
5. –念のため両方をOnyXで。 
6. –回数をカウント。 
7. –サブルーチン 
8. –最後にectoで表組 
10. display dialog “繰り返す回数を入力してください。“ default answer ““ buttons {“キャンセル“, “OK“} default button 2
11. copy the result as list to {text_returned, button_pressed}
13. set repKaisu to text_returned
14. set theList to {}
15. repeat repKaisu times
16.     –set pri_1 to my keisoku()–サブルーチング化失敗
17.     –on keisoku()
18.     tell application “TextEdit“
19.         quit
20.     end tell
21.     delay 3.0
22.     tell application “TextEdit“
23.         activate
24.     end tell
25.     –テキストエディットのバージョンを確認。10.8/1.8 
26.     –OSAXのラップタイムを使用 
27.     –http://www.macupdate.com/app/mac/36155/laptime 
28.     –計測開始 
29.     set tm to start timer
30.     –面倒なのでリストにしないでテキストエディットだけを指定 
31.     tell application “TextEdit“
32.         activate
33.     end tell
34.     –計測停止、LapTimeの指定の書式。 
35.     stop timer tm
36.     set theTime to result
37.     –ミリ秒の計測なので、1/1000に。 
38.     set theTime to theTime / 1000
39.     –型変換 
40.     set theTime to theTime as text
41.     –小数点以下をそろえるために、小数点の位置を調べる。 
42.     offset of “.“ in theTime
43.     set DD to result
44.     –小数点以下を3桁に 
45.     set theTime to text 1 thru (DD + 3) of theTime
46.     –これをアクティベート（前面に出さないと見えない。） 
47.     tell application “AppleScript Editor“
48.         activate
49.     end tell
50.     –display dialog “起動に ” & theTime & ” 秒かかりました” buttons {“OK”} default button 1
51.     tell application “TextEdit“
52.         quit
53.     end tell
54.     set the end of theList to theTime
55.     –これを入れないと複数の値の保存が出来ない。 
56.     set the theList to theList
57.     –return theList
58.     –end keisoku
59. end repeat

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

ページトップに戻る↑　　　　　　　　　　　　　　　　　　　　　　　　　　　ページ一番下へ↓