Debug Ace

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

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

النتيجة واحدة ولكن فى الكود الثانى اضافة تمكنك من عمل اختيارات متعددة عند الاستدعاء مثل ' حل اكثر تقدما وبه مرونة فى التحكم إذا أردت أقصى مرونة مع دعم خصائص ' عادي allowedProps = GetAllowedProps("CommandButton") ' مع استثناءات ديناميكية allowedProps = GetAllowedProps("CommandButton", "Glow,Shadow") ' بدون تأثيرات

المرحلة الثانية نفس الالية ولكن بتغيير عنصر مربع التحرير والسرد الى مربع قائمة قيم كما تفضل الاستاذ : منتصر الانسي وايضا بنفس منطق تمرير الفلتر الديناميكى بدون تعديل الاستعلام فى المرفق فى كودين الاول البسيط لزر الامر وهو معطل لفتح التقرير ولو حاولت تغيير الفلتر والتقرير مفتوح لن يتغير لازم اغلاق واعادة فتح التقرير الكود الثانى المتقدم وهو المفعل لزر الامر افتح التقرير مرة واحدة لا تغلق التقرير غير الفلتر من قائمة القيم والتقرير مفتوح عادى واعد الضغط مرة أخرى على زر الامر saad -3.accdb

طيب وبعد اذن السيد الاستاذ :منتصر الانسي سوف اضع الاجابة على مرحلتين المرحلة الاولى للشق الاول من السؤال تمرير ديناميكى للفلتر بدون تعديل الاستعلام saad -2.accdb

دى التجربة من المرفق الجديد بالفعل يا سيد Foksh

اسف جدا جدا جدا للازعاج استاذ المرفق مفتوح X-O By Debug Ace.zip

لسة فيه عندك bugs يا سيد Foksh

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

طيب ولانى لا املك 32 ده المرفق مغلق للنواة 64 للتجربة file x o 64.zip

برافو عليك شاطر

لا تقلق لم يكون ردى عليكم لاعتقادى انكم تظنون بى سوءا ولكن كان الرد علشان الضحكة الجميلة بتاعتك اللى على منشورى وبس لا اكثر ولا اقل لا تكبر المواضيع يا رجل وبجد بجد برافو ولكن انت محتاج تراجع اكوادك تانى يا استاذ فى عندك bugs

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

هل هناك من يملك افكار لكسر جمود الاكسس بعمل اضافات تعمل كمؤثرات بصرية ممتعة والان تلخيص الافكر المطلوب تحقيقها للحصول على اكبر قدر مرن و ممتع وشيق من التجربة 1- تحديد مستوى الصعوبة والسهولة لما تلعب مع الكمبيوتر 2- تحديد وادخال اسماء اللاعبين فى حالة لاعب ضد لاعب آخر 3- مؤثرات بصرية تعطى رونق جميلا لكسر جكود الاكسس وعلى فكرة انا مش هشارك دلوقتى بالمرفق والافكار لانى انا حابب اشوف افكار رواد المنتدى المحترمين

يا هلا والله يا مراحب تسلم الافكار النيرة ممتاز جدا ورائع

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

السلام عليكم ورحمة الله وبركاته ممكن نشوف افكار وتطبيق رواد المنتدى المحترمين لعمل فكرة اللعبة X , O ولكن ولكن ولكن المطلوب ان تكون اللعبة بينك وبين الكمبيوتر يعنى انت تعمل حركة وهو يعمل حركة فى انتظار ابداعاتكم وافكاركم النيرة

طيب ايه رايك نقوم بحذف : Width/Height من الكود نهائيا انا اضفت فى المرفق التالى فكرتين احدهما مفعلة والاخرى ليست مفعلة يمكنك ان تقوم بالتبديل بينهم واختر ما تراه مناسبا استاذ ملاحظة تم دعم بعض الخواص باضافتها لم تكن موجودة ده كود الحل الاول ' قائمة الخصائص المسموح نسخها لكل نوع كنترول '============================= ' الحل الاول Private Function GetAllowedProps(ctrlTypeName As String) As Variant Static propsTextBox As Variant Static propsLabel As Variant Static propsCombo As Variant Static propsCheckBox As Variant Static propsOptionButton As Variant Static propsToggleButton As Variant Static propsListBox As Variant Static propsCommandButton As Variant Static propsSubform As Variant Static propsEmpty As Variant ' Initialize If IsEmpty(propsTextBox) Then propsTextBox = Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "TextAlign", "BorderColor", "BorderStyle", _ "SpecialEffect") propsLabel = Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "TextAlign", "BorderColor", "BorderStyle", _ "SpecialEffect") propsCombo = Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "BorderColor", "BorderStyle", "SpecialEffect") ' CheckBox - خصائص محدودة لتجنب التشويه propsCheckBox = Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "SpecialEffect", "BorderStyle") ' OptionButton - منفصل لإمكانية التخصيص المستقبلي propsOptionButton = Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "SpecialEffect", "BorderStyle") ' ToggleButton - دعم خصائص إضافية propsToggleButton = Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "SpecialEffect", "BorderStyle", _ "QuickStyle", "Shape", "BackShade", "BackTint") propsListBox = Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "BorderColor", "BorderStyle", "SpecialEffect") ' CommandButton - WITHOUT Width/Height لتجنب تشويه propsCommandButton = Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "QuickStyle", "Shape", "BackShade", _ "BackTint", "Gradient", "Glow", "Shadow", "SoftEdges", _ "UseTheme", "BackThemeColorIndex", "HoverColor", _ "HoverForeColor", "PressedColor", "PressedForeColor", _ "BorderColor", "BorderStyle", "SpecialEffect") ' Subform propsSubform = Array("BackColor", "BorderColor", "BorderStyle", "SpecialEffect") propsEmpty = Array() End If ' Return المناسب حسب النوع Select Case ctrlTypeName Case "TextBox": GetAllowedProps = propsTextBox Case "Label": GetAllowedProps = propsLabel Case "ComboBox": GetAllowedProps = propsCombo Case "CheckBox": GetAllowedProps = propsCheckBox Case "OptionButton": GetAllowedProps = propsOptionButton Case "ToggleButton": GetAllowedProps = propsToggleButton Case "ListBox": GetAllowedProps = propsListBox Case "CommandButton": GetAllowedProps = propsCommandButton Case "Subform": GetAllowedProps = propsSubform Case Else: GetAllowedProps = propsEmpty End Select End Function ويمكن تعطيله واستخدام كود الحل الثانى Private Function GetAllowedProps(ctrlTypeName As String, Optional excludeList As String = "") As Variant Static propsCache As Object Static isInitialized As Boolean ' Initialize Dictionary If Not isInitialized Then Set propsCache = CreateObject("Scripting.Dictionary") ' TextBox propsCache.Add "TextBox", Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "TextAlign", "BorderColor", "BorderStyle", _ "SpecialEffect", "LeftMargin", "TopMargin") ' Label propsCache.Add "Label", Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "TextAlign", "BorderColor", "BorderStyle", _ "SpecialEffect") ' ComboBox propsCache.Add "ComboBox", Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "BorderColor", "BorderStyle", _ "SpecialEffect", "ColumnWidths", "ListWidth") ' CheckBox propsCache.Add "CheckBox", Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "SpecialEffect", "BorderStyle") ' OptionButton propsCache.Add "OptionButton", Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "SpecialEffect", "BorderStyle") ' ToggleButton propsCache.Add "ToggleButton", Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "SpecialEffect", "BorderStyle", _ "QuickStyle", "Shape", "BackShade", "BackTint", _ "Gradient") ' ListBox propsCache.Add "ListBox", Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "BorderColor", "BorderStyle", _ "SpecialEffect", "ColumnWidths") ' CommandButton (WITHOUT Width/Height) propsCache.Add "CommandButton", Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "QuickStyle", "Shape", "BackShade", _ "BackTint", "Gradient", "Glow", "Shadow", _ "SoftEdges", "UseTheme", "BackThemeColorIndex", _ "HoverColor", "HoverForeColor", "PressedColor", _ "PressedForeColor", "BorderColor", "BorderStyle", _ "SpecialEffect") ' Subform propsCache.Add "Subform", Array("BackColor", "BorderColor", "BorderStyle", "SpecialEffect") ' TabControl propsCache.Add "TabControl", Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "MultiRow", "TabFixedHeight", _ "TabFixedWidth") isInitialized = True End If ' Get Base Properties Dim baseProps As Variant If propsCache.Exists(ctrlTypeName) Then baseProps = propsCache(ctrlTypeName) Else GetAllowedProps = Array() Exit Function End If If Len(excludeList) > 0 Then baseProps = FilterProperties(baseProps, excludeList) End If GetAllowedProps = baseProps End Function ' دالة مساعدة: حذف خصائص محددة من القائمة Private Function FilterProperties(props As Variant, excludeList As String) As Variant Dim result() As Variant, i As Long, j As Long Dim excludeArr As Variant excludeArr = Split(excludeList, ",") ReDim result(0 To UBound(props)) j = 0 For i = 0 To UBound(props) If Not IsInArray(CStr(props(i)), excludeArr) Then result(j) = props(i) j = j + 1 End If Next If j > 0 Then ReDim Preserve result(0 To j - 1) FilterProperties = result Else FilterProperties = Array() End If End Function Private Function IsInArray(val As String, arr As Variant) As Boolean Dim i As Long For i = LBound(arr) To UBound(arr) If Trim(UCase(arr(i))) = UCase(val) Then IsInArray = True Exit Function End If Next IsInArray = False End Function '============================= Mont_FormsTemplatePart03.zip

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

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

انا منبهر بس مش من البذرة ولا حتى من الفكرة انا منبهر من الطرح والرد صمم اى نموذج وابدأ فقط تسميته بـ : frmTemplate ثم اكمل برقم او اى شئ اخر كما يحلو لك ممكن مثلا يكون : frmTemplateDarkMode فى هذا النموذج حدد اللالوان لجميع العناصر كما تريدها ان تضاهى الـ : Dark mode حسب مخيلتك وحدد الخصائص العامة التى تريد تورثيها لباقى نماذج القاعدة كرر نفس الخطوات بعمل نموذج واعطه الاسم : frmTemplateLightMode فى هذا النموذج حدد اللالوان لجميع العناصر كما تريدها ان تضاهى الـ : Light Mode حسب مخيلتك وحدد الخصائص العامة التى تريد تورثيها لباقى نماذج القاعدة الان مع قالبين يمكن اختيار احدهم كرئيسي وتوريث خصائصة الى باقى نماذج القاعدة واضف من القوالب ما شئت يعنى الفكرة بالفعل موجودة فى المرفق البذرة تم زرعها وتمت ايضا عملية حصاد ثمارها

السلام عليكم ورحمة الله وبركاته اسعد الله صباحكم استاذ الكود المستخدم داخل النموذج الرئيسي لادارة القوالب Option Compare Database Option Explicit '============================= ' إعدادات عامة '============================= Private Const TemplateFormPrefix As String = "frmTemplate" Private Const TemplateComboName As String = "cboFormsTemplateName" Private TemplateFormManager As String Private TemplateSnapshot As Object Private Sub Form_Load() TemplateFormManager = Me.Name FillTemplateCombo End Sub Private Sub FillTemplateCombo() Dim i As Long, ao As AccessObject, rs As String, ctl As Control Set ctl = Me.Controls(TemplateComboName) ctl.RowSourceType = "Value List": ctl.RowSource = "" For i = 0 To CurrentProject.AllForms.Count - 1 Set ao = CurrentProject.AllForms(i) If ao.Name Like TemplateFormPrefix & "*" And ao.Name <> TemplateFormManager Then rs = IIf(ctl.RowSource = "", ao.Name, ctl.RowSource & ";" & ao.Name) ctl.RowSource = rs End If Next i End Sub Private Sub cboFormsTemplateName_AfterUpdate() Dim cbo As Control Set cbo = Me.Controls(TemplateComboName) If IsNull(cbo.Value) Then Me.frmChild.SourceObject = "" Else Me.frmChild.SourceObject = cbo.Value End If Me.frmChild.Requery End Sub '============================= ' تعيين قالب النماذج الافتراضي '============================= Public Sub SetFormTemplateName(ByVal templateFormName As String) On Error GoTo ErrHandler Application.SetOption "Form Template", templateFormName Exit Sub ErrHandler: MsgBox "خطأ في تغيير Form Template: " & Err.Number & " - " & Err.Description, vbExclamation End Sub Private Sub cmdApplyTemplate_Click() Dim cbo As Control Set cbo = Me.Controls(TemplateComboName) If IsNull(cbo.Value) Then MsgBox "اختر قالب أولاً" Exit Sub End If SetFormTemplateName cbo.Value PropagateTemplate cbo.Value MsgBox "تم تطبيق القالب على جميع النماذج" End Sub '============================= ' دوال مساعدة عامة '============================= Private Function GetSectionIndex(sec As Integer) As Long GetSectionIndex = sec End Function Private Function GetControlTypeName(ctrlType As Integer) As String Select Case ctrlType Case acTextBox: GetControlTypeName = "TextBox" Case acLabel: GetControlTypeName = "Label" Case acComboBox: GetControlTypeName = "ComboBox" Case acCheckBox: GetControlTypeName = "CheckBox" Case acCommandButton: GetControlTypeName = "CommandButton" Case acOptionButton: GetControlTypeName = "OptionButton" Case acToggleButton: GetControlTypeName = "ToggleButton" Case acListBox: GetControlTypeName = "ListBox" Case acSubform: GetControlTypeName = "Subform" Case acTabCtl: GetControlTypeName = "TabControl" Case Else: GetControlTypeName = "Other" End Select End Function ' قائمة الخصائص المسموح نسخها لكل نوع كنترول Private Function GetAllowedProps(ctrlTypeName As String) As Variant Select Case ctrlTypeName Case "TextBox" GetAllowedProps = Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "TextAlign", "BorderColor", "BorderStyle") Case "Label" GetAllowedProps = Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "TextAlign", "BorderColor", "BorderStyle") Case "ComboBox" GetAllowedProps = Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "BorderColor", "BorderStyle") Case "CheckBox", "OptionButton", "ToggleButton" GetAllowedProps = Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight") Case "ListBox" GetAllowedProps = Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "BorderColor", "BorderStyle") Case "CommandButton" GetAllowedProps = Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "QuickStyle", "Shape", "BackShade", _ "BackTint", "Gradient", "Glow", "Shadow", "SoftEdges", _ "Width", "Height") Case "Subform" ' لا نقترب من مصدر الكائن أو روابط الحقول GetAllowedProps = Array("BackColor", "BorderColor", "BorderStyle", "SpecialEffect") Case Else GetAllowedProps = Array() ' لا نغيّر شيء End Select End Function '============================= '============================= ' التقاط خصائص القالب (Snapshot) Public Function GetTemplateSnapshot(frmName As String) As Object Dim snap As Object Dim f As Form, ctl As Control, p As Property Dim secIndex As Integer, s As Section Set snap = CreateObject("Scripting.Dictionary") snap.Add "Form", CreateObject("Scripting.Dictionary") snap.Add "Sections", CreateObject("Scripting.Dictionary") snap.Add "ControlStyles", CreateObject("Scripting.Dictionary") DoCmd.OpenForm frmName, acDesign, , , , acHidden Set f = Forms(frmName) ' خصائص النموذج For Each p In f.Properties On Error Resume Next snap("Form")(p.Name) = p.Value On Error GoTo 0 Next ' خصائص السيكشن For secIndex = 0 To 5 On Error Resume Next Set s = f.Section(secIndex) If Err.Number = 0 Then Dim secSnap As Object Set secSnap = CreateObject("Scripting.Dictionary") For Each p In s.Properties On Error Resume Next secSnap(p.Name) = p.Value On Error GoTo 0 Next snap("Sections").Add CStr(secIndex), secSnap End If Err.Clear Next ' أنماط الكنترولز لكل سيكشن/نوع (واحد قالب لكل نوع/سيكشن) Dim secKey As String, ctrlTypeName As String Dim secDict As Object, styleDict As Object Dim allowedProps As Variant, propName As Variant For Each ctl In f.Controls ctrlTypeName = GetControlTypeName(ctl.ControlType) allowedProps = GetAllowedProps(ctrlTypeName) If Not IsEmpty(allowedProps) Then secKey = CStr(GetSectionIndex(ctl.Section)) If Not snap("ControlStyles").Exists(secKey) Then Set secDict = CreateObject("Scripting.Dictionary") snap("ControlStyles").Add secKey, secDict Else Set secDict = snap("ControlStyles")(secKey) End If ' أول كنترول من هذا النوع/السيكشن يصبح Template If Not secDict.Exists(ctrlTypeName) Then Set styleDict = CreateObject("Scripting.Dictionary") For Each propName In allowedProps On Error Resume Next styleDict(propName) = ctl.Properties(propName) On Error GoTo 0 Next secDict.Add ctrlTypeName, styleDict End If End If Next DoCmd.Close acForm, frmName, acSaveNo Set GetTemplateSnapshot = snap End Function '============================= '============================= ' تطبيق Snapshot على نموذج واحد Public Sub ApplySnapshot(targetForm As String, snap As Object) Dim f As Form, ctl As Control Dim k As Variant, p As Variant Dim secIndex As Variant, sec As Section Dim secKey As String, ctrlTypeName As String Dim secDict As Object, styleDict As Object Dim allowedProps As Variant, propName As Variant DoCmd.OpenForm targetForm, acDesign, , , , acHidden Set f = Forms(targetForm) ' 1) خصائص النموذج For Each k In snap("Form").Keys On Error Resume Next f.Properties(k) = snap("Form")(k) On Error GoTo 0 Next ' 2) خصائص السيكشن For Each secIndex In snap("Sections").Keys On Error Resume Next Set sec = f.Section(CLng(secIndex)) If Err.Number = 0 Then For Each p In snap("Sections")(secIndex).Keys On Error Resume Next sec.Properties(p) = snap("Sections")(secIndex)(p) On Error GoTo 0 Next End If Err.Clear Next ' 3) أنماط الكنترولز For Each ctl In f.Controls ctrlTypeName = GetControlTypeName(ctl.ControlType) allowedProps = GetAllowedProps(ctrlTypeName) If Not IsEmpty(allowedProps) Then secKey = CStr(GetSectionIndex(ctl.Section)) If snap("ControlStyles").Exists(secKey) Then Set secDict = snap("ControlStyles")(secKey) If secDict.Exists(ctrlTypeName) Then Set styleDict = secDict(ctrlTypeName) ' تطبيق الخصائص المسموحة For Each propName In allowedProps If styleDict.Exists(propName) Then On Error Resume Next ctl.Properties(propName) = styleDict(propName) On Error GoTo 0 End If Next End If End If End If Next DoCmd.Close acForm, targetForm, acSaveYes End Sub '============================= '============================= ' تطبيق القالب على كل النماذج Public Sub PropagateTemplate(templateName As String) Dim ao As AccessObject Set TemplateSnapshot = GetTemplateSnapshot(templateName) For Each ao In CurrentProject.AllForms If Not ao.Name Like TemplateFormPrefix & "*" Then If ao.Name <> TemplateFormManager Then ApplySnapshot ao.Name, TemplateSnapshot Else End If Else End If Next End Sub '============================= اضف اى نماذج كقوالب افتراضية على ان تبدأ بـ : frmTemplate النموذج الرئيسي لادارة لاختيار وادارة القوالب : frmTemplateManager عند فتح النموذج سوف يتم جلب واحضار اى نماذج قوالب افتراضية يبدأ اسمها بـ : frmTemplate ويتم ملئ مربع التحرير والسرد بهذه الاسماء وظيفة مربع التحرير والسرد : استعراض القوالب بمجرد اختيار اى قالب يتم معاينته فى الرئيسية طيب فى حالة تحديد قالب باختيارة من مربع السرد بعد الضغط على زر امر التطبيق يتم تمرير اسم النموذج : الى الاعدادت ليتم تحديدة كقالب اساسى كما فى الصورة التالية وكذلك يتم عمل دوران على كل النماذج فى قاعدة البيانات لاستنساح حصائص النموذج الذى تم اختياره كقالب مفضل وتطبيق هذه الخصائص على جميع النماذج صورة من نمورج ادارة القوالب اتفضل المرفق استاذ Mont_FormsTemplatePart02.zip

يصنع البشر ما يعجز عنه الاداوت التى هى من صنع البشر ففى النهاية البشر هم من صنع الله تعالى لا تترك الموضوع قبل تحمد الله و تقول سبحانك اللهم لا علم لنا الا ما علمتنا انك انت العليم الحكيم قال تعالى بسم الله الرحمن الرحيم {ولقد كرمنا بني آدم وحملناهم في البر والبحر ورزقناهم من الطيبات وفضلناهم على كثير ممن خلقنا تفضيلا} (الإسراء:70) {لقد خلقنا الإنسان في أحسن تقويم} (التين:4) صور التجربة بعد التصغير بعد عمل نقر الكليك الايمن من زر الماوس على ايقونة التطبيق واجهة التطبيق بعد الاستعادة سواء باختيار الامر استعادة من القائمة او من خلال النقر المفرد من زر الماوس الايسر واخيرا اثبات العمل من النواة x64 اتفضل المرفق systray Moosak.zip

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