Eigenen Wertdatentyp erstellen

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von FreakJNS.

    Eigenen Wertdatentyp erstellen

    Hi,

    wie kann man einen eigenen Wertdatentyp erstellen,
    welcher nur werte von z.B. 1 bis 20 einnehmen kann?
    Bei Enum kann man ja keine Zahlen auflisten (ist ja klar)

    Danke,
    wincrash
    (\_/) Das ist Hase.
    (O.o) Kopiere Hase in deine Signatur
    (> <) und hilf ihm so auf seinem Weg zur Weltherrschaft.

    Hey,

    vielleicht hilft Dir das ein bisschen weiter.

    stackoverflow.com/questions/39…rimitive-data-type-in-net
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Habe ich bisher noch nie gesehen, dass jemand das so gemacht hat und echt eher hässlich :P. Enums sind eher dazu da, sinnvolle Konstanten zu definieren. Zumal kann man auch Enums instanzieren, die keine im Enum definierten Werte enthalten.
    Normalerweise genügt eine Abfrage auf den gültigen Wertebereich und eine ArgumentOutOfRangeException oder dergleichen.

    Gruß
    ~blaze~

    @ErfinderdesRades: Ja das war auch mein lösungsansatz - nur, wie schon von dir gesagt: nicht sehr hübsch
    @~blaze~: Ich möchte eine Function machen, welche nur werte von 1 bis 20 akzeptiert und sonst ne überladung
    bei der code-programmierung auslöst.

    wie soll ich denn ausserhalb von einer function eine if-schleife an einen byte-wert koppeln?

    wincrash

    edit: danke spaceyx, aber ich versteh das nicht richtig - vielleicht stell ich mich auch einfach nur dämlich an :/
    (\_/) Das ist Hase.
    (O.o) Kopiere Hase in deine Signatur
    (> <) und hilf ihm so auf seinem Weg zur Weltherrschaft.

    Naja, dafür einfach einen Beispieltext verfassen und den Wertebereich abfragen.

    VB.NET-Quellcode

    1. Public Shared Function Test(ByVal arg As Integer) As String
    2. If arg >= 1 AndAlso arg <= 20
    3. Return arg.ToString()
    4. Else
    5. Throw New ArgumentOutOfRangeException("arg")
    6. End Function

    so macht mans halt normalerweise. Evtl. noch mit einer schöneren Message.

    Gruß
    ~blaze~

    In dem Link, den ich Dir gegeben habe, ist ein bisschen weiter unten ein komplettes Beispiel, was so ziemlich das ist, was Du möchtest.

    VB.NET-Quellcode

    1. Structure LimitedInt
    2. Implements IComparable(Of LimitedInt)
    3. Implements IEquatable(Of LimitedInt)
    5. Private m_Value As Integer 'treat the default, 0 as being really 1'
    7. Public ReadOnly Property Value() As Integer
    8. Get
    9. Return If(m_Value = 0, 1, m_Value)
    10. End Get
    11. End Property
    13. Public Sub New(ByVal value As Integer)
    14. If value < 1 Or value > 10 Then
    15. Throw New ArgumentOutOfRangeException("value")
    16. End If
    17. m_Value = value
    18. End Sub
    20. Public Function CompareTo(ByVal other As LimitedInt) As Integer _
    21. Implements System.IComparable(Of LimitedInt).CompareTo
    22. Return Me.Value - other.Value
    23. End Function
    25. Public Overloads Function Equals(ByVal other As LimitedInt) As Boolean _
    26. Implements System.IEquatable(Of LimitedInt).Equals
    27. Return Me.Value = other.Value
    28. End Function
    30. Public Overrides Function GetHashCode() As Integer
    31. Return Value.GetHashCode
    32. End Function
    34. Public Overrides Function Equals(ByVal obj As Object) As Boolean
    35. If TypeOf obj Is LimitedInt Then Return CType(obj, LimitedInt) = Me
    36. End Function
    38. Public Shared Operator =(ByVal left As LimitedInt, _
    39. ByVal right As LimitedInt) As Boolean
    40. Return left.Equals(right)
    41. End Operator
    43. Public Shared Operator <>(ByVal left As LimitedInt, _
    44. ByVal right As LimitedInt) As Boolean
    45. Return Not (left = right)
    46. End Operator
    48. Public Shared Operator +(ByVal left As LimitedInt, _
    49. ByVal right As LimitedInt) As LimitedInt
    50. Dim temp As Integer = left.Value + right.Value
    51. Select Case temp
    52. Case 1 To 10 : Return New LimitedInt(temp)
    53. Case Else : Throw New OverflowException
    54. End Select
    55. End Operator
    57. Public Shared Operator -(ByVal left As LimitedInt, _
    58. ByVal right As LimitedInt) As LimitedInt
    59. Dim temp As Integer = left.Value - right.Value
    60. Select Case temp
    61. Case 1 To 10 : Return New LimitedInt(temp)
    62. Case Else : Throw New OverflowException
    63. End Select
    64. End Operator
    66. Public Shared Operator *(ByVal left As LimitedInt, _
    67. ByVal right As LimitedInt) As LimitedInt
    68. Dim temp As Integer = left.Value * right.Value
    69. Select Case temp
    70. Case 1 To 10 : Return New LimitedInt(temp)
    71. Case Else : Throw New OverflowException
    72. End Select
    73. End Operator
    75. Public Shared Operator /(ByVal left As LimitedInt, _
    76. ByVal right As LimitedInt) As Double
    77. Return left.Value / right.Value
    78. End Operator
    80. Public Shared Operator \(ByVal left As LimitedInt, _
    81. ByVal right As LimitedInt) As LimitedInt
    82. Dim temp As Integer = left.Value \ right.Value
    83. Select Case temp
    84. Case 1 To 10 : Return New LimitedInt(temp)
    85. Case Else : Throw New OverflowException
    86. End Select
    87. End Operator
    89. Public Shared Operator Mod(ByVal left As LimitedInt, _
    90. ByVal right As LimitedInt) As LimitedInt
    91. Dim temp As Integer = left.Value Mod right.Value
    92. Select Case temp
    93. Case 1 To 10 : Return New LimitedInt(temp)
    94. Case Else : Throw New OverflowException
    95. End Select
    96. End Operator
    98. Public Shared Operator And(ByVal left As LimitedInt, _
    99. ByVal right As LimitedInt) As LimitedInt
    100. Dim temp As Integer = left.Value And right.Value
    101. Select Case temp
    102. Case 1 To 10 : Return New LimitedInt(temp)
    103. Case Else : Throw New OverflowException
    104. End Select
    105. End Operator
    107. Public Shared Operator Or(ByVal left As LimitedInt, _
    108. ByVal right As LimitedInt) As LimitedInt
    109. Dim temp As Integer = left.Value Or right.Value
    110. Select Case temp
    111. Case 1 To 10 : Return New LimitedInt(temp)
    112. Case Else : Throw New OverflowException
    113. End Select
    114. End Operator
    116. Public Shared Operator Xor(ByVal left As LimitedInt, _
    117. ByVal right As LimitedInt) As LimitedInt
    118. Dim temp As Integer = left.Value Xor right.Value
    119. Select Case temp
    120. Case 1 To 10 : Return New LimitedInt(temp)
    121. Case Else : Throw New OverflowException
    122. End Select
    123. End Operator
    125. Public Shared Operator ^(ByVal left As LimitedInt, _
    126. ByVal right As LimitedInt) As Double
    127. Return left.Value ^ right.Value
    128. End Operator
    130. Public Shared Operator <(ByVal left As LimitedInt, _
    131. ByVal right As LimitedInt) As Boolean
    132. Return left.Value < right.Value
    133. End Operator
    135. Public Shared Operator >(ByVal left As LimitedInt, _
    136. ByVal right As LimitedInt) As Boolean
    137. Return left.Value > right.Value
    138. End Operator
    140. Public Shared Operator <=(ByVal left As LimitedInt, _
    141. ByVal right As LimitedInt) As Boolean
    142. Return left.Value <= right.Value
    143. End Operator
    145. Public Shared Operator >=(ByVal left As LimitedInt, _
    146. ByVal right As LimitedInt) As Boolean
    147. Return left.Value >= right.Value
    148. End Operator
    150. Public Shared Widening Operator CType(ByVal left As LimitedInt) As Integer
    151. Return left.Value
    152. End Operator
    154. Public Shared Narrowing Operator CType(ByVal left As Integer) As LimitedInt
    155. Return New LimitedInt(left)
    156. End Operator
    159. End Structure
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Stimmt schon, aber ich finds schöner, es in der Dokumentation festzuhalten. Wenn es nicht explizit klar ist, könnte man auch noch Konstanten definieren, die Min und Max bereitstellen, aber im Normalfall ist das nicht das Problem. Der Programmierer muss halt verstehen was er macht. Das Enum würde ich nur nehmen, wenn die einzelnen Aktionen wirklich für konstante Ausdrücke stehen und diese in einem Delegaten-Array kapseln.

    Gruß
    ~blaze~

    Mega! xD
    Ich frage mich, wie das überhaupt funktionieren soll. Ich meine eine Variable vom Typ MeinInterger0bis20 hat einen anderen Typ als MeinInteger21bis500. Darum funktioniert das angestrebte anzeigen mehrerer Überladungen auch. Wundertoll. Nur muss ich doch zur Entwicklungszeit festlegen, welche Werte in welchen Typ gespeichert werden - irgendwo muss die Entscheidung getroffen werden, welcher Typ einem Wert zugeordnet wird. Und das passiert mit einer einfachen If-Abfrage wie blaze sagt. Genau desswegen kenne ich den Zustand und kann entsprechend reagieren OHNE das die Variable einen bestimmten Typ zur Unterscheidung haben muss.
    Statt einen workaround über eigene Bastel-Datentypen zu machen könnte man hier einfach die passende Methode aufrufen (anderer Mehtodennamen/auf Überladungen verzichten) oder die Methode selbst entscheiden lassen, was sie tut.

    Die Lösung mit der Enum ist auf jeden Fall besser als die eines eigenen Datentyps, würde ich aber auch nicht einsetzten weil man wieder zur Entwicklungszeit wissen muss welchen Wert man nun welcher Enum zuweisen kann (If-Abfrage) - man muss nicht anhand des Datentyps entscheiden.

    Hoffe man versteht was ich meine und das es so stimmt. Unter Strict Off (ganz böse wenn oben nicht Option Strict ON steht!!) geht vermutlich "so einiges" xDD
    trotzdem interessant die Sache mit dem eigenen Integer. lg

Facebook
Telefonspende