دروس مشروحة بالصور

saswahaibi كتب:

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

نقوم بفتح نموذج جديد ونضع عليه التالي :

عدد 3 label و 3 textbox و5 commandbutton كما في الصورة التالية

نغير اسماء ال label و commandButton من الخاصية caption كما في الصورة التالية

نحذف ال text من الخاصية

text

نضغظ مرتين على الزر جمع ونكتب الكود التالي

text3=val(text1)+val(text2)

نضغط مرتين على الزر طرح ونكتب الكود التالي

نضغط مرتبين على الزر ضرب ونكتب الكود التالي

text3=val(text1-val(text2)

text3=val(text1)*val(text2)

نضغط مرتين على الزر قسمة ونكتب الكود التالي

نضغط مرتين على مسح ون

text3=val(text1/val(text2)

كتب الكود التالي

text1=""

text2=""

text3=""

مرفق النموذج

مشكور وبارك الله فيك شرح مميز وواضح

اقتباس

text3=val(text1)+val(text2)

يا جماعة أنتم لية معظمكم مبيهتمش بتحليل وتصميم النظم ؟؟؟

علشان يتم برمجة كود الجمع مثلاً يجب أن يكون كود البرنامج واضح وصريح بهذا الشكل :

''1- Declares.
Dim N1 As Single, N2 As Single   ''Inputs Variables.
Dim C As Double                  ''Processor Variables.

''2- Inputs.
N1 = Val(Text1.Text)
N2 = Val(Text2.Text)

''3- Processore.
C = N1 + N2

''4- Output Results.
Text3.Text = C

المنتديات مليانة بأكواد بهذا الشكل !!! وأنا مستغرب جداً من تلك الشكل !!!

علي كل حال بالتوفيق للجميع

MMA_EG_Cairo كتب:

يا جماعة أنتم لية معظمكم مبيهتمش بتحليل وتصميم النظم ؟؟؟

علشان يتم برمجة كود الجمع مثلاً يجب أن يكون كود البرنامج واضح وصريح بهذا الشكل :

''1- Declares.
Dim N1 As Single, N2 As Single   ''Inputs Variables.
Dim C As Double                  ''Processor Variables.

''2- Inputs.
N1 = Val(Text1.Text)
N2 = Val(Text2.Text)

''3- Processore.
C = N1 + N2

''4- Output Results.
Text3.Text = C

المنتديات مليانة بأكواد بهذا الشكل !!! وأنا مستغرب جداً من تلك الشكل !!!

علي كل حال بالتوفيق للجميع

أشكرك استاذي ننتظر تعديلاتكم على أي درس