Biểu Đồ Phân Cấp Chức Năng

Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp
Trắc nghiệm
Hướng Dẫn
Giải Trí
Toán Học
Vật Lý
Văn Học
Lịch Sử
Game
Ca nhạc
Thoát
I. Biểu Đồ Phân Cấp Chức Năng.
Hinh 1: Bieu do phan cap chuc nang
II. Bieu do luong du lieu
Các biểu đồ luồng dữ liệu có tác động mô tả sự hoạt động của hệ thống
Chú thích

có trao đổi thông tin với hệ thống.
Chức năng xử lý làm biến đổi thông tin.
Luồng dữ liệu vào hay ra của hệ thống
Nơi lưu trữ thông tin cần cho hệ thống.
1. Biểu đồ luồng dữ liệu mức khung cảnh.
Thể hiện chức năng tổng thể, các luồng thông tin vào, mối quan hệ của hệ
thống với tác nhân ngoài.
Văn học
Người dùng
Vật lý
Kết quả trắc nghiệm
Toán học
Lịch sử
Hướng dẫn

1
Nguyễn Thị Quý SBD 238
1
Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp
2
Nguyễn Thị Quý SBD 238
Người dùng
file hướng dẫn
2
Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp
Giao Diện Form Frmchinh
Code Form frmchinh
Private Sub dabong_Click()
Dim g
g = Shell("Chinh phuc ai tinh.exe", vbNormalFocus)
3
Nguyễn Thị Quý SBD 238
3
Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp
End Sub
Private Sub gt_Click()
Dim g
g = Shell("Tinh xin chang phai.exe", vbNormalFocus)
End Sub
Private Sub mnuhd_Click()
frmhuongdan.Show
frmchinh.Hide
End Sub
Private Sub mnuly_Click()
frmvatly.Show

frmchinh.Hide
End Sub
Private Sub mnusu_Click()
frmlichsu.Show
frmchinh.Hide
End Sub
Private Sub mnuthoat_Click()
End
End Sub
Private Sub mnutinh_Click()
Dim a
a = Shell(" calc.exe", vbNormalFocus)
End Sub
4
Nguyễn Thị Quý SBD 238
4
Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp
Private Sub mnutoan_Click()
Frmtoan.Show
frmchinh.Hide
End Sub
Private Sub mnuvan_Click()
frmvanhoc.Show
frmchinh.Hide
End Sub
Private Sub mnuve_Click()
Dim a
a = Shell("paint.exe", vbNormalFocus)
End Sub
Private Sub ol_Click()

Dim g
g = Shell("Xa vang.exe", vbNormalFocus)
End Sub
Private Sub quasong_Click()
Dim g
g = Shell("picachu_2005.exe", vbNormalFocus)
End Sub
Private Sub Timer1_Timer()
Dim x As String
Dim y As String
5
Nguyễn Thị Quý SBD 238
5
Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp
x = Left(frmchinh.Caption, 1)
y = Right(frmchinh.Caption, Len(frmchinh.Caption) - 1)
frmchinh.Caption = y + x
End Sub
Màn hình Form FrmToán
Code Form FrmToán
Private Sub cmdlai_Click()
If optchon(0).Value Then
ketqua(lt) = "A"
End If
If optchon(1).Value Then
ketqua(lt) = "B"
6
Nguyễn Thị Quý SBD 238
6
Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp

End If
If optchon(2).Value Then
ketqua(lt) = "C"
End If
If optchon(3).Value Then
ketqua(lt) = "D"
End If
If lt > 1 Then
lt = lt - 1
Else
MsgBox ("Day la cau dau tien.")
Beep
End If
Lbl2(0).Caption = "C©u " & CStr(lt) & ":"
Lbl2(1).Caption = cau(cauhoi(lt), 1)
Lbl2(2).Caption = cau(cauhoi(lt), 2)
Lbl2(3).Caption = cau(cauhoi(lt), 3)
Lbl2(4).Caption = cau(cauhoi(lt), 4)
Lbl2(5).Caption = cau(cauhoi(lt), 5)
Select Case ketqua(lt)
Case "A": optchon(0).Value = True
Case "B": optchon(1).Value = True
Case "C": optchon(2).Value = True
Case "D": optchon(3).Value = True
Case Else:
optchon(0).Value = False
optchon(1).Value = False
optchon(2).Value = False
optchon(3).Value = False
7

Nguyễn Thị Quý SBD 238
7
Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp
End Select
End Sub
Private Sub Form_Activate()
If tn = 1 Then
frmchinh.Show
Unload Me
End If
ten = InputBox("Nhap ten cua ban :", "THONG BAO ")
End Sub
Private Sub Form_Load()
Dim cdr As Integer
socau = 15
tn = 0
dem = 0
If Dir(App.Path & "\csdl\toan.txt") = "" Then
tn = 1
Exit Sub
End If
Open App.Path & "\csdl\toan.txt" For Input As 1
cdr = 0
Do Until EOF(1)
cdr = cdr + 1
If cdr > socau Then
Exit Do
End If
For i = 1 To 6
Line Input #1, s

8
Nguyễn Thị Quý SBD 238
8
Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp
cau(cdr, i) = s
Next i
Loop
Close #1
Randomize
i = 1
Do While i <= 5
cauhoi(i) = 0
cc = Int(Rnd * socau) + 1
nd = 0
For j = 1 To i - 1
If cauhoi(j) = cc Then
nd = 1
End If
Next j
If nd <> 1 Then
cauhoi(i) = cc
ketqua(i) = ""
i = i + 1
End If
Loop
diem = 0
lt = 1
Lbl2(0).Caption = "C©u " & CStr(lt) & ":"
Lbl2(1).Caption = cau(cauhoi(lt), 1)
Lbl2(2).Caption = cau(cauhoi(lt), 2)

Lbl2(3).Caption = cau(cauhoi(lt), 3)
Lbl2(4).Caption = cau(cauhoi(lt), 4)
Lbl2(5).Caption = cau(cauhoi(lt), 5)
9
Nguyễn Thị Quý SBD 238
9
Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp
Select Case ketqua(lt)
Case "A": optchon(0).Value = True
Case "B": optchon(1).Value = True
Case "C": optchon(2).Value = True
Case "D": optchon(3).Value = True
Case Else
optchon(0).Value = False
optchon(1).Value = False
optchon(2).Value = False
optchon(3).Value = False
End Select
End Sub
Private Sub Optchon_Click(Index As Integer)
Select Case Index
Case 0: ketqua(lt) = "A"
Case 1: ketqua(lt) = "B"
Case 2: ketqua(lt) = "C"
Case 3: ketqua(lt) = "D"
End Select
End Sub
Private Sub Timer1_Timer()
dem = dem + 1
If dem >= 2 Then

Call cmdkq_Click
End If
End Sub
10
Nguyễn Thị Quý SBD 238
10
Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp
Private Sub Timer2_Timer()
Dim x As String
Dim y As String
x = Left(Label1.Caption, 1)
y = Right(Label1.Caption, Len(Label1.Caption) - 1)
Label1.Caption = y + x
End Sub
Màn hình Form FrmVậtlý
Code Form FrmVậtlý
11
Nguyễn Thị Quý SBD 238
11
Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp
Option Explicit
Option Base 1
Dim cau(15, 6) As String
Dim cauhoi(5) As Byte
Dim ketqua(10) As String * 1
Dim tn, nd
Dim s As String
Dim i, j, dem As Integer
Dim lt, cc, diem, socau As Integer
Dim ten

Private Sub cmdkq_Click()
For i = 1 To 5
If ketqua(i) = UCase(cau(cauhoi(i), 6)) Then
diem = diem + 2
End If
Next i
Open App.Path & "\ket qua\ketqua" & CStr(Hour(Time)) &
CStr(Minute(Time)) & ".txt" For Output As 2
Print #2, ten
Print #2, "So diem cua ban la: " & CStr(diem)
Print #2, CStr(Hour(Time)) & ":" & CStr(Minute(Time)) & ":" &
CStr(Second(Time))
Print #2, CStr(Date)
Close #2
MsgBox "So diem cua ban la:" & CStr(diem) & Chr(13) & Chr(10) & "Nhan
OK de ket thuc."
12
Nguyễn Thị Quý SBD 238
12
Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp
frmchinh.Show
Unload Me
End Sub
Private Sub cmdtiep_Click()
If optchon(0).Value Then
ketqua(lt) = "A"
End If
If optchon(1).Value Then
ketqua(lt) = "B"
End If

If optchon(2).Value Then
ketqua(lt) = "C"
End If
If optchon(3).Value Then
ketqua(lt) = "D"
End If
If (optchon(0).Value = False) And (optchon(1).Value = False) And
(optchon(2).Value = False) And (optchon(3).Value = False) Then
MsgBox ("Ban chua chon cau tra loi")
Beep
End If
If lt < 5 Then
lt = lt + 1
Else
MsgBox ("Day la cau cuoi cung.")
Beep
End If
Lbl2(0).Caption = "C©u " & CStr(lt) & ":"
13
Nguyễn Thị Quý SBD 238
13
Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp
Lbl2(1).Caption = cau(cauhoi(lt), 1)
Lbl2(2).Caption = cau(cauhoi(lt), 2)
Lbl2(3).Caption = cau(cauhoi(lt), 3)
Lbl2(4).Caption = cau(cauhoi(lt), 4)
Lbl2(5).Caption = cau(cauhoi(lt), 5)
Select Case ketqua(lt)
Case "A": optchon(0).Value = True
Case "B": optchon(1).Value = True

Case "C": optchon(2).Value = True
Case "D": optchon(3).Value = True
Case Else:
optchon(0).Value = False
optchon(1).Value = False
optchon(2).Value = False
optchon(3).Value = False
End Select
End Sub
Private Sub cmdlai_Click()
If optchon(0).Value Then
ketqua(lt) = "A"
End If
If optchon(1).Value Then
ketqua(lt) = "B"
End If
If optchon(2).Value Then
ketqua(lt) = "C"
End If
If optchon(3).Value Then
14
Nguyễn Thị Quý SBD 238
14
Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp
ketqua(lt) = "D"
End If
If lt > 1 Then
lt = lt - 1
Else
MsgBox ("Day la cau dau tien.")

Beep
End If
Lbl2(0).Caption = "C©u " & CStr(lt) & ":"
Lbl2(1).Caption = cau(cauhoi(lt), 1)
Lbl2(2).Caption = cau(cauhoi(lt), 2)
Lbl2(3).Caption = cau(cauhoi(lt), 3)
Lbl2(4).Caption = cau(cauhoi(lt), 4)
Lbl2(5).Caption = cau(cauhoi(lt), 5)
Select Case ketqua(lt)
Case "A": optchon(0).Value = True
Case "B": optchon(1).Value = True
Case "C": optchon(2).Value = True
Case "D": optchon(3).Value = True
Case Else:
optchon(0).Value = False
optchon(1).Value = False
optchon(2).Value = False
optchon(3).Value = False
End Select
End Sub
Private Sub Form_Activate()
If tn = 1 Then
15
Nguyễn Thị Quý SBD 238
15
Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp
frmchinh.Show
Unload Me
End If
ten = InputBox("Nhap ten cua ban :", "THONG BAO ")

End Sub
Private Sub Form_Load()
Dim cdr As Integer
socau = 15
tn = 0
dem = 0
If Dir(App.Path & "\csdl\vatly.txt") = "" Then
tn = 1
Exit Sub
End If
Open App.Path & "\csdl\vatly.txt" For Input As 1
cdr = 0
Do Until EOF(1)
cdr = cdr + 1
If cdr > socau Then
Exit Do
End If
For i = 1 To 6
Line Input #1, s
cau(cdr, i) = s
Next i
Loop
Close #1
Randomize
16
Nguyễn Thị Quý SBD 238
16
Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp
i = 1
Do While i <= 5

cauhoi(i) = 0
cc = Int(Rnd * socau) + 1
nd = 0
For j = 1 To i - 1
If cauhoi(j) = cc Then
nd = 1
End If
Next j
If nd <> 1 Then
cauhoi(i) = cc
ketqua(i) = ""
i = i + 1
End If
Loop
diem = 0
lt = 1
Lbl2(0).Caption = "C©u " & CStr(lt) & ":"
Lbl2(1).Caption = cau(cauhoi(lt), 1)
Lbl2(2).Caption = cau(cauhoi(lt), 2)
Lbl2(3).Caption = cau(cauhoi(lt), 3)
Lbl2(4).Caption = cau(cauhoi(lt), 4)
Lbl2(5).Caption = cau(cauhoi(lt), 5)
Select Case ketqua(lt)
Case "A": optchon(0).Value = True
Case "B": optchon(1).Value = True
Case "C": optchon(2).Value = True
Case "D": optchon(3).Value = True
17
Nguyễn Thị Quý SBD 238
17

Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp
Case Else
optchon(0).Value = False
optchon(1).Value = False
optchon(2).Value = False
optchon(3).Value = False
End Select
End Sub
Private Sub Optchon_Click(Index As Integer)
Select Case Index
Case 0: ketqua(lt) = "A"
Case 1: ketqua(lt) = "B"
Case 2: ketqua(lt) = "C"
Case 3: ketqua(lt) = "D"
End Select
End Sub
Private Sub Timer1_Timer()
dem = dem + 1
If dem >= 2 Then
Call cmdkq_Click
End If
End Sub
Private Sub Timer2_Timer()
Dim x As String
Dim y As String
x = Left(Label1.Caption, 1)
18
Nguyễn Thị Quý SBD 238
18
Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp

y = Right(Label1.Caption, Len(Label1.Caption) - 1)
Label1.Caption = y + x
End Sub
Màn hình Form FrmVănhọc
Code Form FrmVănhọc
Option Explicit
Option Base 1
Dim cau(15, 6) As String
Dim cauhoi(5) As Byte
19
Nguyễn Thị Quý SBD 238
19
Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp
Dim ketqua(10) As String * 1
Dim tn, nd
Dim s As String
Dim i, j, dem As Integer
Dim lt, cc, diem, socau As Integer
Dim ten
Private Sub cmdkq_Click()
For i = 1 To 5
If ketqua(i) = UCase(cau(cauhoi(i), 6)) Then
diem = diem + 2
End If
Next i
Open App.Path & "\ket qua\ketqua" & CStr(Hour(Time)) &
CStr(Minute(Time)) & ".txt" For Output As 2
Print #2, ten
Print #2, "So diem cua ban la: " & CStr(diem)
Print #2, CStr(Hour(Time)) & ":" & CStr(Minute(Time)) & ":" &

CStr(Second(Time))
Print #2, CStr(Date)
Close #2
MsgBox "So diem cua ban la:" & CStr(diem) & Chr(13) & Chr(10) & "Nhan
OK de ket thuc."
frmchinh.Show
Unload Me
End Sub
Private Sub cmdtiep_Click()
20
Nguyễn Thị Quý SBD 238
20