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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يمكن اشتراط الاتصال بالأنترنت لتثبيت برنامج مبرمج بال vb6 AEDC 1 54 10-09-17, 01:49 PM
آخر رد: Ahmed_Mansoor
  [سؤال] كيف ابدا مع فيجوال بيسك ام استوديو hawkmaster 1 56 09-09-17, 08:18 PM
آخر رد: حريف برمجة
  كيف أضيف صوت للـ Command في الفيجوال بيسك 6 الحلوانى 5 128 06-09-17, 04:13 PM
آخر رد: الحلوانى
  هل يمكن تشغيل برنامج بالفيجوال على الهاتف الجوال الحلوانى 4 157 17-08-17, 02:26 PM
آخر رد: أبو نوره
  عمل قاموس باستخدام فيجوال بيسك 6 وربطه بقاعدة بيانات أكسيس Emad Nashaat 5 293 08-06-17, 05:23 AM
آخر رد: Amir_alzubidy
  [كود] التعديل على هذا الكود جزاكم الله خيراً عبد الرحمن على 15 468 09-05-17, 06:56 PM
آخر رد: عبد الرحمن على
  التعديل على كود انشاء ترقيم تلقائي ذاتي abouassem 14 5,163 12-04-17, 02:11 PM
آخر رد: Amir_alzubidy
  كيف يمكن التحكم بالترقيم في حال البحث gonm64 2 199 10-04-17, 11:27 PM
آخر رد: Ahmed_Mansoor
  مشكلة اللغة العربية مع برامج فجوال بيسك Dano Pro 18 7,359 02-02-17, 12:33 AM
آخر رد: مساعدة
  سؤال هام فى الفيجوال بيسك فيجوال 6 الحلوانى 3 481 17-01-17, 04:14 PM
آخر رد: Ashraf Elafify

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


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