| | |
Sorting has me out of sorts.
![]() |
•
•
Join Date: Apr 2006
Posts: 7
Reputation:
Solved Threads: 0
I have posted items on my vb problem with detailes of my code to sort in vb with very little response, so i will be brief and present only my problem.
The only practical advice I got was to search for arrays and sorting through search engines. Several of them described how to sort numbers in an array, but nothing that showed how to carry names attached to numbers.
What I am trying to do is sort names attached to scores I have allocated and put them into a ListBox or TextBox or whatever in order best score top to bottom. I am using a bubblesort and list box at the moment, and get the names and numbers OK into the list box, but not sorted in order, i.e. I enter for example
Bill 145, which appears in the list box, then
joe 133 then
mike 150 and hope for a sort into
mike 150
bill 145
joe 133
Also when I type NameBox.Text it is accepted by VB But BestHcapBox. Text is not accepted but I am directed to the choice BestHcapBox.Count
This did not happen when I used similar code successfully 18 months ago, before I changed my pc and lost copies of the exact code.
I have had several readers of my post on other sites, but only one positive response. Can my English be that bad?
The only practical advice I got was to search for arrays and sorting through search engines. Several of them described how to sort numbers in an array, but nothing that showed how to carry names attached to numbers.
What I am trying to do is sort names attached to scores I have allocated and put them into a ListBox or TextBox or whatever in order best score top to bottom. I am using a bubblesort and list box at the moment, and get the names and numbers OK into the list box, but not sorted in order, i.e. I enter for example
Bill 145, which appears in the list box, then
joe 133 then
mike 150 and hope for a sort into
mike 150
bill 145
joe 133
Also when I type NameBox.Text it is accepted by VB But BestHcapBox. Text is not accepted but I am directed to the choice BestHcapBox.Count
This did not happen when I used similar code successfully 18 months ago, before I changed my pc and lost copies of the exact code.
I have had several readers of my post on other sites, but only one positive response. Can my English be that bad?
Check This thread on sorting dates with other "junk" attached: http://www.daniweb.com/techtalkforums/thread41491.html, there are some examples in there on sorting, or some functions that might help you out.
•
•
Join Date: Apr 2006
Posts: 7
Reputation:
Solved Threads: 0
Many thanks for your speedy reply Comatose.
I am astonished at the time and thought that you and other interested parties expended in the thread you pointed me to.
You helped an 18 year old then. I am a pensioner with many interests, and the struggles to gain exam results are far behind me. I am not skilled in visual basic, and though I found your recommended thread fascinating, and followed your expansion reasonably well, I do not feel confident enough to try to adapt it for my purposes.
I give below code, if it merits that title, which I adapted from some given to me by a work colleague who has moved.
Something very much like it worked well enough for my purposes, but I lost the code when I bought a new pc.
If you care to look through it perhaps the fault which evades me will be obvious to you. As you can guess, it is an attempt to put race horses in top down order with scores I have accorded them.
One unusual change from my original now lost little program is that when I use NameBox.Text anywhere it is accepted,but if I try BestHcapBox.Text I am directed to BestHcapBox.Count. I am certain this did not happen in my original program.
Below I show what I am trying to do and the code as near as I remember which worked.
I should like to sort names and scores into top score to bottom, i.e. fred 130, joe 124, bill 143, max 119 and so on
into
bill 143
fred 130
joe 124
max 119
in a visual basic application, so need a bubblesort or other method to present name and score together.
My attempt at the moment is as follows. The name and score appear together in my ListBox, but not in best score, with name, in top to bottom fashion.
'now sort horses and scores in order
htotal(ct) = Val(TotBox.Text)
If ct = 0 Then
For Num = 0 To ct
For lefhorse = 0 To ct - 1
righorse = lefhorse + 1
righorse = lefhorse + 1
If htotal(lefhorse) < htotal(righorse) Then
temptot = htotal(lefhorse)
htotal(lefhorse) = htotal(righorse)
htotal(righorse) = temptot
bname = hname(lefhorse)
hname(lefhorse) = hname(righorse)
hname(righorse) = bname
End If
Next lefhorse
Next Num
ListBox.Clear '(I have forgotten where this was placed in the code)
For Num = 0 To ct
ListBox.AddItem Str(htotal(Num)) + " " + hname(Num)
Next Num
Else
ListBox.AddItem Str(htotal(ct)) + " " + hname(ct)
End If
ct = ct + 1
'ask if any more horses to enter
If ct >= 12 Then
MsgBox ("you have entered maximum number of runners")
End If
I am astonished at the time and thought that you and other interested parties expended in the thread you pointed me to.
You helped an 18 year old then. I am a pensioner with many interests, and the struggles to gain exam results are far behind me. I am not skilled in visual basic, and though I found your recommended thread fascinating, and followed your expansion reasonably well, I do not feel confident enough to try to adapt it for my purposes.
I give below code, if it merits that title, which I adapted from some given to me by a work colleague who has moved.
Something very much like it worked well enough for my purposes, but I lost the code when I bought a new pc.
If you care to look through it perhaps the fault which evades me will be obvious to you. As you can guess, it is an attempt to put race horses in top down order with scores I have accorded them.
One unusual change from my original now lost little program is that when I use NameBox.Text anywhere it is accepted,but if I try BestHcapBox.Text I am directed to BestHcapBox.Count. I am certain this did not happen in my original program.
Below I show what I am trying to do and the code as near as I remember which worked.
I should like to sort names and scores into top score to bottom, i.e. fred 130, joe 124, bill 143, max 119 and so on
into
bill 143
fred 130
joe 124
max 119
in a visual basic application, so need a bubblesort or other method to present name and score together.
My attempt at the moment is as follows. The name and score appear together in my ListBox, but not in best score, with name, in top to bottom fashion.
'now sort horses and scores in order
htotal(ct) = Val(TotBox.Text)
If ct = 0 Then
For Num = 0 To ct
For lefhorse = 0 To ct - 1
righorse = lefhorse + 1
righorse = lefhorse + 1
If htotal(lefhorse) < htotal(righorse) Then
temptot = htotal(lefhorse)
htotal(lefhorse) = htotal(righorse)
htotal(righorse) = temptot
bname = hname(lefhorse)
hname(lefhorse) = hname(righorse)
hname(righorse) = bname
End If
Next lefhorse
Next Num
ListBox.Clear '(I have forgotten where this was placed in the code)
For Num = 0 To ct
ListBox.AddItem Str(htotal(Num)) + " " + hname(Num)
Next Num
Else
ListBox.AddItem Str(htotal(ct)) + " " + hname(ct)
End If
ct = ct + 1
'ask if any more horses to enter
If ct >= 12 Then
MsgBox ("you have entered maximum number of runners")
End If
•
•
Join Date: Apr 2006
Posts: 7
Reputation:
Solved Threads: 0
•
•
•
•
If it's not too big of a hassle, could you attach the project in a zip file to your next post?
It is April since you asked me to send my project to you. I tried several times, and as you did not reply I feel sure I failed to use the zip properly. I gave up in despondency, not due to bad manners. I am not sure how to send my user face, but can send my code if you are still willing to help. I have really got no further despite many attempts, and hate to give up after the time I have spent on it.
I also tried recently to send a message in private to you more than once, but the content was neither saved nor delivered as far as I could see.
Hoping for a favourable reply
Bogeybrown
When you make a VB project, it has a bunch of files with it. So, in order to make sure we do this right.... make a new folder (on the desktop for simplicity), open the project in VB, click the file menu, click "save as", and change the folder list in that new window to the new folder you made, and click ok, or save, or whatever the button is.... once you save the project (it should save all the files with it) in the new folder, close out of VB, and find the new folder. Right Click on it, and choose "send to", and then click "Compressed (Zipped) Folder". It will make a file with the same name as the folder, but it will kinda look like a vice (this is assuming that you have windows XP). Attach that to the post.
•
•
Join Date: Apr 2006
Posts: 7
Reputation:
Solved Threads: 0
•
•
•
•
When you make a VB project, it has a bunch of files with it. So, in order to make sure we do this right.... make a new folder (on the desktop for simplicity), open the project in VB, click the file menu, click "save as", and change the folder list in that new window to the new folder you made, and click ok, or save, or whatever the button is.... once you save the project (it should save all the files with it) in the new folder, close out of VB, and find the new folder. Right Click on it, and choose "send to", and then click "Compressed (Zipped) Folder". It will make a file with the same name as the folder, but it will kinda look like a vice (this is assuming that you have windows XP). Attach that to the post.
Dear Comatose
Yes I do use XP, the Home version
Failure looms over me. In trying to zip my project to you, I changed the name of my program and somehow lost it in more ways than one.
Now all I get is 'file not found - startup form or sub-main() required.' It seems I am a beginner self-taught badly, and too old to take up this fascinating visual basic as one of my hobbies.
Must I start all over again?
Yours,
Bogeybrown
![]() |
Similar Threads
- help with sorting program (C++)
- Sorting in Python (Python)
- Sorting Algorithms using Time (C++)
- Vectors, Functions, and Sorting... oh my! (C++)
- help on sorting...please... (C)
- counting comparisons when sorting (C++)
Other Threads in the Visual Basic 4 / 5 / 6 Forum
- Previous Thread: how to validate text file, loading into listbox
- Next Thread: Login Screen with VB6 and Access
| Thread Tools | Search this Thread |
* 6 429 2007 access activex add age application basic beginner birth bmp calculator cd cells.find click client code college column component connection connectionproblemusingvb6usingoledb copy creat ctrl+f data database datareport date delete dissertations dissertationthesis dissertationtopic edit error excel excelmacro file filename form hardware header iamthwee image inboxinvb internetfiledownload keypress label listbox listview liveperson login looping machine microsoft movingranges number objectinsert open oracle password prime program prompt range-objects readfile reading record refresh remotesqlserverdatabase report retrieve save search sendbyte sites sort sql sql2008 sqlserver subroutine tags textbox time urldownloadtofile vb vb6 vb6.0 vba visual visualbasic visualbasic6 web window windows






