Visual Basic

Finding Duplicate numbers

16-May-13 3:01

Evord wrote:
Hi everybody, am going to show you a sample program

We have samples on datagridprinters in the Article-section. This isn't a sample, it's a code-dump with a question. Let's focus on the question and solving it, shall we?

Instead of showing "exc.Message", try "exc.ToString()"; that way the messagebox will show on which line the error occured. That'd be easier in tracing the exception than reading the entire code and checking each line.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

CowlitzTroy13-May-13 21:29

CowlitzTroy

13-May-13 21:29

My class is now over. I had an issue with the the assignment. I couldn't get the program to find and display the duplicate random numbers. I've looked for almost two weeks for an answer and I'm hoping that someone here can help me.

This was the assignment:
Present the following report – (you will modify this based on user input and the actual rolls.

Number of dice:2
Number of sides:6
Number of rolls:2
Dice 1 Roll 1 = 5
Dice 2 Roll 1 = 6
Dice 1 Roll 2 = 1
Dice 2 Roll 2 = 1
Number of rolls where all dice were the same: 1

I got everything but the number of rolls where all the dice were the same. Can someone please advise me as to how this should have been done?

Here is a snippet of what I did:

'Start the randomization process
Dim RandomClass As New Random() 'Our random number generator

Dim vRoll() As Integer 'User entered variable for the array
ReDim vRoll(nDice) 'dynamic number entered by the user

Dim cntDice As Integer = 0

Dim myArray As New List(Of Integer)
Dim temp As Integer

myArray.Clear()

'Get the number of rolls and the number of dice and then randomize the rolls.
For i As Integer = 1 To rRoll
   For j As Integer = 1 To nDice
      temp = RandomClass.Next(1, dSize + 1)
      LST_Items.Items.Add("Dice " & j & " Roll " & i & " = " & temp.ToString)
      If Not myArray.Contains(temp) Then
        cntDice += 1
        LBL_Same.Text = cntDice
      Else
        LBL_Same.Text = "0"
      End If
  Next
Next

So if anyone is willing to give me advice I would greatly appreciate it.

Thanks!

Troy E Bouchard

Re: Finding Duplicate numbers

Dave Kreskowiak14-May-13 4:38

Re: Finding Duplicate numbers

14-May-13 4:38

First, you don't need that List. You're not trying to remember every single die roll.

Second, you never compare the roll of the first die to the roll of the second. Once you do that, you simply increment a counter that tracks how many times both dice are equal.

Third, you don't need two for loops, just one.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

MicroVirus17-May-13 1:39

MicroVirus

17-May-13 1:39

You could also sort the list first, then duplicates would show up next to each other.

Re: Finding Duplicate numbers

Dave Kreskowiak17-May-13 2:19

Lists of objects without losing class Intelli-sense

17-May-13 2:19

Don't need the list at all. Gen the first number on the roll and remember it. For each subsequent die, check it's value against the first die. Finding a non-dupliate is very easy. If you get through the loop withouting finding a non-duplicate, well, you know.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Purge1t13-May-13 18:24

Purge1t

13-May-13 18:24

Hi Guys,

Is it possible to have a list/collection of objects that inherit from a single base object without losing Intelli-sense?

Here is an example of what I mean...

Public Class baseblob

    Private _position As PointF

    Property position
        Get
            Return _position
        End Get
        Set(value)
            _position = value
        End Set
    End Property

    Sub New()
        position = PointF.Empty
    End Sub

End Class


Public Class blob

    Inherits baseblob

    Sub moveRight(ByVal Distance As Single)

        position = New PointF(position.X + Distance, position.y)

    End Sub

End Class


Public Class Form1

    Dim blob As New blob
    Dim blobs As New List(Of baseblob)

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        blob.moveRight(10)
        MsgBox(blob.position.x)

        blobs.Add(blob)
        MsgBox(blobs(0).position.x)

        blobs(0).moveright(10)
        MsgBox(blobs(0).position.x)

    End Sub

End Class

... but of course in the above example i get

'moveright' is not a member of 'oopTest.baseblob'

So it wants me to use

Dim blobs As New List(Of Object)

So it will compile and work as intended...

I just wanted to know is there something I'm missing here? Why can't I just let it know that it's a base object and to list all the possible methods/properties etc of the base class and also any objects that inherit the base class? Give me the lot!

To me it doesn't sound like such a hard thing to ask of the compiler/dev environment... why cant it do it ?

Frown | :(

modified 14-May-13 0:36am.

Re: Lists of objects without losing class Intelli-sense

Dave Kreskowiak13-May-13 18:51

Re: Lists of objects without losing class Intelli-sense

13-May-13 18:51

The method shows up.

In VB.NET, the default access modifier for a class method is Public. In C# it's private.

You'd be better served by not depending on the defaults but explicitly declaring your access levels. Also, your naming convention isn't exactly clean and understandable either. In your example, how do to tell the difference between a variable called blob and your class called blob?? It should look more like:

Public Class BaseBlob

    Private _position As PointF

    Public Property Position
        Get
            Return _position
        End Get
        Set(value)
            _position = value
        End Set
    End Property

    Sub New()
        Position = PointF.Empty
    End Sub

End Class

Public Class Blob
    Inherits BaseBlob

    Public Sub MoveRight(ByVal distance As Single)
         Position = New PointF(Position.X + distance, Position.y)
    End Sub
End Class

Public Class Form1

    Private blob As New Blob
    Private blobs As New List(Of BaseBlob)

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        blob.MoveRight(10)
        MsgBox(blob.Position.x)

        blobs.Add(blob)
        MsgBox(blobs(0).Position.x)

        blobs(0).MoveRight(10)
        MsgBox(blobs(0).Position.x)

    End Sub

End Class

You can't tell Intellisense to show all members from every class inheriting from a base class. It's not showing you the members of Blob because you told it the collection was a collection of BaseBlob, not Blob. Do you see a member on BaseBlob called MoveRight?? Nope. So it's not going to show any members that inherit from classes that inherit from BaseBlob because none of them are valid! MoveRight is not applicable to a collection member of blobs because you're are treating the objects in the collection as if they were BaseBlob object. It's telling you that if you try to use one of those members, the compile will fail!

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Purge1t13-May-13 19:21

Purge1t

13-May-13 19:21

Thanks for the naming scheme advice. What I use for my project is a lot easier. It was just a quick example. I should have made it easier to read, sorry.

My primary issue is that I need to have multiple class objects that behave differently (playership, enemy drone, missile etc) held in a single container so that my main loop can enumerate through them all.

For example.

For i as integer = 0 to blobs.count - 1
blobs(i).AiTick
blobs(i).Move
blobs(i).Draw
Next i

The only way I could find to do this was to create a base class with the ai/move/draw methods in it and have different classes inherit from the base class and over-ride the base class's methods.

The main issue i have is that these classes that inherit from the base class occasionally have extra methods. I would like to see those when i'm coding things like blobs(0).ExtraMethod like i can for the base class.

I guess what i'm asking isn't possible.

If ClassA inherits BaseClass and ClassB inherits BaseClass but ClassA also has an extra method called "ExtraMethod" then I already run the risk of accidently executing ExtraMethod on the item in the collection that is ClassB and causing an exception. I deal with that issue already in my code, so i don't understand why the dev environment is perfectly fine with me making a list(of Objects) and running List(0).ExtraMethod ... however when I ask it to have a list of BaseClass it doesnt goto the effort of listing what's availiable in any classes that inherit from BaseClass.

I guess I will just continue to have a list(of Object) instead of a list(of BaseClass) and continue running extra methods from classes that inherit from BaseClass as I currently do by first checking the object type.

Re: Lists of objects without losing class Intelli-sense

Dave Kreskowiak14-May-13 3:44

Re: Lists of objects without losing class Intelli-sense

14-May-13 3:44

Purge1t wrote:
I guess what i'm asking isn't possible.

It's not possible because you're trying to violate Object Oriented Programming principles.

You're putting the Move method in one object, when it actually applies to all of the objects. You have to Move the Player, Move the Missle, Move the EnemyDrone, ... Don't use a rather specific MoveRight method. It should be Move and take some kind of value(s) to tell it where to or how far to move. That should go in the Base object that these other objects inherit from.

The same is true for the Draw method. Every object should draw itself, so you pass in a Graphics object that it uses to draw itself on. This is common for every object you mentioned, so it should go in the Base object they are inheriting from, not the specific objects.

By the way, in your case, if you try to execute a method on an object that doesn't implement it, you don't get an exception. You get a compile-time error as the code will not compile.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Purge1t14-May-13 11:55

Purge1t

14-May-13 11:55

Thanks Dave.

Quote:
The same is true for the Draw method. Every object should draw itself, so you pass in a Graphics object that it uses to draw itself on. This is common for every object you mentioned, so it should go in the Base object they are inheriting from, not the specific objects.

The PlayerShip class draws a circle, the Missile class draws a triangle and the EnemyDrone class draws a square. How would i know how to depict each different class type if the drawing was done in the base class? Instead of having a MustOverRide .Draw method in the base class that each of the child-classes over-ride ?

Re: Lists of objects without losing class Intelli-sense

Dave Kreskowiak14-May-13 13:33

TryParse String from InputBox to Integer

14-May-13 13:33

You either have to have that "must override" method or you have to have an interface that every object implements that says justabout the same thing.

You MUST implement something that tells the compiler that "this method is expected in this class" so that you can call it no matter what the class really is.

The drawing is NOT done in the base class. It just provides a "must override" method so that each class can implement it's own drawing code, but since each drawing method implements the exact same method signature, outside code can call it without knowing exactly which type of class it is.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Member 1004983713-May-13 16:06

Member 10049837

13-May-13 16:06

I am currently trying to convert a String that is gotten from an input box to an Integer using the Try Parse method. The integer is then supposed to be used to fill an array named international. Here is the part of the code that pertains to this:

Dim Count As Integer
For Count = 0 To international.Length - 1
   international(Count) = Integer.TryParse(InputBox("Keep entering the sales for each month.  If nothing typed, will be interpeted as zero", "New data entry"))
Next Count

I am getting the error message: Overload resolution failed because no accessible 'TryParse' accepts this number of arguments.
How do I fix this?

Re: TryParse String from InputBox to Integer

PIEBALDconsult13-May-13 17:30

PIEBALDconsult

13-May-13 17:30

First, read the fine documentation: http://msdn.microsoft.com/en-us/library/f02979c7.aspx[^]

Next, don't do the TryParse in the loop.

How to get values from listview and display it to textbox using sql database ?

Member 1001708312-May-13 4:58

Member 10017083

12-May-13 4:58

How to get values from listview and display it to textbox using sql database ?
and then i can update the items in listview using a button..then refresh the listview
after i click the button...all in 1 form

tnx for the help in advance..im just a newbie in vb.net

Re: How to get values from listview and display it to textbox using sql database ?

Eddy Vluggen13-May-13 7:23

TreeView Find Starting from Some Child Node

13-May-13 7:23

Member 10017083 wrote:
How to get values from listview

Iterate it's items[^].

Member 10017083 wrote:
and display it to textbox using sql database ?

You don't display using a database. A database is for storage. To display text in a textbox, change it's text-property.

Member 10017083 wrote:
<layer>and then i can update the items in listview using a button..then refresh the listview

after i click the button...all in 1 form

You're describing how the application should work; it'd be a very long post if we'd get detailed into each method you'd be writing. I suggest you start with something simpeler; display some text in a listview, if that works, we can add a button. One step at a time Smile | :)

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

treddie11-May-13 21:20

treddie

11-May-13 21:20

Hello.

I am having zero luck finding anything on doing a TreeView1.Nodes.Find() starting from a particular child node. Find() apparently works over the entire tree, and does not let you specify a starting point in the tree.

Eddy Vluggen11-May-13 22:18

11-May-13 22:18

treddie wrote:
I am having zero luck finding anything on doing a TreeView1.Nodes.Find() starting from a particular child node.

Don't trust on luck. Where's your code?

treddie wrote:
Find() apparently works over the entire tree, and does not let you specify a starting point in the tree.

Trying something like below?

Imports System.Windows.Forms
Module Module1
    Private TreeView1 As New TreeView()
    Sub Main()
        Using f As New Form
            Dim btn As New Button
            btn.Dock = DockStyle.Top
            Dim node1 As TreeNode = TreeView1.Nodes.Add("Node1")
            node1.Nodes.Add("Sub1", "Sub1").Nodes.Add("Hello", "Hello")
            Dim node2 As TreeNode = TreeView1.Nodes.Add("Node2")
            node2.Nodes.Add("Sub1", "Sub1").Nodes.Add("Hello", "Hello")

            Dim foundNodes As TreeNode() = node2.Nodes.Find("Hello", True)

            If foundNodes.Length > 0 Then
                TreeView1.SelectedNode = foundNodes(0)
                TreeView1.Focus()
            End If

            f.Controls.Add(TreeView1)
            f.Controls.Add(btn)
            f.ShowDialog()
        End Using
    End Sub
End Module

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

treddie11-May-13 23:50

treddie

11-May-13 23:50

Hey, Eddy.

I probably should have put this post in my other thread, since I thought I was asking a separate question, but it turns out, I'm back to the old topic! Smile | :)

The problem I see with that solution is that it assumes that you know that the answer lies somewhere beneath Node2 and not Node1. In fact, if you don't know, then you either have to
'
1). Search the whole tree and find all instances of "Hello", then look at the full path property to see if it matches a pre-defined path, or
'
2). You have to be able to step through each node with Find(), and searchAllChildren = "False", to prevent the search from going any deeper than one node at a time. It also has to reject any instances of the search name that might occur ABOVE the current node. In the latter case, as far as I can tell, you need to be able to set a child node as a current node, as if it was the parent node so that the search starts from there. But vb.Net offers no way to set a child node to "Current" during a Find().

UPDATE:

If I change your code to the following:

Dim MyNodes(2) As TreeNode

MyNodes(1) = TreeView1.Nodes.Add("Node1")
MyNodes(1).Nodes.Add("Sub1", "Sub1").Nodes.Add("Hello", "Hello")

MyNodes(2) = TreeView1.Nodes.Add("Node2")
MyNodes(2).Nodes.Add("Sub1", "Sub1").Nodes.Add("Hello", "Hello")

Dim foundNodes As TreeNode() = MyNodes(2).Nodes.Find("Hello", True)

If foundNodes.Length > 0 Then
  TreeView1.SelectedNode = foundNodes(0)
  TreeView1.Focus()
End If

I gain flexibility in how the parent node is defined, but there is still no flexibility in the Find() operation...If instead of:
= MyNodes(2).Nodes.Find("Hello", True)
'
I want to do:
= MyNodes(2).My1stChildNodes(3).Nodes.Find("Hello", True)

I have to set that up explicitly. And it does not seem to be a problem that lends itself to recursion. The only option then, is to set up separate Find() functions for each node depth you want to start at. For a harddrive's directory structure, that could end up being 10-20 separate functions, easily.

modified 12-May-13 6:13am.

Eddy Vluggen12-May-13 1:16

12-May-13 1:16

treddie wrote:
is that it assumes that you know that the answer lies somewhere beneath Node2 and not Node1. In fact, if you don't know, then you either have to

If it's a path, then you'll know where it's located. If it's a random property, you'll have to go and check each item.

treddie wrote:
I want to do:

= MyNodes(2).My1stChildNodes(3).Nodes.Find("Hello", True)

TreeView1.Nodes("Node2").Nodes("Sub1").Nodes.Find("Hello")

What are you trying to do? This way of solving does not seem to be very helpful/fruitfull Smile | :)

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]