Visual Basic

anomis wrote:

I need to detect if is there any audio comming out on the speakers.

Dim name As String
sum = sum Xor ((CUInt(name.Chars(i)))<<(off And &H1F))

Ali hojjati wrote:

its serious.

 Dim div() As String

 Using fs As New FileStream(AppPath & "\" & StructureFile, FileMode.Open, FileAccess.Read, FileShare.None)

  'Clear Component Array
  ComponentArray.Clear()

  'Check if the file is empty
  If Not fs.Length = 0 Then
    'Create a new stream reader
    Using Reader As New StreamReader(fs)

      'Read each line of the file until the end of the file
      Do Until Reader.EndOfStream
        'Split each line delimited with '='
        '(Structure=Member1,Member2,...,MemberN)
        div = Reader.ReadLine.Split("=")
        CurrentComponent.ComponentStructure = div(0)
        CurrentComponent.ComponentMember = div(1)
        'Save the component in the 'ComponentArray' array list
        ComponentArray.Add(CurrentComponent)
      Loop
    'Close the stream reader
    End Using
  End If
End Using

Public Structure Component
    Dim ComponentStructure as String
    Dim ComponentMember as String
End Structure

Public Structure Component
	Dim ComponentStructure As String
	Dim ComponentMember As String
	Public Overrides Function ToString() As String
		Return Me.ComponentStructure
	End Function
End Structure

Public Sub ReLoadCustoms()
    Dim fs As FileStream
    Dim Reader As StreamReader
    Dim div() As String

    fs = New FileStream(AppPath & "\" & StructureFile, FileMode.Open, FileAccess.Read, FileShare.None)

    'Clear Component Array
    ComponentArray.Clear()

    'Check if the file is empty
    If Not fs.Length = 0 Then
        'Create a new stream reader
        Reader = New StreamReader(fs)

        'Read each line of the file until the end of the file
        Do Until Reader.EndOfStream
            'Split each line delimited with '='
            '(Structure=Member1,Member2,...,MemberN)
            div = Reader.ReadLine.Split("=")
            CurrentComponent.ComponentStructure = div(0)
            CurrentComponent.ComponentMember = div(1)
            'Save the component in the 'ComponentArray' array list
            ComponentArray.Add(CurrentComponent)
        Loop
        'Close the stream reader
        Reader.Close()
        'Close the file stream
        fs.Close()
    End If

    cboStructures.Items.Clear()

    For i As Integer = 0 To ComponentArray.Count - 1
                    ' <===================================================>
                    ' <=== This is why the 'Component' structure was modified
                    ' <=== The new ToString() method allows you to add the whole
                    ' <=== structure to the combo, instead of just the 'ComponentStructure' string
                    ' <===================================================>
        Me.cboStructures.Items.Add(ComponentArray(i))
    Next

    cboStructures.Items.Add("...Add...")
    cboStructures.SelectedIndex = 0

                    ' <===================================================>
                    ' <=== Loading cboMembers is not necessary here. That happens
                    ' <=== in the SelectedIndexChanged handler for cboStructures (below)
                    ' <===================================================>
    cboStructures.Update()


    FL_ADDED_NEW_STRUCTURE = False

End Sub

Private Sub cboStructures_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboStructures.SelectedIndexChanged
    If cboStructures.SelectedItem.ToString = "...Add..." Then
        ' <===================================================>
        ' <==== Your code for loading frmStructures
        ' <===================================================>
    Else
        ' <===================================================>
        ' <==== because the whole 'Component' structure is in cboStructures
        ' <==== we can get at 'ComponentMember' easily to fill cboMembers
        ' <===================================================>
        cboMembers.Items.Clear()
        Dim comp As Component = CType(cboStructures.SelectedItem, Component)
        Dim div As String() = comp.ComponentMember.Split(",")
        cboMembers.Items.AddRange(div)

        cboMembers.SelectedIndex = 0
    End If
End Sub