اريد حل لتمارين كتاب العملي

[متميزه]

السؤال الأول

من قائمة Project

اختاري آخر امر (Project1 Properties)

تظهر نافذه

انقري على تبويب General

في خانة اختيار البدايه (Startup Opject)

حددي (F3)

انقري زر موافق


بعد ذلك في شريط الادوات انقري زر Run


السؤال الثاني

تحليل عناصر المسألة :

مدخلات البرنامج : الارتفاع ولنرمز لها بالرمز R , القاعده ولنرمز لها بالرمزA

عمليات المعالجة : مساحة المثلث = (القاعده × الارتفاع) ÷ 2

مخرجات البرنامج : مساحة المثلث

التصميم على ورق خارج :

ملاحظه .. (التصميم يشابه تصميم حساب مساحة مستطيل)

كتابة البرنامج وتنفيذه :


الكود الخاص بالبرنامج :

Private Sub Command1_Click()
Dim A , R As Single
A = Text1.Text
R = Text2.Text
2/ (Text3.Text = (A * R
End Sub

التطبيق العملي :

من خلال تنفيذ البرنامج تظهر النتائج التاليه تباعاً لمساحة المثلث

12

2

13