Đề 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 . 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. 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