We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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
Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!
Learn how Concerto can help you.
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…
A while ago, I was working on a Windows Forms application and I needed a special label control with reflection (glass) effect to show some titles in a stylish way.
I've always enjoyed working with graphics, but it's never too clever to re-invent …
Have you created a query with information for a calendar? ... and then, abra-cadabra, the calendar is done?! I am going to show you how to make that happen.
Visualize your data! ... really see it
To use the code to create a calendar from a q…
Is your data getting by on basic protection measures? In today’s climate of debilitating malware and ransomware—like WannaCry—that may not be enough. You need to establish more than basics, like a recovery plan that protects both data and endpoints.…
Suggested Courses
Course of the Month10 days, 12 hours left to enroll
618 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.