ارجوا الماعدة في صنع اول برنامج لي

تم تحميل الصفحة في 0,7401734 ثانية
ارجوا الماعدة في صنع اول برنامج لي

xochn

Beginner Developer
rank
إنضم
15 مارس 2011
المشاركات
58
الإعجابات
7
النقاط
0
اخواني ان اقوم بصنع برنامج يقوم باحتساب المعدل الدراسي ببرنامج

Microsoft Visual Studio 2010

( انا مبتدء في هذا البرنامج )

و هذا هو الكود

Public Class Form9
Dim orl, dc1, dc2, sy, w, a, b, c, d, f, g, h, k, l, m, n, o, moy As Single
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' arabe
orl = Val(TextBox16.Text)
dc1 = Val(TextBox15.Text)
dc2 = Val(TextBox14.Text)
sy = Val(TextBox13.Text)
moy = (dc1 + dc2 + orl + sy * 2) / 5
TextBox10.Text = moy
Label2.Text = Val(TextBox10.Text) * Val(TextBox9.Text)
' fransé
orl = Val(TextBox23.Text)
dc1 = Val(TextBox22.Text)
dc2 = Val(TextBox21.Text)
sy = Val(TextBox20.Text)
moy = (dc1 + dc2 + orl + sy * 2) / 5
TextBox8.Text = moy
Label25.Text = Val(TextBox8.Text) * TextBox18.Text
' eng
orl = Val(TextBox39.Text)
dc1 = Val(TextBox38.Text)
dc2 = Val(TextBox37.Text)
sy = Val(TextBox36.Text)
moy = (dc1 + dc2 + orl + sy * 2) / 5
TextBox17.Text = moy
Label24.Text = Val(TextBox17.Text) * TextBox34.Text
' histori
dc1 = Val(TextBox30.Text)
dc2 = Val(TextBox29.Text)
sy = Val(TextBox28.Text)
moy = (dc1 + dc2 + sy * 2) / 4
TextBox19.Text = moy
Label22.Text = Val(TextBox19.Text) * TextBox26.Text
' geo
dc1 = Val(TextBox54.Text)
dc2 = Val(TextBox53.Text)
sy = Val(TextBox52.Text)
moy = (dc1 + dc2 + sy * 2) / 4
TextBox35.Text = moy
Label23.Text = Val(TextBox35.Text) * TextBox50.Text
' isla
dc1 = Val(TextBox46.Text)
dc2 = Val(TextBox45.Text)
sy = Val(TextBox44.Text)
moy = (dc1 + dc2 + sy * 2) / 4
TextBox33.Text = moy
Label21.Text = Val(TextBox33.Text) * TextBox42.Text
' mada
dc1 = Val(TextBox70.Text)
dc2 = Val(TextBox69.Text)
sy = Val(TextBox68.Text)
moy = (dc1 + dc2 + sy * 2) / 4
TextBox27.Text = moy
Label20.Text = Val(TextBox27.Text) * TextBox66.Text
' math
dc1 = Val(TextBox62.Text)
dc2 = Val(TextBox61.Text)
sy = Val(TextBox60.Text)
moy = (dc1 + dc2 + sy * 2) / 4
TextBox25.Text = moy
Label19.Text = Val(TextBox25.Text) * TextBox58.Text
' phy
orl = Val(TextBox103.Text)
dc1 = Val(TextBox102.Text)
dc2 = Val(TextBox101.Text)
sy = Val(TextBox100.Text)
moy = (dc1 + dc2 + orl + sy * 2) / 5
TextBox51.Text = moy
Label18.Text = Val(TextBox51.Text) * TextBox98.Text
' teq
orl = Val(TextBox95.Text)
dc1 = Val(TextBox94.Text)
dc2 = Val(TextBox93.Text)
sy = Val(TextBox92.Text)
moy = (dc1 + dc2 + orl + sy * 2) / 5
TextBox49.Text = moy
Label17.Text = Val(TextBox49.Text) * TextBox90.Text
' info
dc1 = Val(TextBox85.Text)
dc2 = Val(TextBox84.Text)
sy = Val(TextBox43.Text)
moy = (dc1 + dc2 + sy * 2) / 4
TextBox43.Text = moy
Label16.Text = Val(TextBox43.Text) * TextBox82.Text
' sport
dc1 = Val(TextBox78.Text)
sy = Val(TextBox76.Text)
moy = (dc1 + sy * 2) / 3
TextBox41.Text = moy
Label15.Text = Val(TextBox41.Text) * Val(TextBox74.Text)

TextBox10.Text = a
TextBox8.Text = b
TextBox17.Text = c
Label22.Text = d
TextBox35.Text = o
TextBox33.Text = f
Label20.Text = g
Label19.Text = h
Label18.Text = k
Label17.Text = l
Label16.Text = m
Label15.Text = n
w = a + b + c + d + o + f + g + h + k + l + m + n
Label27.Text = w

Label3.Text = Val(Label27.Text) / Val(TextBox106.Text)
End Sub
End Class
لكن المشكل ان البرنامج لا يعمل كما وضع الكود يعني مرة يظهر لي المعدل و اخرى يظهر 0 و اخرا العكس م / ض يظهر و ان ظهر المعدل يكون 0


??!!!

هذا هو المشروع

http://www.multiupload.com/51U0DOMG2X

+++++++

سؤال لو امكن كيف اضع العدد الذي سيضع المستعمل محصور بين 0 و 20 و يمكن ان تكون الفاصلة فيه 25. / 5. / 75. فقط
اما المعدل و م * ض تكون الفاصلة فيه عددين فقط بعد الفاصلة
اي 33.

........
 

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل