الدرس الثاني من دوره انشاء برامج بل الفيجول انشاء برنامج زغرفه

سلام عليكم

درس الثاني

الكواد

نضع فيtextbox1

  Me.AcceptButton = Button1

نضع في نص زغرفه

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

نضع في زر مسح النص

textbox1.text=""

textbox2.text=""

نضع في زر الخروج

end

للمشاهده الشرح