Hallo Community
Die
Freundliche Grüsse
exc-jdbi
Hier eine kleine Abhandlung. Das Programm findet Ihr im Anhang.
Und hier noch in VbNet
Die
Random.Shared
gibt es seit .Net6.0, und die ist sogar ThreadSave
. Neu hinzugekommen sind in .Net8.0 die Methoden GetItems(Of T)
und Shuffle(of T)
, und wie man erkennen kann, sind die für jeden DatenType zugänglich.Freundliche Grüsse
exc-jdbi
Hier eine kleine Abhandlung. Das Programm findet Ihr im Anhang.
C#-Quellcode
- interface IRandom
- {
- public const string AlphaNumeric = "0123456789";
- public const string AlphaLower = "abcdefghijklmnopqrstuvwxyz";
- public const string AlphaUpper = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
- public const string AlphaLowerUpper = AlphaLower + AlphaUpper;
- public const string AlphaLowerNumeric = AlphaLower + AlphaNumeric;
- public const string AlphaUpperNumeric = AlphaUpper + AlphaNumeric;
- public const string AlphaLowerUpperNumeric = AlphaLower + AlphaUpper + AlphaNumeric;
- }
C#-Quellcode
- private static void RandomTest()
- {
- var rand = Random.Shared;
- var dbl_1 = rand.NextDouble();
- var dbl_2 = Enumerable.Range(0, 1000)
- .Select(x => rand.NextDouble()).ToArray();
- var dbl_3 = rand.GetItems(dbl_2, 100);
- rand.Shuffle(dbl_2);
- var sgn_1 = rand.NextSingle();
- var sgn_2 = Enumerable.Range(0, 1000)
- .Select(x => rand.NextSingle()).ToArray();
- var sgn_3 = rand.GetItems(sgn_2, 100);
- rand.Shuffle(sgn_2);
- var int8_1 = new byte[1000];
- rand.NextBytes(int8_1);
- var int8_2 = Enumerable.Range(0, 1000)
- .Select(i => (byte)i).ToArray();
- var int8_3 = rand.GetItems(int8_2, 100);
- rand.Shuffle(int8_2);
- var int32_1 = rand.Next();
- var int32_2 = rand.Next(1500);
- var int32_3 = rand.Next(1500, 2500);
- var int32_4 = rand.Next(-1500, 2500);
- var int32_5 = Enumerable.Range(0, 1000).ToArray();
- rand.Shuffle(int32_5);
- var int64_1 = rand.NextInt64();
- var int64_2 = rand.NextInt64(1500);
- var int64_3 = rand.NextInt64(1500, 2500);
- var int64_4 = rand.NextInt64(-1500, 2500);
- var int64_5 = Enumerable.Range(0, 1000)
- .Select(Convert.ToInt64).ToArray();
- rand.Shuffle(int64_5);
- var alphastr = IRandom.AlphaLowerUpperNumeric;
- var chars_1 = rand.GetItems<char>(alphastr, 100);
- var string_1 = string.Join("", chars_1);
- var chars_2 = rand.GetItems<char>(alphastr, alphastr.Length);
- var string_2 = string.Join("", chars_2);
- var chars_3 = alphastr.ToCharArray();
- rand.Shuffle(chars_3);
- var string_3 = string.Join("", chars_3);
- }
Und hier noch in VbNet
VB.NET-Quellcode
- Public MustInherit Class ARandom
- Public Const AlphaNumeric As String = "0123456789"
- Public Const AlphaLower As String = "abcdefghijklmnopqrstuvwxyz"
- Public Const AlphaUpper As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
- Public Const AlphaLowerUpper As String = AlphaLower & AlphaUpper
- Public Const AlphaLowerNumeric As String = AlphaLower & AlphaNumeric
- Public Const AlphaUpperNumeric As String = AlphaUpper & AlphaNumeric
- Public Const AlphaLowerUpperNumeric As String = AlphaLower & AlphaUpper & AlphaNumeric
- End Class
VB.NET-Quellcode
- Private Shared Sub RandomTest()
- Dim rand = Random.Shared
- Dim dbl_1 = rand.NextDouble()
- Dim dbl_2 = Enumerable.Range(0, 1000).
- Select(Function(x) rand.NextDouble()).ToArray()
- Dim dbl_3 = rand.GetItems(dbl_2, 100)
- rand.Shuffle(dbl_2)
- Dim sgn_1 = rand.NextSingle()
- Dim sgn_2 = Enumerable.Range(0, 1000).
- Select(Function(x) rand.NextSingle()).ToArray()
- Dim sgn_3 = rand.GetItems(sgn_2, 100)
- rand.Shuffle(sgn_2)
- Dim int8_1 = New Byte(999) {}
- rand.NextBytes(int8_1)
- Dim int8_2 = Enumerable.Range(0, 1000).
- Select(Function(x) Convert.ToByte(x And 255)).ToArray()
- Dim int8_3 = rand.GetItems(int8_2, 100)
- rand.Shuffle(int8_2)
- Dim int32_1 = rand.Next()
- Dim int32_2 = rand.Next(1500)
- Dim int32_3 = rand.Next(1500, 2500)
- Dim int32_4 = rand.Next(-1500, 2500)
- Dim int32_5 = Enumerable.Range(0, 1000).ToArray()
- rand.Shuffle(int32_5)
- Dim int64_1 = rand.NextInt64()
- Dim int64_2 = rand.NextInt64(1500)
- Dim int64_3 = rand.NextInt64(1500, 2500)
- Dim int64_4 = rand.NextInt64(-1500, 2500)
- Dim int64_5 = Enumerable.Range(0, 1000).
- Select(Function(x) Convert.ToInt64(x)).ToArray()
- rand.Shuffle(int64_5)
- Dim alphastr = AlphaLowerUpperNumeric
- Dim chars_1 = rand.GetItems(Of Char)(alphastr, 100)
- Dim string_1 = String.Join("", chars_1)
- Dim chars_2 = rand.GetItems(Of Char)(alphastr, alphastr.Length)
- Dim string_2 = String.Join("", chars_2)
- Dim chars_3 = alphastr.ToCharArray()
- rand.Shuffle(chars_3)
- Dim string_3 = String.Join("", chars_3)
- End Sub
Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „exc-jdbi“ ()