Screen design for relaying customer data to the billing and warehouse program

Поделиться
HTML-код
  • Опубликовано: 5 сен 2024
  • تصميم شاشه لترحيل بيانات العملاء فى برنامج الفواتير والمخازن بطريقة سهلة جدا وبسيطة وعمل تسلسل تلقائى للأرقام من خلال اليوزرفوم
    #ترحيل_البيانات
    #شاشاة_العملاء
    تصميم برنامج للفواتير ورصيد المخزن والمرتجعات
    • تصميم برنامج للفواتير ...
    تصميم واجهه إحترافيه لبرنامج الفواتير والمخزن
    • تصميم واجهه احترافيه ل...
    #تامر_الشحات

Комментарии • 138

  • @maradounamaradouna2768
    @maradounamaradouna2768 Месяц назад +1

    شرح جميل جدًا تستاهل الف الف لايك للاخ ثامر

  • @mohamedadnan9317
    @mohamedadnan9317 Год назад +1

    شرح جميل جدًا تستاهل الف لايك

  • @arafatatyh5810
    @arafatatyh5810 2 года назад +1

    اللهم صل على محمد وعلى اله وصحبه وسلم

  • @alijameel71
    @alijameel71 2 года назад +1

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

  • @samialwan1663
    @samialwan1663 2 года назад +1

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

  • @jackbruss385
    @jackbruss385 2 года назад +1

    شرح راقي جدا جعلها في ميزان حسناتك

  • @cirynsalah5
    @cirynsalah5 2 года назад +1

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

    • @tamer_elshahat
      @tamer_elshahat  2 года назад +1

      جزانا وإياكم كل خير 🌹

  • @sajadalsaedi6734
    @sajadalsaedi6734 Год назад +1

    اجمل لايك

  • @ahmedsh6238
    @ahmedsh6238 2 года назад +1

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

  • @amraref9116
    @amraref9116 2 года назад +1

    جزاك الله كل خير
    علي مجهود ك الرائع

  • @alialilou4771
    @alialilou4771 2 года назад +1

    متابع من الجزائر شرح رائع ياريت تضيفنا ازرار تعديل وحدف

  • @saadelmasry4853
    @saadelmasry4853 2 года назад +1

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

    • @tamer_elshahat
      @tamer_elshahat  2 года назад

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

  • @men810
    @men810 2 года назад +1

    بتشكرك على الاستجابةةالسريعة

  • @user-gz4jx9mt8z
    @user-gz4jx9mt8z 2 года назад +1

    ربنا يبارك فيك وفى علمك

  • @amraref9116
    @amraref9116 Год назад +1

    ربنا يباركلك

  • @user-cd8vh9wf9h
    @user-cd8vh9wf9h 2 года назад +1

    الله ينور عليك يا هندسه منتظرين الحلقه الجايه

    • @tamer_elshahat
      @tamer_elshahat  2 года назад

      متشكر جدا 🌹 ان شاء الله قريب

  • @arafatatyh5810
    @arafatatyh5810 2 года назад +1

    يا اخي جزاك الله خيرا و يسعدك

    • @tamer_elshahat
      @tamer_elshahat  2 года назад

      جزانا وإياكم كل خير 🌹

  • @inforawayaapp8128
    @inforawayaapp8128 2 года назад +1

    شرح كتير رائع الله يعطيك العافية . عندي مشكلة ف الكود الاخير تبع التسلسل الارقام ما بيقبل عندي

  • @sarahamza433
    @sarahamza433 2 года назад +1

    ماشاء الله يا استاذ تامر شرح جميل

  • @ZakiBekakra
    @ZakiBekakra 9 месяцев назад

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

  • @ibrahimomar7429
    @ibrahimomar7429 2 года назад +1

    استاذ تامر سلام عليكم ورحمته الله وبركاته بارك الله فيك وفى أخلاقك وفيما وزادك الله من علمه اسمح لى بسؤال وأرجو الرد هل من الممكن ربط اكثر من يوزر فورم لشيتات مختلفة عشان ميبقاش الجهاز تقيل للتوضيح اكثر من Book1 Book2 ارجو الرد مع فيديو توضيحى

  • @mazenzagha8811
    @mazenzagha8811 2 года назад +1

    رائعه جدا جدا جدا جدا جدا موفق

  • @user-lr3po5tq9m
    @user-lr3po5tq9m 2 года назад +1

    شكرا خالص ليك

  • @snizarazd1871
    @snizarazd1871 2 года назад +1

    شكرااا جداا جزيلااااا

  • @Check_news1
    @Check_news1 Год назад +1

    استاذ في عندي سؤال وهو
    كيف تطبع اشياء محدد بحيث انك تفرز مثلاً (متزوج) او (عازب) ويطبع لك بيانات المتزوج كامله بداية من الاسم بحيث لا تضهر بيانات العازب
    وشكراً مقدماً

  • @user-lr3po5tq9m
    @user-lr3po5tq9m 2 года назад +1

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

  • @tany2925
    @tany2925 2 года назад

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

  • @tany2925
    @tany2925 2 года назад

    اكرر شكري لك اخي الكريم
    هل بالامكان شرع انشاء قاعدة بيانات للعملاء في نادي رياضي مع اشتركات شهريه تحسب بشكل دوري

  • @tany2925
    @tany2925 2 года назад +1

    السلام عليكم اولا احب اشكرك على المجهود الجبار
    اخي الكريم في عمليه تسلسل الارقام بعد ما طبقت الكود وعملت رن طلعت لي رسالة compile error variable not defined وبيعلم لي على حرف i الي بعد for ممكن حل للمشكله

    • @tamer_elshahat
      @tamer_elshahat  2 года назад

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

    • @tany2925
      @tany2925 2 года назад

      حاولت اخي الكريم بس المشكلة مازالت

    • @tany2925
      @tany2925 2 года назад +1

      مع العلم ان الحرف ليس مكرر

    • @tamer_elshahat
      @tamer_elshahat  2 года назад

      اتفرج على الفيديو ده فى حل للمشكله
      enshom.link/GmLjNc

  • @user-st1kw8pq5i
    @user-st1kw8pq5i 2 года назад +2

    السلام عليكم يا استاذ تامر
    المعادلة اللى هى ف الدقيفة 20:26 add = sheet1.Range("a10000").End(xlUp).Row + 1 معمولة صح لكن بيعملى علامة صفراء
    ارجو من حضرتك الرد

    • @tamer_elshahat
      @tamer_elshahat  2 года назад

      لو الاكسل عندك عربي غير كلمة sheet ل ورقه
      واتفرج علي الفيديو ده في معظم المشاكل الي ممكن تقابلك
      ruclips.net/video/cEeOM-BwxpA/видео.html

    • @user-st1kw8pq5i
      @user-st1kw8pq5i 2 года назад

      @@tamer_elshahat بارك الله فيك يا استاذنا

    • @ahmedzakarneh5886
      @ahmedzakarneh5886 2 года назад

      وانا نفس المشكلة كيف الحل ؟

    • @tamer_elshahat
      @tamer_elshahat  2 года назад

      ruclips.net/video/cEeOM-BwxpA/видео.html

  • @abdoooo107
    @abdoooo107 2 года назад

    جزاك الله خير سؤالي الاكواد الي حضرتك بتكتبها في الفيجوال بيسك عاوز اتعلمها يا ريت لو تدلني على قناه او موقع

    • @tamer_elshahat
      @tamer_elshahat  2 года назад

      ممكن تتعلمها من خلال شرح البرنامج الى بصممها فى القناة
      لاقيت القناة دى بتشرح ال vba
      ruclips.net/p/PL3T1bI83jtev__UTvXQ3SdtFzZwnHJxQg

  • @ahmedelmasry9113
    @ahmedelmasry9113 2 года назад +1

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

    • @tamer_elshahat
      @tamer_elshahat  2 года назад +1

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

  • @amraref9116
    @amraref9116 Год назад

    ممكن ناخذ البرنامج اللي فات في فواتير المبيعات
    ونكمل عليه المخازن دي

  • @user-tr4rq8qk6v
    @user-tr4rq8qk6v 2 года назад +1

    شكرا على هذا الشرح الرائع لكن حدث عندي خطأ بكود الادخال اول جمله تكون مظلله بلون الاصفر على فقرة private sub command button1_click()

    • @tamer_elshahat
      @tamer_elshahat  2 года назад +1

      الاكسل عندك عربي ولا انجليزى

    • @user-tr4rq8qk6v
      @user-tr4rq8qk6v 2 года назад +1

      @@tamer_elshahat عربي وقد حولت sheet
      الى ورقة ولكن دون جدوى

    • @tamer_elshahat
      @tamer_elshahat  2 года назад

      ruclips.net/video/cEeOM-BwxpA/видео.html

  • @user-lr5ov5ok6s
    @user-lr5ov5ok6s 2 года назад +1

    السلام عليكم
    استاذ تامر
    كيفية جعل textbox زي الوورد
    بحيث ممكن استخدام النسخ والقص واللصق علية
    وكذلك إستخدام مفتاح ال enter لفتح سطر جديد زي الوورد

    • @tamer_elshahat
      @tamer_elshahat  2 года назад

      ممكن تستخدمهم عن طريق اختصارات الكيبورد زى مثلا لو هتعمل نسخ يبقى ctrl+c
      وهكذا

    • @tamer_elshahat
      @tamer_elshahat  2 года назад

      ruclips.net/video/SFYPV8JHMHI/видео.html

  • @TheBest8
    @TheBest8 2 года назад +1

    ممتاز

  • @ibrahimsaeed4084
    @ibrahimsaeed4084 Год назад +1

    في مشكله معايا في الدقيقه ١٨.٢٨
    عمل المعادله عندي اسم الشيت مش بيكون ظاهر زي عندك ملحوظه البرنامح عندي بالعربي مش انجليزي

    • @tamer_elshahat
      @tamer_elshahat  Год назад

      غير كلمة sheet ل ورقه

    • @ibrahimsaeed4084
      @ibrahimsaeed4084 Год назад +1

      @@tamer_elshahat انا اقصد اسم الشيت في نفسه يعني ظاهر عند حضرتك بيانات العملاء انا مش ظاهر عندي اسم عند حضرتك في قايمه الفيجول بيزك في الجنب اليمين ظاهر اسماء الشيتات كلها انا ظاهر عندي كمله worksheet وبعدها كلمات استفهام مكرره اكتر من واحد كدا

    • @tamer_elshahat
      @tamer_elshahat  Год назад

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

  • @user-dr4zn9pq6h
    @user-dr4zn9pq6h 2 года назад +1

    الخطا في الجزء اللي انا كتبته لحضرتك في التعليق السابق

  • @snizarazd1871
    @snizarazd1871 2 года назад

    راااااائع

  • @kareemmohamed682
    @kareemmohamed682 7 месяцев назад +1

    المعادله اللى فالاخر بتاعت التسلسل بكتبها صح بس مش راضى يعمل التسلسل

    • @tamer_elshahat
      @tamer_elshahat  7 месяцев назад

      بتكتبها فين

    • @YounesAyache
      @YounesAyache 5 месяцев назад

      انا ايضا اكتبها صح لكن لا تعمل التسلسل

  • @amraref9116
    @amraref9116 Год назад +1

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

    • @tamer_elshahat
      @tamer_elshahat  Год назад

      هو انت مش عامل حفظ للملف ؟
      لو عامل حفظ هتلاقى الملف موجود بس هتلاقى فى حاجه غلط فى الكود

    • @amraref9116
      @amraref9116 Год назад +1

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

    • @tamer_elshahat
      @tamer_elshahat  Год назад +1

      ابعتلى الملف ابص عليه
      tamerelshahat2021@gmail.com

    • @amraref9116
      @amraref9116 Год назад

      انا بعت لحضرتك الملف علي الميل واتشرف بمعرفتك

  • @herrdick2773
    @herrdick2773 2 года назад +1

    Danke auch für diese Video und für schnelle Antwort

  • @HabibPharmacy
    @HabibPharmacy 2 года назад +1

    Beautiful ❤️🥰

  • @user-lr3po5tq9m
    @user-lr3po5tq9m 2 года назад

    هل هتقابلنى مشاكل تانى فى الاكواد عشان الاكسيل عربى

  • @user-lr3po5tq9m
    @user-lr3po5tq9m 2 года назад

    المشكله اتحلت لما كتبت بدل sheet كتبت ورقة عشان الاكسيل عاندى عربى

  • @user-dr4zn9pq6h
    @user-dr4zn9pq6h 2 года назад +1

    الهوم والانسرت وباقي الادوات كلها توقفت كيف تشغيل

    • @tamer_elshahat
      @tamer_elshahat  2 года назад

      توقفت ازي ؟ لو عامل حماية للشيت فك الحمايه

  • @bccgonbchbcbn6334
    @bccgonbchbcbn6334 2 года назад +1

    عند تسجيل عميل جديد ييظهر عندي في الشيت ارقام ١١١١١
    ايه الحل

    • @tamer_elshahat
      @tamer_elshahat  2 года назад

      ايه الارقام دي

    • @bccgonbchbcbn6334
      @bccgonbchbcbn6334 2 года назад +1

      @@tamer_elshahat
      بيظهر مكان اسم العميل رقم التسلسل ونفس الكلام في باقي الخانات

    • @tamer_elshahat
      @tamer_elshahat  2 года назад +1

      انت كاتب الكود غلط اتأكد انك مسمع الشيت مع رقم التكست بوكس المظبوط

  • @mansourmohamed6570
    @mansourmohamed6570 Год назад +1

    عندما نقلت الملف من مكان لمكان داخل الكمبيوتر.. لم يعمل معي.. ما السبب!

    • @tamer_elshahat
      @tamer_elshahat  Год назад +1

      النفروض يشتغل معاك عادى لو رساله ظهرت فى شيت الاكسل من فوق باللون الاصفر الغيها ممكن تكون هى السبب

    • @mansourmohamed6570
      @mansourmohamed6570 Год назад +1

      @@tamer_elshahat هل يمكن أن يعمل البرنامج على الباركود او QR كود... اذا أضافت هذه الخاصية شوف تكون البرنامج أقوى... وقبل كده شكرا على شرحك الجميل والمعلومات اللي اول مرة اسمعها عن الاكسل ويجعله في ميزان حسناتك يارب

    • @tamer_elshahat
      @tamer_elshahat  Год назад

      متشكر جدا 🌹
      مجربتش الباركود قبل كده

  • @ZakiBekakra
    @ZakiBekakra 9 месяцев назад

    أنا مكان sheet1 لي عندك استاذ تامر ... عندي انا ورقة1 ؟ أعمل ايه في الحالة دي في كود حفظ البيانات ؟-

    • @tamer_elshahat
      @tamer_elshahat  9 месяцев назад

      لو الامسل عندك عربى غير كلمة sheet ل ورقه فى الاكواد كلها

    • @ZakiBekakra
      @ZakiBekakra 9 месяцев назад

      لكن ورقة1 أخليها بين دوبل كوتيشن و قوسين ولا لا ؟

    • @tamer_elshahat
      @tamer_elshahat  9 месяцев назад

      زى ما الكود مكتوب اكتبه بالظبط غير فقط كلمة شيت ل ورقه

  • @user-lr3po5tq9m
    @user-lr3po5tq9m 2 года назад +1

    اسم العميل المتعاقد مع الشركة _فاتورة كمية سحب النخالة او الدقيق من المطحن لكل عميل خلال الشهر - ايصالات السداد بانواعها بنكيه / بريدية / خزينة شركة / او تحويل - وصفحة خاصة بالداين والمدين والرصيد_ وعند تسجيل الفاتورة او ايصال السداد يكون بها اختيار نوع المطحن او نوع السداد وجزاكم الله خيرا

    • @tamer_elshahat
      @tamer_elshahat  2 года назад

      ربنا يسهل اما اخلص بس من الي انا شغال فيه حاليا هبقي اشوف الموضوع ده

  • @user-hh9le6cb1o
    @user-hh9le6cb1o 2 года назад

    هل انا كاتبه صح اوخطاء وناعندي الاكسل عربي

  • @user-lx7nt9dk5q
    @user-lx7nt9dk5q 2 года назад +1

    لازالت بتقف عندى هنا
    add = sheet1.Range("a10000").End(xlub).Row + 1
    وبتدينى error

    • @tamer_elshahat
      @tamer_elshahat  2 года назад +1

      لو الاكسل عندك عربي غير كلمة sheet ل ورقه

    • @user-lx7nt9dk5q
      @user-lx7nt9dk5q 2 года назад +1

      @@tamer_elshahat هو فعلا عربي بس جربت ورقه كمان مش نافع

    • @tamer_elshahat
      @tamer_elshahat  2 года назад

      ruclips.net/video/cEeOM-BwxpA/видео.html

  • @user-dr4zn9pq6h
    @user-dr4zn9pq6h 2 года назад

    ما عملتش اي حاجه انا نفذت اللي حضرتك شر حته بالضبط

  • @user-dr4zn9pq6h
    @user-dr4zn9pq6h 2 года назад +1

    بيديني خطا في اسم الكود din rafat as integer

    • @tamer_elshahat
      @tamer_elshahat  2 года назад +1

      كود ايه والخطأ عباره عن ايه

    • @tamer_elshahat
      @tamer_elshahat  2 года назад

      لو الخطأ في الكود الي انت كاتبه ده يبقي الخطأ في كلمة din
      اسمها الصحيح dim

  • @amraref9116
    @amraref9116 Год назад +1

    دا كده المديول ده أقل من مديول فواتير المبيعات
    كان المفروض الواحد درس المخازن قبل الفواتير

    • @tamer_elshahat
      @tamer_elshahat  Год назад +1

      انت مشتت نفسك فى كذا حاجه متستعجلش امسك الحاجه الواحده من اولها لاخرها

    • @amraref9116
      @amraref9116 Год назад

      انا اقصد ان انا خلصت مديول الفواتير وبعد كده دخلت علي المخازن
      الشيت اللي اتمسح لاقيته
      هابعته لحضرتك علي الميل

    • @amraref9116
      @amraref9116 Год назад

      وشكرا علي تعبك معانا

  • @alhayahegypt1676
    @alhayahegypt1676 2 года назад +1

    المعادلة دى مش مظبوطة برده add = sheet1.Range("a10000").End(xlub).Row + 1 وشوفت الفديو اللى حضرتك عاملة ومفيهوش حاجة ممكن حل ليها لو سمحت

    • @tamer_elshahat
      @tamer_elshahat  2 года назад

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

    • @alhayahegypt1676
      @alhayahegypt1676 2 года назад

      @@tamer_elshahat افعله منين

    • @alhayahegypt1676
      @alhayahegypt1676 2 года назад

      فعلته وحفظته بصيغة الماكرو فى حاجة تانى اعملها عشان تشتغل

    • @tamer_elshahat
      @tamer_elshahat  2 года назад

      @@alhayahegypt1676 لسه برضه بيظهر نفس الخطأ ؟

    • @alhayahegypt1676
      @alhayahegypt1676 2 года назад

      @@tamer_elshahatاه للاسف

  • @user-dr4zn9pq6h
    @user-dr4zn9pq6h 2 года назад +1

    توقف عن الكتابه عن عمل اي شيء

  • @ahmedeldesoukyahmed2493
    @ahmedeldesoukyahmed2493 2 года назад

    ممكن كود للبحث بجزء من الاسم و ليس الحروف الاولي فقط

  • @user-hh9le6cb1o
    @user-hh9le6cb1o 2 года назад +1

    استاذ ي يقول عندك خط في هذا الكودadd = sheet1.Range("a10000").End(xlUp).Row + 1

    • @tamer_elshahat
      @tamer_elshahat  2 года назад +1

      الكود مكتوب صح
      اتفرج على الفيديو ده هتلاقي فيه معظم المشاكل الي ممكن تقابلك
      ruclips.net/video/cEeOM-BwxpA/видео.html

    • @user-hh9le6cb1o
      @user-hh9le6cb1o 2 года назад

      @@tamer_elshahat طيب ماجى معي يا دكتور الله يوفقك ساعدني غيرة ورقه 1 برضه نفس المشكله

    • @tamer_elshahat
      @tamer_elshahat  2 года назад

      لو لسه المشكله موجوده ابعتلي الملف ابص عليه

    • @samehelmezien4013
      @samehelmezien4013 2 года назад +1

      @@user-hh9le6cb1o تأكد من المسافات بين الكلمات

  • @safia7aaa
    @safia7aaa Год назад +1

    لو سمحت برجاء الرد

    • @tamer_elshahat
      @tamer_elshahat  Год назад

      منا رديت عليك تواصل معى عبر الايميل التالي
      tamerelshahat2021@gmail.com

  • @user-dr4zn9pq6h
    @user-dr4zn9pq6h 2 года назад +1

    كود ترحيل البيانات

    • @tamer_elshahat
      @tamer_elshahat  2 года назад

      ابقي ابعتلي الكود الي انت كاتبه