تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أحتاج برنامج فيجوال بيسك 6 .. يدعم الكتابة باللغة العربية المهندسة رسل 6 1,553 25-11-16, 12:23 AM
آخر رد: fkwinna
  عمل قاموس على الفيجوال بيسك 6 feras 17 4,152 20-08-16, 12:44 PM
آخر رد: newsyrom
  [vb6.0] ارجو التعديل amer2000 2 132 08-08-16, 03:02 PM
آخر رد: amer2000
  [سؤال] مطلوب بالفيجوال بيسك 6 فاتورة عادية عمور2016 15 406 03-08-16, 12:11 PM
آخر رد: ahmedabdelaliem
  مشكلة اللغة العربية مع برامج فجوال بيسك Dano Pro 14 4,348 10-07-16, 07:53 PM
آخر رد: علموني Vb6
  كيف يمكن إضافة البيانات من text الى MSFlexGrid1 مباشرة ؟؟ softmail8 3 430 08-07-16, 07:25 PM
آخر رد: أحمد خلاف
  [vb6.0] هل يمكن ارسال بريد اليكترونى من برنامجى؟ ahmed_egypt 1 122 04-07-16, 01:26 AM
آخر رد: Amir_alzubidy
  سوال هل يمكن فتح متصفح بالفيجوال عن طريق جوجل كروم بدلا من انترنت اكسبلور ahmedhhh2 5 164 05-06-16, 03:10 PM
آخر رد: ahmedhhh2
  ربط sql server مع الفجول بيسك 6 في داته سيت nali 2 252 02-04-16, 09:52 AM
آخر رد: nali
  احتاج مساعدة في الفيجوال بيسك lena114 0 173 25-03-16, 02:50 PM
آخر رد: lena114

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


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