السلام عليكم ورحمه الله وبركاته كيفكم احبايبي ان شاء الله بخير اليوم موضوعنا يتكلم
عن كيفيه صنع برنامج زخرفه الاسماء بل فيجوال بيسك 2010 الطريقه جدا سهله مجرد نحتاج اكواد +برنامج فيجوال اي اصدار يعجبك ما اطول عليكم اترككم مع الشرح مشاهده ممتعه
نأتي الى وضع الاكواد
الاكواد
text 1
-----------------
Me.AcceptButton = Button1
___________________________________
في
button
---------------
Dim txt As String = TextBox1.Text
txt = txt.Replace("ي", "ـے")
txt = txt.Replace("ك", "گ")
txt = txt.Replace("ب", "بـ?ـ")
txt = txt.Replace("ا", "أآ")
txt = txt.Replace("ت", "تـ?ـ")
txt = txt.Replace("ث", "ثـ")
txt = txt.Replace("ج", ",ـجـ,")
txt = txt.Replace("ح", ",حـ,")
txt = txt.Replace("خ", "خـ")
txt = txt.Replace("س", "سـ?ـ")
txt = txt.Replace("ش", "شـ")
txt = txt.Replace("ص", "صـ?ـ")
txt = txt.Replace("ض", ",ضـ,")
txt = txt.Replace("ط", "طــ")
txt = txt.Replace("ظ", "ظــ")
txt = txt.Replace("ع", "عـ?ـ")
txt = txt.Replace("غ", "غـ")
txt = txt.Replace("ف", "فـ")
txt = txt.Replace("ق", ",قـ,")
txt = txt.Replace("ل", "لـ")
txt = txt.Replace("م", "مـ?ـ")
txt = txt.Replace("ن", "نـ")
txt = txt.Replace("ه", "ـہ")
txt = txt.Replace("و", "ؤؤؤ")
txt = txt.Replace(" ", " ")
TextBox2.Text = txt
الى هنــا انتهى الشرح في امان الله
