Ứng dụng trắc nghiệm

TRƯỜNG CAO ĐẲNG THỰC HÀNH FPT
BÁO CÁO ASSIGNMENT
Môn : Lập trình cơ bản (SOF101)
Đề tài: Ứng Dụng Trắc Nghiệm
Họ và tên : Đỗ Anh Nội
Lớp : PT0901
MSSV : PA00054
Báo cáo SOF 101
I, Phân tích chức bài toán
1, Mục đích
-Mục đích của bài toán là:
Ứng dụng Trắc nghiệm dành cho tất cả nọi người đều có thể tham gia, dành cho
mọi lứa tuổi học sinh sinh viên và tất cả mọi người.
-Người sử dụng: Chủ yếu là học sinh, và tất cả mọi người có nhu cầu sử dụng.
-Nghiệp vụ sử dụng của từng người
+Quyền Admin:
Quyền của Admin là có thể quản trị Ứng dụng của mình. Có thể them Quiz, xem
quiz và cũng có thể làm quiz
+Quyền User : Đối với quyền User thì chúng ta sử dụng phần mềm để làm bài
Quiz
-Chức năng chính của Ứng dụng:
Làm các câu hỏi trắc nghiệm với 4 phương án lựa chọn : A B C D
Phần mềm này giúp người tham gia có thể trau dồi kiến thức mà mình đã mất hoặc
có thể học thêm các kiến thức mới mà chúng ta chưa biết
Đa số các câu hỏi trắc nghiệm dựa trên các kiến thức về tin học cơ bản
Ứng dụng được xây dựng dựa trên các bài tập Làm Quiz trước mỗi buổi thực hành
của hệ thống LMS
Báo cáo SOF 101
II, Thiết kế giao diện của Ứng Dụng
1,Form đăng nhập
Ở Form đăng nhập thì chia làm 2 loại tài khoản

-Tài khoản người Admin quản lí phần mềm này, có mọi quyền cho phần mềm.
Có thể quản lí quiz của nình gồm có: +Thêm câu hỏi
+Xem danh sách câu hỏi
+Có thể làm quiz
-Tài khoản người sử dụng: Đối với người sử dụng thì phần quyền cho người sử
dụng cho họ chỉ có thể làm quiz chứ không có quyền quản trị nó.
- Giao diện các Form
+Form đăng nhập
Báo cáo SOF 101
+Đăng nhập với tài khoản admin : Có quyền quản kí quiz và làm quiz
Báo cáo SOF 101
+Đăng nhập với tài khoản User thì chúng ta chỉ có 1 quyền đó là sử dụng Ứng
dụng đó :Đó là làm Quiz
2, Form Thêm Quiz
Báo cáo SOF 101
Có chức năng giúp Admin có thể thêm các câu hỏi vào danh sách câu hỏi
Báo cáo SOF 101
3, Form Danh sách Quiz : Giúp Admin có thể xem tất cả các câu hỏi mà mình đã
có trong ngân hàng đề
Báo cáo SOF 101
4,Form làm Quiz : Form này có chức năng hiển thị các câu hỏi và các đáp án giúp
người sử dụng có thể trả lời các câu hỏi trắc nghiệm.
Báo cáo SOF 101
Báo cáo SOF 101
Báo cáo SOF 101
III, Mô tả chi tiết sản phẩm
1, Đăng nhập
Code của Form đăng nhập:
Ở đoạn Code của Form đăng nhập thì:
-Phân quyền cho các tài khoản khi đăng nhập vào Ứng dụng.

-Thông báo nếu tài khoan đăng nhập thành công và báo lỗi nếu đăng nhập không
đúng.
Mô tả khi đăng nhập
Báo cáo SOF 101
Tài khoản Mật khẩu không chính xác
Báo cáo SOF 101
Điền thông tin đầy đủ
Đăng nhập quyền Admin
Báo cáo SOF 101
Đăng nhập quyền User
2, Form Danh sách quiz
Form này quản lí các quyền sau khi ta đăng nhập vào
-Code
Báo cáo SOF 101
Code của Form có tác dụng gọi lên
Các Form mà khi ta click vào các Button
Form Quản lí Quiz
Báo cáo SOF 101
3, Form Thêm quiz
Code Form Thêm Quiz
Báo cáo SOF 101
Ở Form Thêm Quiz chúng ta sẽ tạo các lệnh để thêm các câu hỏi vào và khoảng
cách các câu hỏi và các đáp án với nhau là vbTab
Còn khoảng cách giữa các câu hỏi với nhau là dấu Enter
Nếu chúng khoog nhập thông tin đầy đủ thì sẽ có thông báo
Nếu nhập thiếu thông tin thì sẽ có thông báo
Nếu nhập thông tin chính xác thì sẽ có thông báo nhập thông tin thành công
Báo cáo SOF 101
Nhập thông tin đầy đủ
Báo cáo SOF 101

Báo cáo SOF 101
Nhập thông tin đầy đủ
Báo cáo SOF 101
Thêm câu hỏi thành công
Báo cáo SOF 101
4, Form Danh sách Quiz
-Code của Form
-Câu lệnh này giúp chúng ta có thể đọc danh sách từng dòng hiện câu hỏi lên
Form Danh sách quiz
Báo cáo SOF 101
Form danh sách Quiz giúp cho người đọc có quyền Admin sẽ nhìn thấy list danh
sách câu hỏi của mình dễ dàng.
Giúp dễ quản lí danh sách câu hỏi
5, Form Làm quiz
Form
Báo cáo SOF 101
Code của Form làm Quiz
Imports System.IO
Public Class Lamquiz
Dim F As StreamReader
Dim totalquestion, i As Integer
Dim arrQT() As String
'Khai báo biến lưu điểm
Dim score As Double
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
'Duyệt hộp thoại từ file (hỏi)
Báo cáo SOF 101
Using mofile As New OpenFileDialog
If mofile.ShowDialog = Windows.Forms.DialogResult.OK Then

totalquestion = 0
i = 0
'Hỏi
lblcauhoi.Text = ""
radQ1.Text = ""
radQ2.Text = ""
radQ3.Text = ""
radQ4.Text = ""
btnbatdau.Enabled = True
score = 0
'Gán tên file vào textbox
txtcauhoi.Text = mofile.FileName
Else
MsgBox("Bạn phải chọn file câu hỏi để làm bài", vbCritical + vbOK, "Thông báo")
End If
End Using
'Mở file câu hỏi xem có bao nhiêu câu gán cho từng mảng string (hỏi)
F = New StreamReader(txtcauhoi.Text)
Do While Not F.EndOfStream
arrQT(i) = F.ReadLine ' Gán các câu hỏi trên mỗi dòng vào mảng
i += 1
Loop
totalquestion = i
F.Close() 'Đóng file văn bản
End Sub
Private Sub Lamquiz_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.Load
'Khởi tạo giá trị cho mảng
ReDim arrQT(100) 'Một trăm phần tử
radQ1.Checked = False

radQ2.Checked = False
radQ3.Checked = False
radQ4.Checked = False
lblcauhoi.Text = ""
radQ1.Text = ""
radQ2.Text = ""
radQ3.Text = ""
radQ4.Text = ""
score = 0
Báo cáo SOF 101