Maximaler Wert zuweisen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von ~blaze~.

    Maximaler Wert zuweisen

    Hallo und guten Morgen,

    ich habe eine Frage.
    Ich haben eine Nachkommazahl.
    Diese würde ich gern einen Maximalwert zuweisen.
    Wie geht das??
    Habe den Codeschnipsel

    Quellcode

    1. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    2. Dim zahl As Double
    4. zahl.MaxValue = 10.0
    5. zahl.MinValue = 1.0
    7. End Sub


    Leider klappt das so nicht...... :cursing:
    Danke für die Hilfe

    Mach dir doch einfache eine Klasse dafür, so könnte das aussehen:

    VB.NET-Quellcode

    1. Public Class MyDouble
    3. Sub New()
    4. End Sub
    6. Public MinWert As Double = Double.MinValue
    7. Public MaxWert As Double = Double.MaxValue
    9. Private _zahl As Double
    10. Public Property Zahl As Double
    11. Get
    12. Return _zahl
    13. End Get
    14. Set(value As Double)
    15. If value > MaxWert Then
    16. Throw New Exception("Wert zu groß!")
    17. ElseIf value < MinWert Then
    18. Throw New Exception("Wert zu klein!")
    19. Else
    20. _zahl = value
    21. End If
    22. End Set
    23. End Property
    25. End Class

    VB.NET-Quellcode

    1. Private X As New MyDouble
    3. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    4. X.MaxWert = 99
    5. X.MinWert = 1
    6. X.Zahl = 100
    7. End Sub

    @ s_ollis So geht das nicht.
    Mach Dir eine entsprechende Klasse:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    3. Dim dd = New MyDouble(10, 0, 100)
    4. dd.Value = -1
    5. MessageBox.Show(dd.ToString)
    6. End Sub
    7. End Class
    9. Public Class MyDouble
    10. Private _Value As Double
    11. Private _Minimum As Double
    12. Private _Maximum As Double
    14. Public Property Value As Double
    15. Get
    16. Return _Value
    17. End Get
    18. Set(value As Double)
    19. 'If value < _Minimum OrElse value > _Maximum Then
    20. ' Throw New ArgumentOutOfRangeException
    21. 'End If
    22. ' oder
    23. If value < _Minimum Then
    24. _Value = _Minimum
    25. ElseIf value > _Maximum Then
    26. _Value = _Maximum
    27. Else
    28. _Value = value
    29. End If
    30. End Set
    31. End Property
    33. Public Sub New(Val As Double, min As Double, max As Double)
    34. _Value = Val
    35. _Minimum = min
    36. _Maximum = max
    37. End Sub
    39. Public Overrides Function ToString() As String
    40. Return Value.ToString
    41. End Function
    42. End Class

    @Derfuhr selbe Lösung, es wurde nicht angezeigt, dass die schon da war. :/
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    s_ollis schrieb:

    bekomme ich eine Fehlermeldung.
    Welcher Code?
    Welche Meldung?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    X wäre die Instanz, du musst schon der Property den Wert zuweisen,

    VB.NET-Quellcode

    1. 'falls du meine Klasse genommen hast dann
    2. x.Zahl = x.Zahl + 1
    3. 'bei RodFromGermany´s Klasse ist es Value
    4. x.Value = x.Value + 1
    5. 'oder so:
    6. x.Value += 1

    s_ollis schrieb:

    hier der Code:
    Wie ist x deklariert und instanziiert?
    Fehlermeldung?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende