الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سوأل : أنا عندي جملة فية زخرف مثل ( محْ؛مُد ) ابي اخلي هذي الكلمة بدون زخرف ...؟

بدأه مبرمج في 14 في 28 مايو 2010 · 10 رد · 1,044 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلامــــ عليكمــ ورحمهـــ اللهــ وركاتهـــ

كيفــ الحالـــ

إن شاء الله مرتاحين

اقول انا ابي اسوي بلرنامج لاخوي بس ابي منكم تساعدوني

البرنامج

الفكرة:-

اني اسوي برنامج يشيل الزخرف من الجملة مثل :-

اكتب بالـtextbox1 الجملة هذي ( بًسُْم الله الٌرُحَمُن الْرحُيًَم ) وبعدين اضغط على Button1 يطلع بالـtextbox2 الجملة هذي ( بسم الله الرحمن الرحيم ) يعني بالعربي ابي اشيل الزخارف من الجملة فهمتو ابي مثل هذي الصورة

http://www.gulfup.com/file3/12750706031.bmp

فهمتو

يعني ابي امنع كل انواع الزخارف مثل : ~ ٍ ً ٌ َ ــ .......إلخ

فهمتو....

#2

أنظر هنا :

/index.php?showtopic=111389

#3
محمد رضى كتب:

موهذا قصدي انت مفهمت ابي ابي اشيل الزخرف مثل [ ــ ْ ~ ٍ ِ َ ُ ٌ ......إلخ ]

فهمت يعني اكتب [ مٌـحـُمًـ~ـد] اضغط على الزر يتطلع جذي [ محمد ]

فهمت 

#4

السلام عليكم و رحمة الله و بركاته ... هل تقصد بالزخرف التشكيل؟

إذا كان هذا ما تقصده فإليك الطريقة:سنفترض أنك تريد إدخال النص في textbox1 و تعديله ليظهر في textbox2 دون تشكيل، في البداية نعمل فورم نضع فيها 2 textbox و button.ثم نفوم بإستيراد فضاءي الأسماء collection و collection.generic:

System.CollectionsImports 
System.Collections.Generic

ثم نكتب الكود القادم كله تحت حدث button_click.نعلن عن متغير هو mychar من النوع char، هذا المتغير يمثل حرف داخل النص المراد تعديله

Dim mychar As Char

ثم نعلن كائن جديد من النوع arraylist الذي سيحتوي على جميع الحروف الخاصة التي تريد حذفها من الجملة و نضيف لهذا الكائن جميع هذه الحروف

Dim arr As New ArrayList()
arr.Clear()
        arr.AddRange(New String() {"~", "َ", "ً", "ُ", "ٌ", "ٌ", "ِ", "ٍ", "ْ", "'", ",", "ٍ"})

الفكرة الأساسية هي ان نقوم باللف على جميع حروف النص حرف حرف و نبحث عن التشكيل فإذا ما وجدناه نقوم بحذفه، لذا سنقوم بعمل جملة for ... next .نقوم بالإعلان عن المتغير i من النوع integer و المتغير chr_index الذي سيمثل index الحرف

Dim chr_index As Integer = -1
Dim i As Integer

نقوم الآن بالدوران على جميع الحروف للبحث عن التشكيل ، مع كل لفة جديدة ستزيد قيمة chr_index بواحد لأنها تمثل حرف جديد مع بداية كل لفة، و مع كل حرف سنقارن بين الحرف و بين الحروف الخاصة الموجودة في arr ، فإذا تشابه أحد الحروف الخاصة مع احد حروف النص فإنه سيقوم بحذف الحرف بواسطة الوظيفة remove التي تأخذ معاملين هما :index الحرف المراد حذفه و عدد الحروف المحذوفة و طبعا" سيكون العدد واحد فقط لحذف الحرف فقط

For Each mychar In TextBox1.Text
            chr_index = chr_index + 1
            For i = 0 To arr.Count - 1
                If arr(i).ToString() = mychar Then
                    TextBox2.Text = TextBox1.Text.Remove(chr_index, 1)
                End If
            Next
        Next

و بالتوفيق

1
#5
بهاء صلاح الدين فراج كتب:

السلام عليكم و رحمة الله و بركاته ... هل تقصد بالزخرف التشكيل؟

إذا كان هذا ما تقصده فإليك الطريقة:سنفترض أنك تريد إدخال النص في textbox1 و تعديله ليظهر في textbox2 دون تشكيل، في البداية نعمل فورم نضع فيها 2 textbox و button.ثم نفوم بإستيراد فضاءي الأسماء collection و collection.generic:

System.CollectionsImports 
System.Collections.Generic

ثم نكتب الكود القادم كله تحت حدث button_click.نعلن عن متغير هو mychar من النوع char، هذا المتغير يمثل حرف داخل النص المراد تعديله

Dim mychar As Char

ثم نعلن كائن جديد من النوع arraylist الذي سيحتوي على جميع الحروف الخاصة التي تريد حذفها من الجملة و نضيف لهذا الكائن جميع هذه الحروف

Dim arr As New ArrayList()
arr.Clear()
        arr.AddRange(New String() {"~", "َ", "ً", "ُ", "ٌ", "ٌ", "ِ", "ٍ", "ْ", "'", ",", "ٍ"})

الفكرة الأساسية هي ان نقوم باللف على جميع حروف النص حرف حرف و نبحث عن التشكيل فإذا ما وجدناه نقوم بحذفه، لذا سنقوم بعمل جملة for ... next .نقوم بالإعلان عن المتغير i من النوع integer و المتغير chr_index الذي سيمثل index الحرف

Dim chr_index As Integer = -1
Dim i As Integer

نقوم الآن بالدوران على جميع الحروف للبحث عن التشكيل ، مع كل لفة جديدة ستزيد قيمة chr_index بواحد لأنها تمثل حرف جديد مع بداية كل لفة، و مع كل حرف سنقارن بين الحرف و بين الحروف الخاصة الموجودة في arr ، فإذا تشابه أحد الحروف الخاصة مع احد حروف النص فإنه سيقوم بحذف الحرف بواسطة الوظيفة remove التي تأخذ معاملين هما :index الحرف المراد حذفه و عدد الحروف المحذوفة و طبعا" سيكون العدد واحد فقط لحذف الحرف فقط

For Each mychar In TextBox1.Text
            chr_index = chr_index + 1
            For i = 0 To arr.Count - 1
                If arr(i).ToString() = mychar Then
                    TextBox2.Text = TextBox1.Text.Remove(chr_index, 1)
                End If
            Next
        Next

و بالتوفيق

بس ممكن تعلمني وين اضع كل هذي الكواد

تم تعديل هذه المشاركة بواسطة مبرمج في 14 في 29 مايو 2010 في 21:17

#6

ضع كود

Imports System.Collections

Imports System.Collections.Generic

في أعلى صفحة محرر الأكواد

و ضع باقي الكود تحت الحدث button_click

تم تعديل هذه المشاركة بواسطة بهاء صلاح الدين فراج في 29 مايو 2010 في 21:42

#7
بهاء صلاح الدين فراج كتب:

ضع كود

Imports System.Collections

Imports System.Collections.Generic

في أعلى صفحة محرر الأكواد

و ضع باقي الكود تحت الحدث button_click

قصدك بالفورم ولا بالزر

#8

يا اخي الكلام واضح...

ضع

Imports System.Collections

Imports System.Collections.Generic

في اعلى الفورم و ضع باقي الأكواد تحت الزر الذي سيقوم بعملية حذف التشكيل

1
#9
بهاء صلاح الدين فراج كتب:

يا اخي الكلام واضح...

ضع

Imports System.Collections

Imports System.Collections.Generic

في اعلى الفورم و ضع باقي الأكواد تحت الزر الذي سيقوم بعملية حذف التشكيل

اوكي اوكي بس ابي الكود كامل ممكن :blush:

تم تعديل هذه المشاركة بواسطة مبرمج في 14 في 29 مايو 2010 في 22:22

#10 
Imports System.Collections
Imports System.Collections.Generic
Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim mychar As Char
        Dim arr As New ArrayList() : Dim i As Integer
        arr.Clear()
        arr.AddRange(New String() {"~", "َ", "ً", "ُ", "ٌ", "ٌ", "ِ", "ٍ", "ْ", "'", ",", "ٍ"})
        Dim chr_index As Integer = -1
        For Each mychar In TextBox1.Text
            chr_index = chr_index + 1
            For i = 0 To arr.Count - 1
                If arr(i).ToString() = mychar Then
                    TextBox2.Text = TextBox1.Text.Remove(chr_index, 1)
                End If
            Next
        Next

    End Sub

End Class
#11
بهاء صلاح الدين فراج كتب:

Imports System.Collections
Imports System.Collections.Generic
Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim mychar As Char
        Dim arr As New ArrayList() : Dim i As Integer
        arr.Clear()
        arr.AddRange(New String() {"~", "َ", "ً", "ُ", "ٌ", "ٌ", "ِ", "ٍ", "ْ", "'", ",", "ٍ"})
        Dim chr_index As Integer = -1
        For Each mychar In TextBox1.Text
            chr_index = chr_index + 1
            For i = 0 To arr.Count - 1
                If arr(i).ToString() = mychar Then
                    TextBox2.Text = TextBox1.Text.Remove(chr_index, 1)
                End If
            Next
        Next

    End Sub

End Class

ضبطن مية بالمية

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…