بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
أخواني وأخواتي الأعزاء اولا يشرفني أن أنضم إليكم فاتمنى أن تقبلوني كتلميذ
---------
أريد جوابا لو سمحتم لهذه المشكلة وهي :
اني أضع علامة الجمع والبرنامج لا يجمع بل يضم
مثال :
1 + 2 = 21
ما هو الحل أخوتي
ولكي أحيطكم بالمشكلة أكثر أضع أمامكم البرنامج (هو لحساب المعدل التراكمي للطالب) والمشكلة في السطرالملون بالأحمر
Private Sub Command1_Click()
Dim A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R As Single
A = Text1.Text
B = Text2.Text
C = Text3.Text
D = Text4.Text
E = Text5.Text
F = Text6.Text
G = Text7.Text
H = Text8.Text
I = Text9.Text
J = Text10.Text
K = Text11.Text
L = Text12.Text
M = Text13.Text
N = Text14.Text
O = Text15.Text
P = Text16.Text
Q = Text17.Text
R = Text18.Text
Text20.Text = (A * 1)
Text21.Text = (B * 1)
Text22.Text = (C * 1)
Text23.Text = (D * 1)
Text24.Text = (E * 1)
Text25.Text = (F * 2)
Text26.Text = (G * 1)
Text27.Text = (H * 4)
Text28.Text = (I * 4)
Text29.Text = (J * 4)
Text30.Text = (K * 1)
Text31.Text = (L * 6)
Text32.Text = (M * 4)
Text33.Text = (N * 2)
Text34.Text = (O * 1)
Text35.Text = (P * 1)
Text36.Text = (Q * 1)
Text37.Text = (R * 1)
Text19.Text = (A * 1) + (B * 1) + (C * 1) + (D * 1) + (E * 1) + (F * 2) + (F * 2) + (G * 1) + (H * 4) + (I * 4) + (J * 4) + (K * 1) + (L * 6) + (M * 4) + (N * 2) + (O * 1) + (P * 1) + (Q * 1) + (R * 1)
Text38.Text = (Text19.Text / 3900) * 100 & "%"
Text39.Text = A + B + C + D + E + F + G + H + I + J + K + L + M + N + O + P + Q + R
End Sub
واتمنى أن القى الجواب بسرعة ولكم جزيل الشكر
والسلام عليكم
