Arrange Numbers

Upload your Visual Basic Code that you want to share with everyone. Visual Studio 2012 and UP
User avatar

Topic author
Edward572
Site Admin
Site Admin
Posts: 67
Joined: Sat Dec 29, 2012 6:13 pm
Location: Ontario, Canada
Canada

Arrange Numbers

Post by Edward572 » Sat Aug 23, 2014 11:44 am

Code: Select all

        ' Ordering Starts

        For w = 1 To 10
            For h = 1 To 7
                For g = 1 To 7

                    If ORSaveit(w, h) < ORSaveit(w, g) Then K10 = ORSaveit(w, h) : K20 = ORSaveit(w, g) : ORSaveit(w, h) = K20 : ORSaveit(w, g) = K10
                    If SetSix(w, h) < SetSix(w, g) Then K10 = SetSix(w, h) : K20 = SetSix(w, g) : SetSix(w, h) = K20 : SetSix(w, g) = K10

        Next g, h, w

        '   Ordering Ends
Cheers All, Have A Good One
StormerSoft.Com

Bacon is the greatest food
Forum StormerSoft.Com