[VB_Coder]

السلام عليكم

- عرف مصفوفتين نصية واحده للغة الأبتثية والأخرى للأبجدية . عدد عناصر كل مصفوفة بعدد حروف اللغة . سأضع عدد 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

- تحياتي .