[VB.NET] Control hỗ trợ làm soft trắc nghiệm

Bộ sưu tập các thư viện hỗ trợ sẳn cho Visual Basic .NET và C#

Moderators: tungcan5diop, QUANITGROBEST

Forum rules
1. Gửi bài viết tại đây, Tester sẽ chuyển vào trong nếu bài viết đạt yêu cầu.
2. Gửi bài theo mẫu qui định: viewtopic.php?f=2&t=5
[ten][/ten]
[loai][/loai]
[ngonngu][/ngonngu]
[tacgia][/tacgia]
[chucnang][/chucnang]
[end][/end]
Post Reply
User avatar
Kasper
Guru
Guru
Posts: 1063
Joined: Fri 16/05/2008 10:54 am
Has thanked: 2 times
Been thanked: 76 times
Contact:

[VB.NET] Control hỗ trợ làm soft trắc nghiệm

Post by Kasper »

Tên: STestTable
Loại: User Control
Ngôn ngữ lập trình: VB.NET
Tác giả: Kasper
Chức năng: Control hỗ trợ làm soft trắc nghiệm



Phiên bản 1.0. Các bạn đóng góp để hoàn thiện hơn :D
Các chức năng chính:
- Hỗ trợ 2-5 câu trả lời.
- Hỗ trợ câu hỏi và đáp án có hình ảnh.
- Hỗ trợ câu hỏi có nhiều đáp án.
- Và một số hỗ trợ khác.
- Chưa hỗ trợ DataTable -> đưa vào trong phiên bản sau. :D

Hướng dẫn sử dụng: Trong source mẫu đã chi tiết cách sử dụng, cơ bản như sau:

Code: Select all

  1.  
  2. ' Clear trước khi bắt đầu một câu hỏi mới
  3. STestTable1.Clear()
  4. ' Nếu là câu hỏi có nhiều đáp án, set thuộc tính này trước khi set câu hỏi
  5. STestTable1.MultiChoice = True
  6.  
  7. STestTable1.Question = 'Câu hỏi của bạn'
  8. STestTable1.Answer(0) = 'Câu trả lời thứ 1'
  9. STestTable1.Answer(1) = 'Câu trả lời thứ 2'
  10. .......
  11. STestTable1.Answer(4) = 'Câu trả lời thứ 5'
  12. ' Đáp án, set cho mỗi đáp án, ví dụ đáp án là câu trả lời thứ thứ 3 và 5
  13. STestTable1.Result(2) = True
  14. STestTable1.Result(4) = True
  15.  
  16. ' Kiểm tra kết quả
  17. If STestTable1.CheckResult Then
  18.         MessageBox.Show("Xin chúc mừng! Bạn thật là tài giỏi")
  19. Else
  20.         MessageBox.Show("Rất tiếc bạn à! Hãy cố gắng lên nhé")
  21. End If
  22.  
  23. ' Theo dõi user click vào câu trả lời nào, code ở sự kiện STestTable1_AnswerChoiced
  24. Private Sub STestTable1_AnswerChoiced(ByVal sender As Object, ByVal e As SIVCControl.STestTable.ChoicedEventArgs) Handles STestTable1.AnswerChoiced
  25.         MessageBox.Show("Bạn vừa click đáp án: " & Chr(e.Value + 65))
  26. End Sub
  27.  
  28. ' Đối với câu hỏi và câu trả lời có hình ảnh, ta làm như sau:
  29. ' Set Image align
  30. STestTable1.QuestionImageAlign = SIVCControl.STestTable.QIAlign.TopRight
  31. STestTable1.QuestionImage = PictureBox1.Image
  32.  
  33. For i = 0 To 4
  34.        STestTable1.Answer(i) = "Hình " & Chr(65 + i)
  35.        STestTable1.AnswerImage(i) = ImageList2.Images.Item(i)
  36. Next
  37.  


Ngoài ra trong bộ control còn có một vài cái khác, như SDownClock -> đồng hồ đếm ngược, dùng để hiển thị giờ làm bài. :D
Attachments
WindowsApplication1.zip
(240.87 KiB) Downloaded 2334 times
STest.PNG
Lành tợ tòng, ác tợ hoa,
Nhà hòa muôn việc đều nên.
yeuvbnet
Thành viên chính thức
Thành viên chính thức
Posts: 29
Joined: Wed 01/10/2008 7:13 am

Re: [VB.NET] Control hỗ trợ làm soft trắc nghiệm

Post by yeuvbnet »

Cám ơn bạn nhiều nha.
nguyentoanhp
Posts: 9
Joined: Sun 23/11/2008 4:35 pm

Re: [VB.NET] Control hỗ trợ làm soft trắc nghiệm

Post by nguyentoanhp »

Cho mình hỏi 1 chút Kasper ơi! Ứng dụng bạn demo từng câu hỏi tương ứng vơi mỗi button. Vậy nếu mình muốn tạo 1 form trắc nghiệm gồm nhiều câu hỏi và dùng các button Next và Back để chuyển câu hỏi trong 1 form thì làm thế nào :D
User avatar
Kasper
Guru
Guru
Posts: 1063
Joined: Fri 16/05/2008 10:54 am
Has thanked: 2 times
Been thanked: 76 times
Contact:

Re: [VB.NET] Control hỗ trợ làm soft trắc nghiệm

Post by Kasper »

nguyentoanhp wrote:Cho mình hỏi 1 chút Kasper ơi! Ứng dụng bạn demo từng câu hỏi tương ứng vơi mỗi button. Vậy nếu mình muốn tạo 1 form trắc nghiệm gồm nhiều câu hỏi và dùng các button Next và Back để chuyển câu hỏi trong 1 form thì làm thế nào :D


Thường thì câu hỏi trắc nghiệm lưu trong database đúng không, bạn fill nó vào một datatable rồi xử lý thôi. Ban đầu cho Index là 0 rồi gán giá trị vào STestPanel. Nếu người dùng nhấn Next thì tăng Index lên và lại gán giá trị vào STestPanel.

Tóm lại nhé:
- Fill một DataTable
- Khi user nhấn Next or Back thì Index += 1 or -=1
- STestPanel.Question = DataTable. ; STestPanel.Answer(0) = ......

Hiện nay tôi đang phát triển cái control này hỗ trợ DataTable. Nếu hoàn chỉnh phần này, bạn chỉ cần gán STestPanel.DataSource = datatable là xong. Sẽ hỗ trợ 4 thuộc tính mới là Next, Back, First, Last. Khi đó rất dễ dàng sử dụng, chỉ cần STestPanel.Next, STestPanel.Back :D

Hi vọng sẽ sớm update version 1.1 :D
Lành tợ tòng, ác tợ hoa,
Nhà hòa muôn việc đều nên.
yeuvbnet
Thành viên chính thức
Thành viên chính thức
Posts: 29
Joined: Wed 01/10/2008 7:13 am

Re: [VB.NET] Control hỗ trợ làm soft trắc nghiệm

Post by yeuvbnet »

Chào bạn Kasper, cho mình hỏi chút. Trường hợp mình muốn khi user click chọn lại câu hỏi đã làm. thì phần đáp án sẽ được chọn như user chọn lúc đầu. Mình đã gán các đáp án đã chọn của user vào mãng nhưng không biết làm thế nào để check vào phần đáp án mà user đã chọn lúc đầu, vì khi quay lại câu cũ đã làm thì các đáp án đều không được check. Mong bạn giúp đỡ. Cám ơn bạn.
User avatar
Kasper
Guru
Guru
Posts: 1063
Joined: Fri 16/05/2008 10:54 am
Has thanked: 2 times
Been thanked: 76 times
Contact:

Re: [VB.NET] Control hỗ trợ làm soft trắc nghiệm

Post by Kasper »

yeuvbnet wrote:Chào bạn Kasper, cho mình hỏi chút. Trường hợp mình muốn khi user click chọn lại câu hỏi đã làm. thì phần đáp án sẽ được chọn như user chọn lúc đầu. Mình đã gán các đáp án đã chọn của user vào mãng nhưng không biết làm thế nào để check vào phần đáp án mà user đã chọn lúc đầu, vì khi quay lại câu cũ đã làm thì các đáp án đều không được check. Mong bạn giúp đỡ. Cám ơn bạn.


Bạn sử dụng thuộc tính này để set lại câu trả lời mà user đã chọn nha. Còn cách để lưu lại câu đã chọn của user như thế nào thì mình nghĩ có nhiều cách, khai báo mảng chẳng hạn, ...

Code: Select all

  1.  
  2. STestTable1.AnswerValue(2) = True
  3.  
Lành tợ tòng, ác tợ hoa,
Nhà hòa muôn việc đều nên.
thanhthanh009
Posts: 3
Joined: Fri 03/04/2009 3:41 pm

Re: [VB.NET] Control hỗ trợ làm soft trắc nghiệm

Post by thanhthanh009 »

cảm ơn nhé
hoang_yel
Posts: 1
Joined: Sat 24/10/2009 1:41 pm

Re: [VB.NET] Control hỗ trợ làm soft trắc nghiệm

Post by hoang_yel »

em đang tìm code khóa desktop của máy trạm trong vb6, anh chị nào biết chỉ giùm em cảm ơn nhiều!
User avatar
nhutwarn1998
Thành viên năng nổ
Thành viên năng nổ
Posts: 87
Joined: Wed 09/02/2011 9:48 pm
Has thanked: 1 time

Re: [VB.NET] Control hỗ trợ làm soft trắc nghiệm

Post by nhutwarn1998 »

Trên cả tuyê.t vời. Ver 1 này chắc xài text data dễ hơn xài csdl
Post Reply

Return to “[.NET] Module, Class, UserControl, DLL”