الأحد، 8 سبتمبر 2013

شرح عمل برنامج زخرفة النصوص بالفيجوال بيسك


شرح صنع برنامج لزخرفة الــنصـوص
بالفيجوال بيــسك 2010

مرسلة بواسطة في

هناك 4 تعليقات:

  1. ∫HAKCER◊LIBYA∫8 سبتمبر 2013 في 10:09 ص

    ووووووين نلاقي الاكواااد

    ردحذف
  2. H.K.O.R.E22 سبتمبر 2013 في 5:35 م

    اعطييييييك انا الااكووواد ولا تخد هم اعطيييييك ثاتث اششكال
    الاول


    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("و", "ؤؤؤ")
    TextBox2.Text = txt
    Me.AcceptButton = Button1









    ردحذف
  3. H.K.O.R.E22 سبتمبر 2013 في 5:37 م








    الثاني


    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("و", "ؤؤؤ")
    TextBox2.Text = txt
    Me.AcceptButton = Button2

    ردحذف
  4. H.K.O.R.E22 سبتمبر 2013 في 5:39 م

    الثالث




    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("و", "وُؤ") TextBox2.Text = txt
    Me.AcceptButton = Button3

    تحياتي ==_king_==
    :)

    ردحذف

الاشتراك في: تعليقات الرسالة (Atom)