مساعده بشرح اكواد الفجول

[لحن المطر]

هاااي كيفكم؟؟
انا بثالث ثانوي
الاستاذه حددت لنا 3مشاريع في الحاسب عملي نهائي
ومافهمت منهم شي
المشروع الاول:كود مساحة المستطيل
المشروع الثاني:كود حق التقدير الستيني
المشروع الثالث:كود الحراره

والمشاريع الثلاثه مافهمتهم اتمنى من احد اذا عنده شرح يساعدني

اكووون شااكره لكم
بانتظار الرد

[متميزه]

بسيطه بس كود

شوفي ياحلوه

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

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

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

ويكون الحدث عند النقر
Private Sub Command1_Click()

ونعرف متغيرين (العدين المدخلين من قبل مستخدم البرنامج .. طول وعرض المستطيل)
Dim a, b As Single
تخزين البيانات المدخلة بمربع النص (العددين) بالمتغيرين
a = text1.Text
b = text2.Text

اخراج النتيجة بمربع النص الثالث من خلال المعادلة الطول ×العرض
text3.Text = a * b
والنهاية
End Sub

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

أكمل

^^

[عالم النت]

كملي الله يسعدك شرحك مفهوم واضح انا معاك شكل الطالبه ماعاد فضيت عشان الإختبارات كملي الله يجزاك الجنة بلاحساب ولاعذاب

[متميزه]

والله عيونك الحلوه

برنامج يقوم بإددخال الزاوية بالتقدير الستيني ويحولها إلى الزاوية بالتقدير الدائري

نبغى ننقر على زر تحويل عشان يحول الدرجه
لذلك نكتب الكود تحت الزر تحويل
ويكون الحدث عند النقر Private Sub Command1_Click ( )

ونعرف متغير (العدد المدخل من قبل مستخدم البرنامج .. الزاوية بالتقدير الستيني)
Dim m As Single

ونعرف ثابت وهي قيمه ثابته للباي Const pi = 3.14

تخزين البيانات المدخلة بمربع النص (العدد) بالمتغير
m = Text1.Text

اخراج النتيجة بمربع النص الثاني من خلال المعادلة (الزاوية بالتقدير الستيني ×3.14)÷180 Text2.Text = m * pi / 180

End Sub






برنامج يقوم بإدخال درجة الحرارة بالمئوي ويحولها إلى درجة الحرارة بالفهرنهايتي

نبغى ننقر على زر تحويل عشان يحول الدرجه
لذلك نكتب الكود تحت الزر تحويل
ويكون الحدث عند النقر Private Sub Command1_Click ( )

ونعرف متغير (العدد المدخل من قبل مستخدم البرنامج .. درجة الحرارة بالمئوي) Dim r As Single

تخزين البيانات المدخلة بمربع النص (العدد) بالمتغيرr = Text1.Text

خراج النتيجة بمربع النص الثاني من خلال المعادلة (9÷5 ×درجة الحرارة بالمئوي )+32 Text2.Text = ( 9 / 5 * r ) + 32

End Sub

[عالم النت]

بارك الله فيك الله يهني طالباتك فيك ماشاء الله تبارك الله

[فهد الشراري]

ماشاء الله تبارك الرحمن

الله يعطيك العافية ويزيدك علما ونورا
ويثيبك الجنه

بوركتي يامتميزة
صراحه اسم على مسمى

[متميزه]

عالم نت .. استاذنا فهد

البركة فيكم ^،^