احلي نجوم
عفواً أخي الزائر الكريم اذا كنت تشاهد هذه النافذة الآن فهذا يفيد بانك غير مسجل لدينا كعضو

نرجو منك التسجيل و نوعدك بافضل الخدمات لنقدمها لك

مع تحيات ادارة المنتدى


احلي نجوم
 
الرئيسيةالبوابةاليوميةس .و .جبحـثالأعضاءالمجموعاتدخولالتسجيل

شاطر | 
 

 كود الألة الحاسبة

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
Admin
Admin
Admin
avatar

الدولة : مصر
عدد المساهمات : 29
تاريخ التسجيل : 25/06/2012

مُساهمةموضوع: كود الألة الحاسبة    الإثنين سبتمبر 17, 2012 6:11 pm

كود الألة الحاسبة


Dim A, B As Single
A = Text1.Text
B = Text2.Text
If Check1.Value = 1 Then Text3.Text = " " & A + B
If Check2.Value = 1 Then Text4.Text = " " & A - B
If Check3.Value = 1 Then Text5.Text = " " & A * B
If Check4.Value = 1 Then Text6.Text = " " & A / B
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://a7langoom.forumegypt.net
 
كود الألة الحاسبة
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
احلي نجوم :: قسم الفيجوال بيسك :: اكواد-
انتقل الى: