Ali
03-23-2010, 01:15 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
شرح طريقة عمل برنامج آلة حاسبة باستخدام برنامج
الفيجوال بيسيك 6 - من شرحي-
أولا: قم بفتح الفيجوال بيسيك
()
ثانيا: قم بإضافة 3 من الـTextBox
()
ثالثا: غير النص الموجود إلى اي شيء تريد ان يظهر
()
رابعا: قم بإضافة 4 أزرار
()
خامسا: عدل اسم الأزرار وعدل حجمها على حسب رغبتك
()
سادسا: اضغط مرتين متتاليتين على زر الجمع
()
سابعا: ضع هذا الكود بين السطرين :
كود:
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
()
ثامنا: ضع نفس الكود في باقي الأزرار ولكن بتغيير الإشارة:
كود:
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Text3.Text = Val(Text1.Text) \ Val(Text2.Text)
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
()
()
عاشرا: عدل حجم الإطار كما تشاء
()
-----------------------------------------------------------------------------------------
()
-----------------------------------------------------------------------------------------
()
----------------------------------------------------------------------------------------
()
---------------------------------------------------------------------------------------
()
---------------------------------------------------------------------------------------
()
هذا الملف التنفيذي للبرنامج + شرح فيديو
Rapidshare ()
MediaFire ()
السلام عليكم ورحمة الله وبركاته
شرح طريقة عمل برنامج آلة حاسبة باستخدام برنامج
الفيجوال بيسيك 6 - من شرحي-
أولا: قم بفتح الفيجوال بيسيك
()
ثانيا: قم بإضافة 3 من الـTextBox
()
ثالثا: غير النص الموجود إلى اي شيء تريد ان يظهر
()
رابعا: قم بإضافة 4 أزرار
()
خامسا: عدل اسم الأزرار وعدل حجمها على حسب رغبتك
()
سادسا: اضغط مرتين متتاليتين على زر الجمع
()
سابعا: ضع هذا الكود بين السطرين :
كود:
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
()
ثامنا: ضع نفس الكود في باقي الأزرار ولكن بتغيير الإشارة:
كود:
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Text3.Text = Val(Text1.Text) \ Val(Text2.Text)
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
()
()
عاشرا: عدل حجم الإطار كما تشاء
()
-----------------------------------------------------------------------------------------
()
-----------------------------------------------------------------------------------------
()
----------------------------------------------------------------------------------------
()
---------------------------------------------------------------------------------------
()
---------------------------------------------------------------------------------------
()
هذا الملف التنفيذي للبرنامج + شرح فيديو
Rapidshare ()
MediaFire ()