نجوم المشاركات

اخى الكريم هل تقصد هذا

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

بسم الله الرحمن الرحيم الحمد لله الواحد القهار، العزيز الغفار، مكور الليل على النهار ، تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ، الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار، وشغلهم بمراقبته وإدامة الأفكار ، وملازمة الاتعاظ والاذكار، ووفقهم للدؤوب في طاعته والتأهب لدار القرار، والحذر مما يسخطه ويوجب دار البوار، والمحافظة على ذلك مع تغاير الأحوال والأطوار. أحمده أبلغ حمد وأزكاه، وأشمله وأنماه. أما بعد: رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته ولذا رأيت أنا الفقير إلى الله المحمدي عبد السميع عبد الغني أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ، ولهذا ساقدم سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له في موضوع مستقل وسأشرح كيفية استخدام الكود ماتيسر لي إن شاء الله وعلى الله قصد السبيل ****************************************** هذا كود التنقل الى اي صفحة في ملف اكسيل طريقة الاستفادة من الكود افتح ملف اكسيل اضغط على الرز ALT وانت ضاغط على الزر اضغط على F11 الموجود أعلا لوحة المفاتيح ستظهر شاشة الماكرو اضغط على موديول 1 سيتم فتح الموديول الصق فيه الكود الموجود تحت هذا السطر [/center] ' ' هذا الكود للعالم العلامة عبد الله باقسير Sub GO_TO() On Error Resume Next Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute If Err.Number > 0 Then Err.Clear Application.CommandBars("Workbook Tabs").ShowPopup End If Activewindow.ScrollColumn = 1 Activewindow.ScrollRow = 1 On Error GoTo 0 End Sub في هذا الكود البسيط والمفيد عند الضغط على الزر ستنسدل قائمة بأسماء كل الصفحات الموجوده بالملف اختر منها الورقة التي تبعاها ودمتم في حفظ الله التنقل بين الصفحات.rar

السلام عليكم - اسعد الله أوقاتكم : الزملاء المحاسبون – الأساتذة المحترمون مرفق ملف اكسل يحوي برنامجين عن احتساب نسب التحليل المالي والتحليل المقارن ( النسب الرئيسية والهامة فقط ) مع استخلاص تفسير لكل نسبة البرامج تحتوي معادلات بسيطة جدا – والغاية هي كيفية استثمار الاكسل في استخلاص نسب التحليل المالي الفكرة بالأصل لاساتذتي: ( عبد الله المدني + محمد فوزي سلام ) / + ياسرالحافظ البرامج تحتوي النسب الرئيسية ويمكن للمستثمر إضافة النسب التي تلزم لعمل مؤسسته حيث أرفقت ملف وورد بمعظم نسب التحليل المالي مع شروحات وتفسيرات وفقكم الله ياسر الحافظ " ابو الحارث " تحليل مالي اكسل.rar

السلام عليكم ورحمة الله وبركاته وبعد اولا : احب ان ابارك لكم بقرب شهر الخير والبركات .. شهر رمضان .. فكل عام وانتم بخير ومبارك عليكم الشهر الفضيل جعلنا الله واياكم من صوامه وقوامه .. امين ثانيا : اسمحو ان ارفق مع هذه التهنئة هدية بسيطة في كيفية الترقيم التلقائي بفكرة استخدام خصائص مربع التحرير والسرد وكقيمة افتراضية وهي فكرة اكثر من ان تكون معلومة ! وحسب استراتيجية يبدا الترقيم من اعلى رقم ! تكمن الفائدة الاكثر بتعديل مصدر الاستعلام بوضع شروط معقدة لفلترة قائمة التحرير والسرد للحصول على الترقيم المطلوب مثلا : ترقيم بداية كل سنة - ترقيم باختلاف الصنف .. الخ . فالترقيم ينظر الى الارقام التي بالقائمة وحسب وجودها ! هذه المعادلة او التعبير للترقيم : =Nz([id_no].[itemdata]([id_no].[ListCount]-1);0)+1 يمكن وضع الخاصية ممكن = لا التطبيق بالمرفق ولكم خالص تحياتي aotu_num.rar

أتمنى من الله أن تكونوا جميعا بخير وصحة وسلامه وكل عام وأنتم بخير رمضان مبارك وربنا يبلغنا جميعا الشهر المبارك. موضوع اليوم هو أخر جزء في موضوعات الإضافات للإكسل Excel Addins وحبيت إني أعمل كتاب إلكتروني بسيط " PDF " يضم فيه كل الموضوعات الخاصة بالإضافات والذي يحتوي على التالي : تعريف الإضافة + طريقة تحويل الماكرو إلى إضافة + حمايتها بكلمة سر عمل شيت بسيط يحتوي على 2 زر أحدهم لتثبيت الإضافة والأخر لحذف التثبيت تلقائيا طريقة التعديل على الإضافة عمل تبويب للإضافة لكي تظهر في الإكسل كـ Tab طريقة حماية الإضافة بدون باسورد وجعلها غير قابلة للعرض وطريقة كسر هذا النوع من الحماية طريقة عمل تحديث للإضافة بحيث يقوم المستخدم بعمل تحديث للإضافة في حال إصدارلك لإصدار به تحديثات لأي استفسار عن أي جزئية في الكتاب بإذن الله تعالى أنا حاضر لتحميل البرنامج إضغط على الرابط التالي أو في المرفق http://directexe.com/8yg/الإضافات_في_الإكسل_Excel_Addins_.pdf دمت في رعاية الله الإضافات للإكسل Excel Addins.txt

كل سنة وانتم طيبين رمضان كريم

اخى الكريم مرفق لادراج الصور فى النماذج وحفظها فى الجدول بثلاث طرق حفظ الصور.rar

تضيف حقل للأب في الجدول حيث يصبح عندك حقلين مثلا A و AX فحقل A ندرج فيه جميع المعرفات الآباء والابناء وبالمقابل ندرج في AX الآباء فقط مثلا : الاسم معرف معرف الأب محمد 1001 1001 سلوى 1001/1 1001 سعد 1001/2 1001 وهكذا ... الآن يمكنك جلب بيانات اي شخص عن طريق المعرف كما يمكنك التصفية واظهار افراد العائلة عن طريق معرف الأب

تفضل العمل.rar

تم التعديل اصبح الآن نموذجا فرعيا يظهر في النموذج الفرعي رقم الصورة وهو عبارة عن : معرف الشخص + الرقم التساسلي لهذا يستحيل تكرار اسم الصورة جرب ووافنا بالنتيجة اما بالنسبة للتطبيق على الماسح فلايوجد عندي جهاز ومع ذلك سأحاول وارفق ما اتوصل اليه وسيكون التطبيق عندك ، وتفيدنا اول بأول اتفقنا ؟ الصور4.rar

شاكر فضلك وكرمك اخي الكريم

الكلمات تعجز عن الشكر اخي الكريم

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

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

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

عموما هل هذا ما تريد دون الدخول فى تفاصيل برنامجك shop.rar

اولا اعتذر اخ وائل عن توجيهك الى مكان اخر لتوقعي ان مشكلتك ليست في الترقيم التلقائي ! وقد قام الاخ وائل بفتح موضوع هنا http://www.officena.net/ib/index.php?showtopic=62220 وهنا ارفع لك الحل وبنفس فكرة الهدية الرمضانية ! استخدام امكانية خصائص مربع التحرير والسرد وكقيمة افتراضية ! وهنا نلاحظ كيف استطعنا الاستغناء عن الاكواد حتى في جلب الارقام المفقودة ! وكما ذكرت في اول مشاركة الفكرة تدور حول التعمق في انشاء استعلام مصدر صف مربع التحرير والسرد ! ثم استخدام الخصائص لجلب القيم من القائمة المنسدله والتي مصدرها الاستعلام وكقيمة افتراضية ! تفضل المرفق KFC.rar

رابط خارجي ثاني لتحميل الملف : http://up.top4top.net/downloadf-top4top_ddf996d8391-rar.html رابط خارجي ثالث لتحميل الملف : http://www.up-00.com/?6gPg

تفضل أخي الكريم الملف على رابط آخر : http://up.top4top.net/downloadf-top4top_1f119563e71-rar.html و هذا رابط ثالث : http://www.up-00.com/?RgPg

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

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

http://www.officena.net/ib/?showtopic=44798 http://www.officena.net/ib/index.php?showtopic=61376 http://www.officena.net/ib/index.php?showtopic=53693&page=1 http://www.officena.net/ib/index.php?showtopic=35378 http://www.officena.net/ib/index.php?showtopic=61805 http://www.officena.net/ib/index.php?showtopic=45108 http://www.officena.net/ib/index.php?showtopic=31726 http://www.officena.net/ib/index.php?showtopic=52418 http://www.officena.net/ib/index.php?showtopic=45872 http://www.officena.net/ib/index.php?showtopic=57806

السلام عليكم ورحمة الله وبركاته وجدته في مكتبتي : برنامج قاعات افراح _ مفتوح عقبى لمن هم في سن الزواج من الذكور والاناث افراحنا.rar

أهنئ إخوتي الأكارم بمنتدانا الكريم بقدوم شهر الصوم شهر القرءان الكريم ... وأزف إليهم هذه الأبيات التي تروقني عسى أن تكون دافعاً للنهوض بالهمم بعد كتاب الله وسنة رسوله صلى الله عليه وسلم رمـضانُ أقـبلَ يا أُولي الألبابِ رمـضانُ أقـبلَ يا أُولي الألبابِ *** فاستَـقْـبلوه بعدَ طولِ غيـابِ عـامٌ مضى من عمْرِنا في غفْلةٍ *** فَتَـنَبَّهـوا فالعمرُ ظـلُّ سَحابِ وتهيئوا لِـتَصَـبُّرٍ ومـشـقَّةٍ *** فأجـورُ من صَبَروا بغير حسابِ اللهُ يَجزي الصائـميـنَ لأنـهم *** مِنْ أَجلِـهِ سَخِـروا بكلِّ صعابِ لا يَدخـلُ الـريَّـانَ إلا صائـمٌ *** أَكْرِمْ بـبابِ الصْـومِ في الأبوابِ وَوَقـاهـم المَولى بحرِّ نَهـارِهم ***ريـحَ السَّمـومِ وشرَّ كلِّ عـذابِ وسُقوا رحيـقَ السَّلْسبيـلِ مزاجُهُ *** مِنْ زنجبـيـلٍ فاقَ كلَّ شَـرابِ هـذا جـزاءُ الصائـمينَ لربِّهم *** سـَعِدوا بخيـرِ كرامةٍ وجَـنابِ الصومُ جُنَّـةُ صائـمٍ مـن مَأْثَمٍ *** يَنْـهى عن الفحشـاء والأوشابِ الصـومُ تصفيـدُ الغرائزِ جملةً *** وتـحـررٌ من رِبْـقـةٍ بـرقابِ ما صامَ مَنْ لم يَرْعَ حـقَّ مجاورٍ *** وأُخُـوَّةٍ وقـرابـةٍ وصـحـابِ ما صـامَ مَنْ أكَلَ اللحومَ بِغيـبَةٍ *** أو قـالَ شـراً أو سَعَى لخـرابِ ما صـامَ مَـنْ أدّى شهادةَ كاذبٍ *** وأَخَـلَّ بـالأَخــلاقِ والآدابِ الصومُ مـدرسةُ التعفُّـف ِوالتُّقى *** وتـقـاربِ البُعَداءِ والأغـرابِ الصومُ رابـطةُ الإخـاءِ قويـةً *** وحبالُ وُدِّ الأهْـلِ والأصحـابِ الصومُ درسٌ في التسـاوي حافلٌ *** بالجودِ والإيثـارِ والـتَّـرحْابِ شهـرُ العـزيمة والتصبُّرِ والإبا *** وصفاءِ روحٍ واحتمالِ صعـابِ كَمْ مِـنْ صيامٍ ما جَـنَى أصَحابُه *** غيرَ الظَّما والجوعِ والأتـعـابِ ما كلُّ مَنْ تَرَك الطـعامَ بـصائمٍ *** وكذاك تاركُ شـهـوةٍ وشـرابِ الصومُ أسـمى غايـةٍ لم يَرْتَـقِ *** لعُلاهُ مثلُ الرسْـلِ والأصحـابِ صامَ الـنبيُّ وصـحْبُهُ فـتبرّؤوا *** عَنْ أن يَشيبوا صومَهـم بالعـابِ قـومٌ هـمُ الأملاكُ أو أشباهُـها *** تَمشي وتـأْكلُ دُثِّرَتْ بثـيـابِ صَقَـلَ الصـيامُ نفوسَهم وقلوبَهم *** فَغَـدَوا حديـثَ الدَّهرِ والأحقابِ صامـوا عـن الدنيا وإغْراءاتِها*** صاموا عن الشَّـهَواتِ والآرابِ سـارَ الغزاةُ إلى الأعادي صُوَّماً *** فَتَحوا بشهْرِ الصْومِ كُلَّ رحـابِ مَلكوا ولكن ما سَهَوا عن صومِهم *** وقيامِـهـم لـتلاوةٍ وكـتـابِ هم في الضُّحى آسادُ هـيجاءٍ لهم *** قَصْفُ الرعودِ و بارقاتُ حرابِ لكـنَّهـم عند الدُّجى رهـبانُـه *** يَبكونَ يَنْتَحِبونَ في المـحـرابِ أكـرمْ بهمْ في الصائمينَ ومرحباً *** بقدومِ شهرِ الصِّيدِ و الأنـجـابِ

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

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

السلام عليكم ورحمة الله وبركاته صيغة اكسيل متقدمه :(المجموع الفرعى بشرط) كان قد طلبها احد اعضاء اوفيسنا الاعزاء واحببت ان اقدمها فى موضوع منفصل تقبلو تحياتى =SUMPRODUCT(SUBTOTAL(3;OFFSET($E$6:$E$15;ROW($E$6:$E$15)-MIN(ROW($E$6:$E$15));;1))*($E$6:$E$15=$E19)*($H$6:$H$15)) المجموع الفرعى بشرط.rar

السلام عليكم ورحمة الله تفضل أخي الكريم محمد حسن هذا البرنامج تستطيع إدخال عملات جديدة فيه وحذف عملات كما انت تحب أخوكم انس دروبي ‫‫منظومة الصرافة.rar

السلام عليكم أخي صلاح الصغير كلامك صحيح مئة بالمئة ولكن والله لضيق الوقت وللمعلومة هذا البرنامج خلال خمسة أيام تم تصميمه وبرمجته أخوكم أنس دروبي

كيفك ياباشا لما راق المزاج ! اتينا لك بحل ثاني ليمكن استخدامه كاستعلام ! وهنا ماعليك الا استخدام الدالة التالية في الاستعلام ممررا لها اسم العمود فقط ! Function ramhan(fld) On Error GoTo 10 vr = Split(Trim(fld), " ") For i = 0 To UBound(vr) xnew = xnew & IIf(IsNumeric(vr(i)), Format(vr(i), "00"), vr(i)) & " " Next i 10: ramhan = Trim(xnew) End Function والاستعلام هكذا : SELECT t1.clas, ramhan([clas]) AS Expr1 FROM t1; طبعا وحسب مرفقك السابق ! تحيات رمهان

ارجو من الله عز وجل ان يكون هو هذا طلبك نظـــــام إدارة الطـــــــــلابً).rar

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

السلام عليكم اخوتي الكرام ما رأيكم لو يضموا في جدول واحد تماما كما هو الحال في شجرة الحسابات

السلام عليكم جرب هذه تحياتي معلومات الإدارة+.rar

تفضل باشا !! وما تتعاودها مرة ثانية باسئلة زي كذا ! !!! مرة ثانية حندفعك !! Set rs = CurrentDb.OpenRecordset("t1"): rs.MoveFirst Do Until rs.EOF For i = 1 To 9 If InStr(1, Trim(rs(0)), i & " ") > 0 Then xx = Replace(Trim(rs(0) & " "), i & " ", "0" & i) rs.Edit rs(0) = xx rs.Update End If Next i rs.MoveNext Loop DoCmd.RunSQL "update t1 set clas = Replace([clas],Right(Trim([clas]),2),Format(Right(Trim([clas]),2),' 00')) where clas is not null" DoCmd.OpenTable "t1" بالتوفيق

الدرس الرابع الرسائل نتحدث هنا عن استخدام بعض التقنيات التى تجعل استخدامنا للماكرو _ ( برمجه اكسل ) _ أكثر مرونه .. وذات طابع احترافى وأكثر جمالا وذلك من خلال استخدام الرسائل من خلال كتابة بعض الأكواد البسيطه السؤال ؟ أين تكتب تلك الأكواد ؟ تكتب تلك الأكواد داخل حدث الشيت تكتب داخل حدث المصنف تكتب داخل موديول تكتب داخل أكواد اليوزر فورم أى تكتب حسب الحاجه لها على أن تكون داله على الهدف منها سواء كان تحذير من شىء أو طرح سؤال بسيط مثال ( 1 ) نريد أن نتأكد من أن الطابعه فى وضع التشغيل وإعطاء المستخدم فرصة للتأكد من ذلك مع توقف الماكرو عن العمل الى أن يقرر المستخدم الضغط على زر موافق أو OK التالى نص الرساله التى ستظهر كما بالصورة MsgBox “Please make sure that the printer is switched on” جدير بالذكر عند الملاحظة الأولى لشكل الرساله كما بالصورة السابقة نجد نص الرساله ثم زر OK اذا الإستنتاج هنا يدفعنا الى ذكر سؤال هام لمعرفة كيفية ظهورها بهذا الشكل س : مما تتكون الرساله ؟ وكيف تكتب ؟ ج : تتكون الرساله من هذه التركيبة التالية MsgBox (prompt [, buttons] [, title] [, helpfile, context]) السؤال الذى يطرح نفسه هنا س : ماذا تعنى هذه التركيبة ؟ ج : كالتالى كلمة Prompt تعنى ان تكون الرساله سريعه أى عند حدوث أمر ما تظهر الرساله سريعا هناك أيضا أمور يجب ذكرها : 1 - طول الرساله يتكون من 1024 حرف 2 - واذا كانت الرساله تتكون من عده أسطر يجب الفصل بين كل سطر بعلامه (& _ ) 3 – هناك معيار هام فى الرسائل عندما مثلا تريد تحذير المستخدم الى ان الطابعه تعمل مع التأكيد على ذلك بزر OK هنا نستخدم الفواصل وهو امر ضرورى كمثل الرساله التالية MsgBox “Is the printer on?”, , “Caution!” وكما الصورة نأتى الى القيم الرقمية التى سبق الإشارة عنها وبشىء من التفصيل فمثلا إذا كنت تريد القيمة 4 والقيمة 32 يكون النص الذى يكتب فى الكود هكذا MsgBox Prompt:=”Delete this record?”, Buttons:=36 وتظهر الرساله كما بالصورة التالية أو يكتب النص هكذا MsgBox (Prompt:=”Delete this record?”, Buttons:=vbYesNo + vbQuestion) وإذا أردنا كتابة الرسالة بالترتيب الخاص بها كما ذكرنا بكيفية كتابة الرساله فتكون هكذا MsgBox("Text", vbYesNoCancel + vbExclamation + vbDefaultButton2, "Title") فتظهر الرساله كما بالصورة التالية هنا السؤال يطرح نفسه هل يمكن كتابة كل هذه الأزرار فى الرساله ؟ الإجابة بالقطع (( لا )) · فمجموعة القيم من ( 1:5 ) تمثل الأزرار التى ستظهر فى الرساله وعلى حسب ما تريد وتختار · ومجموعة القيم ( 16,32,48,64 ) تمثل نوع الرساله من كونها استفهام أو تعجب .. الخ وعلى حسب ما تختار · ومجموعة القيم ( 0,256,512,768 ) تعنى أى الأزرار YES أو NO أو CANCEL تريدها أن تكون الإفتراضية للمستخدم أى المضيئة يمكن التعبير عن الرساله فى الكود بالقيمة مثل وتظهر الرساله كما بالصورة السابقة MsgBox("Text", 3 + 48 + 256, "Title") مرفق ملف به كامل الدرس الرابع وتقبلوا منى وافر الاحترام والتقدير الدرس 4.rar

السلام عليكم الشكر واصل للجمع المبارك اسمحولي مشاركتكم هذا الحل المرفق 2003 Add.rar

بسم الله الرحمن الرحيم أسـاســيـات فـيـزيــو برنامج مايكروسوفت فيزيو أحد برامج مجموعة أوفيس , وهو برنامج متخصص في عمل الرسومات الهندسية وهو من البرامج المفيدة في رسم التمديدات الشبكية وهندسة المباني وغيرها الكثير . يميز الفيزيو بسهولة الإستخدام والرسم فيه دون تعقيد، وهو واضح القوائم لا يحتاج منك سوى معرفة الأساسيات . * عند تشغيل البرنامج لأول مرة تظهر على الشاشة صورة مشابهة للصورة في الشكل التالي حيث يمكن ملاحظة مناطق مهمة وهي : الفئة – Category :وتقع يسار نافذة فيزيو وتحتوي كل فئة على عدد كبير من القوالب التي تحتوي على رسومات هندسية بأشكال متعددة. القالب – Template :وتقع في وسط نافذ فيزيو وضمن كل فئة يوجد عدد من القوالب كل واحد منها يمثل نوعا من أنواع الرسومات المختلفة في فئة معينة . أبرز قوائم وأدوات برنامج الفيزيو : شريط العنوان : يحتوي على أسم البرنامج وملف الرسم وكذلك اسم الصفحة .شريط القوائم : تعرض القائمة لائحة الأوامر وهناك بعض الاختصارات للأوامر من لوحة المفاتيح أو من شريط الأدوات . شريط الأدوات : عبارة عن خليط بين أزرار وقوائم لتسهيل التعامل مع البرنامج يمكن تغيير حجم شريط الأدوات لعرض أزرار إضافية , كما يمكنك إظهار كافة الأزرار . صفحة الرسم : المساحة البيضاء التي تنشأ فيها الرسومات . الأشكال : كل قالب يحتوي على عدد من الأشكال المختلفة [الصفحة : تستطيع زيادة عدد الصفحات في البرنامج,وهي مهمة في حالة وجود أكثر من صفحة شريط المعلومات : يحتوي على معلومات عن حجم الشكل , رقم الصفحة , زاوية الدوران .... الخ إنشاء مجسم بياني : نبدأ الرسم في فيزيو باستعمال القالب الذي هو عبارة عن ملف يحتوي على قوائم تحتوي على الأشكال التي تحتاجها في رسمك للمخطط . • نشغل برنامج الفيزيو : ستظهر لك شاشة فيزيو مستعرضة لوحة المهام : • أنقر على File ثم New ثم choose Drawing (اختر نوع الرسم): إضافة الأشكال : تتم إضافة الأشكال عن طريق سحب الأشكال من القائمة الموجودة في لائحة الأشكال على يسار شاشة الفيزيو إلى ورقة الرسم . في الشكل التالي بعد اختيار قالب الرسومات المطلوب نقوم بسحب الأشكال المطلوبة إلى لوحة الرسم : إضافة أشكال من فئات مختلفة: لإضافة أشكال أخرى من الفئات المختلفة والموجودة في البرنامج نقوم بالنقر على زر الأشكال وإضافة الشكل المرغوب كما في الشكل التالي : الرسم اليدوي : عند الحاجة للرسم اليدوي عن طريق زر الرسم الموجود في شريط الأدوات ثم نقوم برسم الشكل المطلوب . الشكل التالي يوضح لوحة الرسم اليدوي: للرسم اليدوي فوائد عديد كالتحكم في الأشكال المعقدة والأسهم والخطوط وغيرها الكثير تستطيع اكتشافها بكل سهولة . إضافة النصوص وتحريرها : نستطيع إضافة النصوص والتعديل عليها في لوحة الرسم وداخل الرسومات وذلك عن طريق زر أدوات النص الموجودة في شريط الأدوات كما في الشكل : أيضا نستطيع التحكم بالأشكال في لوحة الرسم وذلك عن طريق نقرها بالماوس وعند مشاهدة النقاط الخضراء نحركها لنتحكم بحجمها وطولها وعرضها ودرجة ميلانها كما هو موضح في الشكل السابق . أيضا يمكننا التحكم بحجم مجموعة من الأشكال دفعه واحدة وذلك عن طريق تحديدها بالماوس والتحكم بحجمها وتدويرها كما هو موضح في الشكل التالي : لربط الأشكال عن طريق الروابط أو الأسهم نستخدم الزر الموجود في شريط الأدوات والمخصص لذلك كما في الشكل التالي : أخــــيـــــراً هذا شرح مختصر وجهد شخصي لبرنامج الفيزيو لنفع أخواني عبر الشبكة العنكبوتية ، وهي عبارة عن أساسيات في البرنامج تستطيع بعد إتقانها إستخدام برنامج الفيزيو كالمحترفين برنامج الفيزيو يتيح لك عمل الكثير ورسم العديد من الأشكال المتقنة والتي تفيدنا في حياتنا اليومية , مثل تخطيط المباني والشكبات والطرقات وغيرها الكثير . تستطيع اكتشاف الكثير عن هذا البرنامج المذهل والإمكانيات المتقدمة التي لا يمكن أن يمنحك أياها أي برنامج آخر بشكل سهل وسلس كما في الفيزيو . والحمد لله رب العاليمن ابو عمر الشمالي