اذهب الي المحتوي
أوفيسنا

⭐ هدية ~ تغيير لغة النظام في Unicode⭐

Foksh

بواسطه Foksh
في قسم الأكسيس Access

 مشاركة

الردود الموصى بها

Foksh

Foksh

قام بنشر
قام بنشر (معدل)

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء )

أشارككم اليوم حلاً برمجياً لمشكلة شائعة تواجه مطوري و مبرمجي تطبيقات آكسيس عند التعامل مع اللغة العربية . المشكلة تتمثل في الحاجة لتغيير لغة النظام (System Locale) إلى العربية لضمان عرض النصوص العربية بشكل صحيح في التطبيق ، وضمان عمل المشروع دون مشاكل .

🎯 المشكلة:
- عدم ظهور النصوص العربية بشكل صحيح في بعض أجزاء التطبيق
- الحاجة المتكررة لتغيير إعدادات النظام يدوياً
- صعوبة شرح الخطوات للمستخدمين النهائيين

✨ الحل:
قمت بتطوير دالة برمجية تقوم بـ:
1. فحص لغة النظام الحالية
2. تغيير لغة النظام إلى العربية بشكل تلقائي
3. ضبط جميع الإعدادات الضرورية (CodePage, Locale, Keyboard Layout)
4. إعادة تشغيل النظام بشكل آمن لتطبيق التغييرات

🔑 المميزات:
- تنفيذ التغييرات بنقرة زر واحدة
- رسائل واضحة باللغة الإنجليزية للمستخدم
- معالجة الأخطاء بشكل احترافي
- تأكيد موافقة المستخدم قبل إجراء التغييرات
- إتاحة وقت كافٍ لحفظ الملفات قبل إعادة التشغيل

📝 ملاحظات هامة:
- سيتم إعادة تشغيل الجهاز بعد تطبيق التغييرات
- الكود يعمل على جميع إصدارات Windows الحديثة

وهذه صورة توضيحية للخطوات التي كان على المستخدم العادي أو المبرمج تنفيذها حتى يتلافى مشكلة اللغة العربية :-

123.jpeg.0d8512496a30ca469f34fb59281f49d8.jpeg


Dot.pngالكود المستخدم في المديول :- 

Option Compare Database
Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Function GetUserDefaultUILanguage Lib "kernel32" () As Long
    Private Declare PtrSafe Function GetACP Lib "kernel32" () As Long
#Else
    Private Declare Function GetUserDefaultUILanguage Lib "kernel32" () As Long
    Private Declare Function GetACP Lib "kernel32" () As Long
#End If

Private Const MSG_CHANGE_LANGUAGE As String = "Your program will not function correctly; the unicode language must be changed to Arabic. Would you like to proceed with changing the unicode language?"
Private Const MSG_RESTART_NOTE As String = "Note: The computer will restart after the change"
Private Const MSG_TITLE As String = "Change System Language"
Private Const MSG_RESTART_SOON As String = "The computer will restart in 15 seconds"
Private Const MSG_SAVE_FILES As String = "Please save all open files"
Private Const MSG_CANT_RUN As String = "The project cannot run without changing the system language to Arabic"
Private Const MSG_ERROR As String = "System error occurred. Please contact your administrator"

Private Function IsArabicLanguage() As Boolean
    Dim CodePage As Long
    CodePage = GetACP()
    IsArabicLanguage = (CodePage = 1256)
End Function

Public Function SetArabicLocale() As Boolean
    On Error GoTo ErrorHandler
    
    If Not IsArabicLanguage() Then
        Dim response As VbMsgBoxResult
        response = MsgBox(MSG_CHANGE_LANGUAGE & vbCrLf & MSG_RESTART_NOTE, _
                         vbQuestion + vbYesNo + vbDefaultButton2, _
                         MSG_TITLE)
        
        If response = vbYes Then
            Dim fso As Object
            Dim txtFile As Object
            Dim filePath As String
            
            filePath = Environ$("TEMP") & "\ChangeToArabic.bat"
            Set fso = CreateObject("Scripting.FileSystemObject")
            Set txtFile = fso.CreateTextFile(filePath, True)
            
            With txtFile
                .WriteLine "@echo off"
                .WriteLine "chcp 1256"
                
                .WriteLine "reg add ""HKLM\SYSTEM\CurrentControlSet\Control\Nls\Language"" /v Default /t REG_SZ /d 00000401 /f"
                .WriteLine "reg add ""HKLM\SYSTEM\CurrentControlSet\Control\Nls\Language"" /v InstallLanguage /t REG_SZ /d 00000401 /f"
                
                .WriteLine "reg add ""HKCU\Control Panel\International"" /v LocaleName /t REG_SZ /d ar-JO /f"
                .WriteLine "reg add ""HKCU\Control Panel\International"" /v Locale /t REG_SZ /d 00000409 /f"
                .WriteLine "reg add ""HKCU\Control Panel\International"" /v sLanguage /t REG_SZ /d ARA /f"
                .WriteLine "reg add ""HKCU\Control Panel\International"" /v sCountry /t REG_SZ /d Jordan /f"
                .WriteLine "reg add ""HKCU\Control Panel\International"" /v iCountry /t REG_SZ /d 962 /f"
                
                .WriteLine "reg add ""HKLM\SYSTEM\CurrentControlSet\Control\Nls\CodePage"" /v ACP /t REG_SZ /d 1256 /f"
                .WriteLine "reg add ""HKLM\SYSTEM\CurrentControlSet\Control\Nls\CodePage"" /v OEMCP /t REG_SZ /d 1256 /f"
                .WriteLine "reg add ""HKLM\SYSTEM\CurrentControlSet\Control\Nls\CodePage"" /v MACCP /t REG_SZ /d 10004 /f"
                
                .WriteLine "reg add ""HKCU\Keyboard Layout\Preload"" /v 1 /t REG_SZ /d 00000401 /f"
                
                .WriteLine "control.exe intl.cpl,, /f:""C:\Windows\System32\intl.cpl"""
                
                .WriteLine "timeout /t 5"
                .WriteLine "shutdown /r /t 15 /c ""سيتم إعادة تشغيل الجهاز بعد ( 15 ثانية ) لتطبيق إعدادات اللغة العربية"" /f"
            End With
            
            txtFile.Close
            
            Dim shellApp As Object
            Set shellApp = CreateObject("Shell.Application")
            shellApp.ShellExecute filePath, "", "", "runas", 1
            
            MsgBox MSG_RESTART_SOON & vbCrLf & MSG_SAVE_FILES, vbInformation
            
            SetArabicLocale = True
        Else
            MsgBox MSG_CANT_RUN, vbCritical
            SetArabicLocale = False
        End If
    Else
        SetArabicLocale = True
    End If
    
    Exit Function

ErrorHandler:
    MsgBox MSG_ERROR, vbCritical
    SetArabicLocale = False
End Function

large_Dot1.png.2bfd26d85907114f648748b220636475.png     طبعاً رسالة التنبيه تم كتابتها باللغة الإنجليزية . في متغيرات متعددة ( السبب هو إحدى المحاولات للكتابة بالعربية مع تشفير النص ( Unicode ) ) . ولكني تجاهلت الفكرة لاحقاً .

 

الآن يمكنك استدعاء الدالة في أول نموذج لك بالشكل التالي :- 

SetArabicLocale

عند وجود اللغة العربية هي لغة الترميز في نسخة الويندوز ، لن تظهر لك رسالة ضرورة تغيير لغة الترميز الى العربية . ولم اقم بإضافات كبيرة خارج إطار الموضوع ، وللمبرمج حرية التعديل والإستفادة من الكود حيثما وكيفما يشاء :smile: .

 

small.Blue-check.png.685b9b4d755a1579b52 الملف المرفق مفتوح المصدر  👈  [ LanguageCheck.accdb ]

 

Thanks.png

تم تعديل بواسطه Foksh
  • Like 2
  • Thanks 2
  • Moosak pinned this topic
Moosak

Moosak

قام بنشر
قام بنشر

الله الله الله 😄👏👏👏

إبداع إبداع إبداع ... بكل ما تحمله الكلمات من معنى :clapping:

هذا هو الحل للمعضلة العضلاء وأم المشاكل السوداء 😂🖐

بعد التجربة بنجاح باهر أقول لك :
جزاك الله عنا وعن الأمة كل خير .. وغفر الله لك ولوالديك وجميع أحبابك 🙂🤲🏻

 

طلب صغنن لإتاحة التحكم بالكود حسب الاحتياجات الخاصة المختلفة  :

  • كيف أخلي اللغة الإدارية عربي (عمان) مثلا .. أو بالأحرى كيف أختار دولة محددة بذاتها ؟
  • هل ممكن عمل ملف "bat" أو "Cmd" أو "Reg" مثلا بشكل منفصل ويقوم بتشغيل هذه الإجراءات نفسها تلقائيا بمجرد الضغط عليه .. ( لدي فكرة في بالي :rol:)
  • Thanks 1
Foksh

Foksh

قام بنشر
  • الكاتب
قام بنشر (معدل)
3 ساعات مضت, Moosak said:

جزاك الله عنا وعن الأمة كل خير .. وغفر الله لك ولوالديك وجميع أحبابك

غفر الله لك ولوالديك .. ولكم بالمثل وأكثر مما دعيتم مهندسنا الغالي ,:wub:,

بالنسبة لطلبك فابشر بهما ,,
في التالي سأقوم بالتعديل لجعل الموضوع أكثر مرونة باختيار الدولة التي تريدها ، ولكن بعد تجربتها على عدة أجهزة لضمان نجاحها .

أما بخصوص ملف الباتش فهو فعلاً يتم انشاؤه في مجلد %TEMP% داخل الويندوز ليتم التعديل وتمرير الفكرة من خلال الجملة التالية 

.WriteLine "control.exe intl.cpl,, /f:""C:\Windows\System32\intl.cpl"""

 

لكني سأزودك به منفصلاً

تم تعديل بواسطه Foksh
  • Like 1
  • Thanks 1
Foksh

Foksh

قام بنشر
  • الكاتب
قام بنشر (معدل)

  large.New_Update.png.d6c6eb3d7caaef02113

تم التخلص من المديول ، ودمج الفكرة داخل نموذج البداية ، والذي اعتمدت في تصميمه على ما يلي :-

⏱️ جعلته يبدو كرسالة بمحتوى عربي بدلاً من الرسائل الإنجليزية والتي قد تربك المستخدم أو من كانت خبرته باللغة الإنجليزية ليست بالقوية .

MSG.png.70d053ea94f6af6325ac8b29d1b05b26.png

⏱️ من خلال الكود أصبح بإمكان المبرمج اختيار البلد الذي يريد أن تكون له اللغة العربية في اللغة الإدارية ( Unicode ) .  

arabicSettings = GetArabicCountrySettings("Jo")

⏱️ من خلال التعديل الجديد عندما يفتح النموذج اذا كانت اللغة الإدارية تدعم العربية فسيتم اغلاق النموذج المرفق وفتح النموذج الخاص بالمشروع بك ( التعديل من الكود )

⏱️ تم دعم بلدان الدول العربية ( كافة إلى حد ما وما استطعت من الحصول على LocalID الخاص بها .. )

الكود الكامل للنموذج بعد التحديث :- 

'**********************************************
'***                                        ***
'***   FFFFFF   OOO   KK KK    SSSS  HH  HH ***
'***   FF      O   O  KK KK   SS     HH  HH ***
'***   FFFFF   O   O  KKK      SS    HHHHHH ***
'***   FF      O   O  KK KK     SS   HH  HH ***
'***   FF       OOO   KK  KK  SSSSS  HH  HH ***
'***                                        ***
'**********************************************

Option Compare Database
Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Function GetUserDefaultUILanguage Lib "kernel32" () As Long
    Private Declare PtrSafe Function GetACP Lib "kernel32" () As Long
#Else
    Private Declare Function GetUserDefaultUILanguage Lib "kernel32" () As Long
    Private Declare Function GetACP Lib "kernel32" () As Long
#End If

Private Type ArabicCountry
    LocaleName As String
    LocaleID As String
    CountryName As String
    countryCode As String
End Type

Private Const MSG_RESTART_SOON As String = "The computer will restart in 15 seconds"
Private Const MSG_SAVE_FILES As String = "Please save all open files"
Private Const MSG_CANT_RUN As String = "Your project cannot run without changing the system local to Arabic"

Private arabicSettings As ArabicCountry

Private Function IsArabicLanguage() As Boolean
    Dim CodePage As Long
    CodePage = GetACP()
    IsArabicLanguage = (CodePage = 1256)
End Function

Private Function GetArabicCountrySettings(ByVal countryCode As String) As ArabicCountry
    Select Case UCase(countryCode)
        Case "AE", "UAE", "EMIRATES"
            With GetArabicCountrySettings
                .LocaleName = "ar-AE"
                .LocaleID = "00003801"
                .CountryName = "United Arab Emirates"
                .countryCode = "971"
            End With

        Case "BH", "BAHRAIN"
            With GetArabicCountrySettings
                .LocaleName = "ar-BH"
                .LocaleID = "00003C01"
                .CountryName = "Bahrain"
                .countryCode = "973"
            End With

        Case "DZ", "ALGERIA"
            With GetArabicCountrySettings
                .LocaleName = "ar-DZ"
                .LocaleID = "00001401"
                .CountryName = "Algeria"
                .countryCode = "213"
            End With

        Case "EG", "EGYPT"
            With GetArabicCountrySettings
                .LocaleName = "ar-EG"
                .LocaleID = "00000C01"
                .CountryName = "Egypt"
                .countryCode = "20"
            End With

        Case "IQ", "IRAQ"
            With GetArabicCountrySettings
                .LocaleName = "ar-IQ"
                .LocaleID = "00000801"
                .CountryName = "Iraq"
                .countryCode = "964"
            End With

        Case "JO", "JORDAN"
            With GetArabicCountrySettings
                .LocaleName = "ar-JO"
                .LocaleID = "00000409"
                .CountryName = "Jordan"
                .countryCode = "962"
            End With

        Case "KW", "KUWAIT"
            With GetArabicCountrySettings
                .LocaleName = "ar-KW"
                .LocaleID = "00003401"
                .CountryName = "Kuwait"
                .countryCode = "965"
            End With

        Case "LB", "LEBANON"
            With GetArabicCountrySettings
                .LocaleName = "ar-LB"
                .LocaleID = "00003001"
                .CountryName = "Lebanon"
                .countryCode = "961"
            End With

        Case "LY", "LIBYA"
            With GetArabicCountrySettings
                .LocaleName = "ar-LY"
                .LocaleID = "00001001"
                .CountryName = "Libya"
                .countryCode = "218"
            End With

        Case "MA", "MOROCCO"
            With GetArabicCountrySettings
                .LocaleName = "ar-MA"
                .LocaleID = "00001801"
                .CountryName = "Morocco"
                .countryCode = "212"
            End With

        Case "OM", "OMAN"
            With GetArabicCountrySettings
                .LocaleName = "ar-OM"
                .LocaleID = "00002001"
                .CountryName = "Oman"
                .countryCode = "968"
            End With

        Case "QA", "QATAR"
            With GetArabicCountrySettings
                .LocaleName = "ar-QA"
                .LocaleID = "00004001"
                .CountryName = "Qatar"
                .countryCode = "974"
            End With

        Case "SA", "SAUDI"
            With GetArabicCountrySettings
                .LocaleName = "ar-SA"
                .LocaleID = "00000401"
                .CountryName = "Saudi Arabia"
                .countryCode = "966"
            End With

        Case "SD", "SUDAN"
            With GetArabicCountrySettings
                .LocaleName = "ar-SD"
                .LocaleID = "00002C01"
                .CountryName = "Sudan"
                .countryCode = "249"
            End With

        Case "SY", "SYRIA"
            With GetArabicCountrySettings
                .LocaleName = "ar-SY"
                .LocaleID = "00002801"
                .CountryName = "Syria"
                .countryCode = "963"
            End With

        Case "TN", "TUNISIA"
            With GetArabicCountrySettings
                .LocaleName = "ar-TN"
                .LocaleID = "00001C01"
                .CountryName = "Tunisia"
                .countryCode = "216"
            End With

        Case "YE", "YEMEN"
            With GetArabicCountrySettings
                .LocaleName = "ar-YE"
                .LocaleID = "00002401"
                .CountryName = "Yemen"
                .countryCode = "967"
            End With

        Case Else
            With GetArabicCountrySettings
                .LocaleName = "ar-SA"
                .LocaleID = "00000401"
                .CountryName = "Saudi Arabia"
                .countryCode = "966"
            End With
    End Select
End Function

Private Sub ChangeLanguage()
    On Error GoTo ErrorHandler

    Dim fso As Object
    Dim txtFile As Object
    Dim filePath As String

    filePath = Environ$("TEMP") & "\ChangeToArabic.bat"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txtFile = fso.CreateTextFile(filePath, True)

            With txtFile
                .WriteLine "@echo off"
                .WriteLine "chcp 1256"

                .WriteLine "reg add ""HKLM\SYSTEM\CurrentControlSet\Control\Nls\Language"" /v Default /t REG_SZ /d " & arabicSettings.LocaleID & " /f"
                .WriteLine "reg add ""HKLM\SYSTEM\CurrentControlSet\Control\Nls\Language"" /v InstallLanguage /t REG_SZ /d " & arabicSettings.LocaleID & " /f"

                .WriteLine "reg add ""HKCU\Control Panel\International"" /v LocaleName /t REG_SZ /d " & arabicSettings.LocaleName & " /f"
                .WriteLine "reg add ""HKCU\Control Panel\International"" /v Locale /t REG_SZ /d " & arabicSettings.LocaleID & " /f"
                .WriteLine "reg add ""HKCU\Control Panel\International"" /v sLanguage /t REG_SZ /d ARA /f"
                .WriteLine "reg add ""HKCU\Control Panel\International"" /v sCountry /t REG_SZ /d " & arabicSettings.CountryName & " /f"
                .WriteLine "reg add ""HKCU\Control Panel\International"" /v iCountry /t REG_SZ /d " & arabicSettings.countryCode & " /f"

                .WriteLine "reg add ""HKLM\SYSTEM\CurrentControlSet\Control\Nls\CodePage"" /v ACP /t REG_SZ /d 1256 /f"
                .WriteLine "reg add ""HKLM\SYSTEM\CurrentControlSet\Control\Nls\CodePage"" /v OEMCP /t REG_SZ /d 1256 /f"
                .WriteLine "reg add ""HKLM\SYSTEM\CurrentControlSet\Control\Nls\CodePage"" /v MACCP /t REG_SZ /d 10004 /f"

                .WriteLine "reg add ""HKCU\Keyboard Layout\Preload"" /v 1 /t REG_SZ /d " & arabicSettings.LocaleID & " /f"

                .WriteLine "control.exe intl.cpl,, /f:""C:\Windows\System32\intl.cpl"""

                .WriteLine "timeout /t 5"
                .WriteLine "shutdown /r /t 15 /c ""سيتم إعادة تشغيل الجهاز بعد ( 15 ثانية ) لتطبيق إعدادات اللغة العربية"" /f"
            End With
    txtFile.Close

    Dim shellApp As Object
    Set shellApp = CreateObject("Shell.Application")
    shellApp.ShellExecute filePath, "", "", "runas", 0

'    MsgBox MSG_RESTART_SOON & vbCrLf & MSG_SAVE_FILES, vbInformation

    Exit Sub

ErrorHandler:
    Resume Next
End Sub

Private Sub Btn_Yes_Click()
    If Not IsArabicLanguage() Then
        ChangeLanguage
    Else
        MsgBox "اللغة الإدارية الحالية في جهازك هي فعلاً اللغة العربية", vbInformation, arabicSettings.CountryName & " : اللغة العربية الحالية"
    End If
End Sub

Private Sub Btn_No_Click()
    MsgBox MSG_CANT_RUN, vbCritical
    DoCmd.Close acForm, Me.Name
End Sub

Private Sub Form_Load()
    arabicSettings = GetArabicCountrySettings("Jo")
    Txt_ConteryName.Value = arabicSettings.CountryName

    If IsArabicLanguage() Then
        DoCmd.Close acForm, Me.Name
        MsgBox "استبدل هذه الرسالة بكود فتح النموذج الرئيسي", , "عندما تكون اللغة = العربية"
    Else
        Btn_Yes.Visible = True
        Btn_No.Visible = True
    End If
End Sub
PALESTINE

 

small.Blue-check.png.685b9b4d755a1579b52 الملف المرفق مفتوح المصدر  👈  [  LanguageCheck V 2.0.accdb   ]

تم تعديل بواسطه Foksh
  • Like 2
ابو جودي

ابو جودي

قام بنشر
قام بنشر

يا فوكش افندى

اولا بجد تسلم ايدك من قبل ما اجرب وتسلم الافكار النيرة دى 

ثانيا والاهم : انصحك نصيحة بس : فى المرفق لا تستخدم اى لغة عربية لان اصلا الجهاز اذا ما كان مظبط ع العربى وكانت فى رسائل او تلميحات بلغة عربية التطبيق اصلا لن يتم تشغيله بسبب مشكلة اللغة اللى اصلا هو المفروض يعدلها

راى المتواضع اكتب الرسائل ان اردتها بالعربية بالاسكى كود او باليونيكود وبجد تحياتى وان شاء الله وقت فراغى اتفحص المرفق بعناية ولو لاقيت فرصة العب العب :biggrin2: واقولك النتيجة

 

  • Like 2
Moosak

Moosak

قام بنشر
قام بنشر
7 دقائق مضت, ابو جودي said:

انصحك نصيحة بس : فى المرفق لا تستخدم اى لغة عربية

هو فعلا حاسب حساب لهذا الأمر في الكود الرئيسي .. ولكن باقي رسالتين مكتوبتين بالعربي ممكن تجاوزهم وتعديلهم 🙂 
وحتى النموذج حاط فيه صورة لإظهار الكتابة اللي بالعربي :cool:

  • Like 1
  • Confused 1
Foksh

Foksh

قام بنشر
  • الكاتب
قام بنشر (معدل)
46 دقائق مضت, ابو جودي said:

ثانيا والاهم : انصحك نصيحة بس : فى المرفق لا تستخدم اى لغة عربية لان اصلا الجهاز اذا ما كان مظبط ع العربى وكانت فى رسائل او تلميحات بلغة عربية التطبيق اصلا لن يتم تشغيله بسبب مشكلة اللغة اللى اصلا هو المفروض يعدلها

 

انت تعرف اني احترم كل الآراء هنا .. ولكن !!

خد بالك انا كبرتها كتيييييير هههههههههههه ( أمزح الله يرحم والديك )

جرب وبعدين احكيلي وناقشني في النقطة دي :wink2:

43 دقائق مضت, Moosak said:

أبدعت ... أبدعت ... أبدعت ... بسم الله ما شاء الله  😄👏👏👏

طيب أيش رايك في ذي الفكرة : :rol:

image.png.cdd4bbc146b282b1048965fbd4684542.png

LanguageCheck V 2.1.accdb 640 kB · 0 downloads

هذا النموذج لن يظهر إلا عندما تكون اللغة الإدارية غير العربية ، وبالتالي لم أجد انها من صلاحيات المستخدم بقدر ما هي صلاحيات المبرمج ، فما تطرقت لهذه الفكرة ,, :cool:

33 دقائق مضت, Moosak said:

هو فعلا حاسب حساب لهذا الأمر في الكود الرئيسي .. ولكن باقي رسالتين مكتوبتين بالعربي ممكن تجاوزهم وتعديلهم 🙂 
وحتى النموذج حاط فيه صورة لإظهار الكتابة اللي بالعربي :cool:

الرسائل المكتوبة بالعربي لن تظهر للمستخدم أبداً أبداً أبداً أبداً إلا اذا المبرمج وقع امر استدعاء دالة التحقق من اللغة ( وكأننا لم نفعل شيئاً حينها ) :yes:

ما تخافش انا خدت بالي من كل الإحتمالات لأنني جربت الفكرة على 16 نسخة ويندوز للآن ، ومن بينهم جهازين تم عمل فورمات لهم وتنزيل ويندوز جديدة ولم يتم اختيار اللغة العربية ، وبعد تثبيت أوفيس 2016 و 2019 على كل منهما قمت بتشغيل الملف ولم تظهر أي مشكلة قد تخطر ببالكم :dance1:

 

 

إجمالاً .. لو تم ايقاف الجزء المسؤول عن اغلاق النموذج في الحدث عند التحميل ، وحاولت تغير اللغة فلن يتم تغييرها أبداً ، لأن الهدف هو ان يكون الترميز لغة عربية وليس الهدف البلد ، ولكن إضافة الفكرة كانت كرغبة في عدم التقيد ببلد محدد للمبرمج 😉

تم تعديل بواسطه Foksh
  • Thanks 1
ابو جودي

ابو جودي

قام بنشر
قام بنشر
1 ساعه مضت, Moosak said:

هو فعلا حاسب حساب لهذا الأمر في الكود الرئيسي .. ولكن باقي رسالتين مكتوبتين بالعربي ممكن تجاوزهم وتعديلهم 🙂 
وحتى النموذج حاط فيه صورة لإظهار الكتابة اللي بالعربي :cool:

لو الجهاز مفيهوش اصلا عربى 

القاعدة مش هتشتغل نهائى حتى لو الرسائل بالعربى او تلميحات بالعربى فى موديول اخر لا علاقه له بالنموذج ركز فى الجزئية دى كويس

1 ساعه مضت, Moosak said:

أبدعت ... أبدعت ... أبدعت ... بسم الله ما شاء الله  😄👏👏👏

طيب أيش رايك في ذي الفكرة : :rol:

image.png.cdd4bbc146b282b1048965fbd4684542.png

LanguageCheck V 2.1.accdb 640 kB · 1 download

طيب انت جربت تغير اللغه من خلال النموذج ده  بعد التعديل ؟
واللا انت بتقول له يعمل الفكرة دى ؟

لان انا لما قلت له مكن العب كنت بأفكر نفس الفكرة
بس جربت مرفقك ولم يغير اللغة الحاليه بل انه مصر على ان اللغة الحالية عربى 

 

Moosak

Moosak

قام بنشر
قام بنشر
منذ ساعه, ابو جودي said:

القاعدة مش هتشتغل نهائى حتى لو الرسائل بالعربى او تلميحات بالعربى فى موديول اخر لا علاقه له بالنموذج ركز فى الجزئية دى كويس

تمام يا هندسة .. أنا متفق معاك تماما ..

وكنت بقول لك إنت غيرها بنفسك…  😁👊🏻

منذ ساعه, ابو جودي said:

طيب انت جربت تغير اللغه من خلال النموذج ده  بعد التعديل ؟
واللا انت بتقول له يعمل الفكرة دى ؟

أنا جربت النسخة الأولى وكانت شغالة معاية 🙂👌

وهنا عدلت النموذج فقط على أساس أنه سابقا كل حاجة كانت تمام .. 👍🏼

2 ساعات مضت, Foksh said:

وبالتالي لم أجد انها من صلاحيات المستخدم بقدر ما هي صلاحيات المبرمج

ما هو أحنا عاملين كل هذا للمستخدم النهائي أصلا .. 😅🖐️

والمبرمج مستفيد منها أيضا بالطبع 😁

2 ساعات مضت, Foksh said:

، لأن الهدف هو ان يكون الترميز لغة عربية وليس الهدف البلد ،

بتفرق جدا يا باش مهندس .. لما تختار العربية لبلد ثاني تلاقي الجهاز بيضبط معاها لغة الكيبورد والعملة وأسماء الشهور ووووووو…  

لذلك بسبب هذي النقطة مهم أنك توفر الخيارات للمستخدم  🙂👌

Foksh

Foksh

قام بنشر
  • الكاتب
قام بنشر
3 ساعات مضت, ابو جودي said:

العب كنت بأفكر نفس الفكرة

من غير ما تلعب :biggrin: ، الفكرة موجودة عندي ولكن نبحث عن ما هو مختلف 😎 ..

 

  • Sad 1
ابو جودي

ابو جودي

قام بنشر
قام بنشر
7 ساعات مضت, Foksh said:

من غير ما تلعب :biggrin: ، الفكرة موجودة عندي ولكن نبحث عن ما هو مختلف 😎 ..

 

من غير ما العب :eek2: 

ماااااااااشى  :')

الفكرة موجوده عندك وتبحث عن المختلف انت اللى جيبته لنفسك 

اتفضل شوف  المختلف  >--->>   من هنا

8 ساعات مضت, Moosak said:

وكنت بقول لك إنت غيرها بنفسك…  😁👊🏻

كل حاجه اعملها بنفسي :mad:

8 ساعات مضت, Moosak said:

أنا جربت النسخة الأولى وكانت شغالة معاية 🙂👌

وهنا عدلت النموذج فقط على أساس أنه سابقا كل حاجة كانت تمام .. 👍🏼

طيب جرب الاول قبل ما ترد ع السؤال :Rules:
يا حلاوتك يا طعامتك جيبت انت الديب من ذيله كده لما حطيت مربع التحرير والسرد بالطريقة دى 

اتفضل يا معالى الباشا انت كمان شوف مربعات السرد بتتعمل ازاى فى الحالات اللى زى دى   >--->>  من هنا
 

Foksh

Foksh

قام بنشر
  • الكاتب
قام بنشر
20 ساعات مضت, ابو جودي said:

لو الجهاز مفيهوش اصلا عربى

القاعدة مش هتشتغل نهائى حتى لو الرسائل بالعربى او تلميحات بالعربى فى موديول اخر لا علاقه له بالنموذج ركز فى الجزئية دى كويس

يا اهلا ومرحباً 😈

انا مضطر أخالفك الرأي تماااااااماً في النقطة دي وبكل ثقة ، هي هتشتغل معاك وتعمل اللي انت عاوزة أصدي اللي انا عاوزه هههههههه وتغير اللغة زي ما كلنا عاوزين يا هندسة حتى لو فيها حروف عربية 100%  ...

ولو عايز تتأكد فرمت وحمل أوفيس وجرب من غير ما تجيب سيرة اللغة العربية في أي حتة في الويندوز 😁😁😁

شوف ده وركز في كمية الثقة اللي فيه 😎

دي ثقة مش غرور وأعوذ بالله 😇🤗🤗🤗😇

  • Like 1
  • Haha 1
ابو جودي

ابو جودي

قام بنشر
قام بنشر
1 دقيقه مضت, Foksh said:

دي ثقة مش غرور وأعوذ بالله 😇🤗🤗🤗😇

ومين بس جاب سيرة غرور

انا نقلت تجربة شخصية صارت معى فى وقت من الاوقات ربما فى وقت لاحق ومع التطورات تمت معالجتها وانا لا اعلم

Foksh

Foksh

قام بنشر
  • الكاتب
قام بنشر
3 دقائق مضت, ابو جودي said:

ومين بس جاب سيرة غرور

انا نقلت تجربة شخصية صارت معى فى وقت من الاوقات ربما فى وقت لاحق ومع التطورات تمت معالجتها وانا لا اعلم

تصدقني لو قلتلك اني مبارح لغاية ما صليت الفجر ونمت ييجي الساعة 6 وانا عملت فورمات 3 مرات لضمان إجابتي اللي كنت متأكد منها مسبقاً ، وبعد ما صحيت وصليت الجمعة في آخر لحظة 🥺 ورجعت نمت تااااني 😴 ، ولسه بحاول أخزي الشيطان وأصحصح كده ، ولما شفت ردك قلت لأ لازم يعرف ويتأكد ، وقلت نلعب وماله بس أما أفوقله 😁😁

 

دحنا حنلعب لعب 🤣🤣

  • Like 1
ابو جودي

ابو جودي

قام بنشر
قام بنشر
1 دقيقه مضت, Foksh said:

دحنا حنلعب لعب 🤣🤣

بجد انت قدمت حلت مشكلة عويصة وازالية جزاكم الله خيرا

طبعا وبعيد عن المزاح انا عملت موضوع جديد واقتبست نفس الاسم تقريبا علشان عند البحث مستقبلا يظهر الموضوعان معا

وعلشان اظهر وجهة نظرى فقط لم احبذ وضع المرفق هنا بعد تعديلاتى لعدم تشيت رواد المنتدى

ببساطه مرفقك يقوم بتعديل اللغة بشكل تلقائي

اما تعديلاتى والتى تم بنائها فى الاساس على افكارك لا تقوم بتعديل اللغة تلقائيا ولكن تظهر اللغة المستخدمه وتعطى المرونة القصوى فى اختيار تغيرها الى اى لغه حسب رغبة المستخدم بعيدا عن اللغة العربية تحديدا وبطريقة يدوية 

  • Thanks 1
Foksh

Foksh

قام بنشر
  • الكاتب
قام بنشر

بعض ما عندكم طبعاً يا صديقي ..

أجرب فكرتك بعد ما أعمل فرمتة للكمبيوتر 😁😁

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept