omran2015 قام بنشر أبريل 5, 2022 مشاركة قام بنشر أبريل 5, 2022 (معدل) الأساتذة الكرام تقبل اللهُ منا ومنكم صالح الأعمال وبعد: هذا مشروع بالفيجوال بيسك6 يتم تسجيل الدرجـات في الجدول TBL_Final1 وفي الفورم Form_Semester1 يوجد بوتن لجمع الدرجات tr1 + tr2 + tr3 + tr4 + tr5 + tr6 واستخراج المعدل والتقدير وعدد مواد الرسوب والنتيجة النهائية المشروع قديم حاولت التعديل عليه ولكن هناك مشكلة تتمثل في الآتي: عندما اضغط بوتن الجمع يقوم بالجمع واستخراج المعدل تمام ولكن عدد مواد الرسوب يتم حفظه خطأ في حقل التقدير ويبقى حقل عدد مواد الرسوب فارغ كذلك لا يتم تحقق الشروط التالية في حقل النتيجة النهائية: 1/ إذا كان عدد مواد الرسوب (0) فهو ناجح 2/ إذا كان عدد مواد الرسوب (3) فأقل فهو مكمل 3/ إذا كان عدد مواد الرسوب أكثر من (4) فهو راسب للعلم اليوتن رقم (1) : الكود يعمل تمام بدون إضافة جزئية كود استخراج عدد مواد الرسوب ولكن البوتن رقم (2) عند إضافة جزئية كود استخراج عدد مواد الرسوب تظهر المشكلة أسف لم أجد القسم المناسب لأضع فيه السؤال؟ School.rar تم تعديل أبريل 5, 2022 بواسطه omran2015 رابط هذا التعليق شارك More sharing options...
omran2015 قام بنشر أبريل 6, 2022 الكاتب مشاركة قام بنشر أبريل 6, 2022 الا يوجد أحد ملم بلغة الفيجوال بيسك6 رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر أبريل 6, 2022 مشاركة قام بنشر أبريل 6, 2022 للأسف لغة الفيجوال بسيك الاصدار 6 لا يتوفر لدي لكن انصحك بأن تقوم بترقية المشروع لأصدار احدث و ستجدنا في خدمتك و لكي لا نخرج عن الموضوع قم بإدارج الكود لكي يتم التعديل عليه رابط هذا التعليق شارك More sharing options...
omran2015 قام بنشر أبريل 6, 2022 الكاتب مشاركة قام بنشر أبريل 6, 2022 (معدل) 6 دقائق مضت, د.كاف يار said: للأسف لغة الفيجوال بسيك الاصدار 6 لا يتوفر لدي لكن انصحك بأن تقوم بترقية المشروع لأصدار احدث و ستجدنا في خدمتك و لكي لا نخرج عن الموضوع قم بإدارج الكود لكي يتم التعديل عليه بارك الله فيك أخي الحبيب وزادك الله من فضله, وجارٍ ترقية المشروع ولكن هذا المشروع كبير في جحمه وعملتُ عليه أكثر من ثلاث سنوات وهو بمثابة البرنامج الرئيسي في المعهد. وهذا هو الكود بدون جزئية استخراج عدد مواد الرسوب Private Sub Command1_Click() '''''''''''''''''''''''''''' Dim RsSum As New ADODB.Recordset Dim RsShow As New ADODB.Recordset Dim s As String s = "100" If RsShow.State = 1 Then RsShow.Close RsShow.Open "select * from TBL_Final1", DB, adOpenKeyset, adLockPessimistic If RsShow.RecordCount > 0 Then Do While Not RsShow.EOF If RsSum.State = 1 Then RsSum.Close RsSum.Open "select ID,tag,TOTAL,result,FINAL,takdeer,iif([result]='راسب',0,(tr1+tr2+tr3+tr4+tr5+tr6)), " _ & " IIf([tr1]<50 And [tr2]<50 And [tr3]<50 And [tr4]<50 And [tr5]<50 And " _ & " [tr6]<50,'راسب',IIf([tr1]<50 Or [tr2]<50 Or [tr3]<50 Or [tr4]<50 Or [tr5]<50 Or [tr6]<50,'راسب','ناجح')), " _ & " IIf([result]='راسب',0,[TOTAL]/600*100), " _ & " IIf([result]='راسب',0,IIf([TOTAL]>=550,'ممتاز',IIf([TOTAL]>500,'جيد جداً',IIf([TOTAL]>400,'جيد',IIf([TOTAL]>300,'مقبول',IIf([TOTAL]<78,'/','/')))))) " _ & " from TBL_Final1 where ID=" & RsShow.Fields(0).Value & " and tag=" & RsShow.Fields(33).Value, DB, adOpenKeyset, adLockPessimistic RsSum.Fields(2).Value = RsSum.Fields(6).Value RsSum.Fields(3).Value = RsSum.Fields(7).Value For I = 0 To 1 RsSum.Fields(4).Value = RsSum.Fields(8).Value * 1 RsSum.Fields(5).Value = RsSum.Fields(9).Value RsSum.Update RsSum.Requery Next RsSum.Update RsSum.Requery RsShow.MoveNext Loop ' End If ' End Sub وهذا هو الكود توجد به مشكلة بعد إضافة جزئية استخراج عدد مواد الرسوب Private Sub Command2_Click() Dim RsSum As New ADODB.Recordset Dim RsShow As New ADODB.Recordset Dim s As String s = "100" If RsShow.State = 1 Then RsShow.Close RsShow.Open "select * from TBL_Final1", DB, adOpenKeyset, adLockPessimistic If RsShow.RecordCount > 0 Then Do While Not RsShow.EOF If RsSum.State = 1 Then RsSum.Close RsSum.Open "select ID,tag,TOTAL,result,FINAL,takdeer,iif([result]='راسب',0,(tr1+tr2+tr3+tr4+tr5+tr6)), " _ & " IIf([tr1]<50 And [tr2]<50 And [tr3]<50 And [tr4]<50 And [tr5]<50 And " _ & " [tr6]<50,'راسب',IIf([tr1]<50 Or [tr2]<50 Or [tr3]<50 Or [tr4]<50 Or [tr5]<50 Or " _ & " [tr6]<50,'راسب','ناجح')),IIf([result]='راسب',0,[TOTAL]/600*100), " _ & " IIf([tr1]>=50,0,1)+IIf([tr2]>=50,0,1)+IIf([tr3]>=50,0,1)+IIf([tr4]>=50,0,1)+IIf([tr5]>=50,0,1)+IIf([tr6]>=50,0,1) AS mcount, IIf([mcount]>3,'راسب',IIf([mcount]<=0,'ناجح',IIf([mcount]<4,'مكمل'))) AS result, " _ & " IIf([result]='راسب',0,IIf([TOTAL]>=550,'ممتاز',IIf([TOTAL]>500,'جيد جداً',IIf([TOTAL]>400,'جيد',IIf([TOTAL]>300,'مقبول',IIf([TOTAL]<78,'/','/')))))) " _ & " from TBL_Final1 where ID=" & RsShow.Fields(0).Value & " and tag=" & RsShow.Fields(33).Value, DB, adOpenKeyset, adLockPessimistic RsSum.Fields(2).Value = RsSum.Fields(6).Value RsSum.Fields(3).Value = RsSum.Fields(7).Value For I = 0 To 1 RsSum.Fields(4).Value = RsSum.Fields(8).Value * 1 RsSum.Fields(5).Value = RsSum.Fields(9).Value RsSum.Update RsSum.Requery Next RsSum.Update RsSum.Requery RsShow.MoveNext Loop ' End If ' End Sub تم تعديل أبريل 6, 2022 بواسطه omran2015 رابط هذا التعليق شارك More sharing options...
omran2015 قام بنشر أبريل 7, 2022 الكاتب مشاركة قام بنشر أبريل 7, 2022 انتظر ردك د. كاف يار رابط هذا التعليق شارك More sharing options...
omran2015 قام بنشر أبريل 9, 2022 الكاتب مشاركة قام بنشر أبريل 9, 2022 تم بحمد الله وفضله حل الإشكالية وجزى الله كل خير من قدم نصيحة أو استشارة فنية رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.