|| الفيجول بيسك ||

[أبو رضـــا]

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

البداية وحفظ المشروع

بداية سنتعرف على الشكل العام لبرنامج فيجوال بيسك الإصدار السادس

http://www.vb4arab.com/lessons/20/begin.jpg

حيث أن ما نراه هو الشكل العام للبرنامج عند بدء التشغيل لأول مرة

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

http://www.vb4arab.com/lessons/20/begin1.jpg

حيث يتكون من الأقسام التالية :

http://www.vb4arab.com/lessons/20/explor.jpg

http://www.vb4arab.com/lessons/20/property.jpg

http://www.vb4arab.com/lessons/20/toolbox.jpg

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

http://www.vb4arab.com/lessons/20/save1.jpg

ثم عندما تظهر شاشة الاستكشاف نقوم بأنشاء مجلد جديد

http://www.vb4arab.com/lessons/20/save2.jpg

نقوم بانشاء المجلد وتسميته بأسم myproject

http://www.vb4arab.com/lessons/20/save3.jpg

[أبو رضـــا]

حيث قمنا بانشاء المجلد ونحن بصدد حفظ المشروع

http://www.vb4arab.com/lessons/20/save4.jpg

نقوم بتسمية الفورم الاول باسم الشاشة الرئيسية حيث سيتركز نشاطنا التالي

http://www.vb4arab.com/lessons/20/save5.jpg

ونحفظ المشروع بأسمه الافتراضيproject1

http://www.vb4arab.com/lessons/20/save6.jpg

[أبو رضـــا]

الدرس الثاني

كيفية أستخدام الادوات

سنقوم بانشاء شاشة المستخدم وستكون على الشكل التالي في بداية العمل

http://www.vb4arab.com/lessons/20/first1.jpg

وسنقوم بتغيير الترويسة العلوية للفورم وذلك عن طريق تعليمة

captionفي نافذة الخصائص تدعى

http://www.vb4arab.com/lessons/20/caption1.jpg

http://www.vb4arab.com/lessons/20/caption2.jpg

فتصبح الشاشة الرئيسية على الشكل التالي

http://www.vb4arab.com/lessons/20/edcption2.jpg

وكي تصبح الترويسة على الجانب الايمن أي بالعربي نستخدم خاصية
موجودة في نافذة الخصائص تدعى
righttoleft

http://www.vb4arab.com/lessons/20/righttoleft.jpg

ونحدد الاختيار

True

ونضغط على زر التشغيل

F5

وتكون النتيجة كالتالي

http://www.vb4arab.com/lessons/20/edrighttoleft.jpg

ولكي تصبح الشاشة على الحجم الكبير نغير في نافذة الخصائص خاصية

windowstate

الى القيمة

maxmized

http://www.vb4arab.com/lessons/20/windostate.jpg

وسنقوم باضافة أداة جديدة من صندوق الادوات تدعى ليبل

http://www.vb4arab.com/lessons/20/labeltoolbox.jpg

ننقر عليها نقرتين سريعتين فتصبح داخل الشاشة الرئيسية

http://www.vb4arab.com/lessons/20/labelinscreen.jpg

وأثناء أختيارنا للأداة أيضاً من نافذة الخصائص نقوم بأستخدام خاصية

AutoSize

وهي تستخدم لعمل حجم الليبل مساوياً لحجم النص

ونحدد الاختيار

True

http://www.vb4arab.com/lessons/20/labelauto.jpg

وأيضاً من نافذة الخصائص نحدد خاصية

Caption

ونكتب جملة رقم الطالب

http://www.vb4arab.com/lessons/20/labelaption.jpg

فتصبح على الشكل التالي

http://www.vb4arab.com/lessons/20/labeltext.jpg

وبنفس الطريقة السابقة نضيف عدة ليبلات وتصبح الشاشة الرئيسية تحتوي على المجموعة التالية

http://www.vb4arab.com/lessons/20/morlabel.jpg

وسنضيف الآن أداة لاتسمح بادخال سوى الارقام فقط ومن صندوق الادوات نضغط بزر الماوس اليمين وهو على صندوق الادوات فتظهر القائمة المنسدلة التالية

http://www.vb4arab.com/lessons/20/component1.jpg

ونختار منها كلمة

Components...

فتظهر لنا النافذة التالية

http://www.vb4arab.com/lessons/20/component2.jpg

[أبو رضـــا]

وقوم باختيار الاداة التي سنستخدمها لأدخال الارقام

Microsoft Masked Edit control 6.0

http://www.vb4arab.com/lessons/20/component3.jpg

فتظهر على النحو التالي في صندوق الادوات

http://www.vb4arab.com/lessons/20/masedbox1.jpg

وندخلها إلى الشاشة الرئيسية بجانب ليبل رقم الطالب

http://www.vb4arab.com/lessons/20/masedbox2.jpg

ومن نافذة الخصائص نستخدم خاصية

Mask

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

http://www.vb4arab.com/lessons/20/masedbox3.jpg

وأيضاً نستخدم خاصية

PromptChar

ونحذف المؤشر الموجود بداخلها ونضع بدلاً منه ضغطة مسافة واحدة فقط

http://www.vb4arab.com/lessons/20/masedbox4.jpg

وذلك بالشكل التالي

http://www.vb4arab.com/lessons/20/masedbox5.jpg

وستصبح بالشكل التالي

http://www.vb4arab.com/lessons/20/masedbox6.jpg

وبالتشغيل نجد أن هذه الاداة الجديدة لاتستقبل سوى أرقام فقط

وسندخل أداة جديدة هي أداة صندوق الكتابة وهي تستقبل جميع أنواع الرموز والنصوص

http://www.vb4arab.com/lessons/20/textbox1.jpg

وبالضغط عليها مرتين ندخلها إلى الشاشة الرئيسية ونضعها بجانب أسم الطالب

http://www.vb4arab.com/lessons/20/textbox2.jpg

ولكي تصبح خالية يوجد خاصية تدعى

Text

ونقوم بحذف مابداخلها

http://www.vb4arab.com/lessons/20/textbox3.jpg

فتصبح على الشكل التالي

http://www.vb4arab.com/lessons/20/textbox4.jpg

وبنفس الطريقة السابقة نقوم بأدخال عدة صناديق كتابة لتصبح على الشكل التالي

http://www.vb4arab.com/lessons/20/textbox5.jpg


مع خالص تحياتي
ابو محمد[/ALIGN]

[صانع السلام]

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

و يا حبذا لو تواصل على نفس المنهج في طريقة شرح الدروس , أي وضع دروس مباشرة و تطبيقات ، و ترك شرح الأدوات التي ليس لها فائدة كبيرة بالنسبة للمبتدأين كما يعمل الكثير ...

أشكرك أخي العزيز مرة أخرى , و حفظك الباري ...

[اختكم في الله]

شكرا للاخ الفاضل ابو محمد على هذا الجهد الكبير ، و ها نحن نستفيد من خبراتكم ، فلا تبخلوا علينا بالجديد ...
نسألكم الدعاء
اختكم في الله

[بحر الأشواق]

بسم الله الرحمن الرحيم

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

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


وفقكم الله

جهد مشكور يا رب


أختكم المصون
بحر;) الأشواق
أم حيدرا

[الحزين]

أبو محمد
أتقدم لك بالشكر الكثير على هذا الطرح الراقي

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

إذا ما فهي مانع يا سويداء قلبي مثل ما يوقل صانع السلام

وأنا أضيف إليه يا بويضاء قلبي بعد

والسلام

أخوكم إلى الأبد الحزين

[مو شغلك]

ابو محمد ممكن تشرح كيفية استخدام array في vb

وشكرا وليش اذا ضغت help

تطلع رسالة انه يجب تنصيب msdn ويش يعني ؟؟؟؟؟؟؟؟؟؟

[السراج]

الله الله يا ابو محمد ،،
دائما كما هي عادتك مبدع جدا ،، بوركت حبيبي ،،

[الحزين]

ردا على طلب الخ العزيز مو شغلك
إليك الرد على السؤال الأول,,

السلام عليكم أيها الأحبة ورحمة الله وبركاته

في هذا التعريف البسيط عن Arrays أو المصفوفات باللغة العربية سوف نعتمد على التمارين السريعة بالإضافة للتعريفات .. فأتمنى أن يكون الدرس واضحا أيها الأحبة

المصفوفات Arrays

*أول شيء علينا أن نعلن عن Arrays
Dim … Arrayname (N).. AS..Arraytype
(N) هنا تعدني عدد المصفوفات أو Arrays

Exercise:
الإعلان عن 50 إسم من أسماء المشتركين في المنتدى ثم عرض هذه الأسماء
(ملاحظة)

Dim…A(50)… AS..String

حركة البرنامج:
- لإنجاز قرار معين نحتاج إلى إتخاذ قرار على معطيات معينه وفي هذه الحالة تستخدم العملية الشرطية(If Condition
1- قاعدة [if]
If … Condition …. Then
تستخدم هذه الجملة لإتخاذ قرار معتمد على شرط معين ويناءا على هذا الشرط يتم تنفيذ أوامر معينه..
لتوضيح ذلك ركزوا وياي إشوي في الشرح التالي

المثال الأول,..
If… Condition… then

في هذه الحالة إذا كان الشرط Condition الذي بعد If صحيح فأنه ينفذ الأمر الذي بعد Then وإذا لم يتحقق الشرط فإنه لن تتم العملية ولن يفعل شيء
مثال:
المطلوب عند كتابة أي رقم أقل من أو يساوي (9) في Text1 يتم تغيير المكتوب في Command1 إلى Hazen
- الشرط أن قيمة Text1<=9
- المطلوب هو تحويل إسم Command1 إلى Hazen
- وإذا لم يتحقق الشرط فإنه لن يفعل شيء .. أي إذا زاد الرقم عن 9 فإنه لن يحقق شيء لأنه تعدى الحالة الشرطية.

if val(text1.text)<=9 then command1.caption ='Hazen'

المثال الثاني If Condition then
مجموعة من الأوامر
End if

أي في حالة تحقق الشرط الذي بعد IF يتم تنفيذ مجموعة الأوامر التي بعد then ويتم كتابة End if في هذه الحالة لأن الأوامر في سطر ثاني.

تمرين:

الطلوب في المثال التالي أن يغير أسم Form إلى Bye
وكذلك يغير لون Form
if val(text1.text)<=9 then command1.caption ='Hazen'
Form1.caption='Bye'
Form1.backcolor=Qbcolor(5)
End if

المثال الثالث:
If condition then
مجموعة أوامر
Else
مجموعة أوامر
End if

في هذه الحالة إذا تحقق الشرط يتم تنفيذ مجموعة من الأوامر التي قبل Else وإذا لم تتحقق الأوامر الشرطية يتم تنفيذ مجموعة الأوامر الأخرى التي بعد Else


المثال الرابع
If condition then
الأمر الأول
Else
If condition then
الأمر الثاني
Else
If condition then
الأمر الثالث
End if
End if
End if
(نلاحظ أن End if تكررت 3 مرات لسبب بسيط وهو أن عدد المرات التي تكررت فيها If هي 3 مرات فعليه علينا أن ننهي If ثلاث مرات أيضا)

ونعني في هذا المثال أنه لو لم يتحقق الشرط الذي في أول IF سوف يقوم بختيار الشرط الثاني (if الثانية) التي بعد Else الأولى فإذا تحقق الشرط سينفذ المطلوب وإذا لم يتحقق فسوف يذهب للحالة الثالثة وهكذا.


هذا بشكل مجمل وسريع

أتمنى أن يكون مفيدا إنشاء الله


أما بخصوص السؤال الثاني
ما هو msdn هو إختصار لكلمة Microsoft Developer Network وهي مجموعة من الخدمات التي يقدمها Microsoft للمبرمجين ومطوري البرامج لمساعدتهم في كتابة البرامج بإستخدام منتجات Microsoft

لمزيد من المعلومات يمكنك زيارة هذا الموقغ
http://msdn.microsoft.com/



لكم خالص تحياتي

أخوكم / الحزين

[الحزين]

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

وهي عبارة عن قوائم منسدلة(ListBox) فعند إختيار شيء من القائمة ستظهر لك بعض المعلومات عن الشيء المختار.. فما رأيكم أيها الحبة عمل قائمة بأسماء الأشخاص وعندما تختار إسمه يظهر لك بعض المعلومات عن هذا الشخص .. هل نبدا ببسم الله الرحمن الرحيم
إفتح ليك Project جديد وإحفظه بأي إسم تريد(يحبذ أن يكون الإسم له علاقة بالموضع)
وسنعمل Form كما هو مبين في الصورة
http://www.ta7meel.com/up/37/1089824926.JPG
أولا اضف Label1 في أعلى سطح الـForm وأكتب فيه (معلومات شخصية) مثلا
وبعدها إختر ListBox من tools Box
وبعدها إعمل Label آخر Label2 بجانب ListBox وإعطه عنوان ( إختر إسم الشخص)
وبعدها إعمل Label آخر Label3 وإتركه فارغا
وبعدها إعمل Label آخر Label4 وإتركه فارغا وغير خاصية الحدود Border Style إلى Fixed Singale

الآن إعمل رز Coomand1 وغير Caption إلى إنهاء..


ألحين يا جماعة الخير راح نبدا مرحلة Codes
أي عملية وضع الشفرات.
وراح نبدا بـListBox
أولا على Form نفسه أي مكان أضغطDouble Click
راح تطلع ليك صفحة بيضاء مكتوب فيها
Private Sub Form_Load



End Sub
صح يا جماعة (لازم تطلع ليك هذي الشاشة)
لأننا راح نكتب Codes فيما بين السطرين

Private Sub Form_Load()
List1.AddItem " أحمد محمد عبدالله"
List1.AddItem عاطف عيسى""
List1.AddItem "علي منصور"
List1.AddItem "محسن آدم "
List1.AddItem " عباس محمد علي "
End Sub

الان عزيزي إذهب مره أخرى إلى الفورم Form وإضغط Double Click على ListBox وراح تطلع ليك هذي الشاشة

Private Sub List1_Click()

End Sub
إكتب ما بينهما الجمل البرمجية التالية:
Private Sub List1_Click()
Label3.Caption = List1.Text
Select Case List1.ListIndex

Case 0
Label4.Caption = " شاب جميل ، عالي الأخلاق ولكن.. رقمه الشخصي كذا وله كذا وهكذا اضف ما تشاء "
Case 1
Label4.Caption = " كل صفات الزينه فيه ووووو وتستمر في كتابة ما تشاء "
Case 2
Label4.Caption = " هذا وردة ومن جماله كل الورود ذبلت ووووو وهكذا أضف ما تحب "
Case 3
Label4.Caption = " له كل التقدير والإحترام وله كذا من الأولاد وكذا من الزوجات وكذا من ووو "
Case 4
Label4.Caption = " هذا الشخص عاد لي هوشة وياه بس خلين أشوفه على الرغم من أني أحبه وهكذا أكتب ما تريد "
End Select
End Sub

والآن جرب بنفسك وإنظر ماذا ترى.


على فكرة شباب وشابات أمر إنهاء ما يسوي أي شيء

شنه أقدر اسوي ليه بحيث وقت إللي أضغط عليه يطلعني برى البرنامج

بنتظار ردودكم


على فكرة الدرس القادم عبارة عن عمل بسيط للآلة الحاسبة

مع خالص تحياتي ودعائي لكم بالتوفيق

أخوكم / الحزين

[السراج]

أحسنت حبيبي الحزين ،،

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

[بهلول]

بسم الله

الاخ ابو محمد درسك مو ضابط وياي والسبب ما ادري:o( ...

الحزين درسك طبقته 10/10 وجواب سؤالك عندي *D:*

شجعوني ها *D:*

صورة للبرنامج**:I
http://www.ta7meel.com/up/37/1089833951.bmp
http://www.ta7meel.com/up/37/1089834183.bmp
http://www.ta7meel.com/up/37/1089835173.bmp
وهذا لك يا الحزين*aaaa*
http://www.ta7meel.com/up/37/1089834760.bmp

صورة للبرنامج وهو يعمل **:I

http://www.ta7meel.com/up/37/1089834483.bmp

بل ولا واحد صفق ليي ;)لكن ما عليه الله كريم;)

[الحزين]

بارك الله فيك أخي بهلول

إنته بطل بطل بطل


وإليك تحية من قلبي وبارك الله وفي اللي أنسلوك والله يعطيكم الصحة والعافية



على كل وين الجماعة الباقين عشان ندخل في الدرس الثاني

يالله ياشباب

السراج ، صانع السلام ، أختكم في الله والباقين وينكم

بسكم من النوم يالله قوموا وإشتغلوا

سؤال إلى الأخ بهلول

هل واجهة صعوبة في عمل البرنامج؟
وهل الكودات مفهومة أم لا؟

مو فقين جميعا

[اختكم في الله]

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

نسألكم الدعاء
اختكم في الله

[الحزين]

اليوم راح نتعلم إشولن إنسوي لينا آلة حاسبة بسيطة..
بس شباب إذا الدرس صعب خبروني عشان إنبسطة أكثر أو نبتدي بشيء أبسط قبل لا إنروح إلى الالة الحاسبة

يالله خلونا نتوكل على الله ونبتدي

أول شيء قولوا بسم الله الرحمن الرحيم

وبعدين لا تنسوني من دعائكم المبارك بأني هيديني الله لما فيه الخير والصلاح

كالعادة نفتح صفحة جديدة .. ونضع لينا Label واحد عشان نعرض فيه الناتج..والأرقام

الشيء الثاني نضع لينا أزرار في محل الأرقام والعمليات الحسابية (- ، * ، + ، / ، -/+ ، = ، 1/X ، . ، C ) ولا ننسى الأرقام أيضا

أظن معروفه إشلون إنسوي هذي الخطوة (صح)

أخواني أخواتي خلونا إنسميهم أسماء موحده (هذا مو شيء أساسي بس عشان نمشي في المثال كلنا مع بعض في نفس المنهاج) وتقدرون تغيرون المسميات على راحتكم بس لا تسنون إنكم تغيرونهم في وقت الشفرات أو وضع Codes .. إتفقنا

Label إنسميه Display
-/+ راح إنسميه PlusMinus
X/1 راح إنسميه Over
+ راح إنسميه Plus
- راح إنسميه Minus
* راح إنسميه Times
/ راح إنسميه Div
= راح إنسميه Equals
. راح إنسميه DotBttn
C راح إنسميه ClearBttn

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

ألحين صار عندنا آلة حاسبة مثل ما هو مبين عندنا في الصورة

الصــــــــــــــــــــــــــــورة

http://www.ta7meel.com/up/38/1090074300.JPG
ألحين جاء وقت وضع الـ Codes أو الشفرات

أولا في التعرف العام (Declaration) ( (General
خلونا نكتب التالي

Option Explicit
Dim Operand1 As Double, Operand2 As Double
Dim Operator As String
Dim ClearDisplay As Boolean




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

ولنبدا بالأرقام أي 0 إلى 9 ولا ننسى أنهم جميعا يحملون نفس الإسم
Double Click على أي رقم
وأكتب التالي ما بين

Private Sub Digits_Click(Index As Integer(

If ClearDisplay Then
Display.Caption = ""
ClearDisplay = False
End If
Display.Caption = Display.Caption + Digits(Index).Caption


End Sub



أما بالنسبة إلى C وهو زر المسح (Clear)

Private Sub ClearBttn_Click()

Display.Caption = ""

End Sub

أما بالنسبة إلى عملية القسمة وهو زر /

Private Sub Div_Click()

Operand1 = Val(Display.Caption)
Operator = "/"
Display.Caption = ""

End Sub

أما زر . Dot فهو كالتالي
Private Sub DotBttn_Click()
If ClearDisplay Then
Display.Caption = ""
ClearDisplay = False
End If
If InStr(Display.Caption, ".") Then
Exit Sub
Else
Display.Caption = Display.Caption + "."
End If
End Sub

أما زر = فهو كالتالي

Private Sub Equals_Click()
Dim result As Double

On Error GoTo ErrorHandler
Operand2 = Val(Display.Caption)
If Operator = "+" Then result = Operand1 + Operand2
If Operator = "-" Then result = Operand1 - Operand2
If Operator = "*" Then result = Operand1 * Operand2
If Operator = "/" And Operand2 <> "0" Then result = Operand1 / Operand2
Display.Caption = result
ClearDisplay = True
Exit Sub
ErrorHandler:
MsgBox "The operation resulted in the following error" & vbCrLf & Err.Description
Display.Caption = "ERROR"
ClearDisplay = True
End Sub


أما عملية – (الناقص) فهي كالتالي

Private Sub Minus_Click()
Operand1 = Val(Display.Caption)
Operator = "-"
Display.Caption = ""
End Sub

وعملية 1/X وهي الناتج المقلوب للعدد
Private Sub Over_Click()
If Val(Display.Caption) <> 0 Then Display.Caption = 1 / Val(Display.Caption(
End Sub

عملية + الزائد أو الجمع فيه كالتالي

Private Sub Plus_Click()
Operand1 = Val(Display.Caption)
Operator = "+"
Display.Caption = ""
End Sub
عملية -/+ فهي كالتالي
Private Sub PlusMinus_Click()
Display.Caption = -Val(Display.Caption)
End Sub

عملية الضرب * فهي كالتالي
Private Sub Times_Click()
Operand1 = Val(Display.Caption)
Operator = "*"
Display.Caption = ""
End Sub



وهكذا إنتهينا من عمل البرنامج

أدري يا جماعه أن الشرح سريع بس إسمحوا لي ياجماعة لأن عندي شغل ومضطر إني أمشي الحين

بس إذا فيه أي شيء غير واضح الرجاء إخباري

والسلام

أخوكم / الحزين