11-04-13, 12:39 AM
السلام عليكم
- فعلا فيه مشكلة . هذا الكود بعد التعديل :
- تحياتي .
- فعلا فيه مشكلة . هذا الكود بعد التعديل :
كود :
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- تحياتي .

