07-11-12, 09:49 PM
بسم الله الرحمن الرحيم
انا كثيرا أرى اكواد دوت نت فأبتعد عنها نظراّ لعدم استخدامى هذا البرنامج لبعض ظهور المشاكل اثناء تسطيبة بالاضافة الى عدم معرفتى بالتعامل معة ومع ذلك كل ما اطلب كود معين يعطونى كود دوت نت لدرجة قد أصبت بالملل وانا استخدم فيجوال بيسك 6 ولكنى لا اريدة اتركة الان الا اصل الى درجة الاحتراف كى تساعدنى فما بعد ذلك دراسة اللغات المتقدمة بسهولة ومنها طبعاّ دوت نت وسى شارب وسى بلاس بلاس وغيرهم لذلك اريد كيفيك تحويل كود دوت نت الى فيجوال بيسك 6 وياريت توضحوة اين تقع الاختلافات دائماّ هلى تقع فى التصريحات العامة ام أين...واليكم كود مثال بالدوت نت وكيف اقم بتحويلة الى فيجوال 6
انا كثيرا أرى اكواد دوت نت فأبتعد عنها نظراّ لعدم استخدامى هذا البرنامج لبعض ظهور المشاكل اثناء تسطيبة بالاضافة الى عدم معرفتى بالتعامل معة ومع ذلك كل ما اطلب كود معين يعطونى كود دوت نت لدرجة قد أصبت بالملل وانا استخدم فيجوال بيسك 6 ولكنى لا اريدة اتركة الان الا اصل الى درجة الاحتراف كى تساعدنى فما بعد ذلك دراسة اللغات المتقدمة بسهولة ومنها طبعاّ دوت نت وسى شارب وسى بلاس بلاس وغيرهم لذلك اريد كيفيك تحويل كود دوت نت الى فيجوال بيسك 6 وياريت توضحوة اين تقع الاختلافات دائماّ هلى تقع فى التصريحات العامة ام أين...واليكم كود مثال بالدوت نت وكيف اقم بتحويلة الى فيجوال 6
كود :
'Author Programmation(OmarNegm)
Public Function Conversion(ByVal strSource As String) As String
Const English As String = "a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z|]|[|'|;|/|.|,|`"
Const Arabic As String = "Ô|áÇ|Ä|í|Ë|È|á|Ç|å|Ê|ä|ã|É|ì|Î|Í|Ö|Þ|Ó|Ý|Ú|Ñ|Õ|Á|Û|Æ|Ï|Ì|Ø|ß|Ù|Ò|æ|Ð"
Dim arrEnglish() As String = Split(English, "|")
Dim arrArabic() As String = Split(Arabic, "|")
Dim arrSource() As String = Split(strSource, " ")
Dim strFinal As String = ""
Dim currChar As Char
For J As Integer = 0 To arrSource.Count - 1 Step 1
For I As Integer = 1 To Len(arrSource(J)) Step 1
currChar = LCase(Mid$(arrSource(J), I, 1))
If isArabicChar(currChar) = False Then
For H As Integer = 0 To arrEnglish.Count - 1 Step 1
If currChar = arrEnglish(H) Then
If strFinal.Trim = "" Then
strFinal = arrArabic(H)
Else
strFinal &= arrArabic(H)
End If
End If
Next
Else
For H As Integer = 0 To arrArabic.Count - 1 Step 1
If currChar = arrArabic(H) Then
If strFinal.Trim = "" Then
strFinal = arrEnglish(H)
Else
strFinal &= arrEnglish(H)
End If
End If
Next
End If
Next
strFinal &= " "
Next
Return strFinal
arrEnglish = Nothing
arrArabic = Nothing
arrSource = Nothing
strFinal = Nothing
End Function
Private Function isArabicChar(ByVal ccChar As Char) As Boolean
Const AllChars As String = "Ô|áÇ|Ä|í|Ë|È|á|Ç|å|Ê|ä|ã|É|ì|Î|Í|Ö|Þ|Ó|Ý|Ú|Ñ|Õ|Á|Û|Æ|Ï|Ì|Ø|ß|Ù|Ò|æ|Ð"
Dim arrChars() As String = Split(AllChars, "|")
For I As Integer = 0 To arrChars.Count - 1 Step 1
If ccChar = arrChars(I) Then
Return True
Exit Function
End If
Next
Return False
arrChars = Nothing
End Function
