ياسر العربى

بسم الله الرحمن الرحيم استكمالا لحلقات التكرار اليوم سنتحدث عن looping ونسترجع ان اللوبنج من الحلقات التكرارية الشرطية وسنتطرق الى الجمل الاتية في الحلقات التكرارية الشرطية Do.........Loop While Do...........While Do...........Until اولهم Do.........Loop وطريقة كتابة الاكواد هتبقى ازاي نشوف المثال التالي Do MsgBox("Yasser") Loop الكود السابق بدايته DO ثم الاكواد الخاصة بنا داخل الجملة التكرارية ثم Loop لاعادة تنفيذ الكود مرة اخرى طيب لما نطبق الكود دا ايه اللي هيحصل اللي هيحصل ان البرنامج هيطلع لينا رسالة باسم ياسر بس كدا لا دا هيفضل يطلعها على طول كل ما تطلع من واحده تيجي تانيه الى مالا نهاية ايه السبب هي جملة شرطية طيب فين الشرط احنا مش حطينا شرط يبقي البرنامج هيفضل شغال رسايل على طول وطبعا دا لو كود غير الرسالة مع التكرار الى مالا نهاية سيتعرض دائما برنامجنا الى التهنيج من كثرة التكرار طيب عايزين نحل المشكلة ونحط شرط للموضوع دا نشوف المثال التالي ونركز فيه شوية Dim x As Byte = 1 Do MsgBox(x) x = x + 1 If x = 10 Then Exit Do End If Loop اول الكود مجرد اعلنا عن متغير من نوع بايت وعرفناه برقم1 وبعدين بدأنا الجملة ب Do ثم رسالة بها قيمة المتغير والسطر اللي بعده رفعنا قيمة المتغير +1 لكل حلقة تكرارية وبعدين عشان نضع الشرط للجمله نستخدم IF ونقول لو المتغير X يساوي 10 ايه اللي يحصل اخرج من الجملة التكرارية دي يبقي الكود السابق هيحصل فيه ايه بداية الكود المتغير x هيساوي1 وبعدين هنخش الجملة وتظهر رسالة برقم المتغير اللي هو 1 وهننزل على السطر اللي بعده هنلاقي انه المتغير زاد رقم بقي 2 يروح على الجملة الشرطية وهي ان المتغير يبقي عشرة والمتغير لسه 2 يبقي هيتجاهل الشرط ويكمل ينزل يلاقي لووووب هوب يرجع تاني وهكذا لحد اول ما الرقم يوصل 10 يروح للشرط يلاقي انه 10 يقوله عندك اخرج بقي من الدوخة دي واللفه دي وبكدا عرفنا الجملة Do.........Loop ندخل على الجملة الثانية وهي While Dim x As Byte = 1 While x < 10 MsgBox("الحمد لله" & x) x = x + 1 End While ايه الكود دا نفس المتغير x وندخل على الجملة While ودي جد على طول بتقولك الشرط ايه عشان اعرف اشتغل عليه من الاول بنقلها لو قيمة الاكس اصغر من 10 يطبع الحمد لله ورقم المتغير جمبها والسطر اللي بعده طبعا عارفينه وهو زيادة المتغير +1 ويرجع تاني لحد ما يتحقق الشرط عند الرقم 10 تتوقف الجمله الموضوع سهل ومفيهوش اي صعوبة وطبعا دا مثال مبسط للجمله نستطيع تركيب كود بطريقة احترافيه وطرق مختلفه كتييرررر وندخل على الجملة الثالثة وهي Do...........While Dim x As Byte = 1 Do While x < 10 MsgBox("الحمد لله" & x) x = x + 1 Loop باختصار الجملة دي تجمع Do & While مع بعض لان Do لوحدها كنا بنستخدم فيها If اما الان الشرط موجود معها فلا داعي الى IF ندخل على الجملة Do...........Until والجملةدي عكس ال Do...........While بمعني ان Do...........Until بتقول افعل الى ان يتحقق الشرط Do...........While افعل عندما يتحقق الشرط Dim x As Byte = 1 Do Until x > 10 MsgBox("الحمد لله" & x) x = x + 1 Loop هنا هيفضل يكرر الجملة الى ان تصل قيمة المتغير x الى اكبر من 10 وبكدا نكون شبه انتهينا من الجمل التكرارية المحددة والشرطية طبعا دا مجرد شرح مبسط اذا كان هناك اي استفسار يرجى طرحه داخل الردود الخاصة بالموضوع الردود والاستفسارات عن سلسلة دروس الفيجوال بيسك دوت نت تقبلو تحياتي ياسر العربي يتبع

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

بسم الله الرحمن الرحيم درس اليوم بعنوان الحلقات التكرارية iterations & looping يعني ايه iterations & looping ويعني ايه حلقات تكرارية من الاصل الحلقات التكرارية في الاصل هي تكرار امر معين عدد من المرات كثيرا ما نحتاج في برامجنا تكرار بعض الاوامر عدد من المرات المحددة او الغير محددة يعني مثلا اقول لحبيبي ابو البراء قول ارنبنا فى منور انور وأرنب أنور فى منورنا عشر مرات مثلا كدا انا حددت عدد التكرار هنا عشر مرات دا ان عرف يعني يقولهم او حتى اخي احمد الفلاحجي هنا بقي نقول ان دي جمله تكرارية محددة او معروفة وتندرج تحت الاسم iterations طيب لو قلت لابو البراء قول بسيطه وماتستبسطهاش وصعبه وماتصتصعبهاش لحد ما يبان لك صاحب ههههههه كدا اول واحد هيظهر ويتعاطف مع الموقف حبيبي ابو يوسف ويقولي حرام عليك واخي الغالي عبد العزيز هيقول اشيل عنه شوية والفلاحجي هيستخبى طيب من المثال اللي فات فهمنا ايه انه لازم يفضل يعيد الجملة لحد ما يبان له صاحب يعني هنا حطينا شرط لايقاف الحلقة يبقي كدا اسمها جملة تكرارية شرطية وتندرج تحت الاسم looping ومن الامثلة السابقة نقدر نقسم الحلقات التكرارية المحددة والشرطية كما بالاسفل iterations For.........Next For.........Each looping Do.........Loop Do...........While Do...........Until While ناخد مثال على الجز الاول وهو iterations For.........Next وتكتب هكذا For i = 1 To 10 MsgBox(i) Next نوضح الجمله اولا بدأنا الجملة بكلمة محجوزة For وبعدها حرف i وهو هنا يسمي بالمتغير وبالاصح العداد المتغير وبعدها = تساوي ايه بقي تساوي القيمة الابتدائية للمتغير to القيمة النهائية للمتغير والتي اذا وصل لها توقف عن العمل ونختتم الكود ب Next للتكرار حتى نهاية القيمة يبقي المثال اللي فات ايه اللي هيحصل فيه لما نشغله هيظهر لينا رسائل متتاليه من 1 الى 10 وبعدها تتوقف لانتهاء عمل الكود طيب لو احنا محتاجين زيادة بمقدار مختلف يعني مثلا يزيد كل مره رقمين مش واحد زي ما موجود يعني بدل ما يبقي 1 2 3 4 5 6 7 8 9 10 يبقي كدا مثلا 1 3 5 7 9 وطبعا مش هيجيب ال10 لان مسافتها من بعد ال9 رقم واحد يبقي هيتوقف عند ال9 فقط ازاي نعمل الكود دا نشوف For i = 1 To 10 Step 2 MsgBox(i) Next زودنا هنا كلمة step 2 وهنا يعني مقدار الخطوة 2 للمتغير طيب ينفع بدل ما ازود انقص مثلا اه تمام ينفع نعكس العمليه For i = 10 To 1 Step -1 MsgBox(i) Next يعني ايه الكود السابق يعني المتغير يفضل يقل من 10 لحد 1 بمقدار -1 طيب احنا هنقضيها مقدار ارقام لا ممكن نعلن عن متغيرات تحمل الارقام دي ازاي بقي Dim x As Byte = 1 Dim y As Byte = 10 For i = x To y MsgBox(i) Next اظن كدا واضحة لينا احنا اعلنا عن متغيرين من نوع بايت واحد قيمته1 والتاني 10 ونستطيع ان نربط المتغير بتكست بوكس مثلا اذا كانت القيمة هنحددها من على الفورم واحنا شغالين ندخل بعد كدا على الFor Each بنستخدم امتى الفور ايتش دي بنستخدمها مع الكولكشن زي المصفوفات كدا مثلا هناخد المصفوفات دي بس بعدين المهم هنعرف ازاي نعلن عنها ونعرفها في الجملة فور ايتش في المثال التالي Dim myarr() As String = {"الفلاحجي", "ابو البراء", "ابو يوسف", "البسكري", "ياسر العربي"} For Each i In myarr MsgBox(i) Next هنا اعلنا عن مصفوفه من نوع استرنج نصي يعني وعرفناها بما هو مكتوب بين الاقواس وبعدها جينا لجملة التكرار For Each ووضعنا متغير i بيساوي المصفوفة myarr الكود السابق عند تطبيقه سيعرض لنا الاسماء الموجودة بالمصفوفة على التوالي داخل رسالة وعند الانتهاء من كل محتويات المصفوفة يتوقف عمل الكود زي ما بنعملها في الاكسيل كدا مثلا Dim rng As Range For Each rng In Sheet1.Range("a1:a100") rng = "الله اكبر" Next rng هنا بنعلن عن متغير rng وحددنا له مساحة يشتغل داخلها من الخلية a1 :a100 ونقدر نطبق على هذا النطاق ما نريده مثلا نحدد المتغير ونقول انه المتغير هيكون قيمته الله اكبر ونطاق الحلقة التكرارية هو 100 خليه يبقي كلهم هيتكتب فيهم الله اكبر ولحد هنا نتوقف ونكمل باذن الله باقي الدرس قريبا المثال المستخدم في الشرح حمل من هنا المثال تقبلو تحياتي ياسر العربي يتبع

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

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

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

فعلا مكتبة مفقودة تفضل هذه الاداة قم باضافتها داخل الويندوز في الSystem32 وشغل البرنامج مره اخرى MSCOMCT2.rar

نرجو ارفاق الملف للتعديل عليه او قم بالاعلان عن المتغيرات اولا لازم نحدد المتغير دا مستخدم في ايه المهم تقريبا هيكون كدا تضيف السطر دا في اول الكود تحت اللون الاصفر دا Dim i As Long وفي المكان التاني دا حط قبل الكلمة المظلله دي السطر دا تقريبا Dim xlgn As String ان لم يعمل ارفق الملف لتجد مساعدة افضل وشكرا

تفضل حبيبي الاخطاء وكان يوجد اكواد متبدله يعني زر= كان فيه كود المسح مثلا وزر 16 مكرر مرتين وطبعا لسه انت مكملتش القائمة يوجد بندين ناقصين وهما copy & Exit في القائمة File غير كدا كله تمام مجرد ترتيب اكواد فقط كل كود في الزر الخاص به يفضل الضغط على الزر من الخارج مرتين للدخول على الحدث الخاص به ووضع الكود بداخله لضمان وضع الاكواد في مكانها الصحيح بس تصميم رائع تقبل تحياتي WindowsApplication5.rar

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

Chat Yasser

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

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

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

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

بسم الله الرحمن الرحيم احبتي في الله اليوم باذن الله سنقوم بشرح كيفية ربط الفيجوال بيسك دوت نت مع الاكسيل نقوم بفتح برنامج الفيجوال بيسك دوت نت ثم نقوم بعمل مشروع جديد ونقوم باضافة عدد واحد تكست بوكس textbox وخمسة زر button ووضعهم كما بالصورة وطبعا نقوم من تبويب الخصائص الخاص بالادوات بالتعديل على اي اداة من حيث تغيير الاسم ولون الاداة وشكلها وحجمها وحجم الخط بداخلها وغيرها وغيرها من خواص هناك طرق عدة لربط برامج كثيرة بالفيجوال ومنها الاكسيل وسوف نشرح الطريقة التى احبها واعرفها ايضا وهي ما قمت بشرحها بسلسلة الفيجوال6 وان شاء الله الاختلاف بسيط ولكن الاساس واحد وهنعتمد على المراجع وهنختار المكتبة الخاصة بالاكسيل داخل المراجع بالفيجوال كما شرحناها سابقا ومن يريد معلومة اضافية يدخل على سلسلة الفيجوال6 يراجع نفس الدرس المذكور اعلاه وهو ربط الفيجوال بالاكسيل وهذا هو الرابط سلسلة دروس الفيجوال بيسك 6 الان نقوم بالذهاب الى قائمة البرنامج الرئيسية ونختار منها بروجيكت ثم Add Reference ثم نقوم باختيار com ومنها نختار المكتبة الخاصة بالاكسيل كما موضح بالصورة الان قمنا بتصميم مشروعنا وقمنا بتجهيز المكتبات اللازمة لعمل البرنامج ينقص الان كود عمل البرنامج نضع هذا السطر في اول الكود في ال General في التصريحات العامة يعني نفتح محرر الاكواد ونيجي على اول سطر بالظبط ونضع هذا الكود به السطر دا بيربط بين المرجع وبين البرنامج Imports Excel = Microsoft.Office.Interop.Excel ثم نقوم بالاعلان عن متغيرات لسهولة التعامل مع الاكسيل من داخل برنامجنا كما بالكود التالي ولقد قمنا بشرح مثله في سلسلة الفيجوال6 Public Class Form1 'نضع المتغيرات في بداية تصريحات الفورم 1 'المتغير الاول يشير الى برنامج الاكسيل Dim xlApp As Excel.Application 'المتغير الثاني يشير الى ملف مصنف الاكسيل Dim xlWorkBook As Excel.Workbook 'المتغير الثالث يشير الى ورقة العمل Dim xlWorkSheet As Excel.Worksheet End Class ثم نضع في حدث تحميل الفورم الكود التالي Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load xlApp = New Excel.ApplicationClass 'فتح برنامج الاكسيل جديد xlWorkBook = xlApp.Workbooks.Open("d:\test.xlsx") 'فتح ملف اكسيل xlWorkSheet = xlWorkBook.Worksheets("sheet1")'تم الاشارة للمتغير هنا بالورقة 1 xlApp.Visible = False'اخفاء البرنامج End Sub ثم نأتي للزر الاول وهو زر الادخال وهو ادخال القيمة الموجودة في تكست بوكس1 الى ملف الاكسيل في العمود A وكلما ادخلنا قيمة يضعها تحت الاخرى Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim last As Long'نقوم بانشاء متغير من نوع long 'قمنا بتعريف المتغير هنا على اساسا حساب عدد الصفوف بالعمود الاول التى يوجد بها بيانات بالاضافة +1 last = xlWorkSheet.Cells(xlWorkSheet.Rows.Count, "a").End(Excel.XlDirection.xlUp).Row + 1 'هنا نحدد الخلية a& last وهي اخر خليه بها بيانات بالاضافة 1 للكتابة في السطر التالي الفارغ قيمة ما بداخل التكست بوكس1 xlWorkSheet.Range("a" & last).Value = TextBox1.Text End Sub الكود التالي زر اظهار برنامج الاكسيل Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'كود سهل وهو اظهار برنامج الاكسيل xlApp.Visible = True End Sub الكود التالي زر اخفاء برنامج الاكسيل Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click xlApp.Visible = False End Sub الكود التالي زر حفظ التغييرات بملف الاكسيل Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click xlWorkBook.Save() End Sub الكود التالي اغلاق برنامج الاكسيل والغاء تعريف المتغيرات Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click xlWorkBook.Save() xlWorkBook.Close() xlApp.Quit() xlApp = Nothing xlWorkBook = Nothing xlWorkSheet = Nothing MsgBox("تم اغلاق ملف الاكسيل") End Sub وبكدا نكون انتهينا من شرح الكود وربط الاكسيل بالفيجوال وهذا هو الكود كامل Imports Excel = Microsoft.Office.Interop.Excel Public Class Form1 Dim xlApp As Excel.Application Dim xlWorkBook As Excel.Workbook Dim xlWorkSheet As Excel.Worksheet Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load xlApp = New Excel.ApplicationClass xlWorkBook = xlApp.Workbooks.Open("d:\test.xlsx") xlWorkSheet = xlWorkBook.Worksheets("sheet1") xlApp.Visible = False End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click xlApp.Visible = True End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim last As Long last = xlWorkSheet.Cells(xlWorkSheet.Rows.Count, "a").End(Excel.XlDirection.xlUp).Row + 1 xlWorkSheet.Range("a" & last).Value = TextBox1.Text End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click xlWorkBook.Save() xlWorkBook.Close() xlApp.Quit() xlApp = Nothing xlWorkBook = Nothing xlWorkSheet = Nothing MsgBox("تم اغلاق ملف الاكسيل") End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click xlWorkBook.Save() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click xlApp.Visible = False End Sub End Class انا قمت بوضع مثال لتكست بوكس فقط للتوضيح انا عايز منكم فهم الشرح وتطبيقه على نطاق اوسع شوية من المثال الموجود يعني عاوز برامج بجد شغل يعتمد عليه مش مجرد مثال يلا عايز اشوف شغل مش كلام ومش هحط مرفق نهائي الان لحد لما نشوف التفاعل والشغل تقبلو تحياتي ياسر العربي يتبع

الثوابت تنقسم الثوابت في لغة الفيجوال بسيك إلى ثلاثة اقسام رئيسية وهي نصية او رقمية ومنطقية ويمكننا تعريف ثابت في البرنامج من خلال الكلمة المحجوزة const ولاحظ هنا اخي الكريم في الفيجوال بيسك لا يمكنك تعريف ثابت إلا من خلال المبدأ التالي Const name as type = value Const اسم الثابت as قيمته = نوعه عند كتابة الثابت لا يمكنك نسب قيمة له إلا في نفس السطر الذي قمت بكتابة الثابت فيه . اي انه لايمكنك ان تكتب الثابت في سطر وقيمة الثابت في سطر اخر وهذا من الاشياء التي تميز المتغير عن الثابت امثلة على تعريف ثوابت جديدة لاستخدامها في البرنامج Const name As String = "Yasser" ثابت من نوع نص Const age As Integer = 30 ثابت من نوع عدد صحيح Const marry As Boolean = True ثابت من نوع قيمة منطقية الطرق التي من خلالها تستطيع تعريف ثوابت لبرنامج الطريقة التقليدية تعريف ثابت ونسب قيمة له مثل Const name As String = "Aseel" كتابة الثابت بدون تحديد نوع له مثل Const name = "Mohamed" كتابة اكثر من ثابت مع تحديد القيمة لها في سطر واحد :- مثل Const name As String = "Mohamed", age As Integer = 30 كتابة اكثر من ثابت بدون تحديد نوع الثابت مثل Const name = "Mohamed", age = 33, marry = False لاحظ هنا اننا لم نستخدم كلمة تعريف الثابت إلا في بداية الجملة فقط الأخطاء المتوقع حدوثها عند تعاملك مع الثوابت تغيير قيمة الثابت في البرنامج او اثناء التشغيل مثال لذلك Const age As Integer = 20 age = 22 تعريف الثابت في سطر ونسب القيمة له في سطر اخر كما قلنا سابقاً مثال لذلك Const age As Integer age = 18 ملاحظة هامة عند تعاملنا مع الثوابت يجب علينا ادخال القيمة للثابت في نفس جملة تعريف الثابت تقبلو تحياتي ياسر العربي يتبع

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

المتغيرات Variables سنبدأ بتعريف المتغير Variable و هو يشير إلى موقع تخزينى فى الذاكرة و يمكن أن يحتوى على بيانات (عددية أو حرفية) ، و يتم تعريف المتغير أثناء كتابة البرنامج ، و يمكن تغيير محتوى هذا المتغير أثناء سير البرنامج ، و كل متغير له اسم وحيد يعرف به و كل متغير له اسم وحيد يعرف به و لا يمكن وجود متغيرين أو أكثر بنفس الاسم فى مكان واحد بالذاكرة. عند تحديد اسم المتغير يجب اتباع شروط محددة: .2 أن يبدأ بحرف هجائى (انجليزى : A,B, …..Y,Z or a,b,….,y,z) .3 ألا يحتوى على علامات خاصة (؟،! ،: ، ....) .4 ألا يكون هذا الاسم من الكلمات المحفوظة فى اللغة البرمجية مثل End , Byte وغيرها .5 الاسم قد يتضمن أرقام و حروف. أنواع المتغيرات : نأتى لجزء مهم فى تكويد المتغيرات و هو تعريف المتغير و هو الإعلان عن اسم المتغير و نوعه داخل نافذة البرمجة ، و من صور المتغير داخل نافذة البرمجة: Dim VariableName As DataType أمثلة تعريف على أنواع المتغيرات السابقة: او من الممكن ان نعرفها هكذا Dim myIntegr As Integer myInteger =3 وهكذا مع جميع المتغيرات Variables وهذا درس مرفق لاخي الغالي ياسر ابو البراء عن المتغيرات Variables في الVBA وطبعا وجهه الشبه كبير بين الVBA والدوت نت من حيث المتغيرات وبعض الاكواد البرمجية بل ان معظم تعريف المتغيرات Variablesداخل نوافذ البرمجة عامة كلها شبه متطابقة طيب محتاجين مثال فيه متغيرات كتطبيق عملي اقول لكم لو قمتم بتطبيق درس الآله الحاسبة ستجدو ان به متغيرات من النوع Double و String المتغير Double تم تعريفه ليكون للقيم المدخلة من الآله الحاسبة ولماذا اختارنا هذا المتغير لانه يدعم الكسور لان العمليات الحسابية لن تخلو دائما من الكسور والمتغير String تم اختياره للعمليات الحسابية وهي العلامات + - * / واستخدمناه هنا ليتعامل مع العلامات على انها نص اتمنى ان اكون قد وصلت المعلومة بطريقة سهلة ياريت بقي نلاقي امثلة فيها متغيرات منوعه كدا من الجميع تقبلو تحياتي ياسر العربي يتبع المتغيرات نبدأ الحلقة.rar

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

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

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

رابط النسخة القديمة http://download.microsoft.com/download/6/9/7/697096F6-4EEA-4704-AF2D-F3BAF57C7634/VS2012_RC_ULT_ENU.iso رابط النسخة الجديدة تقدرو تحملوها باذن الله لاني اتذكر اني قمت بتحميلها بهذه الطريقة ذهبت الى موقع ميكروسوفت وقمت بتحميلها من هناك وبعدين دول 1.5 جيجا ياعم ابو البراء مش 5 جيجا https://download.microsoft.com/download/D/B/0/DB03922C-FF91-4845-B7F2-FC68595AB730/VS2012_ULT_enu.iso الاولي هي نسخة تجريبية ولم تكتمل وتم وضع لها مدة معينة ونتعرف عليها من الحروف RC بعد كلمة فيجوال2012 ولمعرفة المزيد عن الاصدارات حتى لا نقع في مثل هذه الاخطاء أ. مرحلة (Pre-Alpha): أولى مراحل تصميم وتطوير التطبيق، ولا تحتوي أو تشمل نسخة (Pre-Alpha) على كل الوظائف.ب. مرحلة (Alpha): نسخة يتم طرحها لإختبارها وتجربتها داخليا (أي داخل الشركة أو المنظمة أو المجتمع المطور لهذا التطبيق).ج. مرحلة (Beta): نسخة يتم طرحها لإختبارها من قبل مجموعة محددة من المستخدمين أو من قبل العامة وأحيانا يتم طرحها مجانا، تعتبر هذه النسخة غير ثابتة وقد تحتوي على ثغرات أو أخطاء.د. نسخة (Release candidate) أو تعرف إختصارا (RC): نسخة إجتازت بنجاح المراحل السابقة ومرشحة لتكون نسخة نهائية.بعض الشركات أو المنظمات تستخدم كلمات أخرى كذلك، مثل جاما (Gamma) ودلتا (Delta) والتي قد تدل على مراحل أخرى يمر بها التطبيق، والجدير بالذكر أن ألفا وبيتا وجاما أو غاما وسجما ودلتا هي أحرف يونانية.2. مراحل الإنتاج:أ. مرحلة (Release to Manufacturing) وتعرف إختصارا (RTM): هي مرحلة تسبق مرحلة الإصدار النهائي، ويتم توزيعها على المصنعين، مثال على ذلك نظام التشغيل الجديد من Microsoft المسمى بـ Windows 7 حيث يتم توزيعه حاليا على كبار المصنعين باسم (Windows 7 RTM) ومن المعلوم أن تاريخ الإصدار الرسمي هو 22 أكتوبر 2009.ب. مرحلة (General Availability) وتعرف إختصارا (GA): مرحلة تكون فيها النسخة مستقرة تماما ومتوفرة للعامة أو المستخدمين النهائيين عن طريق التحميل من الويب أو عن طريق الوسائط المادية مثل القرص المدمج CD أو القرص الرقمي DVD.أمثلة:Download Windows 7 RTM Windows 7 Preinstallation Kit for OEMs – SoftpediaWindows 7 Release Date | Windows 7 NewsMozilla Firefox 3 Release Candidate Release Notes تقبلو تحياتي

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