Function : GetVB05or08Random (Also mit Klasse Random)

    • VB.NET

    Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von LaMa5.

      Function : GetVB05or08Random (Also mit Klasse Random)

      hi, hab mich nach mikeb's ratschlag gerichtet und ne neue klasse gemacht:

      VB.NET-Quellcode

      1. Public Class GetVB05or08RND
      3. Shared Function GetRandom(ByVal max As Integer, Optional ByVal min As Integer = 0) As Integer
      4. If max < min Then
      5. GetRandom = 0
      6. Exit Function
      7. End If
      8. Dim RNDD As Random = New Random()
      9. GetRandom = RNDD.Next(min, max)
      10. End Function
      11. End Class


      hoffentlich ist die besser ;) :P
      | Keine Fragen per PN oder Skype.

      Warum eine Klasse in eine Klasse packen ?

      Und gibt es einen vernünftigen grund exit function zu nutzen und nicht return ?

      VB.NET-Quellcode

      1. Private Function GetRandom(Max as Integer, Min as integer) as integer
      2. return iif(min > max,0,new Random ().Next (min,max))
      3. End Sub

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „bsHobbit“ ()

      hallo mad andy,

      ich hatte min und max vertauscht.
      doch das brachte mir eine exception !

      wenn ich min und max so übergebe, wie es die funktion haben will, gibt diese
      immer eine 0 zurück.

      den iif befehl kenn ich nicht.
      sicher auch eines dieser vb6 reste

      Edit:
      wenn es schon eine klasse sein soll, dann würde ich das etwa so machen.
      nochwas:
      wie schon angesprochen macht es keinen sinn immer eine neue instanz der random klasse zu erzeugen,
      da sonst die gefahr besteht gleiche zahlen zu bekommen.

      VB.NET-Quellcode

      1. Public Class ClassRandom
      2. Private _min As Integer
      3. Private _max As Integer
      4. Private r As New Random
      6. Public Sub New(ByVal min As Integer, ByVal max As Integer)
      7. _min = min
      8. _max = max
      9. End Sub
      11. ''' <summary>Gibt einen zufälligen Integer-Wert zurück.</summary>
      12. ''' <remarks>Der Rückgabewert befindet sich zwischen Min und Max, welche
      13. ''' Beim Instanzieren angegeben wurden.</remarks>
      14. Public ReadOnly Property GetInteger() As Integer
      15. Get
      16. Return r.Next(_min, _max)
      17. End Get
      18. End Property
      20. ''' <summary>Gibt einen Zufälligen Double-Wert zwischen 0.0 und 1.0 zurück.</summary>
      21. ''' <remarks></remarks>
      22. Public ReadOnly Property GetDouble() As Double
      23. Get
      24. Return r.NextDouble()
      25. End Get
      26. End Property
      28. Public Property Min() As Integer
      29. Get
      30. Return _min
      31. End Get
      32. Set(ByVal value As Integer)
      33. _min = value
      34. End Set
      35. End Property
      37. Public Property Max() As Integer
      38. Get
      39. Return _max
      40. End Get
      41. Set(ByVal value As Integer)
      42. _max = value
      43. End Set
      44. End Property
      45. End Class


      gruss

      mikeb69

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „mikeb69“ ()

      Sorry, hab mich beim zeichen vertippt... ich habs korrigiert...

      Mike mike... das ist sicher kein VB6 rest... das ist ein sinvoller befehl den jeder C Programmierer kennen sollte ;)

      Quellcode

      1. if (x>y) ?3:1


      Heisst in VB .NET nun IIF...

      Ach also es geht eigentlich mit dem new Random recht gut von 1000000 waren immerhin 87% verschieden xD

      Hi,

      den Befehl gibt es mit 100%iger Sicherheit in VB6 und hat immer 3 Argumente.

      MSDN: IIf(expr, truepart, falsepart)


      bye ...

      LaMa5.
      Die Wissenschaft wird nie ein besseres Kommunikationssystem in den Büros erfinden können als die Kaffeepause.
      (Autor: Earl Wilson, amerik. Schriftsteller)
      https://www.serviceteam-md.de

    Facebook
    Telefonspende