اختصار الكود في سطر واحد(فيجوال بيسك)

MsgBox (Val(InputBox("ادخل الرقم الاول ")) + Val(InputBox("ادخل الرقم الثاني ")))

up

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

بالإضافة الي ذلك إذا كنت ترغب في إنشاء كود جيد يجب عليك أن يكون الكود واضح به عمليات ( المدخلات - العمليات - المخرجات ) كما يلي :

Dim sngNum1  As Single
Dim sngNum2  As Single
Dim dblCalc	 As Double

''1- المدخلات.
sngNum1 = Val(InputBox("إدخل الرقم الأول"))
sngNum2 = Val(InputBox("إدخل الرقم الثاني"))

''2- العمليات.
dblCalc = sngNum1 + sngNum2

''3- المخرجات.
Label1.Caption = dblCalc

وهذا هو أصح شيء ، وإذا تعودت علي الطريقة الصحيحة ستعلم أي طريقة أخري

شكراً

هي طلبت الكود بسطر واحد :P

اقتباس

هي طلبت الكود بسطر واحد

لا يا أخي أنا لم أقصد شيء ، بس أنا أحببت أن أقول رأيي !!!

وآسف جداً إذا كنت فهمتني خطأ

شكراً

العفو اخي العزيز مافي داعي تعتذر كلامك صحيح 100%

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

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

واحب اضيف اليها الاتي :

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

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

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