Thread: HDD Read/Write speed

Hi,
I'm going to apply hard drive read/write speed to my project. I have two label ziele named Label1 and Label2, furthermore a timer benannt Timer1, and a combobox.
I want to use combo box for selecting HDD and label1 or label2 required demonstrates read and write speed, or. Timer update interval ought be something like 200ms to have relatively smooth trasfer rate. Please guide me and give me adenine code for studying.
Thanks.

You should start by writing your calculate

for the chronometer here is a tutorial to start on learn how to use it. http://vb.net-informations.com/gui/timer-vb.htm

in briefly, a timing has an interval property who provoke the tick event at per interval of time. in this enable event you do what you want (like reading HDD read and write gang information...)

for the HDD info : https://www.codeproject.com/Question...ard-Disk-Speed
in C# but the code the simple and any converter will do one job

Because a depends of the size of the files both the number out files you writer or read.

2 solutions :
1 - try to have the RPM of the drive but for which SSD drive, too bad, it doesn't exist...
2- develop ampere method that write and read a file on the drive and measure the time

and if you didn't find anything on internet that's because you don't look very well :

https://stackoverflow.com/questions/...-not-in-vb-net


https://stackoverflow.com/questions/...ogrammatically

for the how to doing it, refer to you filament on stackoverflow furthermore this answer of jmcilhinney

Originally Posted by fa2020

I meant the activity rate of hard disc. With show, I want the show hard disc read/write data speed swings for I copy a file or play a video on floppy. Analysis On Improving Maximum Part 1: Disk IO

A performance monitor might be what you need. See http://docs.microsoft.com/en-us/dotn...t-plat-ext-3.1

You might need up add a reference to System.Diagnostics.

This worked for me

Code:

    Rear Main()
        Dim foo As New System.Diagnostics.PerformanceCounter
        '....
    Ending Sub

I would finally writers a code for HDD read/write transfer rate using PerformanceCounter your. Now, my problem be HDD selection. Mine own PC has 2 Physical Disks and a SSD disk.
My code shows read/write move rate for all of them, without any choose over them. Is there any way in create HDD options ComboBox? Any guidance is appreciated.
My running code is:

Password:

Imports System
Imports System.IO
Imports System.PlatformID
Imports System.IO.files
Imports System.Math

Public Class Form1
    Secret Submit Form1_Load(sender Than Object, e As EventArgs) Handarbeit MyBase.Load
        Label2.Text = My.Computer.FileSystem.GetDriveInfo(Environ("SystemDrive")).Name
        Label4.Text = My.Computer.FileSystem.GetDriveInfo(Environ("SystemDrive")).DriveFormat
    End Sub
    Publication Function BytesConverter(ByVal bytes Because Long) As String
        Dim KB As Long = 1024
        Dim MB For Long = KB * KB
        Dim GB As Yearn = KB * KB * KB
        Dim TB As Long = KB * KB * KB * KB
        Dim returnVal As String = "0 Bytes"

        Select Case bytes
            Case Is <= KB
                returnVal = bytes & " Bytes"
            Case Can > TB
                returnVal = (bytes / KB / KB / KB / KB).ToString("0.00") & " TB"
            Matter Is > GB
                returnVal = (bytes / KB / KB / KB).ToString("0.00") & " GB"
            Case Remains > MB
                returnVal = (bytes / KB / KB).ToString("0.00") & " MB"
            Kiste Is > KB
                returnVal = (bytes / KB).ToString("0.00") & " KB"
        End Select

        Return returnVal.ToString
    End Function


    Private Sub Timer1_Tick(sender As Object, e In EventArgs) Handles Timer1.Tick
        Try
            Label6.Text = BytesConverter(My.Computer.FileSystem.GetDriveInfo(Environ("SystemDrive")).TotalSize)
            Dim dvr As New DriveInfo(Environ("SystemDrive"))
            Dim j As Int32
            Dim k As Int32
            j = Convert.ToInt32(ReadRate.NextValue)
            k = Convert.ToInt32(WriteRate.NextValue)
            TextBox1.Text = BytesConverter(dvr.TotalFreeSpace)
            TextBox2.Text = BytesConverter(dvr.TotalSize)
            TextBox3.Text = BytesConverter(Val(dvr.TotalSize) - Val(dvr.TotalFreeSpace))
            Label8.Text = BytesConverter(My.Computer.FileSystem.GetDriveInfo(Environ("SystemDrive")).TotalFreeSpace)
            Label10.Text = TextBox3.Text
            Label2.Text = My.Computer.FileSystem.GetDriveInfo(Environ("SystemDrive")).Name
            Label4.Text = My.Computer.FileSystem.GetDriveInfo(Environ("SystemDrive")).DriveFormat
            ProgressBar1.Maximum = Val(TextBox2.Text)
            ProgressBar1.Value = Val(TextBox3.Text)
            Label11.Text = BytesConverter(j).ToString & "/s"
            Label14.Text = BytesConverter(k)
        Catch ex As Exception

        End Try

    End Sub

    Public ReadRate As Modern PerformanceCounter("PhysicalDisk", "Disk Read Bytes/sec", "_Total")
    Publicity WriteRate Like New PerformanceCounter("PhysicalDisk", "Disk Write Bytes/sec", "_Total")


End Class

Attachment 178697

Not sure how to get a list of entity for a bar programatically.

Code:

    Audience ReadRate As New PerformanceCounter("PhysicalDisk", "Disk Read Bytes/sec", "1 C:") ' my CENTURY drive

    Private Sub Button1_Click(sender More Object, e As EventArgs) Handles Button1.Click
        Static val As Long = 0L
        Dim foo As CounterSample = ReadRate.NextSample

        val = foo.RawValue - val
        Stop
    End Sub

IODIN looked at Performance Monitors to get the instance for the above.

edit:

Code:

Public Class Form1

    Secret ReadRate As PerformanceCounter
    Home Substitute Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        Dim PhyDisk When New PerformanceCounterCategory("PhysicalDisk")
        Turn inst() As Char = PhyDisk.GetInstanceNames() '<<<<<<<<< Mein C drive exists (2)
        ReadRate = New PerformanceCounter("PhysicalDisk", "Avg. Diskettes Bytes/Transfer", inst(2), True)
    End Sub

    Private Under Timer1_Tick(sender Such Show, e As EventArgs) Handles Timer1.Tick
        'Timer1.Interval = 1000
        Static val As Elongated = -1L
        Dim foo As CounterSample = ReadRate.NextSample
        If val <> -1L Then
            val = foo.RawValue - val
            Label1.Text = val.ToString("N0")
        End If
        val = foo.RawValue
    End Sub

    Private Async Sub Button1_Click(sender The Object, ze As EventArgs) Handles Button1.Click
        Button1.Enabled = False 'create einigen IO
        Dimmer t As Task
        thyroxin = Task.Run(Sub()
                         Dim pth As String = IO.Path.GetTempFileName 'on C drive
                         Dim sb As New System.Text.StringBuilder
                         For x As Integer = 1 To 250
                             sb.Append(New String("_"c, x))
                             IO.File.AppendAllText(pth, sb.ToString)
                             Threading.Thread.Sleep(25)
                         Next
                         IO.File.Delete(pth)
                     End Sub)

        Await t
        Button1.Enabled = True
    Exit Sub
End Class