[Ttssh2-commit] [6636] 使用時に判りづらかった部分等を修正

svnno****@sourc***** svnno****@sourc*****
2017年 3月 16日 (木) 12:31:55 JST


Revision: 6636
          http://sourceforge.jp/projects/ttssh2/scm/svn/commits/6636
Author:   doda
Date:     2017-03-16 12:31:55 +0900 (Thu, 16 Mar 2017)
Log Message:
-----------
使用時に判りづらかった部分等を修正

・ファイル名の生成を簡略化
・処理状況を表示するようにした
  起動後しばらく反応が無かったので一瞬ハングアップを疑った為
・処理にかかった時間を表示するようにした
  デバッグビルドとリリースビルドで2倍以上の速度差が出るため、
  最初デバッグビルドで試した時に遅くなるようなミスをしたかと疑った為

Modified Paths:
--------------
    trunk/tests/#35822-random.ttl

Property Changed:
----------------
    trunk/tests/#35822-random.ttl

-------------- next part --------------
Modified: trunk/tests/#35822-random.ttl
===================================================================
--- trunk/tests/#35822-random.ttl	2017-03-16 03:31:53 UTC (rev 6635)
+++ trunk/tests/#35822-random.ttl	2017-03-16 03:31:55 UTC (rev 6636)
@@ -1,10 +1,20 @@
 intdim res 11
 
-for i 1 1000000
-	random val 10
-	res[val] = res[val] + 1
+statusbox "0% done." "stat"
+
+uptime stime
+
+for i 1 100
+	for j 1 110000
+		random val 10
+		res[val] = res[val] + 1
+	next
+	sprintf2 stat "%d%% done." i
+	statusbox stat "stat"
 next
 
+uptime etime
+
 str = ''
 for i 0 10
 	sprintf2 tmp '%d\t%d' i res[i]
@@ -11,14 +21,16 @@
 	strconcat str tmp
 	strconcat str #13#10
 next
+
+sprintf2 tmp #13#10"%d ms."#13#10 etime - stime
+strconcat str tmp
+
 strspecial str
+;closesbox
 messagebox str 'result'
 
-uptime time
-int2str str_time time
-strconcat filename '35822_'
-strconcat filename str_time
-strconcat filename '.txt'
+; gettime filename "35822_%Y%m%d%H%M%S.txt"
+sprintf2 filename "35822_%d.txt" stime
 
 fileopen fp filename 0
 filewrite fp str


Property changes on: trunk/tests/#35822-random.ttl
___________________________________________________________________
Added: svn:executable
## -0,0 +1 ##
+*
\ No newline at end of property



Ttssh2-commit メーリングリストの案内