🌸 دعوة لتجربة الأداة : دكتور الVBA 🌸

**Moosak** · نوفمبر 29, 2025

السلام عليكم ورحمة الله وبركاته

هذه دعوة كريمة لتجربة الأداة الجديدة والفريدة من نوعها :
دكتور ال VBA

وضائف الأداة :

1- تحويل الكود إلى صيغة متوافقة مع النواتين 32 و 64 بت.
2- تصحيح الأخطاء البرمجية في الكود.
3- تنسيق وترتيب الكود شكليا.
4- كتابة التعليقات وشرح للكود باللغتين العربية والإنجليزية.
5- إضافة صائد الأخطاء للكود وذلك لتعقب الأخطاء البرمجية.
6- إضافة ترقيم لأسطر الكود.

يمكنك اختيار واحد من هذه الوظائف أو تختار من بينها ما تريده.

الأداة مخصصة لأكواد ال VBA وتعتمد على قدرات الذكاء الاصطناعي لإعطاء نتائج دقيقة ومبهرة .. 😁✌🏻
اختصر على نفسك الوقت والجهد واعمل بذكاء 😉👌🏻

رابط الأداة :
https://vba-code-doctor-471932697586.us-west1.run.app/

يمكنك فتحها في الهاتف أو الحاسوب على راحتك 😎🌷

جربوها وعطوني رأيكم 😇✌🏻

image.png.1e0a094580b5d3a21cdb0e01ce10fc56.png

:: إضافة جديدة ::

لتحقيق مرونة أكبر للمستخدم ، أضفت حقل خاص بكتابة تعليمات مخصصة توجهها للذكاء الاصطناعي بحيث يراعيها عند معالجة الطلب ، مثال : ( قم بتغيير أسماء المتغيرات لأسماء مقروءة ، أو قم بتقسيم جملة SQL لعدة أسطر هكذا ....... ، أو ، أو ) أكتب ما شئت 🙂 image.png.2d9202f1b874d8e610a78435b431b975.png

image.png.02664e93e699868fc9542632e7cc823f.png

**ابوخليل** · نوفمبر 29, 2025

جزاك الله خيرا

جربتها على كود اعمل عليه فعلا الآن

النتيجة ممتازة .. خاصة الترتيب والتعليق

ايضا التصحيح فقد اضاف لي اغلاق وانهاء مجموعة السجلات

ولكني حين نقلته الى الفورم .. ظهر لي خطأ في سطر DlookUp لم احقق في السبب

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

وضعت الموقع في شريط المفضلة لتكون هذه التحفة قريبا مني ..

**Moosak** · نوفمبر 29, 2025

46 دقائق مضت, ابوخليل said:

ظهر لي خطأ في سطر DlookUp لم احقق في السبب

أسعدك الله عمي أبوخليل 🙂 ..
مرورك دائما له أثر .. 🌹
فأنت تشجع .. تتفاعل .. تنصح .. وتترك فينا الأثر 😊

ياريت بعد ما يتبين لك السبب تنبهنا .. وهل يتم تعديل الخطأ لو أعدت المحاولة مرة أخرى ؟ ..
هذا لأجل تطوير الأداة ..

وهل هناك أفكار أخرى (احتياجات) يمكن إضافتها ؟

**ابوخليل** · نوفمبر 29, 2025

عجيب .. عجيب

يبدو انك عدلت على شيء ما

اعدت التجربة .. والنتيجة كانت مذهلة

التعديلات التي اجراها :

تنظيم الكود .. بحيث جعل جميع الاعلانات عن المتغيرات في الأعلى

بدل شرط الحقل النصي في الدوال بالمتغير وكذلك في جملة sql استبدل الدالة بالمتغير .. عفريت برمجي

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

اغلاق السجلات عند نهاية كل شرط .. الحقيقة هذه الحركة تحفة

هذه صورة من الخيارات التي استخدمتها :

image.jpeg.a8ebb069182f3e8d60dd51f4dbd7d388.jpeg

وهذا الكود الاصلي :

Private Sub id_AfterUpdate()
EmpUserid = id
Dim mylevl As Boolean
mylevl = Nz(DLookup("Emp_user", "tblEmpNames", "Emp_user='" & Me.id & "'"), 0)
EmpFatrah = Nz(DLookup("fatrah", "tblEmpNames", "Emp_user='" & Me.id & "'"), 0)
If mylevl = False Then
Beep
Me.LabelH.Caption = "خطأ!! .. الادخال غير صحيح"
Me.TimerInterval = 3000
id = ""
id.SetFocus
Exit Sub
End If

Dim rs As Recordset
Dim strSql As String
strSql = "SELECT TOP 1 tblCheckINOut.id, tblCheckINOut.EmpUser, tblCheckINOut.chekInOut, tblCheckINOut.chkio, tblCheckINOut.ftra_id " & vbCrLf & _
"FROM tblCheckINOut " & vbCrLf & _
"WHERE (((tblCheckINOut.EmpUser)=funEmpUserid())) " & vbCrLf & _
"ORDER BY tblCheckINOut.id DESC;"
Set rs = CurrentDb.OpenRecordset(strSql)

If rs.RecordCount = 0 Then
rs.AddNew
rs!EmpUser = id
rs!chekInOut = Now()
rs!chkio = "I"
rs!ftra_id = EmpFatrah
Me.txtnm = empName
LabelH.Caption = "حضور"
Me.Requery
Me.TimerInterval = 3000
Me.id = ""
Me.id.SetFocus
rs.Update
Exit Sub
End If

Dim waitTime As Integer
Dim AdTim As Date
waitTime = Nz(DLookup("waitBtween", "tblTimeCtrl"), 0)
AdTim = DateAdd("n", waitTime, rs!chekInOut)
If Now() < AdTim Then
Me.id.SetFocus
Beep
Me.LabelH.Caption = "توقيع مكرر !! انتظر قليلا ..."
id = ""
Me.TimerInterval = 3000
id.SetFocus
Exit Sub
Else

If rs!chkio = "I" Then
rs.AddNew
rs!EmpUser = EmpUserid
rs!chekInOut = Now()
rs!chkio = "O"
rs!ftra_id = EmpFatrah
Me.txtnm = empName
LabelH.Caption = "انصراف"
Me.Requery
Me.id = ""
Me.TimerInterval = 3000
Me.id.SetFocus
rs.Update
Exit Sub

ElseIf rs!chkio = "O" Then
rs.AddNew
rs!EmpUser = EmpUserid
rs!chekInOut = Now()
rs!chkio = "I"
rs!ftra_id = EmpFatrah
Me.txtnm = empName
LabelH.Caption = "حضور"
Me.Requery
Me.TimerInterval = 3000
Me.id = ""
Me.id.SetFocus
rs.Update
Exit Sub
End If
End If
End Sub

وهذه هي النتيجة الرائعة :


Private Sub id_AfterUpdate()
    Dim EmpUserid As Variant
    Dim mylevl As Boolean
    Dim EmpFatrah As Variant
    Dim rs As DAO.Recordset
    Dim strSql As String
    Dim waitTime As Integer
    Dim AdTim As Date
    Dim empName As String ' Declare empName

    EmpUserid = Me.id

    ' Corrected logic for mylevl to check for user existence
    mylevl = Not IsNull(DLookup("Emp_user", "tblEmpNames", "Emp_user='" & EmpUserid & "'"))
    EmpFatrah = Nz(DLookup("fatrah", "tblEmpNames", "Emp_user='" & EmpUserid & "'"), 0)

    If mylevl = False Then
        Beep
        Me.LabelH.Caption = "خطأ!! .. الادخال غير صحيح"
        Me.TimerInterval = 3000
        Me.id = ""
        Me.id.SetFocus
        Exit Sub
    End If

    ' Lookup empName once after confirming user existence
    empName = Nz(DLookup("Emp_Name", "tblEmpNames", "Emp_user='" & EmpUserid & "'"), "")

    strSql = "SELECT TOP 1 tblCheckINOut.id, tblCheckINOut.EmpUser, tblCheckINOut.chekInOut, tblCheckINOut.chkio, tblCheckINOut.ftra_id " & vbCrLf & _
             "FROM tblCheckINOut " & vbCrLf & _
             "WHERE (((tblCheckINOut.EmpUser)='" & EmpUserid & "')) " & vbCrLf & _
             "ORDER BY tblCheckINOut.id DESC;"
    Set rs = CurrentDb.OpenRecordset(strSql)

    If rs.RecordCount = 0 Then
        rs.AddNew
        rs!EmpUser = EmpUserid
        rs!chekInOut = Now()
        rs!chkio = "I"
        rs!ftra_id = EmpFatrah
        Me.txtnm = empName
        Me.LabelH.Caption = "حضور"
        Me.Requery
        Me.TimerInterval = 3000
        Me.id = ""
        Me.id.SetFocus
        rs.Update
        rs.Close
        Set rs = Nothing
        Exit Sub
    End If

    waitTime = Nz(DLookup("waitBtween", "tblTimeCtrl"), 0)
    AdTim = DateAdd("n", waitTime, rs!chekInOut)

    If Now() < AdTim Then
        Me.id.SetFocus
        Beep
        Me.LabelH.Caption = "توقيع مكرر !! انتظر قليلا ..."
        Me.id = ""
        Me.TimerInterval = 3000
        Me.id.SetFocus
        rs.Close
        Set rs = Nothing
        Exit Sub
    Else
        If rs!chkio = "I" Then
            rs.AddNew
            rs!EmpUser = EmpUserid
            rs!chekInOut = Now()
            rs!chkio = "O"
            rs!ftra_id = EmpFatrah
            Me.txtnm = empName
            Me.LabelH.Caption = "انصراف"
            Me.Requery
            Me.id = ""
            Me.TimerInterval = 3000
            Me.id.SetFocus
            rs.Update
            rs.Close
            Set rs = Nothing
            Exit Sub
        ElseIf rs!chkio = "O" Then
            rs.AddNew
            rs!EmpUser = EmpUserid
            rs!chekInOut = Now()
            rs!chkio = "I"
            rs!ftra_id = EmpFatrah
            Me.txtnm = empName
            Me.LabelH.Caption = "حضور"
            Me.Requery
            Me.TimerInterval = 3000
            Me.id = ""
            Me.id.SetFocus
            rs.Update
            rs.Close
            Set rs = Nothing
            Exit Sub
        End If
    End If
End Sub

صحيح هو اضاف لي هذا المتغير :

 Dim EmpUserid As Variant

ولكن هذا المتغير تم الاعلان عنه في الوحدة النمطية كمتغير عام

وانا لا الومه لانه لا يعلم وليس له الا الظاهر ☺️

Lamyaa · نوفمبر 29, 2025

الأداة رائعة

ولكن اشتغلت معي مرة واحدة وبعدها يظهر لي الخطأ: حدث خطأ أثناء الاتصال بخدمة الذكاء الاصطناعي

تم تعديل نوفمبر 29, 2025 بواسطه Lamyaa

**Moosak** · نوفمبر 30, 2025

13 ساعات مضت, Lamyaa said:

ولكن اشتغلت معي مرة واحدة وبعدها يظهر لي الخطأ: حدث خطأ أثناء الاتصال بخدمة الذكاء الاصطناعي

لا تزال تعمل .. حاول مرة أخرى 👍🙂 .

13 ساعات مضت, ابوخليل said:

يبدو انك عدلت على شيء ما

اعدت التجربة .. والنتيجة كانت مذهلة

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

Lamyaa · نوفمبر 30, 2025

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

لا تزال تعمل .. حاول مرة أخرى 👍🙂 .

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

image.png.b7298bf2979ad58a4e633c31213063a3.png

**Foksh** · نوفمبر 30, 2025

يا سلااااااااااام عليك ..

خطوة جميلة ومفيدة جداً .. :clapping:

أحسن الله إليك مهندسنا الغالي ..

يبقى الأمر مرهون بالاتصال بالانترنت ( حتى لو بدون أخطاء عند الإتصال بسيرفر الموقع الذي يغذي النتيجة ) ..

جزاكم الله كل الخير ، وأحسن إليك و لوالديك :wub:

**Moosak** · نوفمبر 30, 2025

3 ساعات مضت, Lamyaa said:

لا أعلم ما السبب حقيقة .. لكن هل عندما تجرب من أجهزة مختلفة تحصل على نفس النتيجة ؟

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

بقى الأمر مرهون بالاتصال بالانترنت ( حتى لو بدون أخطاء عند الإتصال بسيرفر الموقع الذي يغذي النتيجة ) ..

خطوة عزيزة حبيبنا الغالي 😊🌹
الأداة سرها العجيب هو كود الـ API والمربوط بال Gemini لذلك مثلما لايمكنك فتح الأيميل بدون إنترنت فهذه كذلك 😅
أستخدمها أول الشهر (لما ينزل الراتب وتسدد فاتورة النت) وصبر نفسك آخر الشهر 😂🖐

**عمر ضاحى** · ديسمبر 2, 2025

في 29‏/11‏/2025 at 10:16, Moosak said:

السلام عليكم ورحمة الله وبركاته

هذه دعوة كريمة لتجربة الأداة الجديدة والفريدة من نوعها :
دكتور ال VBA

وضائف الأداة :

1- تحويل الكود إلى صيغة متوافقة مع النواتين 32 و 64 بت.
2- تصحيح الأخطاء البرمجية في الكود.
3- تنسيق وترتيب الكود شكليا.
4- كتابة التعليقات وشرح للكود باللغتين العربية والإنجليزية.
5- إضافة صائد الأخطاء للكود وذلك لتعقب الأخطاء البرمجية.
6- إضافة ترقيم لأسطر الكود.

يمكنك اختيار واحد من هذه الوظائف أو تختار من بينها ما تريده.

الأداة مخصصة لأكواد ال VBA وتعتمد على قدرات الذكاء الاصطناعي لإعطاء نتائج دقيقة ومبهرة .. 😁✌🏻
اختصر على نفسك الوقت والجهد واعمل بذكاء 😉👌🏻

رابط الأداة :
https://vba-code-doctor-471932697586.us-west1.run.app/

يمكنك فتحها في الهاتف أو الحاسوب على راحتك 😎🌷

جربوها وعطوني رأيكم 😇✌🏻

ما شاء الله مبدع كما تعودنا منك

**مهند محسن** · ديسمبر 2, 2025

بارك الله فيك استاذنا الكريم Moosak وبالتأكيد خطوة ممتازة ستفيد الجميع .. ولكن فى حالة اذا كان نظام التشغيل عندى 64 بت والملف مصمم على 32 بت , أصلا لا يمكننى الملف عند الفتح الوصول الى الأكواد لكى أستفيد بهذه الميزة

1- تحويل الكود إلى صيغة متوافقة مع النواتين 32 و 64 بت

فما هو الحل فى هذه الحالة ؟!!!

**Moosak** · ديسمبر 2, 2025

7 ساعات مضت, مهند محسن said:

فى حالة اذا كان نظام التشغيل عندى 64 بت والملف مصمم على 32 بت , أصلا لا يمكننى الملف عند الفتح الوصول الى الأكواد لكى أستفيد بهذه الميزة

أفتح البرنامج عن طريق الضغط على زر الشفت Shift لكي تصل إلى الأكواد .. وبعدها قم بتحويل الأكواد وأعد تشغيل البرنامج 🙂

**مهند محسن** · ديسمبر 3, 2025

بارك الله فيك استاذنا الكريم ولكن لم استطع الوصول للأكواد أبدا !!!!

**Foksh** · ديسمبر 3, 2025

بعد إذن مهندسنا الغالي ..

إذا كان ملفك بصيغة Accde فلن تصل للأكواد أبداً .

**مهند محسن** · ديسمبر 3, 2025

شكرا جزيلا لكم جميعا

تم تعديل ديسمبر 3, 2025 بواسطه مهند محسن

Bshar · ديسمبر 20, 2025

مـــــبدع مهندســـنا الطيب , جزاك الله خير الجزاء

**محمد التميمي** · ديسمبر 23, 2025

السلام عليكم

انجاز عظيم بارك الله بجهودك استاذي الفاضل فعلا اداة رهيبة استعملت كل الخيارات فيها ولتهت بنتائج مبهرة بامتياز

جعله الله في ميزان حسناتك استاذي الكريم

**jjafferr** · يناير 11

في 29‏/11‏/2025 at 19:42, ابوخليل said:

    strSql = "SELECT TOP 1 tblCheckINOut.id, tblCheckINOut.EmpUser, tblCheckINOut.chekInOut, tblCheckINOut.chkio, tblCheckINOut.ftra_id " & vbCrLf & _
             "FROM tblCheckINOut " & vbCrLf & _
             "WHERE (((tblCheckINOut.EmpUser)='" & EmpUserid & "')) " & vbCrLf & _
             "ORDER BY tblCheckINOut.id DESC;"

السلام عليكم

اخوي موسى
بارك الله في جهودك، خطوة جبارة في الاتجاه الصحيح🙂

من بعض تجاربي مع الذكاء الاصطناعي، فتجربته مع لغة VBA ليست كما نتمناها، وبما انك دكتور هذه الاداة، فاليك بعض ملاحظاتي والتي يمكنك تلقينها له:
1. عند كتابة جملة SQL طويلة، فيجب مراعاة طول الجملة، وقد اعطاني مرارا جمل اطول من تلك التي يدعمها VBA، فكنت احصل على خطأ برمجي واضطر الى تعديلها يدويا.

كما نرى من جملة SQL التي عملها اخوي ابوخليل اعلاه، بأنه تم تقطيع السطر الى 4 اسطر، حتى يكون الكود واضحا للمستخدم، واتضح لي ان العدد الاكبر لهذه الاسطر هي 24 سطر، بينما كان عندي استعلام موحد يدمج 3 استعلامات في الكود بطول 73 سطر. فالطريقة الصحيحة لعمله هو:

    strSql = "SELECT TOP 1 tblCheckINOut.id, tblCheckINOut.EmpUser, tblCheckINOut.chekInOut, tblCheckINOut.chkio, tblCheckINOut.ftra_id "
    strSql = strSql & "FROM tblCheckINOut "
    strSql = strSql & "WHERE (((tblCheckINOut.EmpUser)='" & EmpUserid & "')) "
    strSql = strSql & "ORDER BY tblCheckINOut.id DESC;"

.

2. يجب اخبار ai انه عند طلب عمل دالة، فيجب عليه استعمال Function بدلا عن Sub.

جعفر

**Moosak** · يناير 11

وعليكم السلام ورحمة الله وبركاته عمي جعفر 🙂

سعدت بمرورك 😊🌹

تمام إن شاء الله .. بإذن الله أصلحه ما أمكن .. وآتيك بالخبر اليقين .. 👍

**Moosak** · يناير 11

1 ساعه مضت, jjafferr said:
السلام عليكم

اخوي موسى
بارك الله في جهودك، خطوة جبارة في الاتجاه الصحيح🙂

من بعض تجاربي مع الذكاء الاصطناعي، فتجربته مع لغة VBA ليست كما نتمناها، وبما انك دكتور هذه الاداة، فاليك بعض ملاحظاتي والتي يمكنك تلقينها له:
1. عند كتابة جملة SQL طويلة، فيجب مراعاة طول الجملة، وقد اعطاني مرارا جمل اطول من تلك التي يدعمها VBA، فكنت احصل على خطأ برمجي واضطر الى تعديلها يدويا.

كما نرى من جملة SQL التي عملها اخوي ابوخليل اعلاه، بأنه تم تقطيع السطر الى 4 اسطر، حتى يكون الكود واضحا للمستخدم، واتضح لي ان العدد الاكبر لهذه الاسطر هي 24 سطر، بينما كان عندي استعلام موحد يدمج 3 استعلامات في الكود بطول 73 سطر. فالطريقة الصحيحة لعمله هو:
    strSql = "SELECT TOP 1 tblCheckINOut.id, tblCheckINOut.EmpUser, tblCheckINOut.chekInOut, tblCheckINOut.chkio, tblCheckINOut.ftra_id "
    strSql = strSql & "FROM tblCheckINOut "
    strSql = strSql & "WHERE (((tblCheckINOut.EmpUser)='" & EmpUserid & "')) "
    strSql = strSql & "ORDER BY tblCheckINOut.id DESC;"
.

2. يجب اخبار ai انه عند طلب عمل دالة، فيجب عليه استعمال Function بدلا عن Sub.

جعفر

تم عمل بعض التعديلات عمي جعفر .. مع التنويه إلى أن هذه الأداة لاتقوم بكتابة الأكواد بناءً على الطلبات !

بل وظيفتها تعديل وتحسين الكود الذي تعطيها إياه وتصحيح الأخطاء الموجودة فيه بالإضافة للخدمات الأخرى :
image.png.004ea2a0db255f50446ac597cd9840a0.png

ولتحقيق مرونة أكبر للمستخدم ، أضفت حقل خاص بكتابة تعليمات مخصصة توجهها للذكاء الاصطناعي بحيث يراعيها عند معالجة الطلب ، مثال : ( قم بتغيير أسماء المتغيرات لأسماء مقروءة ، أو قم تقسيم جملة SQL لعدة أسطر هكذا ....... ، أو ، أو ) أكتب ما شئت 🙂

image.png.02664e93e699868fc9542632e7cc823f.png

وبعد التجربة على الجملة التي أوردتها :

    strSql = "SELECT TOP 1 tblCheckINOut.id, tblCheckINOut.EmpUser, tblCheckINOut.chekInOut, tblCheckINOut.chkio, tblCheckINOut.ftra_id " & vbCrLf & _
             "FROM tblCheckINOut " & vbCrLf & _
             "WHERE (((tblCheckINOut.EmpUser)='" & EmpUserid & "')) " & vbCrLf & _
             "ORDER BY tblCheckINOut.id DESC;"

كانت النتيجة :

Option Explicit

Dim strSql As String

strSql = "SELECT TOP 1 tblCheckINOut.id, tblCheckINOut.EmpUser, tblCheckINOut.chekInOut, tblCheckINOut.chkio, tblCheckINOut.ftra_id "
strSql = strSql & "FROM tblCheckINOut "
strSql = strSql & "WHERE (((tblCheckINOut.EmpUser)='" & EmpUserid & "')) "
strSql = strSql & "ORDER BY tblCheckINOut.id DESC;"

وكانت هذه هي التعليمات الإضافية :
قم بتقسيم جملة SQL لعدة أسطر بهذا الأسلوب : strSql = strSql & " "

Debug Ace · منذ 8 ساعات

من المفترض انه يقوم بتحويل الكود إلى صيغة متوافقة مع النواتين 32 و 64 بت ليست كل الاكواد يتم تحويلها بشكل صحيح

لا يعتمد عليه نهائيا

ناهيكم عن أنه قام من تلقاء نفسه بتعديل الجزء الاخير من الكود الخاص بى من معالج الاخطاء
من rs.Close الى : If rs.State = adStateOpen Then rs.Close

هو لا يصحح اخطاء برمجية بل هو يقوم باضافة أخطـــ(bugs)ــــاء الى الكود

يضيع الوقت والجهد

**Moosak** · منذ 6 ساعات

منذ ساعه, Debug Ace said:

من المفترض انه يقوم بتحويل الكود إلى صيغة متوافقة مع النواتين 32 و 64 بت ليست كل الاكواد يتم تحويلها بشكل صحيح

لا يعتمد عليه نهائيا

ناهيكم عن أنه قام من تلقاء نفسه بتعديل الجزء الاخير من الكود الخاص بى من معالج الاخطاء
من rs.Close الى : If rs.State = adStateOpen Then rs.Close

هو لا يصحح اخطاء برمجية بل هو يقوم باضافة أخطـــ(bugs)ــــاء الى الكود

يضيع الوقت والجهد

شكرا لمرورك أخي العزيز @Debug Ace .. 🙂

النقطة الأولى : يبدوا أنك لم تنتبه إلى أنه عليك تحديد ما تريده بالضبط أن يفعل من هذه القائمة :
image.png.004ea2a0db255f50446ac597cd9840a0.png

لعلك كنت مختار [تصحيح برمجي] بدون أن تشعر .

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

Debug Ace · منذ 5 ساعات

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

مختار [تصحيح برمجي]

اذا : [تصحيح برمجي] تخرب الكود

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

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

فيما يخص تحويل الدوال : 60 % يكون مخطئ وانا كنت رحيم انى قلت 60 مش أعلى من كده

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

لكن يمكنك الحصول على إجابات دقيقة ومنضبطة إذا عاودت الضغط على الزر مرة أخرى 🙂

يمكن هذه تحتمل 50%

مازلت عند رأيى ولا انصح بتجربته ولا بالاعتماد عليه الا للمحترفيين الذين يستطيعون تعديل وتصحيح الاخطاء التى سوف تنتج عنه

لا يعتمد عليه نهائيا
مضيعة للوقت والجهد

Debug Ace · منذ 3 ساعات

شكلى باكتب كلام يضحك

لو حابب تضحك بجد وتضحك قوى كمان من قلبك وبصوت اعلى

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

تم تعديل منذ 3 ساعات بواسطه Debug Ace

**Foksh** · منذ 1 ساعه

4 ساعات مضت, Debug Ace said:

فيما يخص تحويل الدوال : 60 % يكون مخطئ وانا كنت رحيم انى قلت 60 مش أعلى من كده

يعني انت لا تنصح باستخدام الذكاء الإصطناعي في كتابة الأكواد ؟

انصحني لأني لقيت أن التوجه له أصبح كبيراً وكثيراً جداً 😥

تسجيل الدخول

🌸 دعوة لتجربة الأداة : دكتور الVBA 🌸

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

Moosak

ابوخليل

Moosak

ابوخليل

Lamyaa

Moosak

Lamyaa

Foksh

Moosak

عمر ضاحى

مهند محسن

Moosak

مهند محسن

Foksh

مهند محسن

Bshar

محمد التميمي

jjafferr

Moosak

Moosak

Debug Ace

Moosak

Debug Ace

Debug Ace

Foksh

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

انشئ حساب جديد

تسجيل دخول

تصفح هذا الموضوع مؤخراً 1 عضو متواجد الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information