Help with loop and matrix in VB6

erykewell

Hi there people.
I'm a newbie in using Visual Basic and need help with my college project I'm working on. I'm developing a program based on a MATLAB program.

The situations are:

1. How do I sort a matrix using VB6? i.e if I have 2 variables, d1 and d2, I want
sort it that it'll become
[d1 d2]

2. if I have this command:

Expand|Select|Wrap|Line Numbers

 
For m = 3 To txtNmbrOfSleeper.Text Step 1

  DeflecRHS(m) = (2 + (T / k)) * DeflecRHS(m - 1) - DeflecRHS(m - 2)

Next DeflecRHS
 
For n = 2 To txtNmbrOfSleeper.Text Step 1

  ForceRHS(m) = k * (DeflecRHS(m) - DeflecRHS(m - 1))

Next ForceRHS
 
StifnessRHS = ForceRHS / DeflecRHS

Will the calculation of StifnessRHS be using the values from the loop?
Because there are a lot of calculations in this program that are using values from the loop.

3. How to do a column summation in a matrix?

That's all. Your helps will be greatly appreciated.

Bum

Use a bubble sort:

Expand|Select|Wrap|Line Numbers

 Sub BubbleSort(List() As Long, ByVal min As Integer, _

    ByVal max As Integer)

Dim last_swap As Integer

Dim i As Integer

Dim j As Integer

Dim tmp As Long
 
    ' Repeat until we are done.

    Do While min < max

        ' Bubble up.

        last_swap = min - 1

        ' For i = min + 1 To max

        i = min + 1

        Do While i <= max

            ' Find a bubble.

            If List(i - 1) > List(i) Then

                ' See where to drop the bubble.

                tmp = List(i - 1)

                j = i

                Do

                    List(j - 1) = List(j)

                    j = j + 1

                    If j > max Then Exit Do

                Loop While List(j) < tmp

                List(j - 1) = tmp

                last_swap = j - 1

                i = j + 1

            Else

                i = i + 1

            End If

        Loop

        ' Update max.

        max = last_swap - 1
 
        ' Bubble down.

        last_swap = max + 1

        ' For i = max - 1 To min Step -1

        i = max - 1

        Do While i >= min

            ' Find a bubble.

            If List(i + 1) < List(i) Then

                ' See where to drop the bubble.

                tmp = List(i + 1)

                j = i

                Do

                    List(j + 1) = List(j)

                    j = j - 1

                    If j < min Then Exit Do

                Loop While List(j) > tmp

                List(j + 1) = tmp

                last_swap = j + 1

                i = j - 1

            Else

                i = i - 1

            End If

        Loop

        ' Update min.

        min = last_swap + 1

    Loop

End Sub

Hope this helps,

B

Help with loop and matrix in VB6

re: Help with loop and matrix in VB6

Similar Visual Basic 4 / 5 / 6 bytes

/bytes/development

/bytes/it

/bytes/about