طريقة عمل برنامج يعطي النسبة المأوية بدون اله حاسبة

اليوم هنقدملكم طريقة عمل برنامج يعطي النسبة المأوية

بدون اله حاسبة

اولا سنقوم بفتح مشروع جديد على برنامج الفيجوال بيسك

ثانيا هنضيف صندوقين كتابة Textbox كما في الصورة

ثالثا سنقوب باضافة زرين Button كما في الصورة

سنقوم بأضافة Label كما في الصورة

رابعا نقوم بتغيير خاصية Text للزر الاول و نسميها الناتج

و الزر الثاني نسميه مسح كما في الصورة

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

Dim x As Single

Dim y As Single

x = Textbox1.Text

y = Textbox2.Text

Label1.Text = x / y * 100

ثم نكتب في الزر الثاني الزي سوف يقوم بتظيف الحقول لعمل عملية حسابية مرة اخرى

Label1.Text = ""                                                         6 - سنقوم بعمل بدأ التشغيل للبرنامج و نكتب في المربع الاول العدد الاول و المربع الثاني نكتب فيه الدرجة النهائية و نضغط على الناتج سيظهر لنا الناتج في label

ارجو تكونوا استفدتم

و ممكن تتحكموا في شكل التصميم الخاص بكم 

ودا رابط تحميل التصميم الخاص بي

من هنا رابط مباشر