منتديات حاسبكو المتخصصة بمادة الحاسب الآلي

- الأرشـــــــــيــــــــــــف (http://www.7asabco.org/forumdisplay.php?f=87)

- - مساعده بشرح اكواد الفجول (http://www.7asabco.org/showthread.php?t=9973)

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

هاااي كيفكم؟؟
انا بثالث ثانوي
الاستاذه حددت لنا 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

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

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

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

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

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

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

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

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

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