السلام عليكم :
بيئة العمل vb 6
الدرس الثاني الخاص بالاشكال الهندسية وكيفية احتساب مساحتها ومحيطها ...
موضوع اليوم حول المستطيل :
عليك ان تعرف كيفية معادلات احتساب مساحة ومحيط المستطيل
مساحة المستطيل = الطول X العرض
محيط المستطيل = X 2 ( الطول + العرض )
طريقة العمل :
ادرج ثلاثة تيكست بوكس ( صندوق نص ) و وزر امر عدد اثنين
غير تسمية الزر الاول " المساحة " وزر الامر الثاني الى " المحيط "
في التصريحات العامة ادخل الكود ادناه :
الكود اعلاه خاص بتعريف الابعاد .. حيث s تمثل الطول و p تمثل العرضكود:Dim s, p
في زر الامر المسمى المساحة ادخل الكود ادناه :
كود:s = Val(Text1) p = Val(Text2) Text3 = s * p
شرح الكود اعلاه :
الســــطر الاول : تخــــــصيــــص text1 للطول (s)
السطر الثــــاني : تخصيـــص text2 للــــعرض (p)
السطر الثالث : العملية الحسابية وظهورها في text3
في زر الامر المسمى " المحيط " ادخل الكود ادناه :
كود:كود:s = Val(Text1) p = Val(Text2) Text3 = (s + p) * 2
الكود اعلاه نفس الكود السابق بس العملية الحسابية تختلف فيه
لتحميل مشروع جاهز من المرفقات
مواضيع تهمك :: احتساب مساحة ومحيط المربع مع الشرح بالتفصيل
رد مع اقتباس
المشاركة الأصلية كتبت بواسطة داستان
