طريقة عمل تطبيق حساب المساحات

[تماراTMARA]

هذا تصميم بسيط للواجهات

طبعا البداية تنشئي مثل كتاب العملي مشروع مع اربعة فورمات ( نماذج)
ا
لأول مقدمة


والثاني مساحة المستطيل
في كتاب التدريب العملي ص 35

والثالث مساحة الدائرة



والرابع مساحة المثلث



الأكواد

الاول كوده

Private Sub Command1_Click()
If Option1.Value = True Then Form2.Show
If Option2.Value = True Then Form3.Show
If Option3.Value = True Then Form4.Show

End Sub

والثاني كوده مثل كود برنامج مساحات في الكتاب

أما الثالث

Private Sub Command1_Click()

Dim a As Single
Const n = 3.14
a = text1.Text
text2.Text = n * a ^ 2
End Sub

والرابع

Private Sub Command1_Click()

Dim a, b As Single
a = text1.Text
b = text2.Text
text3.Text = a * b / 2
End Sub