ياسر العربى

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

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

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

السلام عليكم ورحمة الله وبركاته اليوم سنذكر طريقة اخرى لعمل آله حاسبة في حال اذا عمل الكود السابق على نظام 32 بت فقط اما اليوم سنذكر طريقة تفي لكل الاغراض الكود كالتالي Public Class Form1 'سنقوم بالاعلان عن ثلاثة متغيرات لتخزين القيمة الاولي والعملية الحسابية والقيمة الثانية 'القيمةالاولى Dim nn1 As Double 'القيمة الثانية Dim nn2 As Double 'العملية الحسابية Dim nn As String Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click TextBox1.Text = TextBox1.Text & "1" End Sub Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem.Click MsgBox("تصميم وبرمجة أوفيسنا مصطبة الحبايب -_-") End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click TextBox1.Text = TextBox1.Text & "2" End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click TextBox1.Text = TextBox1.Text & "3" End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click TextBox1.Text = TextBox1.Text & "4" End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click TextBox1.Text = TextBox1.Text & "5" End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click TextBox1.Text = TextBox1.Text & "6" End Sub Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click TextBox1.Text = TextBox1.Text & "7" End Sub Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click TextBox1.Text = TextBox1.Text & "8" End Sub Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click TextBox1.Text = TextBox1.Text & "9" End Sub Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click TextBox1.Text = TextBox1.Text & "0" End Sub Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click TextBox1.Text = TextBox1.Text & "." End Sub Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click TextBox1.SelectAll() TextBox1.Copy() End Sub Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click 'يكرر هذا الكود في العمليات الحسابيةكلها 'هنا يتم حجز قيمة التكست بوكس داخل المتغر الاول nn1 = Val(TextBox1.Text) 'مسح قيمة التكست بوكس TextBox1.Text = "" 'حجز العملية الحسابية داخل المتغير الخاص بالعملية الحسابية nn = "/" End Sub Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click 'حجز القيمة الثانية في المتغير الخاص بالقيمة الثانية nn2 = Val(TextBox1.Text) 'هنا نستخدم if & elsif لتحديد نوع العملية وحسابها واخراج الناتج 'بمعنى اذا كان المتغير الخاص بالعملية الحسابية ان ان يساوي (-) اذا متغير القيمية الاولى - متغير القيمة الثانية If nn = "-" Then TextBox1.Text = nn1 - nn2 ElseIf nn = "+" Then TextBox1.Text = nn1 + nn2 ElseIf nn = "*" Then TextBox1.Text = nn1 * nn2 ElseIf nn = "/" Then TextBox1.Text = nn1 / nn2 End If End Sub Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click nn1 = Val(TextBox1.Text) TextBox1.Text = "" nn = "*" End Sub Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click nn1 = Val(TextBox1.Text) TextBox1.Text = "" nn = "-" End Sub Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click nn1 = Val(TextBox1.Text) TextBox1.Text = "" nn = "+" End Sub Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click End End Sub Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click 'البدأ من جديد بالغاء قيمة التكست وقيم المتغيرات TextBox1.Text = "" nn = Nothing nn1 = Nothing nn2 = Nothing End Sub End Class طبعا نفس الآله الحاسبة مجرد تبديل الكود الخاص بالزر = & + & - & / & * مرفق المثال يتبع Calculator Yasser - Copy.rar

هذا ما كنت اخشاه ان الكود الخاص بالعمليات الحسابية لا يعمل مع انظمة ال 64bit يعمل فقط مع 32bit لا مشكلة باذن الله نجد لها حل او كود اخر باذن الله اما باقي الاكواد سليمة تقبل تحياتي

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

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

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

توضيح شكل محرر الاكواد

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

تفضل اخي الكريم Enable Macros.rar

السلام عليكم ورحمة الله وبركاته اليوم باذن الله نبدأ بأول مثال لنا داخل الفيجوال دوت نت ومثل ما قمنا بعمل تصميم لبرنامج آله حاسبة داخل بيئة الفيجوال 6 سنقوم بعمل نفس البرنامج ولكن افضل طبعا من السابق يعني احنا بنتقدم ونعمل نفس القديم لا لازم يكون في احساس بأن فيه جديدوفي تغيير للافضل يلا الكل معايا يمسك الورقة والقلم( الماوس والكيبورد والبرنامج) طبعا هنفتح مشروع جديد عادي خالص مكونات الادوات على الفورم 17 زر button 1 تكست بوكس 1 ليبل لزوم كلمة اوفيسنا بس والقائمة Menustrip الجديد هنا موضوع القائمة دا كيفية عملها بعد وضع الاداة يظهر لنا ثلاث مستطيلات للكتابة داخلهم وهي اول مستطيل وهو اسم اول القائمة وهو فايل مثلا والثاني لجانبها الايمن وهو لاضافة قائمة بجانبها كما في about والثالث اسفل القائمة لاضافة عناصر داخل القائمة نفسها وكل هذا يتم اضافته بطريقة سهله مجرد تحديد المستطيل والكتابة داخله فقط اما موضوع كيفية وضع لكل عنصر كود برمجي فهو كالتالي يتم الضغط مرتين على اي عنصر لوضوع الكود داخل هذا العنصر مثله مثل ا اداة عادي هنا وضعنا كود لنسخ التكست في copy وكود خروج من البرنامج في Exit وكود رسالة في About طريقة عمل الآله الحاسبة واكوادها Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'هذا الكود داخل الزر رقم واحد وهو لكتابة رقم واحد داخل التكست ويتم تطبيق نفس الكود على باقي الارقام والعلامات TextBox1.Text = TextBox1.Text & "1" End Sub Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem.Click 'في التبويب about وضعنا هذه الرسالة فقط MsgBox("تصميم وبرمجة أوفيسنا مصطبة الحبايب -_-") End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click TextBox1.Text = TextBox1.Text & "2" End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click TextBox1.Text = TextBox1.Text & "3" End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click TextBox1.Text = TextBox1.Text & "4" End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click TextBox1.Text = TextBox1.Text & "5" End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click TextBox1.Text = TextBox1.Text & "6" End Sub Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click TextBox1.Text = TextBox1.Text & "7" End Sub Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click TextBox1.Text = TextBox1.Text & "8" End Sub Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click TextBox1.Text = TextBox1.Text & "9" End Sub Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click TextBox1.Text = TextBox1.Text & "0" End Sub Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click TextBox1.Text = TextBox1.Text & "." End Sub Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click 'في التبويب نسخ وضعنا كود تحديد ما بداخل التكست ونسخها TextBox1.SelectAll() TextBox1.Copy() End Sub Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click TextBox1.Text = TextBox1.Text & "/" End Sub Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click 'هنا وضعنا متغير من نوع اوبجكت وهو سكربت كنترول وهو لتحويل العمليات الحسابية داخل التكست الى ناتج لا اعلم هل سيعمل مع كافة انظمة التشغيل .. Dim Y As Object = CreateObject("ScriptControl") Y.Language = "VBScript" TextBox1.Text = Y.Eval(TextBox1.Text) Y = Nothing End Sub Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click TextBox1.Text = TextBox1.Text & "*" End Sub Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click TextBox1.Text = TextBox1.Text & "-" End Sub Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click TextBox1.Text = TextBox1.Text & "+" End Sub Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click 'انهاء البرنامج End End Sub Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click ' لمسح محتوي التكست لعملية جديدة TextBox1.Text = "" End Sub End Class الكود سهل ولكن انظرو ماذا قمنا بانهائه وبشكل جميل وبرنامج ويعتمد عليه عكس تصميماتنا القديمة ومن الممكن وضع اضافات لاختصارات كتير ولكن نبدأ بالسهل ثم الاصعب اظن كدا دا انتاج محلى بقي المفروض نعتمد عليها ونسيب الآله الحاسبة بتاعه الويندوز ونشجع المنتج بتاعنا نشغل البرنامج بتاعنا ونشوف شكله ايه أي استفسارات طبعا موضوع الردود موجود ياريت نشوف الابداع انا عملت آله حاسبة انا عايز كيبورد مش آله حاسبة بس انا بقول كدا عشان عارف انكم عندكوا لمسات كويسة طبعا مرفق البرنامج عشان الجماعة اللي بيكسلوا يصمموا من الاول والسلام عليكم تقبلوا تحياتي ياسر العربي يتبع Calculator Yasser.rar Calculator Yasser.rar

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

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

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

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

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

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

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

نسخة Visual Studio 2012 Ultimate ISO vb.net 2012 الحجم 1.5 جيجا دي اللي هنعتمدها اي حد نزل نسخة تانية مفيش مشكلة الا اذا وجد خلاف او بعض الامور الغير متشابهه تقبلو تحياتي لو طلبت سيريال SERIAL KEY: RBCXF-CVBGR-382MK-DFHJ4-C69G8 مشكورين احبابي الغاليين بارك الله فيكم وجعله في ميزان حسناتكم وجزاكم الله خيرا

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

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

بسم الله الرحمن الرحيم الحمد لله الذي عز جلاله فلا تدركه الإفهام، وسما كماله فلا يحيط به الأوهام، وشهدت أفعاله أنه الحكيم العلام، الموصوف بالعلم والقدرة والكلام، سبحانه هو الله الواحد السلام، المؤمنون حبب إليهم الإيمان وشرح صدورهم للإسلام، ويقبل التوبة ويكشف الحوبة ويغفر الإجرام، تبارك اسم ربك ذي الجلال والإكرام واشهد إن لا اله إلا الله, وحده لا شريك له, له الملك, وله الحمد, وهو علي كل شيء قدير شهادة من قال ربى الله ثم استقام الله ربـى لا أريــد ســواه هل في الوجود حقيقة إلا هو يـا من وجب الكمال بذاته فالكل غاية فوزهم لقياه عجز الأنام عـن امتداحك انـه تتصاغر الأفكار دون مـداه من كان يعرف انـك الحق الذي بهر العقول فحسـبه وكفـاه وأشهد أن سيدنا وحبيبنا وشفيعنا محمد عبد الله ورسوله وصفيه من خلقه وحبيبه لم يزل صلى عليه الله وسلم يقاتل في الله بعزم واهتمام، حتى انقشع عن سماء الحق تراكم الغمام، وظل في أفق الإيمان بدر التمام إذا أرد أن تفـوز وتـرتـقي درج العلى أو تنال منه رضاه ادم الصلاة على محمد الـذي لولاه مـا فـتح المكـبر فـاه وله الوسيلة واللـواء وكوثـر يروى الورى وكذا يكون الجاه وعلي اله وأصحابه ومن سار على نهجه وتمسك بسنته واقتدى بهديه واتبعهم بإحسان إلي يوم الدين ونحن معهم يا أرحم الراحمين ثم أما بعد /: اليوم ندخل الى ارض جديدة داخل عالم البرمجة وهي لغة الفيجوال بيسك دوت نت طبعا احبتي لن اكون انا الاساس في هذا الموضوع باذن الله كلنا سنشارك في هذا الموضوع باذن الله فمن لديه معلومة ملحوظة مشروع فكرة يتم وضعها في الردود او ارسالها لنا ويتم وضعها في السلسلة او شرحها باذن الله يرجى ترك الردود والاستفسارات على الرابط المخصص لها بالاسفل رابط الردود الردود والاستفسارات عن سلسلة دروس الفيجوال بيسك دوت نت رابط البرنامج نسخة Visual Studio 2012 Ultimate ISO رابط جديد  لنسخة 2012 الحجم 1.5 جيجا دي اللي هنعتمدها اي حد نزل نسخة تانية مفيش مشكلة الا اذا وجد خلاف او بعض الامور الغير متشابهه لو طلبت سيريال SERIAL KEY: RBCXF-CVBGR-382MK-DFHJ4-C69G8 بسم الله نبدأ طريقة فتح البرنامج ومكوناته وطريقة التعامل معه اولا من قائمة البدأ نختار كما بالشكل Visual Studio 2012 ثم تفتح معنا هذه النافذة وهي نافذة بداية البرنامج نختار منها مشروع جديد اما من القائمة FILE & NEW PROJECT او من الاختصار داخل الصفحة نفسها تحت كلمة START NEW PROJECT لتظهر نافذة جديدة ومنها نختار Windows Forms Application ثم تفتح لنا نافذة البرنامج الرئيسية مكونات الصفحة 1- شريط الادوات 2- مستعرض الحلول وهي نافذة المشروع 3- الخصائص وهي خصائص الادوات والفورم المستخدمة 4- صندوق الادوات وهو صندوق الادوات المستخدمة على سطح الفورم مثل الLABEL & TEXTBOX وغيرها 5- شاشة التصميم او مساحة العمل على الفورم 6- شاشة محرر الاكواد بعد عرض شاشة البرنامج الاساسية ومثل أي شرح لاي لغة برمجة يتم عمل المثال التمهيدي والافتتاحي واول برنامج لنا جميعنا على لغة برمجة الفيجوال دوت نت وهو مثال بسيط جدا في غاية السهولة ولكن يترتب عليه بعض الاساسيات التي تتضح لنا لمجرد بناء هذا البرنامج البسيط وهو برنامج الترحيب بالعالم الجديد Hello World ولكن هيبقي ترحيبنا باللغة الجديدة هي برنامج بسم الله الرحمن الرحيم طبعا البرنامج سهل ولا يحتاج لشئ هو مجرد رسالة تظهر فيها ما نكتبه عند تشغيل البرنامج او الضغط على زر ولكن يترتب علي عمل البرنامج فهم طريقة انشاء برنامج وضع الادوات على الفورم كتابة الاكواد داخل المحرر تشغيل البرنامج لاختباره حفظ مشروع البرنامج تحويل البرنامج لملف تنفيذي تحزيم البرنامج معرفة خصائص المشروع برنامج الترحيب بفتح مشروع جديد نقوم كما وضحنا سابقا نقوم بوضع زر امر على الفورم ونختار الزر من صندوق الادوات بعد ان نضع الزر على الفورم نقوم بالضغط عليه دبل كليك ليظهر محرر الاكواد هكذا ثم نكتب بداخله الرسالة الافتتاحية لهذا العالم الجديد Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'يتم عرض رسالة عن طريق هذا الكود MessageBox.Show("بسم الله الرحمن الرحيم") 'ومن الممكن ان نسترجع ذاكرتنا ونكتبها كما تعلمناهكذا MsgBox("الحمد لله") End Sub ثم نقوم بالضغط على start من شريط الادوات او الضغط على F5 لاختبار البرنامج ولحفظ المشروع من قائمة File & Save all وبعد كدا نكتب اسم المشروع ونحدد مكانه زي كدا وبيظهر المشروع بالشكل دا بعد الحفظ الملف المحدد دا ملف المشروع الاساسي يتم تشغل المشروع منه بعد حفظه في اي وقت وبمجرد تشغيل البرنامج الخاص بنا عن طريق f5 or start يتم انشاء نسخه تنفيذية للبرنامج داخل المجلد bin\Debug او نستطيع تحوله لتنفيذي وتحزيمه عن طريق بناء وتحزيم البرنامج من الخيار الاول ثم الثاني المحددين كما تستطيع التعديل على خصائص المشروع كما تعلمنا سابقا في الفيجوال6 هكذا 1- اسم المشروع 2- نوع النت فريم وورك المستخدم للبرنامج والذي سيعتمد عليه بمعنى انه عند اختيارك اصدار النت فريم وورك يشترط وجود نفس الاصدار او احدث على الجهاز الذي سيعمل عليه البرنامج 3- نوع مشروع البرنامج 4- طبعا كلنا عارفينها الفورم اللي هيبدأ عند تشغيل البرنامج نستطيع وضع اي فورم ليبدأ اولا 5- ايقونة البرنامج ونستطيع هنا اختيار ايقونات بدقة عالية عكس فيجوال 6 محدد على عدد الوان وبكسلات معينة مرفق مشروع البرنامج التمهيدي طبعا انا متعود على ان الردود تسبق الدروس بكثير مستني الابداع منكم اتمنى من الله ان اكون قد وفقت في تقديم البداية لدخول عالم الدوت نت بشكل مقبول الى هنا انتهى الدرس يتبع باذن الله تقبلوا تحياتي ياسر العربي test prog.rar

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

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