تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ما هو الفرق بين كود دوت نت والكود للفيجوال بيسك...وهل يمكن التعديل ام مستحيل؟
#1
بسم الله الرحمن الرحيم
انا كثيرا أرى اكواد دوت نت فأبتعد عنها نظراّ لعدم استخدامى هذا البرنامج لبعض ظهور المشاكل اثناء تسطيبة بالاضافة الى عدم معرفتى بالتعامل معة ومع ذلك كل ما اطلب كود معين يعطونى كود دوت نت لدرجة قد أصبت بالملل وانا استخدم فيجوال بيسك 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] التعديل على هذا الكود جزاكم الله خيراً عبد الرحمن على 15 270 09-05-17, 06:56 PM
آخر رد: عبد الرحمن على
  التعديل على كود انشاء ترقيم تلقائي ذاتي abouassem 14 4,632 12-04-17, 02:11 PM
آخر رد: Amir_alzubidy
  كيف يمكن التحكم بالترقيم في حال البحث gonm64 2 92 10-04-17, 11:27 PM
آخر رد: Ahmed_Mansoor
  مشكلة اللغة العربية مع برامج فجوال بيسك Dano Pro 18 6,450 02-02-17, 12:33 AM
آخر رد: مساعدة
  سؤال هام فى الفيجوال بيسك فيجوال 6 الحلوانى 3 222 17-01-17, 04:14 PM
آخر رد: Ashraf Elafify
  أحتاج برنامج فيجوال بيسك 6 .. يدعم الكتابة باللغة العربية المهندسة رسل 6 2,048 25-11-16, 12:23 AM
آخر رد: fkwinna
  عمل قاموس على الفيجوال بيسك 6 feras 17 5,099 20-08-16, 12:44 PM
آخر رد: newsyrom
  [vb6.0] ارجو التعديل amer2000 2 265 08-08-16, 03:02 PM
آخر رد: amer2000
  [سؤال] مطلوب بالفيجوال بيسك 6 فاتورة عادية عمور2016 15 855 03-08-16, 12:11 PM
آخر رد: ahmedabdelaliem
  كيف يمكن إضافة البيانات من text الى MSFlexGrid1 مباشرة ؟؟ softmail8 3 603 08-07-16, 07:25 PM
آخر رد: أحمد خلاف

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


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