هذا تصميم بسيط للواجهات
طبعا البداية تنشئي مثل كتاب العملي مشروع مع اربعة فورمات ( نماذج)
ا
لأول مقدمة
والثاني مساحة المستطيل
في كتاب التدريب العملي ص 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