انا عضوه جديده ارجو التفاعل مع موضوعي [الأرشيف]

مشاهدة النسخة كاملة : انا عضوه جديده ارجو التفاعل مع موضوعي

كبريــــــــــــــاء انثى

01-04-2008, 06:25 PM

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

أريد منكم توضيح بعض الأشياء لأن لدي مشروع عمل برنامج لحساب معدل طلاب visual Studio .Net وأنا استخدمت فكرة الــ combo box ولم تنفع

If ComboBox1.text= A+ Then
GPA= Val ( ComboBox1.text) * 3

علما باني قمت بتعريف ال GPA وجعلت ال Grade ثابت Constant
وعندما كتبت A+ في كود ال Const لم يقبلها الجهاز
وهل من المفترض أن أعرّف ساعات المواد ؟؟؟؟؟؟

أرجوا أفادتي وجزاكم الله خيراً

ارق تحيه

MIX

01-04-2008, 06:36 PM

الله يحييك اول شي اختي ويسعدني ان اول مشاركه لك تكون في البرمجيااات

ثاني شي ياختي لدي سؤاال ما ذا تقصدين بالحسااب بس تبين حاصل الضرب يعني او باقي عمليات الحسااب؟؟

وياليت تنزلين كامل الكود الي انتي كاتبته في الحساااب لاني لم افهم بعض الامور المتعلقه بالكود من ناحيه تخزينها بالذاكره.

وتاكدي انك في محل اهتمام بالنسبه لاخوانك واخواتك في منتديات برق الشماااااال

تحياتي ووننتظر الرد اختي

sweety

01-04-2008, 08:48 PM

يا هلا فيك اختي في مجالس برق الشمال
بالنسبة لسؤالك

ياليت تنزلي الكود كامل

و ان شاء الله نفيدك

موفقه ان شاء الله :)

كبرياء انثى

02-04-2008, 06:25 PM

السلام عليكم

انا جبت الكود وان شاءالله يكون واضح

Dim GPA As Double

Dim n As Double

Dim TotalF As Double

Dim TotalF2 As Double

Dim TotalF3 As Double

Dim TotalF4 As Double

Dim TotalF5 As Double

Dim TotalF6 As Double

Dim TotalF7 As Double

If ComboBox1.Text = "A+" Then

TotalF = 4 * 3

ElseIf ComboBox1.Text = "A" Then

TotalF = 3.75 * 3

ElseIf ComboBox1.Text = "B+" Then

TotalF = 3.5 * 3

ElseIf ComboBox1.Text = "B" Then

TotalF = 3 * 3

ElseIf ComboBox1.Text = "C+" Then

TotalF = 2.5 * 3

ElseIf ComboBox1.Text = "C" Then

TotalF = 2 * 3

ElseIf ComboBox1.Text = "D+" Then

TotalF = 1.5 * 3

ElseIf ComboBox1.Text = "D" Then

TotalF = 1 * 3

Else

TotalF = 0 * 3

End If

If ComboBox2.Text = "A+" Then

TotalF2 = 4 * 4

ElseIf ComboBox2.Text = "A" Then

TotalF2 = 3.75 * 4

ElseIf ComboBox2.Text = "B+" Then

TotalF2 = 3.5 * 4

ElseIf ComboBox2.Text = "B" Then

TotalF2 = 3 * 4

ElseIf ComboBox2.Text = "C+" Then

TotalF2 = 2.5 * 4

ElseIf ComboBox2.Text = "C" Then

TotalF2 = 2 * 4

ElseIf ComboBox2.Text = "D+" Then

TotalF2 = 1.5 * 4

ElseIf ComboBox2.Text = "D" Then

TotalF2 = 1 * 4

Else

TotalF2 = 0 * 4

End If

If ComboBox3.Text = "A+" Then

TotalF3 = 4 * 2

ElseIf ComboBox3.Text = "A" Then

TotalF3 = 3.75 * 2

ElseIf ComboBox3.Text = "B+" Then

TotalF3 = 3.5 * 2

ElseIf ComboBox3.Text = "B" Then

TotalF3 = 3 * 2

ElseIf ComboBox3.Text = "C+" Then

TotalF3 = 2.5 * 2

ElseIf ComboBox3.Text = "C" Then

TotalF3 = 2 * 2

ElseIf ComboBox3.Text = "D+" Then

TotalF3 = 1.5 * 2

ElseIf ComboBox3.Text = "D" Then

TotalF3 = 1 * 2

Else

TotalF3 = 0 * 2

End If

If ComboBox4.Text = "A+" Then

TotalF4 = 4 * 3

ElseIf ComboBox4.Text = "A" Then

TotalF4 = 3.75 * 3

ElseIf ComboBox4.Text = "B+" Then

TotalF4 = 3.5 * 3

ElseIf ComboBox4.Text = "B" Then

TotalF4 = 3 * 3

ElseIf ComboBox4.Text = "C+" Then

TotalF4 = 2.5 * 3

ElseIf ComboBox4.Text = "C" Then

TotalF4 = 2 * 3

ElseIf ComboBox4.Text = "D+" Then

TotalF4 = 1.5 * 3

ElseIf ComboBox4.Text = "D" Then

TotalF4 = 1 * 3

Else

TotalF4 = 0 * 3

End If

If ComboBox5.Text = "A+" Then

TotalF5 = 4 * 3

ElseIf ComboBox5.Text = "A" Then

TotalF5 = 3.75 * 3

ElseIf ComboBox5.Text = "B+" Then

TotalF5 = 3.5 * 3

ElseIf ComboBox5.Text = "B" Then

TotalF5 = 3 * 3

ElseIf ComboBox5.Text = "C+" Then

TotalF5 = 2.5 * 3

ElseIf ComboBox5.Text = "C" Then

TotalF5 = 2 * 3

ElseIf ComboBox5.Text = "D+" Then

TotalF5 = 1.5 * 3

ElseIf ComboBox5.Text = "D" Then

TotalF5 = 1 * 3

Else

TotalF5 = 0 * 3

End If

If ComboBox6.Text = "A+" Then

TotalF6 = 4 * 2

ElseIf ComboBox6.Text = "A" Then

TotalF6 = 3.75 * 2

ElseIf ComboBox6.Text = "B+" Then

TotalF6 = 3.5 * 2

ElseIf ComboBox6.Text = "B" Then

TotalF6 = 3 * 2

ElseIf ComboBox6.Text = "C+" Then

TotalF6 = 2.5 * 2

ElseIf ComboBox6.Text = "C" Then

TotalF6 = 2 * 2

ElseIf ComboBox6.Text = "D+" Then

TotalF6 = 1.5 * 2

ElseIf ComboBox6.Text = "D" Then

TotalF6 = 1 * 2

Else

TotalF6 = 0 * 2

End If

If ComboBox7.Text = "A+" Then

TotalF7 = 4 * 3

ElseIf ComboBox7.Text = "A" Then

TotalF7 = 3.75 * 3

ElseIf ComboBox7.Text = "B+" Then

TotalF7 = 3.5 * 3

ElseIf ComboBox7.Text = "B" Then

TotalF7 = 3 * 3

ElseIf ComboBox7.Text = "C+" Then

TotalF7 = 2.5 * 3

ElseIf ComboBox7.Text = "C" Then

TotalF7 = 2 * 3

ElseIf ComboBox7.Text = "D+" Then

TotalF7 = 1.5 * 3

ElseIf ComboBox7.Text = "D" Then

TotalF7 = 1 * 3

Else

TotalF7 = 0 * 3

End If

GPA = Val(TotalF + TotalF2 + TotalF3 + TotalF4 + TotalF5 + TotalF6 + TotalF7 /19

Label1.Text = GPA

n = Rnd(GPA)

End Sub

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

يسلمموووو

ارق تحيه

sweety

02-04-2008, 08:37 PM

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

يسلمموووو

ارق تحيه

بالنسبة لسؤالك

مثلا لو تبغي تقربي العدد 1.1274 لمنزلتين, سنكتب

System.Math.Round(1.1274, 2)

حيث الوسيط الثاني لدالة Round هو الذي يحدد عدد الأرقام المطلوب ظهورها بعد الفاصلة

نتيجة تقريب هذا العدد ستكون

1.13

كبرياء انثى

02-04-2008, 10:36 PM

sweety

02-04-2008, 11:09 PM

يسلمووو على الرد
بس الى الان مافهمت كيف احسب معدل واكتبله الرقم يعني انا القيمه اصلا مااعرفها كيف اخليه يقربلي هي
لو كانت معروفه ممكن .
ولو مجهوله يعني احط قيمة المكان الموجود فيه الرقم مع الوسيط اللي هو العدد اللي ابغى اقرب له العدد العشري

اسفه على الاسئلة الكثيره بس احب افهم

الله يجزاكي خير
ارق تحيه

اللي فهمتو من الكود انو عندك 7 كومبو بوكس و كل كمبو خاص بتحديد التقدير لكل مادة.

طيب الحين ايش القانون اللي تبغي تطبقيه لحساب المتوسط؟؟

كبرياء انثى

02-07-2008, 12:05 AM

GPA = Val(TotalF + TotalF2 + TotalF3 + TotalF4 + TotalF5 + TotalF6 + TotalF7 /19
دا القانون اللي راح يحسبلي المجموع حق الكمبوبوكس راح يطلعللي الناتج بس اخر شي انا استخدمت طريق round حق التقريب العشري
لكن انا ابغى اعرف ان كيف الرقم حق المعدل راح يكون مجهول كيف احط الوسيط

يسلموو حبيبتي معليش تعبتك معايا

ارق تحيه