اكواد بلغة 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