[RESOLVED] How to rank 5 textbox value to another 5 textbox?

[Rakibswn]

Hello,

I want to rank my 5 textbox data to another 5 textbox. For example I have 5 data in my Five text box.

TextBox1.text = 10
TextBox2.text= 12
TextBox3.text= 9
TextBox4.text=15
TextBox5.text=21

I want to put this five textbox data to another five textbox (highest value to lowest value.

Is it possible? And how?

Thanks

[Zvoni]

Throw the values of your first 5 textboxes into an Array, sort the Array, then assign the sorted Array-Values to your second 5 Textboxes going backwards through the Array

[jdelano]

You could put the values in an array and use Reverse(), you need to import System.Array (edit 2: fixed typo)

Here is an example:

    Dim sortArray() As Int16 = {10, 12, 9, 15, 21}
    Dim displayResults As String = ""

    'Sort(sortArray)
    Reverse(sortArray)

    For Each i As Int16 In sortArray
        displayResults += i.ToString & ","
    Next

    MsgBox($"Array sorted is {displayResults}")

have to switch browsers to upload a screenshot, Edge is not working EDIT: added screenshot

edit: use the Reverse function.

[Zvoni]

You could put the values in an array and use Sort(), you need to import System.Array (edit 2: fixed typo)

Here is an example:

    Dim sortArray() As Int16 = {10, 12, 9, 15, 21}
    Dim displayResults As String = ""

    Sort(sortArray)

    For Each i As Int16 In sortArray
        displayResults += i.ToString & ","
    Next

    MsgBox($"Array sorted is {displayResults}")

have to switch browsers to upload a screenshot, Edge is not working EDIT: added screenshot

OP wants highest Value first.....

[jdelano]

OP wants highest Value first.....

Uhg what a bonehead I am.

[Zvoni]

Uhg what a bonehead I am.

You do realize, that your Screenshot is not SORTED?

EDIT: And let's not forget, that those values are in textboxes, wich would make them Strings, so assigning those Values to an Integer-Array would ne a TypeCast

[jdelano]

You do realize, that your Screenshot is not SORTED?

EDIT: And let's not forget, that those values are in textboxes, wich would make them Strings, so assigning those Values to an Integer-Array would ne a TypeCast

Goooodd grief ... I'm going back to bed and starting today over. (egg faced loser - out)


EDIT: okay LAST time
In order to sort the numbers properly they need to be an integer, so add them to an array like

using this code:

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sortArray(4) As Int16
        Dim displayResults As String = ""
        Dim textboxIndex As Integer
        Dim txtBox As TextBox

        For textboxIndex = 1 To 5
            ' find each textbox and get the value entered
            txtBox = CType(Me.Controls.Find("TextBox" & textboxIndex.ToString(), True)(0), TextBox)

            ' add the value to the array
            sortArray(textboxIndex - 1) = Convert.ToInt16(txtBox.Text)
        Next textboxIndex

        Sort(sortArray)
        Reverse(sortArray)

        For Each i As Int16 In sortArray
            displayResults += i.ToString & ","
        Next

        MsgBox($"Array sorted is {displayResults}")

    End Sub

I'm going to find a rock to hide under now.

You'll need to test for whether an actual number is in the textbox, you can then use a second for loop to write the array to the second set of 5 textboxes (presumably TextBox6, 7, 8, 9, 10) in much the same way the first loop finds the first 5.

[Rakibswn]

Attachment 192362

thank you but I want to transfer 5 textbox data to another5 textbox.

[Rakibswn]

Attachment 192363

Attachment 192362

thank you but I want to transfer 5 textbox data to another5 textbox. like the image.

[jdelano]

Use the for loop I used to read the first 5 textboxes as an example to write to the other 5 textboxes.

[Rakibswn]

Sorry to say I am new in VB. Can you help me to write the code? Please.

[.paul.]

Dim inputTextBoxes() As TextBox = {TextBox1, TextBox2, TextBox3, TextBox4, TextBox5}
Dim values(4) As Integer

For x As Integer =0 To 4
    Dim v As Integer
    Integer.TryParse(inputTextBoxes(x).Text, v)
    values(x) = v
Next

Array.Sort(values)
Array.Reverse(values)

Dim outputTextBoxes() As TextBox = {TextBox6, TextBox7, TextBox8, TextBox9, TextBox10}

For x As Integer =0 To 4
    outputTextBoxes(x).Text = values(x).ToString
Next

[Rakibswn]

Thank you so much.