نتيجه تست

[amaali20]

با سلام
تستي را برنامه نويسي كرده ام كه اين تست 240 سؤال دارد وهر سوال 5 گزينه دارد و روش نمره گذاري آن به اينصورت است كه بعضي از سؤالها به ترتيب 0-1-2-3-4 و بعضي از سؤالها به ترتيب4-3-2-1-0 نمره گذاري مي شوند و در پايان نمره تست در 30 گروه دسته بندي مي شود كه هر گروه شامل مجموع نمرات 8 سؤال مي باشد.
براي نمره گذاري تست چه كار بايد كنم (چطوري كد نويسي كنم)

[javadt]

مي تونيد با انتخاب هرگزينه از سوال يك متغير رو مقدار بديد و در پايان براي نتيجه گيرير متغير ها رو جمع كنيد

[amaali20]

ببخشيد متوجه منظورتان نشدم
به همين خاطر برنامه را گذاشتم تا اگه ممكنه براي يكي از سؤالات كد هاي مورد نياز نوشته شود
با تشكر

[javadt]

بفرما دوست عزيز من اين راه به ذهنم رسيد
ولي ممكنه راه هاي بهتري هم باشه

[aryasoft2872]

توی Tag هر گزینه می تونی امتیاز هر کدوم رو بزاری بعدش اونارو بخونی...

[amaali20]

توی Tag هر گزینه می تونی امتیاز هر کدوم رو بزاری بعدش اونارو بخونی...

اگه ممكنه يك نمونه بنويسيد تا ببينم چطوري بايد نوشت
با تشكر

[aryasoft2872]

من فکر کردم از بانکی چیزی استفاده کردی ولی اگه اینطوریه که ساده است:


Dim emtiaz As Integer
Private Sub Cmd1_Click()
emtiaz = 0
For i = 0 To 240
If OptKMKH(i).Value = True Then emtiaz = emtiaz - 2
If OptMKH(i).Value = True Then emtiaz = emtiaz - 1
If Optbi(i).Value = True Then emtiaz = emtiaz - 0
If OptM(i).Value = True Then emtiaz = emtiaz + 1
If OptKM(i).Value = True Then emtiaz = emtiaz + 2
Next
MsgBox emtiaz
End Sub

[amaali20]

[quote=aryasoft2872;963401]من فکر کردم از بانکی چیزی استفاده کردی ولی اگه اینطوریه که ساده است:

توي فرم 2 دكمه ذخيره گذاشته ام كه با كليك روي آن اطلاعات توي بانك ذخيره مي شود

مشكل بعدي اينه كه بعضي از سؤالها نمره برعكس ميگيرند
مثلاً n1 شامل سؤالهاي 1 و 31 و 61 و 91 و 121و151و 181و211 مي شود كه توي اين گروه(n1) سؤالهاي1و61و121و181 به ترتيب 4و3و2و1و0 نمره مي گيرند و سؤالهاي 31 و 91 و151 و211 به ترتيب 0و1و2و3و4 يعني برعكس نمره مي گيرند و نتيجه توي تكست n1 در فرم 2 نشون داده ميشه و بعد از فرم 2 توي بانك ذخيره ميشه.

در ضمن برنامه اصلاح كردم و ضميمه كردم
ميخوام جوري باشه كه نخواد كد زيادي نوشت
اگه راه ذيگه اي داره لطفا راهنمايي كنيد