❞ كتاب اكواد فى vb.net مقررة على الصف الاول الثانوى ❝ ⏤ رضا طلعت حسين

اكواد بلغة vb.net لعمل برنامج للتالى
إعداد : رضا طلعت حسين

كود الدالة في سي شارب #C
public static string RandomFileName(string prefix, byte randomLength, string extension)
{
Random R = new Random();
StringBuilder RandomString = new StringBuilder(prefix);
char[] chars = {‘0’, ‘1’, ‘2’, ‘3’, ‘4’, ‘5’, ‘6’, ‘7’, ‘8’, ‘9’, ‘a’, ‘b’, ‘c’, ‘d’, ‘e’, ‘f’, ‘g’, ‘h’, ‘i’, ‘j’, ‘k’, ‘l’, ‘m’, ‘n’, ‘o’, ‘p’, ‘q’, ‘r’, ‘s’, ‘t’, ‘u’, ‘v’, ‘w’, ‘x’, ‘y’, ‘z’};

for (int i = 1; i <= randomLength; i++)
{
RandomString.Append(chars[R.Next(0, chars.Length)]);
}

if(extension.Trim() != “”)
RandomString.Append(“.” + extension);

return RandomString.ToString();
}

كود الدالة في فجوال باسيك VB.Net
Public Shared Function RandomFileName(prefix As String, randomLength As Byte, extension As String) As String
Dim R As New Random()
Dim RandomString As New StringBuilder(prefix)
Dim chars As Char() = {“0″c, “1”c, “2”c, “3”c, “4”c, “5”c,
“6”c, “7”c, “8”c, “9”c, “a”c, “b”c,
“c”c, “d”c, “e”c, “f”c, “g”c, “h”c,
“i”c, “j”c, “k”c, “l”c, “m”c, “n”c,
“o”c, “p”c, “q”c, “r”c, “s”c, “t”c,
“u”c, “v”c, “w”c, “x”c, “y”c, “z”c}

For i As Integer = 1 To randomLength
RandomString.Append(chars(R.[Next](0, chars.Length)))
Next

If extension.Trim() <> “” Then
RandomString.Append(“.” & extension)
End If

Return RandomString.ToString()
End Function
رضا طلعت حسين - ❰ له مجموعة من الإنجازات والمؤلفات أبرزها ❞ اكواد فى vb.net مقررة على الصف الاول الثانوى ❝ ❱
من كتب فجوال بيسك دوت نت كتب لغات البرمجة - مكتبة كتب تقنية المعلومات.