VB.NET編程語(yǔ)言的用途相比其他語(yǔ)言來(lái)說(shuō)，還是有些不同之處。其中最大的特點(diǎn)就是可以實(shí)現(xiàn)對(duì)移動(dòng)設(shè)備的操作。前日在用SiSoftware Sandra 2004測(cè)試硬盤(pán)性能時(shí)突發(fā)其想，用自己熟悉的VB.NET測(cè)試硬盤(pán)速度行不行呢？具體怎么做呢？#t#

我們最感興趣的是硬盤(pán)在最大負(fù)荷下持續(xù)的讀取和寫(xiě)入速度。為了能夠比較準(zhǔn)確的測(cè)出平均速度，我決定采用先寫(xiě)入一個(gè)1GB的文件再讀取出來(lái)的辦法?？紤]到不要讓更多的任務(wù)花在循環(huán)上，我首先建立起一個(gè)足夠大的緩沖區(qū)，然后往磁盤(pán)寫(xiě)入這個(gè)緩沖的內(nèi)容，從而使硬盤(pán)達(dá)到最大的負(fù)荷?？紤]到Windows的讀取機(jī)制，硬盤(pán)測(cè)試不太準(zhǔn)確，此程序的讀取部分只能在第一次運(yùn)行時(shí)使用，運(yùn)行次數(shù)越多測(cè)試也不準(zhǔn)確，而寫(xiě)入測(cè)試多次運(yùn)行以后依然能夠保持準(zhǔn)確性。現(xiàn)在就開(kāi)始動(dòng)手。

在VB.NET測(cè)試硬盤(pán)速度中創(chuàng)建了一個(gè)控制臺(tái)工程TestHarddisk，然后在Sub Main中寫(xiě)入下列程序。

1. Sub Main()Sub Main()  
2. Dim I As Int32  
3. Dim f As New FileStream("E:\
   BigFile.big", FileMode.Create)  
4. Dim fw As New BinaryWriter(f)  
5. Dim fr As New BinaryReader(f)  
6. Dim Size As Int32 = 1024 * 
   1024 * 1024 - 1? 'File size = 1GB 
7. Dim bufSize As Int32 = 30 * 
   1024 * 1024???? 'Buffer Size = 30MB 
8. Dim jLast As Int32 = bufSize - 1  
9. Dim j As Int32  
10. Dim Bytes(bufSize) As Byte  
11. Dim StartWrite As DateDate = 
    Date.Now  
12. Console.WriteLine("Write Start at 
    {0}", StartWrite)  
13. Console.WriteLine("Creating")  
14. For I = 0 To Size Step bufSize '1GB  
15. fw.Write(Bytes)  
16. Next  
17. Dim EndWrite As DateDate = Date.Now  
18. Dim TimePassed As TimeSpan = EndWrite
    .Subtract(StartWrite)  
19. Console.WriteLine("Write End at 
    {0}", EndWrite)  
20. Console.WriteLine("Time passed:
    {0}", TimePassed)  
21. Console.WriteLine("Speed:{0}", 
    1000 / TimePassed.TotalSeconds)  
22. fw.Flush()  
23. Dim StartRead As DateDate = Date.Now  
24. Console.WriteLine("Read Start at 
    {0}", StartRead)  
25. Console.WriteLine("Reading")  
26. For I = 0 To Size Step bufSize  
27. Bytes = fr.ReadBytes(bufSize)  
28. Next  
29. Dim EndRead As DateDate = Date.Now  
30. TimePassed = EndRead.Subtract
    (StartRead)  
31. Console.WriteLine("Read End at {0}", 
    EndRead)  
32. Console.WriteLine("Time passed:
    {0}", TimePassed)  
33. Console.WriteLine("Read speed:{0}", 
    1000 / TimePassed.TotalSeconds)  
34. Console.ReadLine()  
35. fw.Close() 

現(xiàn)在開(kāi)始VB.NET測(cè)試硬盤(pán)速度。

硬件配置：

Athlon 2500+（running at 1.8G）

EPOX 8RDA3+ nForce2主板

512DDR 400(running at 400MHz)

ATA100 Seagate 7200.7 80GB 2MB

軟件配置：

Windows 2003 Server Standard Edition

全套最新的WHQL驅(qū)動(dòng)程序

Visual Studio 2003，編譯選擇Realse模式，打開(kāi)所有優(yōu)化選項(xiàng)。

第一次運(yùn)行VB.NET測(cè)試硬盤(pán)速度得寫(xiě)入速度43MB/s，第二次測(cè)得42MB/s，第三次41MB/s與Sisoftware測(cè)試得的結(jié)果43MB/s相差不大，達(dá)到了理想的效果。然而讀取測(cè)試就變態(tài)了，第一次64MB/s，與Sissoftware測(cè)試多了5MB/s左右，第二次達(dá)到了1096MB/s，第三次1123MB/s，這和Windows的磁盤(pán)緩沖機(jī)制有關(guān)，看來(lái)作用還是蠻大的，當(dāng)然，建議讀取測(cè)試在重起電腦以后進(jìn)行。