Sorting a one-dimensional array [modified] - Visual Basic Discussion Boards

Also - have you checked if that key exists at all ? DSBkgndMode doesn't exist on my machine.

I checked that they key exists, and it does. The program compiles with out any errors or warnings, and i have checked again to make sure.

It can't, the code you posted is missing a quote.

Did you try the code I posted ?

Soz, it's missing a quaote because i access the internet on a different pc. Where is the code you posted?

Soz, Its missing a quote cos i'm on the internet on a different pc. Where is the code you posted?

Please don't double post. Here is my response ( which is visible above, but anyhow.... )

readValue = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\Microsoft\MessengerService", "DSBkgndMode", "0")

You probably then want to convert the value to a number, and compare that.

Why have an enabled checkbox and a disabled one ? Isn't that redundant ?

I've had to restart the pc, and now im getting build errors in "Private Sub InitializeComponent()" There is 12 differnet errors, all for code generated by the form designer. Im gonna redo this form from scratch then get back tomorrow.

Thanks for the help

Hi everyone,
I've been working on this for 2 weeks and am at my wits end.
I have to read in 20 random numbers between 10 and 100, inclusive, and then display them with no duplicate numbers. The random array is no problem, but I can't seem to be able to loose the duplicate numbers. I started with the array unsorted, had not luck, so I sorted it first, but still no luck. Here's some snippets to show the direction I've been trying. (I hope I'm posting this right)

<Private Sub cmdSort_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles cmdSort.Click

Dim array1 As Integer() = New Integer() {randomObject.Next(10, 101), _
randomObject.Next(10, 101), randomObject.Next(10, 101), randomObject.Next(10, 101), _
randomObject.Next(10, 101), randomObject.Next(10, 101), randomObject.Next(10, 101), _
randomObject.Next(10, 101), randomObject.Next(10, 101), randomObject.Next(10, 101), _
randomObject.Next(10, 101), randomObject.Next(10, 101), randomObject.Next(10, 101), _
randomObject.Next(10, 101), randomObject.Next(10, 101), randomObject.Next(10, 101), _
randomObject.Next(10, 101), randomObject.Next(10, 101), randomObject.Next(10, 101), _
randomObject.Next(10, 101)}
Dim i, j As Integer
txtOutput.Text = ""
' omitted code for bubblesort
BubbleSort(array1)

For i = 0 To array1.GetUpperBound(0)
BinarySearch(array1, array1(i))
If array1(i) > 0 Then
txtOutput.Text &= array1(i) & " "
End If
Next
End Sub
Function BinarySearch(ByVal array As Integer(), _
ByVal key As Integer) As Integer

Dim low As Integer = 0 ' low index
Dim high As Integer = array.GetUpperBound(0) ' high index
Dim middle As Integer ' middle index
Dim number As Integer
key = number
While low <= high
middle = (low + high) \ 2

If key = array(middle) Then ' match
Return -1
ElseIf key < array(middle) Then ' search low end
high = middle - 1 ' of array
Else
low = middle + 1
End If

End While

Return number ' search key not found

End Function>

maddogjbm

-- modified at 14:39 Sunday 12th November, 2006

Hm... your code raises more questions than it answers...

Why do you call the BinarySearch function without taking care of the return value?
As the random numbers are always between 10 and 100, when do you expect the if statement that checks if it is larger than zero to exclude any value?
Why do you write your own BinarySearch, when there already exists one in the framework?
Why do you have the parameter key in the BinarySearch method, when you don't use it?
Why don't assign any value to the variable number?

---
b { font-weight: normal; }

OK, to start this is my first semester in VB.NET, I didn't grow up doing this, in fact I hadn't even touched a computer until 2001.
I'm trying to learn, if I knew the answers I wouldn't need to ask you.
In my mind the value return would be the number returned if it is not a duplicate? The reason for the statement that checks if it is larger than zero is because at one point the BinarySearch function was returning (and cmdSort was displaying) -1, that statement stopped it from displaying. I used my own BinarySearch because it was from my course text, I didn't realise framework had one, I'm still trying to make sense of the framework library, to me it's hard to understand. The book is a little easier, but still complicated.
As for the rest, my code started out much simpler but wasn't producing the results I desired so I've been altering it to try and get it to do what I need it to do. I believe I mentioned I've been working on this for 2 weeks, it's due by midnight tonight and I'm no closer to solving it now than I was before I asked for help here.

Hi Friend,

First of all try to make your post concise (dont mind).

now why not you simply declare an array then loop to 20 and generate random no.s then place an inner check that searches the random no. is already placed or not if yes loop variable's ending condition must be one incremented (or what ever u like).

I tried to answer. If not correct tell me your requirments then i'll try to solve.

Bye

Syed Shahid Hussain

Wow -what a mess.

List<int> list = new List<int>();

while(list.Count < 20)
{
int n = randomObject.Next(10,101);
if (!list.Contains(n)) list.Add(n); // ! is Not in VB.NET
}

list.Sort();

That should do it in C#, hopefully you can follow my logic and impliment it in VB.NET.

Why not make the numbers sorted and without duplicates from the start? Smile | :)

List<int> list = new List<int>();
int count = 20, n = 10;
Random rnd = new Random();
while (count > 0) {
	if (rnd.Next(101 - n) < count) {
		list.Add(n);
		count--;
	}
	n++;
}

---
b { font-weight: normal; }

Because that's harder to read ? :P Also, because I think it's worth pointing out that the container classes have methods like Sort, there's no need to be writing them.

I appriciate the thought, but C++ doesn't really help, I'm having a hard enough time trying to figure it out in VB.
Thank you though.

Hi
I can develop Muli-language projects in C# but in VB.net I cant. Please tell me exact method or an article that implement multi language... Smile | :)

Thanks

Syed Shahid Hussain

Hi All,
I am facing serious problem in vb.net multithreading .i am using dataset as shared variable but geeting error oject required .i am explaining in details .
i have defined one class ,in that difind one shared variable .calss having a function that called by timer thread and refereshing dataset every five minute .othere 60 thread concurrently access the dataset by filter and deleting the row from the dataset based on filter condition .but i am getting seriuos error null poiter exception object required continously . I tried synclock to avoid the error but after some days its starting again .
how can i resovled the problem if not then what is other solution .shall I use xml doc object .Is there any other object i can use instead of dataset .
please advised me .

-- modified at 12:33 Sunday 12th November, 2006

Jaseem Ahmad
Software Engineer ,
Mercator ,IT Division of Emirates group .
Deira Dubai.

n buddy is there to reply my question .

Jaseem Ahmad
Software Engineer ,
Mercator ,IT Division of Emirates group .
Deira Dubai.

Hey guys
Thx to codeproject Team... Smile | :)

if i have an array and wants to insert each field of that array in a DB

 While k < arr.Length<br />
<br />
insert into table table.column  values(k(0)...)               ?<br />
k=k+1

how do i do this?

Regards
Ramy

Your code is on the right track, except you would use arr(k), not k(0).

---
b { font-weight: normal; }

I know that it is gonna sound a silly question, i m new in Sql:

Insert into employee (id,name) values (employyeeId,"ramy")
what should i replace employeeide with
note that employyeid is the primarykey of the table
and how this value increments?

Regards
Ramy

If the field employeeid is defined as an IDENTITY field then the numbering is taken care of by sql server - you just need to insert the other field...

e.g.
INSERT INTO Employee (name) VALUE ('ramy')

Then you can find out what the identity of the most recent field added in your code by using the IDENT_CURRENT('Employee') syntax.

'--8<------------------------
Ex Datis:
Duncan Jones
Merrion Computing Ltd

Thx Ducan
issue solved

Regards
Ramy

Hi everyone,
I have a project in VC++ ,it is ClassLibrary project and it has a function that return jbyte *.
I would like to call this function in VB project ,how can I convert jbyte * to byte array ?
I would appreciated for any help .
If there is any document,sampe code or link for "type conversion between VC++ and VB.net "please inform me.
yours sincerely,
Orchid

What on earth is a jbyte ?