مجدى يونس

اى خدمة

رمضان كريم وكل عام وانتم بخير

كتابة باللغة العربية من صفحة نانو بنانا ذكاء اصطناعي

عمل صورة من خلال الذكاء الاصطناعي

الفكرة العامة سنستخدم: InputBox لطلب اسم المستخدم متغير عام لحفظ الاسم MessageBox لعرض رسالة النهاية 🛠️ الخطوة 1: تفعيل تبويب المطور افتح PowerPoint ملف → خيارات → تخصيص الشريط فعّل ✔️ Developer (المطور) موافق 🧩 الخطوة 2: إضافة كود VBA من تبويب Developer اختر Visual Basic من القائمة: Insert → Module ثم انسخ هذا الكود 👇 Public UserName As String Sub AskUserName() UserName = InputBox("من فضلك أدخل اسمك لبدء المسابقة:", "أهلاً بك") If UserName = "" Then MsgBox "لم يتم إدخال الاسم، سيتم إنهاء العرض.", vbExclamation ActivePresentation.Close End If End Sub Sub EndQuiz() MsgBox "🎉 انتهت المسابقة يا " & UserName & "، شكرًا لمشاركتك!", vbInformation End Sub ▶️ الخطوة 3: تشغيل نافذة إدخال الاسم عند بداية العرض افتح الشريحة الأولى من Developer → Macros اختر AskUserName اضغط Run 🔹 أو الأفضل: ضع زر شفاف من Action Settings اختر Run Macro → AskUserName 🏁 الخطوة 4: رسالة النهاية في آخر شريحة: أضف زر (أو شكل) من Action Settings اختر Run Macro → EndQuiz ✨ النتيجة النهائية عند فتح العرض → نافذة تطلب اسم المستخدم يتم حفظ الاسم طوال العرض عند النهاية → رسالة باسم المستخدم

اى خدمة

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

احفظها بطريقة show وجرب

الف شكر

شكرا لك

اللهم آمين شكرا لك

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

شكرا اخ حسونة

الف شكر تحياتي

شكرا لك اخ علي