مشکل در ساخت برنامه تست 4 گزینه ای

[mostafaHD 44]

سلام.یه برنامه با استفاده از سورس های مختلف نوشتم اما مشکل اینه که فقط دو سوال اول رو نشون میده و میخوام تعداد سوالات باقیمانده رو هم نشون بده

سورس رو اپلود کردم.کمکم کنید ممنونم.

http://s6.picofile.com/file/8180559684/Quiz.rar.html

[mostafaHD 44]

خطا میده:

Sub btn_start_click
Activity.RemoveAllViews
Activity.LoadLayout("main")

Dim cr As Cursor
Try
cr= SQL.ExecQuery("SELECT * FROM quiz")

       cr.Position = 0
   lbl_soal.text = (cr.GetString("soal"))
   rad1.Text = (cr.GetString("javab1"))
   rad2.Text = (cr.GetString("javab2"))
   rad3.Text = (cr.GetString("javab3"))
   rad4.Text = (cr.GetString("javab4"))
   lbl_javab.Text = (cr.GetString("true"))
   Catch
   Msgbox(LastException.Message,"")
End Try
If lbl_javab.Text = rad1.Text Then score=score+1
Else If lbl_javab.Text = rad2.Text Then score=score+1
Else If lbl_javab.Text = rad3.Text Then score=score+1
Else If lbl_javab.Text = rad4.Text Then score=score+1

End Sub
Sub btn_next_click
Dim cr As Cursor
Try
cr= SQL.ExecQuery("SELECT * FROM quiz")
 If tedad <= 6 Then
       cr.Position = tedad
   lbl_soal.text = (cr.GetString("soal"))
   rad1.Text = (cr.GetString("javab1"))
   rad2.Text = (cr.GetString("javab2"))
   rad3.Text = (cr.GetString("javab3"))
   rad4.Text = (cr.GetString("javab4"))
   lbl_javab.Text = (cr.GetString("true"))
   End If
cr.Close
Catch 

End Try
If lbl_javab.Text = rad1.Text Then score=score+1
Else If lbl_javab.Text = rad2.Text Then score=score+1
Else If lbl_javab.Text = rad3.Text Then score=score+1
Else If lbl_javab.Text = rad4.Text Then score=score+1
Msgbox(score,"امتیاز شما:")
tedad = tedad +1
End Sub

[mostafaHD 44]

دوستان کس دیگه ای نبود؟

[farshid_king_r 12]

دوستان کس دیگه ای نبود؟

سلام

طبق اخرین سورسی که گذاشتین :

شما دکمه ای برای ثبت جواب نذاشتین ! ، شما فرض کنین کاربر جواب رو به اشتباه انتخاب کرد و بعد هم خواست عوضش کنه

--

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

If rad1.Checked=True Then
If lbl_javab.Text = rad1.Text Then
score=score+1
End If

یعنی : checked=True

[mostafaHD 44]

آقا فرشید ممنونم از جوابتون. مگه دکمه btn_next که میره سوال بعد کار ثبت جواب رو انجام نمیده؟ یا شاید من منظور شما رو متوجه نشدم؟

[farshid_king_r 12]

شما اون قسمتی رو که گفتم درست کن>>>

  .Checked=True Then 

اگه مشکلی داشتی اعلام کن دوست من

موفق باشی *like*

[ham3da 24]

من در زمینه تست چهار گزینه و کوتاه پاسخ زیاد کار کردم هم اندروید و هم تحت وب و تحت ویندوز

بهترین روش برای چهار گزینه ای اینا هست:

- ایجاد دیتابیس و تعریف یک جدول برای ذخیره سوالات

- جدول باید شامل این فیلیدها باشه: فیلد سوال، گزینه 1 ، گزینه 2 ، گزینه 3 ، گزینه 4، شماره گزینه درست

- حالا بریم سراغ نرم افزارمون:

در شروع آزمون شما باید تعداد سوالات رو از دیتابیس بگیری تا بر اساس ان دکمه های بعدی و قبلی رو تنظیم کنی

برای فراخوانی سوالات هم که روش ها متفاوته و به سلیقه بستگی داره

- اما برای ذخیره پاسخ های داده شده توسط کاربر شما باید به هر گزینه یک شماره اختصاص بدی مثلاً گزینه یک شماره 1 باشه و گزینه 4 شماره 4 و شماره گزینه ها رو بریزی توی یک آرایه یا List با این کار به راحتی می تونی در هنگام جابه جایی بین سوالات به گزینه علامت زده شده دسترسی داشته باشی

- بعد وقتی کاربر دکمه تصحیح رو می زنه بیای و از لیست شماره گزینه ها رو بگیری و با گزینه های صحیح موجود در دیتابیس مقایسه کنی و نمره بدی. که اینم روش خودش رو داره و سلیقه ای هست من خودم روشم اینه که اول گزینه های صحیح رو از دیتابیس می گیرم و می ریزم در یک List و بعد با یک آرایه دو تا لیست موجود رو با هم مقایسه می کنم

[mostafaHD 44]

سلام. حالا مشکل امتیاز دهی دارم.6 تا سوال هست هر 6 تا رو درست هم جواب بدیم کلا 2 امتیاز میده... کمک!!!!!

http://s4.picofile.com/file/8182956400/Quiz.zip.html

[mostafaHD 44]

اقای آرتا شما که جواب دادید اینشم بگو دیگه...

[mostafaHD 44]

یعنی واقعا کسی نبود ؟؟؟؟*monkey*

[mostafaHD 44]

کسی بلد نیست یا کسی جواب نمیده؟*monkey*

[Farzad Musavi 576]

سلام. حالا مشکل امتیاز دهی دارم.6 تا سوال هست هر 6 تا رو درست هم جواب بدیم کلا 2 امتیاز میده... کمک!!!!!

http://s4.picofile.com/file/8182956400/Quiz.zip.html

بازم کسی نیست؟*monkey*

کسی بلد نیست یا کسی جواب نمیده؟*monkey*

کد هاتو بررسی کن ببین کجا اشتباه کردی

برای بار چندم میگم اینجا فقط برا راهنمایی هس نه انجام پروژه

در ضمن تا دادن پاسخ اسپم دادن خلاف قوانین سایته

رعایت کنید وگرنه محروم میشین

[mostafaHD 44]

بازم کسی نیست؟*monkey*

[mostafaHD 44]

بعد از 24 ساعت کسی مشکل منو بلد نبود؟؟؟؟

[mostafaHD 44]

اقا یکی کمکم نمیکنه؟ گیر کردم.هر کاری میکنم نمیشه...

http://s6.picofile.com/file/8181184492/Quiz.zip.html

[مجید آرتا 5,875]

سورستون اصن عجیب غریبه *fekr* بزارید واستون یک حرکتی میزنم توی سورستون *badboys*

[مجید آرتا 5,875]

سلام

اصلا کدی که نوشتید سرو تهش مشخص نبود.

کد امتیاز دهی که کلا اشتباه بود پاک کردم

بعدش واسه ساخت همچین برنامه هایی اطلاعات رو با حلقه از دیتابیس نمی گیرن دیگه.من فقط اون مشکلی که داشتی رو برات درست کردم امتیازدهیش پای خودت.

Quiz.rar

[مجید آرتا 5,875]

فعلا بنده دستم بنده اگه فرصت کنم کمکتون میکنم

[mostafaHD 44]

اقا مجید خدا خیرت بده.تو امتیاز دهی هم گیر کردم.باید از if استفاده کنم؟

[مجید آرتا 5,875]

خب خودتون توجه کنید شما فقط یک گزینه درست دارید خب شرط بزار که اگه رادیو باتن 2 که جواب درسته ( فرض می کنیم ) بیا یکی به Score اضافه کن و در غیر این صورت یکی ازش کم کن یا اینکه امتیازی به score اضافه نکن و برو سوال بعدی همین.

ببینید اول قشنگ روش فکر کنید که چی میخواد و به چه شکل باید عمل کنید بعد کدشو بنویسید