日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢(xún)
選擇下列產(chǎn)品馬上在線(xiàn)溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問(wèn)題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷(xiāo)解決方案
VB.NET硬盤(pán)速度測(cè)試詳細(xì)應(yīng)用方法介紹

學(xué)習(xí)VB.NET的朋友們應(yīng)該都會(huì)知道，其在移動(dòng)設(shè)備的操作方面展現(xiàn)了非常大的優(yōu)勢(shì)。在這里我們就會(huì)為大家詳細(xì)介紹一下有關(guān)VB.NET硬盤(pán)速度測(cè)試的相關(guān)方法，希望能給大家?guī)?lái)一些幫助。#t#

創(chuàng)新互聯(lián)公司是一家專(zhuān)注于成都做網(wǎng)站、成都網(wǎng)站建設(shè)與策劃設(shè)計(jì),商都網(wǎng)站建設(shè)哪家好?創(chuàng)新互聯(lián)公司做網(wǎng)站,專(zhuān)注于網(wǎng)站建設(shè)十余年,網(wǎng)設(shè)計(jì)領(lǐng)域的專(zhuān)業(yè)建站公司;建站業(yè)務(wù)涵蓋:商都等地區(qū)。商都做網(wǎng)站價(jià)格咨詢(xún):18982081108

我們最感興趣的是硬盤(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)確性?，F(xiàn)在就開(kāi)始動(dòng)手。

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

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

VB.NET硬盤(pán)速度測(cè)試的相關(guān)測(cè)試方法如上面這段代碼所示。


分享題目：VB.NET硬盤(pán)速度測(cè)試詳細(xì)應(yīng)用方法介紹
標(biāo)題鏈接：http://www.5511xx.com/article/dhehihh.html