حساب المساحة والمحيط ب vb

achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
في: أيلول 08, 2009, 09:03:22 صباحاً
بسم الله الرحمن الرحيم

السلام عليكم اعضاء منتدى المهندس الكرام

اقدم لكم اليوم برنامج بسيط جدا يقوم بحساب المساحة والمحيط

تصميم برنامج يحسب مساحة ومحيط مستطيل:
يكون كالاتي:


وبعد ذلك ندخل الكود:



نقوم بتجريب البرنامج:
 

1*حساب المساحة:



2*حساب المحيط:







الكود 
:
Private 
Sub Command1_Click()
Val(Text1.Text)
Val(Text2.Text)
If 
Option1.Value True Then
B
Else
= (H) * 2
End 
If
Text3.Text S
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Text1.Text " "
Text2.Text " "
Text3.Text " "
End Sub
Private Sub Option1_Click()
Label3.Caption =  "مساحة"
Label3.BackColor RGB(02000)
End Sub
Private Sub Option2_Click()
Label3.Caption " محیط"
Label3.BackColor RGB(00255)
End Sub



.ارجو ان ينال اعجابكم.


*رمضــــــــــــــــــــــــــــــــــــــــان كريـــــــــــــــــــــــــــــــــــــــــــــــــم*


seddik47

  • Newbie
  • *
    • مشاركة: 10
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #1 في: أيلول 25, 2009, 07:29:36 مسائاً
بارك الله فيك:bye1::bye1:وصــل:bye1:


nourinouri3000

  • Sr. Member
  • ****
    • مشاركة: 400
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #2 في: أيلول 28, 2009, 09:37:03 مسائاً
Merci infiniment


WADDAH

  • Administrator
  • Hero Member
  • *****
    • مشاركة: 7559
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #3 في: أيلول 29, 2009, 02:00:50 مسائاً
شرح وافي وكافي أخي اشرف
بوركت اخي