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

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

ماتقصروووون

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

[صدى الصمت]

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


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


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

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

وبالتوفيق