Solved

Class initiation problem - really simple to solve I would imagine

Posted on 2006-11-22
5
142 Views
Last Modified: 2010-04-23
Hi All,

I am new to VB.NET 2005 programming and tried to create a class and then call if from the click event of a button. I think I have defined it correctly, but VS will not let me compile it saying there is an error. Please could somebody point out what I need to do to fix it.

Here is the class:
Public Class clsGameSequence

    Private m_objSequence() As String

    Public Property objSequence() As Array
        Get
            Return m_objSequence
        End Get
        Set(ByVal objTempArray As Array)
            m_objSequence = objRandSequence(objTempArray)
        End Set
    End Property

    Private Function objRandSequence(ByVal objSourceArray() As String) As String()
        Dim objReturnArray(objSourceArray.GetUpperBound(0)) As String
        Array.Copy(objSourceArray, objReturnArray, objSourceArray.Length)

        Dim ranR As New Random
        Dim intIndex As Integer
        Dim strTemp As String
        For i As Integer = 0 To objReturnArray.Length - 1
            intIndex = ranR.Next(0, objReturnArray.Length)
            strTemp = objReturnArray(i)
            objReturnArray(i) = objReturnArray(intIndex)
            objReturnArray(intIndex) = strTemp
        Next

        Return objReturnArray
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim origArray() As String = {"Ann", "Bob", "Cole", "Doug", "Eric", "Fran", "Greg", "Hope"}
        Dim randArray() As String = objSequence(origArray)

        Debug.Print(String.Join(", ", origArray))
        Debug.Print(String.Join(", ", randArray))
    End Sub
End Class

**** and this is how I call it on the click event in the form
    Private Sub RandomSequenceToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RandomSequenceToolStripMenuItem.Click
        Dim origArray() As String = {"Ann", "Bob", "Cole", "Doug", "Eric", "Fran", "Greg", "Hope"}

        Dim newRand As clsGameSequence
        newRand = New clsGameSequence()
        newRand.Set(origArray)


        Dim randArray() As String = objSequence(origArray)

        Debug.Print(String.Join(", ", origArray))
        Debug.Print(String.Join(", ", randArray))

    End Sub

It's not too clear here but I am sure if you copied it into your fav IDE it would color it all nice.

Thanks in advance!
0
Comment
Question by:eadam-uk
  • 3
  • 2
5 Comments
 
LVL 13

Accepted Solution

by:
newyuppie earned 500 total points
Comment Utility
well for starters, i could point out that in this line of the RandomSequenceToolStripMenuItem_Click call,

newRand.Set(origArray)

you may be meaning to do this instead:

newRand.objSequence = origArray
0
 

Author Comment

by:eadam-uk
Comment Utility
Ok, so there is no "Set" method as such it just depends on which side of the '=' sign you put the call. Above it sets it and if I were do do origArray = newRand.objSequence would be the get method.
0
 
LVL 13

Expert Comment

by:newyuppie
Comment Utility
exactly. but, are you asking something or just acknowledging? does it work with that change?
0
 

Author Comment

by:eadam-uk
Comment Utility
Just clarifying that bit. Using my new found knowledge, I changed this statement too:

Dim randArray() As String = objSequence(origArray)
to
Dim randArray() As String = newRand.objSequence

(incase anyone wants to know)

Thanks newyuppie for your help, full points to you!
0
 
LVL 13

Expert Comment

by:newyuppie
Comment Utility
thanks! glad it worked out
NY
0

Featured Post

Do You Know the 4 Main Threat Actor Types?

Do you know the main threat actor types? Most attackers fall into one of four categories, each with their own favored tactics, techniques, and procedures.

Join & Write a Comment

This tutorial demonstrates one way to create an application that runs without any Forms but still has a GUI presence via an Icon in the System Tray. The magic lies in Inheriting from the ApplicationContext Class and passing that to Application.Ru…
Since .Net 2.0, Visual Basic has made it easy to create a splash screen and set it via the "Splash Screen" drop down in the Project Properties.  A splash screen set in this manner is automatically created, displayed and closed by the framework itsel…
Illustrator's Shape Builder tool will let you combine shapes visually and interactively. This video shows the Mac version, but the tool works the same way in Windows. To follow along with this video, you can draw your own shapes or download the file…
When you create an app prototype with Adobe XD, you can insert system screens -- sharing or Control Center, for example -- with just a few clicks. This video shows you how. You can take the full course on Experts Exchange at http://bit.ly/XDcourse.

772 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now