vb,vba,vbs,vb.net 问题集。(#11 关于vba)

tensaix2j

1. 请问下 vb 哪个function可以 return application run 时的memory usage and cpu usage.


(谢谢fxam的解答)

[ 本帖最后由 tensaix2j 于 5-11-2007 03:24 PM 编辑 ]

tensaix2j

2. 是不是只要某object没被任何variable reference 就会自动被GC清理呢？
比如

dim a as new object
dim b as new object
b=a

那原本被b refer的那个object是否还占memory.


(谢谢fxam的解答)

[ 本帖最后由 tensaix2j 于 17-4-2007 09:16 AM 编辑 ]

fxam

1. 请问下 vb 哪个function可以 return application run 时的memory usage and cpu usage.

1. 
   
2. using System.Diagnostics.Process;
   
3. 
   
4. namespace Test {
   
5.         class ProcessInfo {
   
6.                 public void Show() {
   
7.                         Process p = Process.GetCurrentProcess();
   
8.                         Console.WriteLine( "Workingset = {0}", p.WorkingSet64 );
   
9.                         Console.WriteLine( "Total Processor Time = {0}", p.TotalProcessorTime );
   
10.                 }
    
11.         }
    
12. }
    

复制代码

如果要像Task Manager那种CPU Usage(每隔一段時間用了多少%)，就以新的TotalProcessorTime 减去旧的TotalProcessorTime，再算出其百分比。

2. 是不是只要某object没被任何variable reference 就会自动被GC清理呢？
比如
dim a as new object
dim b as new object
b=a

那原本被b refer的那个object是否还占memory.

GC清理記憶后，b refer的object不再占記憶。

[ 本帖最后由 fxam 于 1-11-2006 10:49 PM 编辑 ]

tensaix2j

原来是在process这个东西。这正是我要找的。 谢谢。。
第二题其实我是想问，什么时候gc才会去清理


(谢谢fxam的解答)

[ 本帖最后由 tensaix2j 于 17-4-2007 09:16 AM 编辑 ]

tensaix2j

3.
一般的random 都是uniform的。。
有什么方法可以generate 一个 normal distribution 的random?




(找到了.)

[ 本帖最后由 tensaix2j 于 17-4-2007 04:38 PM 编辑 ]

fxam

第二题其实我是想问，什么时候gc才会去清理

1) 自動，当GC覺得需要的時候，詳情我不懂。
2) 手動，叫GC.Collect()。

tensaix2j

原帖由 fxam 于 2-11-2006 09:46 PM 发表

1) 自動，当GC覺得需要的時候，詳情我不懂。
2) 手動，叫GC.Collect()。

哦原来还可以手动的。。谢谢。

tensaix2j

好久没来了。

5.
若我想启动一个thread..为何它不给我pass in parameter..
那要如何才能pass in parameter.??

example:
我有一个sub如下。。

Sub MyTrainingThread(ByVal threadID As Integer, _
               ByRef mymodel As myModel, _
               ByVal RowStartIndex As Integer, _
               ByVal Rownum As Integer, _
               Optional ByVal trainingFlag As Boolean = True)
     ....
     ....
     ....
     RaiseEvent ThreadCompleted(threadID)
End sub




在main 那里。。
...
...
For i As Short = 0 To numOfThread
     Dim aThread As New System.Threading.Thread(AddressOf MyTrainingThread(i, mymodel, 0, 10, training)) '这里不行

aThread.Start()
next i            
...
...


若没parameter就可以。。
     Dim aThread As New System.Threading.Thread(AddressOf MyTrainingThread)



(谢谢fxam的解答)

[ 本帖最后由 tensaix2j 于 22-4-2007 08:03 PM 编辑 ]

fxam

如何pass parameter給thread ?

.NET 2.0的話:
Thread.Start(object): http://msdn2.microsoft.com/en-us/library/6x4c42hc(VS.80).aspx

若是.NET 1 ，或不喜歡以上的object(因為不type safe)，可以將thread和parameter包裝在一個class里：
Creating Threads and Passing Data at Start Time: http://msdn2.microsoft.com/en-us/library/ts553s52(VS.80).aspx

tensaix2j

只好用class咯。
谢谢fxam老大。。