حل المشروع الثالث صفحة 156 فيجوال بيسك

[تماراTMARA]

جزاك الله كل خير
مجهود رائع

[كبرياء الجرح]

ماتقصروووون

ربــــــــــــــــي يجزاكم الجنه

[صدى الصمت]

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


أنا كتبت كود بس ابغى أتاكد قبل ما أسلم المشروع اذا الكود صحيح أو لا
أتمنى انو في احد يقدر يفيدني
وهذا هو الكود اللي كتبته


Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, m As Integer, r As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
e = Text4.Text
m = a + b + c + d + e
r = m / 5
Text6.Text = m
Text7.Text = r

بلييز لا تتاخرون علي في الرد
ويعطيكم العافية

[طالب المزيد]

المشاركة الأصلية كتبت بواسطة صدى الصمت

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


أنا كتبت كود بس ابغى أتاكد قبل ما أسلم المشروع اذا الكود صحيح أو لا
أتمنى انو في احد يقدر يفيدني
وهذا هو الكود اللي كتبته


Dim a , b , c , d , e , m As Integer طريقتك صحيحة وهذه صح أيضا بس أفضل
Dim r As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
e = Text5.Text
m = a + b + c + d + e
r = m / 5
Text6.Text = m
Text7.Text = r

بلييز لا تتاخرون علي في الرد
ويعطيكم العافية

إذا كانت عمل البرنامج السابق هو

إدخال 5 أعداد في مربعات نص text1,text2,text3,text4,text5

وحساب المجموع ووضعه في مربع نص text6

و حساب المعدل ووضعه في مربع نص text7

إذا الكود صح إن شاء الله

وبالتوفيق

[صدى الصمت]

شكرا اخ طالب المزيد
نبهتني على غلط في الكود ما انتبهت عليه انا
e=Text5.Text

يعطيك العافية
بس ما ادري لما جيت انفذه قلت بغير وخزنت المجموع والمتوسط في خاصية Lable8.Caption=m
Lable9.Caption=r

ما يغير شي في الكود يعني يعتبر صحيح ولا ؟؟

[طالب المزيد]

المشاركة الأصلية كتبت بواسطة صدى الصمت

شكرا اخ طالب المزيد
نبهتني على غلط في الكود ما انتبهت عليه انا
e=text5.text

يعطيك العافية
بس ما ادري لما جيت انفذه قلت بغير وخزنت المجموع والمتوسط في خاصية lable8.caption=m
lable9.caption=r

ما يغير شي في الكود يعني يعتبر صحيح ولا ؟؟

لو تضعي المشروع كامل مع الفورم عشان اشوف التصميم هل هو يلائم الكود

[صدى الصمت]

شكرا للمساعدة أدري ثقلتها الموضوع ما يستاهل بس المعلمات يتفننون في التعذيب

[Chairman]

المشاركة الأصلية كتبت بواسطة صدى الصمت

شكرا للمساعدة أدري ثقلتها الموضوع ما يستاهل بس المعلمات يتفننون في التعذيب

برنامجك حلو بس يبغى بعض التعديلات البسيطه وماثقلتيها على احد انتي تبغي تتعلمي

هذا هو الكود الي سويتيه

كود PHP:

Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, m As Integer, r As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
e = Text5.Text
m = a + b + c + d + e
r = m / 5
Label8.Caption = m
Label9.Caption = r
End Sub 


انتي حطيتي متغيرات M-r وكان تقدري تستغني عنها باظهار النتيجه مباشره في label

يعني يكون الكود الموضوع في زر المجموع

كود PHP:

Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, m As Integer, r As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
e = Text5.Text
 
Label8.Caption = a + b + c + d + e 


يعني تختاري بان النتيجه تظهر مباشره في label8


ويكون الكود الذي يظهر في زر المتوسط

كود PHP:

Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, m As Integer, r As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
e = Text5.Text
 
Label9.Caption = (a + b + c + d + e) / 5
End Sub 


تختاري ظهور النتيجه بعد اجراء العميله الحسابيه في label9

ان شالله وضحت الفكره

[طالب المزيد]

المشاركة الأصلية كتبت بواسطة صدى الصمت

شكرا للمساعدة أدري ثقلتها الموضوع ما يستاهل بس المعلمات يتفننون في التعذيب

بس في النهاية لو تعرفي .. أنت مستفيده

" و راح تتذكري كلامي هذا "

[طاسه]

الله يعافيك