[متميزه]

بسيطه بس كود

شوفي ياحلوه

كود مساحة المستطيل

نبغى ننقر على زر الحساب عشان يحسب المساحه

لذلك نكتب الكود تحت الزر حساب

ويكون الحدث عند النقر

Private Sub Command1_Click()

ونعرف متغيرين (العدين المدخلين من قبل مستخدم البرنامج .. طول وعرض المستطيل)

Dim a, b As Single

تخزين البيانات المدخلة بمربع النص (العددين) بالمتغيرين

a = text1.Text
b = text2.Text

اخراج النتيجة بمربع النص الثالث من خلال المعادلة الطول ×العرض

text3.Text = a * b

والنهاية

End Sub

اذا مستوعبه معي

أكمل

^^