[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#

Các điều hành viên: tungcan5diop, QUANITGROBEST

Nội quy chuyên mục
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]
Đăng trả lời
Hình đại diện của thành viên
Kasper
Guru
Guru
Bài viết: 1063
Ngày tham gia: Thứ 6 16/05/2008 10:54 am
Has thanked: 2 times
Been thanked: 76 times
Tiếp xúc:

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

Gửi bài 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:

Mã: Chọn tất cả

 ' Clear trước khi bắt đầu một câu hỏi mớiSTestTable1.Clear()' 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ỏiSTestTable1.MultiChoice = True STestTable1.Question = 'Câu hỏi của bạn'STestTable1.Answer(0) = 'Câu trả lời thứ 1'STestTable1.Answer(1) = 'Câu trả lời thứ 2'.......STestTable1.Answer(4) = 'Câu trả lời thứ 5'' Đáp án, set cho mỗi đáp án, ví dụ đáp án là câu trả lời thứ thứ 3 và 5STestTable1.Result(2) = TrueSTestTable1.Result(4) = True ' Kiểm tra kết quảIf STestTable1.CheckResult Then        MessageBox.Show("Xin chúc mừng! Bạn thật là tài giỏi")Else        MessageBox.Show("Rất tiếc bạn à! Hãy cố gắng lên nhé")End If ' Theo dõi user click vào câu trả lời nào, code ở sự kiện STestTable1_AnswerChoicedPrivate Sub STestTable1_AnswerChoiced(ByVal sender As Object, ByVal e As SIVCControl.STestTable.ChoicedEventArgs) Handles STestTable1.AnswerChoiced        MessageBox.Show("Bạn vừa click đáp án: " & Chr(e.Value + 65))End Sub ' Đối với câu hỏi và câu trả lời có hình ảnh, ta làm như sau:' Set Image alignSTestTable1.QuestionImageAlign = SIVCControl.STestTable.QIAlign.TopRightSTestTable1.QuestionImage = PictureBox1.Image For i = 0 To 4       STestTable1.Answer(i) = "Hình " & Chr(65 + i)       STestTable1.AnswerImage(i) = ImageList2.Images.Item(i)Next 
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
Tập tin đính kèm
WindowsApplication1.zip
(240.87 KiB) Đã tải về 2349 lần
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
Bài viết: 29
Ngày tham gia: Thứ 4 01/10/2008 7:13 am

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

Gửi bài by yeuvbnet »

Cám ơn bạn nhiều nha.
nguyentoanhp
Bài viết: 9
Ngày tham gia: Chủ nhật 23/11/2008 4:35 pm

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

Gửi bài 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
Hình đại diện của thành viên
Kasper
Guru
Guru
Bài viết: 1063
Ngày tham gia: Thứ 6 16/05/2008 10:54 am
Has thanked: 2 times
Been thanked: 76 times
Tiếp xúc:

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

Gửi bài by Kasper »

nguyentoanhp đã viết: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
Bài viết: 29
Ngày tham gia: Thứ 4 01/10/2008 7:13 am

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

Gửi bài 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.
Hình đại diện của thành viên
Kasper
Guru
Guru
Bài viết: 1063
Ngày tham gia: Thứ 6 16/05/2008 10:54 am
Has thanked: 2 times
Been thanked: 76 times
Tiếp xúc:

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

Gửi bài by Kasper »

yeuvbnet đã viết: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, ...

Mã: Chọn tất cả

 STestTable1.AnswerValue(2) = True 
Lành tợ tòng, ác tợ hoa,
Nhà hòa muôn việc đều nên.
thanhthanh009
Bài viết: 3
Ngày tham gia: Thứ 6 03/04/2009 3:41 pm

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

Gửi bài by thanhthanh009 »

cảm ơn nhé
hoang_yel
Bài viết: 1
Ngày tham gia: Thứ 7 24/10/2009 1:41 pm

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

Gửi bài 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!
Hình đại diện của thành viên
nhutwarn1998
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 87
Ngày tham gia: Thứ 4 09/02/2011 9:48 pm
Has thanked: 1 time

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

Gửi bài 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
Đăng trả lời

Quay về