تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تبديل الحوف في التكست بكس
#1
السلام عليكم اخواني الاعزاء ارجو منكم مساعدتي في هذا الموضوع وهو عند الكتابة في التكست بكس1 الذي هو الرئيسي بالاحرف الابتثية عند الضغط على الكوماند نحول الكتابة الى التكست بكس2 بالابجدية اي في التكست1 نكتب بالابتثية والنتيجة تخرج بالتكست2 بالابجدية كتابة فقط ولكم جزيل الشكر اخواني الاعزاء
لا اله إلا الله محمد رسول الله
الرد }}}
تم الشكر بواسطة:
#2
اخي ياريت توضح اكثر
الرد }}}
تم الشكر بواسطة:
#3
جزاك الله خيرا اخي الكريم يعني بالتكست1 اذا كتبنا كلمة احمد نعتبرها من الحروف الابتثية ا -ب-ت-ث- ج -ح -خ -د -ذ ر ز س ش ص ض ط ظ ع غ ف ق ك ل م ن ه و ي ---- نجعل كل حرف منها مقابل حرف من الابجدية ا ب ج د ه و ز ح ط ي ك ل م ن س ع ف ص ق ر ش ت ث خ ذ ض ظ غ ------ بالتكست2 النتيجة لكلمة احمد نبدل احرف الابتث باحرف الابجد تصبح كلمة احمد (ا و خ ح) اي كل حرف من كلمة احمد في التكست1 يبدل بالحرف المقابله من الابجد ونتيجت التبديل تخرج في التكست2 (ا و خ ح) لحاجتي الماسة لهذا البرنامج مع جزيل الشكر
لا اله إلا الله محمد رسول الله
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم

- عرف مصفوفتين نصية واحده للغة الأبتثية والأخرى للأبجدية . عدد عناصر كل مصفوفة بعدد حروف اللغة . سأضع عدد 5 عناصر لكل مصفوفة وأنت غير وأكمل العدد والأحرف في المصفوفتين لكل لغة . هذا كود الزر :

كود :
Private Sub Command1_Click()
Dim Abtat(4) As String
Dim Abjd(4) As String
Dim I As Integer
Dim N As Integer

Abtat(0) = "ا"
Abtat(1) = "ب"
Abtat(2) = "ث"
Abtat(3) = "خ"
Abtat(4) = "ح"

Abjd(0) = "ن"
Abjd(1) = "ج"
Abjd(2) = "د"
Abjd(3) = "و"
Abjd(4) = "ع"

Text2.Text = ""

For I = 1 To Len(Trim$(Text1.Text))
    If Trim$(Mid$(Trim$(Text1.Text), I, 1)) <> "" Then
        For N = LBound(Abtat) To UBound(Abtat)
            If Abtat(N) = Mid$(Trim$(Text1.Text), I, 1) Then
               Text2.Text = Text2.Text & Abjd(N)
               Exit For
            End If
        Next
        Text2.Text = Text2.Text & Trim$(Mid$(Trim$(Text1.Text), I, 1))
     Else
          Text2.Text = Text2.Text & " "
     End If
Next

End Sub

- تحياتي .
الرد }}}
تم الشكر بواسطة:
#5
شكرا جزيلا اخي العزيز وجزاك الله خيرا
ولكن عند الكتابة يحول الى الابجدية الحرف وبكرر معه حرف الابتثية مثلا ت يبدلها بالجيم ويضيف التاء بعدها تصبح جت يجب ان يبدل التاء بالجيم فقط بالتكست2 وقد رفقت لك المثال ولك جزيل الشكر اخي العزيز


الملفات المرفقة
.zip   gag.zip (الحجم : 2.48 ك ب / التحميلات : 51)
لا اله إلا الله محمد رسول الله
الرد }}}
تم الشكر بواسطة:
#6
السلام عليكم

- فعلا فيه مشكلة . هذا الكود بعد التعديل :
كود :
Dim Abtat(4) As String
Dim Abjd(4) As String
Dim I As Integer
Dim N As Integer
Dim Is_Found As Boolean

Abtat(0) = "ت"
Abtat(1) = "ث"
Abtat(2) = "ج"
Abtat(3) = "ح"
Abtat(4) = "خ"

Abjd(0) = "ج"
Abjd(1) = "د"
Abjd(2) = "ه"
Abjd(3) = "و"
Abjd(4) = "ز"

Text2.Text = ""
Is_Found = False

For I = 1 To Len(Trim$(Text1.Text))
    If Trim$(Mid$(Trim$(Text1.Text), I, 1)) <> "" Then
        For N = LBound(Abtat) To UBound(Abtat)
            If Abtat(N) = Mid$(Trim$(Text1.Text), I, 1) Then
               Text2.Text = Text2.Text & Abjd(N)
               Is_Found = True
               Exit For
            End If
        Next
        If Is_Found = False Then Text2.Text = Text2.Text & Trim$(Mid$(Trim$(Text1.Text), I, 1))
     Else
          Text2.Text = Text2.Text & " "
     End If
Next

- تحياتي .
الرد }}}
تم الشكر بواسطة:
#7
فعلا هذا تمام شكرا جزيلا اخوك عبد الكريم من العراق جزاك الله خيرا
لا اله إلا الله محمد رسول الله
الرد }}}
تم الشكر بواسطة:
#8
السلام عليكم...

محاولة قد تكون أقصر:

كود :
Private Const ALEFBA = "ابتثجحخدذرزسشصضطظعغفقكلمنهوي"
Private Const ABJADI = "ابجدهوزحطيكلمنسعفصقرشتثخذضطغ"

Private Sub Command1_Click()
    Dim APos As Long
    Dim TxtLen As Long
    Dim Idx As Long
    Dim AChar As String
    
    Text2.Text = ""
    TxtLen = Len(Text1.Text)
    For Idx = 1 To TxtLen
        AChar = Mid$(Text1.Text, Idx, 1)
        APos = InStr(ALEFBA, AChar)
        If APos = 0 Then
            Text2.Text = Text2.Text & AChar
        Else
            Text2.Text = Text2.Text & Mid$(ABJADI, APos, 1)
        End If
    Next Idx
End Sub

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}
تم الشكر بواسطة:
#9
حياك الله اخ ناجي العزيز صحيح طريقة مختصرة وشكرا جزيلا لك ولكل من شارك معي لكم جزيل الشكر وتحية خاصة للاخ ناجي ابراهيم
لا اله إلا الله محمد رسول الله
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال في الكتابة على التكست عمور2016 3 2,347 18-02-17, 12:21 PM
آخر رد: عمور2016
  من المنتدى القديم (هل حلمت يوما بتنفيذ الكود المكتوب في التكست؟!!!!!!!!!!!!) VBMaged 3 2,618 23-10-15, 11:51 PM
آخر رد: اسلام الكبابى
  مشكله عندى فى ترتيب التكست Yasso 13 5,352 31-07-13, 12:20 PM
آخر رد: VB_Coder
  ازاى اجعل التكست يقبل الرموز مثل "۞" ولا يحولها الى علامات ؟؟ Yasso 13 4,808 29-07-13, 04:50 AM
آخر رد: Yasso
  ارجو المساعدة في كود افراغ محتويات التكست بوكس علوش 4 2,712 26-07-13, 06:15 PM
آخر رد: refathafez
  رقم التكست الكوماند ............الخ asto 6 2,808 26-05-13, 07:34 PM
آخر رد: عبد الله190
  الجدول بدل التكست حياتي 4 2,445 25-05-13, 12:35 AM
آخر رد: حياتي
  كيف يمكن ادخال تاريخ ميلاد في التكست بوكس magic200100 1 2,189 04-05-13, 10:00 PM
آخر رد: محمد العبيدي
  كيف يتم عرض ملف نص تكست من اللست بوكس داخل التكست بوكس 3ssam 19 7,219 29-04-13, 11:16 PM
آخر رد: 3ssam
  معرفة هل المكتوب في التكست حروف ام ارقام مجاهد2010 7 2,803 18-04-13, 11:43 PM
آخر رد: softmail8

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم