Category Archives: Array

Array of hex chars from a function

 Private Sub btnCrtFunc_Click(sender As System.Object, e As System.EventArgsHandles btnCrtFunc.Click
        Dim result As New System.Text.StringBuilder
        result.Append("Hexadecimal characters: ")
        result.Append(String.Join(",", HexadecimalCharacters()))
 
        ListBox1.Items.Clear()
 
        'Option I: Enumerate Hexadecimal Characters by line.
        For Each item As String In HexadecimalCharacters()
            With ListBox1
                .Items.Add(item)
            End With
        Next
 
        'Option II: List Hexadecimal Characters as a string.
        ListBox1.Items.Add(result.ToString)
 
    End Sub
 
    Public Function HexadecimalCharacters() As String()
        ' ----- Return the first 16 hex numbers as an array.
        Dim hexChars(255) As String
 
        For counter As Integer = 0 To UBound(hexChars)
            hexChars(counter) = Hex(counter)
        Next counter
        Return hexChars
    End Function

Advertisements

ForEachLoops

Iterating Through Array Elements

Private Sub btnIterate_Click(sender As System.Object, _
        e As System.EventArgsHandles btnIterate.Click
 
       
        Dim result As New System.Text.StringBuilder
        Dim fruitArray() As String = { _
           "Oranges""Apples""Grapes""Bananas""Blueberries"}
 
        For Each fruit As String In fruitArray
            result.AppendLine(fruit & ", ")
        Next fruit
 
 
        'The following codes creates a simple string array of 
        'fruit names, then processes each string in the array 
        'inside a For Each loop:
        ListBox1.Items.Add("")
        ListBox1.Items.Add("Example I: Using a String.Builder" & _
                           "to create a single string object" & _
                           "combining all elements the array.")
        ListBox1.Items.Add(result.ToString())
 
 
        ListBox1.Items.Add("")
        ListBox1.Items.Add("Example II: Simple Iteration showing individual array elements.")
        For Each item As String In fruitArray
            ListBox1.Items.Add(vbTab & item)
        Next
 
    End Sub

Sorting Array Elements

 Private Sub Button1_Click(sender As System.Object, e As System.EventArgsHandles Button1.Click
        Dim result As New System.Text.StringBuilder
        Dim arrayToSort() As String = { _
           "Oranges""Apples""Grapes""Bananas""Blueberries"}

        ' ----- Show the elements before sorting.
        result.AppendLine("Before sorting:")
        For Each fruit As String In arrayToSort
            result.AppendLine(fruit)
        Next fruit

        ' ----- Show the elements after sorting.
        result.AppendLine()
        result.AppendLine("After sorting:")
        Array.Sort(arrayToSort)
        For Each fruit As String In arrayToSort
            result.AppendLine(fruit)
        Next fruit

        MsgBox(result.ToString())
    End Sub
%d bloggers like this: