Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
Course Of The Month
2 days, 22 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
class definitions
Posted on 2006-11-08
Can someone tell me what is wrong with this and how it is defined. I need to identify those areas that are incorrect and indicate what I need to do to fix it. It has to do something with basic class definitions, please help...
Public Class _MyClass
Private MyName As String
Private MyAddress As String
Public MyCity As String
Private Property GetName()
Get
Return MyName
End Get
Set(ByVal Value)
Value = MyName
End Set
End Property
Public Property MyAddress()
Get
Return MyAddress
End Get
Set(ByVal Value)
MyAddress = Value
End Set
End Property
Public ReadOnly Property GetCity()
Get
Return GetCity
End Get
End Property
Public Function CheckZipCode() As Boolean
If IsNumeric(MyZipCode) = False Then
Return False
Else
Return True
End If
End Function
Private Sub CapitalizeNames()
MyName = MyName.ToUpper
End Sub
End Class
Public Class _MyClass
Private MyName As String
Private MyAddress As String
Public MyCity As String
Private Property GetName()
Get
Return MyName
End Get
Set(ByVal Value)
Value = MyName
End Set
End Property
Public Property MyAddress()
Get
Return MyAddress
End Get
Set(ByVal Value)
MyAddress = Value
End Set
End Property
Public ReadOnly Property GetCity()
Get
Return GetCity
End Get
End Property
Public Function CheckZipCode() As Boolean
If IsNumeric(MyZipCode) = False Then
Return False
Else
Return True
End If
End Function
Private Sub CapitalizeNames()
MyName = MyName.ToUpper
End Sub
End Class
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
5-
5
2- +1
14 Comments
MyName and MyAddress are already defined, so you can't create a property get or set for them with the same name.
MyZipCode is not declared.
Public Class _MyClass
Private _MyName As String
Private _MyAddress As String
Private _MyZipCode As String
Public MyCity As String
Private Property GetName()
Get
Return _MyName
End Get
Set(ByVal Value)
Value = _MyName
End Set
End Property
Public Property MyAddress()
Get
Return _MyAddress
End Get
Set(ByVal Value)
_MyAddress = Value
End Set
End Property
Public ReadOnly Property GetCity()
Get
Return GetCity
End Get
End Property
Public Function CheckZipCode() As Boolean
If IsNumeric(_MyZipCode) = False Then
Return False
Else
Return True
End If
End Function
Private Sub CapitalizeNames()
_MyName = _MyName.ToUpper
End Sub
End Class
MyZipCode is not declared.
Public Class _MyClass
Private _MyName As String
Private _MyAddress As String
Private _MyZipCode As String
Public MyCity As String
Private Property GetName()
Get
Return _MyName
End Get
Set(ByVal Value)
Value = _MyName
End Set
End Property
Public Property MyAddress()
Get
Return _MyAddress
End Get
Set(ByVal Value)
_MyAddress = Value
End Set
End Property
Public ReadOnly Property GetCity()
Get
Return GetCity
End Get
End Property
Public Function CheckZipCode() As Boolean
If IsNumeric(_MyZipCode) = False Then
Return False
Else
Return True
End If
End Function
Private Sub CapitalizeNames()
_MyName = _MyName.ToUpper
End Sub
End Class
homework?
besides kinger's suggestions:
1) Public Class _MyClass is not a CLS compliant name for a Class. you should remove the underscore (_)
2) in the SET part of the properties, you should identify the data type for the value passed to it.
for example in your code says:
Public Property MyAddress()
Get
Return MyAddress
End Get
Set(ByVal Value)
MyAddress = Value
End Set
End Property
on the Set part, it should be
Set(ByVal Value as String)
MyAddress = Value
End Set
same for every other property.
besides kinger's suggestions:
1) Public Class _MyClass is not a CLS compliant name for a Class. you should remove the underscore (_)
2) in the SET part of the properties, you should identify the data type for the value passed to it.
for example in your code says:
Public Property MyAddress()
Get
Return MyAddress
End Get
Set(ByVal Value)
MyAddress = Value
End Set
End Property
on the Set part, it should be
Set(ByVal Value as String)
MyAddress = Value
End Set
same for every other property.
3) you should have Imports Microsoft.VisualBasic if you are going to use the IsNumeric function (on the CheckZipCode function)
4)
on
Public ReadOnly Property GetCity()
Get
Return GetCity
End Get
End Property
it should read
Public ReadOnly Property GetCity()
Get
Return MyCity
End Get
End Property
because you cant return a property.
on
Public ReadOnly Property GetCity()
Get
Return GetCity
End Get
End Property
it should read
Public ReadOnly Property GetCity()
Get
Return MyCity
End Get
End Property
because you cant return a property.
wow too many suggestions. It is an exam question though. How do I allocate points now? So many guru's....
10% to Kinger247
10% to Nightman
80% to newyuppie
IMHO - Kinger and I both shot from the hip - newyuppie gave some really good feedback.
10% to Nightman
80% to newyuppie
IMHO - Kinger and I both shot from the hip - newyuppie gave some really good feedback.
Featured Post
Improve and reinforce salesforce training & adoption using WalkMe's digital adoption platform. Start saving on costly employee training by creating fast intuitive Walk-Thrus for Salesforce. Claim your Free Account Now
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
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…
Introduction
When many people think of the WebBrowser (http://msdn.microsoft.com/en-us/library/2te2y1x6%28v=VS.85%29.aspx) control, they immediately think of a control which allows the viewing and navigation of web pages. While this is true, it's a…
Come and listen to Percona CEO Peter Zaitsev discuss what’s new in Percona open source software, including Percona Server for MySQL (https://www.percona.com/software/mysql-database/percona-server) and MongoDB (https://www.percona.com/software/mongo-…
Monitoring a network: how to monitor network services and why? Michael Kulchisky, MCSE, MCSA, MCP, VTSP, VSP, CCSP outlines the philosophy behind service monitoring and why a handshake validation is critical in network monitoring. Software utilized …
Suggested Courses
Course of the Month2 days, 22 hours left to enroll
696 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.