Visual Basic

Christian Graus wrote:

Break the task down into steps. Work it out on paper so your steps lead to the right answer. Step through in the debugger and work out at what point your code is not doing what you expect it to.

Christian Graus wrote:

suggest instead that you contact your teacher and tell them you are too dumb for their course.

code block

dFAvg = iSum / Convert.ToDouble(lblGrades.Text) 'calculate average

  Dim iSum As Integer = 0
        Dim dFAvg As Double = 0
        Dim dDev As Double = 0
        Dim dSqDev As Double = 0
        Dim strArr As Array = {1, 3, 4, 6, 9, 19}

        For count = 0 To strArr.Length - 1
            iSum += Convert.ToDouble(strArr(count))             
lstGrades.Items.Add(strArr(count))
            lblGrades.Text = lstGrades.Items.Count
            lblSum.Text = iSum 'display sum in label box
            dFAvg = iSum / Convert.ToDouble(lblGrades.Text) 'calculate average
        Next
        For count = 0 To strArr.Length - 1
            dDev = ((strArr(count) - dFAvg) ^ 2)
            dSqDev += dDev
        Next 'end for
        lblSumDev.Text = FormatNumber(dSqDev, 2)
    End Sub

offroaderdan wrote:

however this code is for vb6

Imports System
Imports System.Management
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
    Public Overloads Shared Function _
        Main(ByVal args() As String) As Integer

    End Function 'Main

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim s As New ManagementObjectSearcher( _

            select SerialNumber from Win32_BIOS""     ' the bit of code you told me to put in it!!
            New EnumerationOptions( _
            Nothing, System.TimeSpan.MaxValue, 1, _
            True, False, True, True, False, _
            True, True))
        For Each service As ManagementObject In s.Get()
                'show the instance
            TextBox1.Text = (service.ToString())
        Next
    End Sub
End Class

Public Sub q()
    Dim s As New ManagementObjectSearcher( _
        "root\MyApp", _
        "SELECT SerialNumber FROM Win32_BIOS", _
        New EnumerationOptions( _
        Nothing, System.TimeSpan.MaxValue, 1, _
        True, False, True, True, False, _
        True, True))
    For Each service As ManagementObject In s.Get()
        'show the instance
        TextBox1.Text = (service.ToString())
    Next
End Sub

Imports System.Management

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'Enumarate Drives List
        For Each drive As System.IO.DriveInfo In System.IO.DriveInfo.GetDrives
            ListBox1.Items.Add(drive.Name)
        Next

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ListBox1.SelectedItems.Count > 0 Then
            ListBox2.Items.Clear()

            'Get the WMI Properties for the Drive and populate the list box
            Dim query As New SelectQuery("Win32_LogicalDisk")

            'ManagementObjectSearcher retrieves a collection of WMI objects based on the query.
            Dim search As New ManagementObjectSearcher(query)

            ' Display each entry for Win32_LogicalDisk
            Dim info As ManagementObject
            For Each info In search.Get()
                For Each item As PropertyData In info.Properties
                    ListBox2.Items.Add(item.Name & " : " & item.Value)
                Next
            Next
        End If
    End Sub

End Class

If ListBox2.Items.Contains("VolumeSerialNumber" & " : " & item.value) Then
           TextBox1.Text = "VolumeSerialNumber" & " : " & item.value
       End If