Đang tải... (xem toàn văn)
Tài liệu tham khảo chuyên ngành tin học lập trình Visual basic
Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp A.Phần Mở Đầu I. Lý do chọn đề tài Ngày nay với sự chuyển hướng của ngành giáo dục đang chuyển dần từ hình thức thi viết sang thi trắc nghiệm nhằm nâng cao khả năng học tập và kỹ năng thực hành bộ môn cho học sinh có thể vận dụng những kiến thưc mình tiếp thu được một cách linh hoạt và hiệu quả nhất.Đề tài này giúp ích cho việc giảng dạy và học tập của giáo viên và học sinh trường về kỹ năng, phương pháp học tập và giảng dạy theo hinh thức học tập mới.Giúp cho học sinh vận dụng các kiến thức đã học theo nhiều cách tư duy như:Phương án loại trừ,chọn phương án đúng nhất,………Giúp giáo viên có thể đánh giá chính xác được năng lực và khả năng tiếp thu kiến thức củahọc sinh.Với đề tài này giúp em có thể nắm vững hơn về kỹ năng lập trình cũng như sử dụng các lênh xử lý chương trình được thành thục hơn để nâng cao khả năng của bản thân về bộ môn Visual basic và khả năng vận dụng của nó trong từng trường hợp, cụ thể như trong bài toán về quản lý trắc nghiệm mà em thực hiên.II. Mục đích và nhiệm vụ nghiên cứu .-Những định hướng đặt ra:+Xác định nội dung môn học, phạm vi kiến thức như:câu hỏi, đáp án trả lời,…… +Khả năng tiếp thu, vận dụng của học sinh trong từng môn học.+Những câu hỏi phải đi sát với chương trình học của học sinh.+Quy chế thi cử, ra bài thi, chấm bài thi.+Đưa ra câu hỏi và đáp án trả lời chính xác.+Cấu trúc chương trình để xây dưng nên chương trình quản lý trăc nghiệm này.Nguyễn Thị Quý SBD 2381 Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp III. Đối tượng và phạm vi nghiên cứu.1. Nghiên cứu gì?Nắm được nội dung và kiến thức để xây dựng bài.Tam lý và khả năng áp dụng phương pháp học tâp và thi cử theo hinh thức mới của giáo viên và học sinh.2. Làm đến đâu?Chương trình thiết kế 4 form trắc nghiệm tương đương vói 4 môn:Toánhọc. Vật lý, Văn học,Lịch sử.Mỗi đề trắc nghiệm gồm 5 câu, mỗi câu có 4 lựa chọn để trả lời.Thời gian làm bài trong 3 phút.Khi nhấp nút ‘kết quả’ hoặc hết thời gian chương trình sẽ thông báo kết quả bài thi và thoát về chương trình chính.Kết quả bài thi sẽ lưu trong tệp ‘kết quả’.Ngoài ra học sinh có thể tham gia một số trò giải trí như chơi game,nghe nhạc, để làm giảm bớt sự căng thẳng trong học tập.IV. Phương pháp nghiên cứu.1.Nghiên cứu tìm hiểu thực tiễn.-Tham khảo ý kiến của một số giáo viên và học sinh.-Tham khảo qua sách vở về bộ môn của các môn học .2.Nghiên cứu lý luận,chủ trương,chính sách,quy chế .-Nghiên cứu chủ trương của bộ giào dục, của nhà trường.-Quy chế ra đề thi và chấm bài thi.-Các tài liệu bộ môn phù hợp.3.nghiên cứu tài liệu.-Sách giáo khoa, sách bài tập, sách nâng cao, một số giáo án của giáo viên về bộ môn mà mình thực hiện.4.Nghiên cứu cái đặt chương trìnhNguyễn Thị Quý SBD 2382 Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp V. Đóng góp của đề tài.1.Đóng góp thưc tế của đề tài.Đề tài này giúp ích cho việc giảng dạy và học tập của giáo viên và học sinh về kỹ năng,phương pháp học tập và giảng dạy theo hình thức học tập mới.Giúp cho học sinh có thể vân dụng các kiến thức đã học theo nhiều cách tư duy như:phương án loại trừ,chọn phương án đúng nhất…….Giúp giáo viên có thể đánh giá chính xác được năng lực và khả năng tiếp thu kiến thức của học sinh.2.Lợi ích của đề tài đối với bản thân-Nắm vững và thành thạo hơn về kiến thúc lập trình trong học tập và vận dụng thực tế.Xin chân thành cảm ơn thầy LÊ ĐỨC KHIÊM đã tận tình chỉ dạy, hướng dẫn và các bạn đã giúp đỡ tôi hoàn thành chương trình này !Nguyễn Thị Quý SBD 2383 Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp B.Phần nội dungI. Biểu Đồ Phân Cấp Chức Năng. Hinh 1: Bieu do phan cap chuc nangII. Bieu do luong du lieuCác biểu đồ luồng dữ liệu có tác động mô tả sự hoạt động của hệ thốngChú 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.Nguyễn Thị Quý SBD 2384Trắc nghiệmHướng Dẫn Giải Trí Toán HọcVật LýVăn HọcLịch SửGameCa nhạcThoát Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp 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.Nguyễn Thị Quý SBD 2385Người dùngfile hướng dẫnVăn họcNgười dùngVật lýKết quả trắc nghiệmToán họcLịch sửHướng dẫn Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp Giao Diện Form FrmchinhCode Form frmchinhPrivate Sub dabong_Click()Dim gg = Shell("Chinh phuc ai tinh.exe", vbNormalFocus)End SubNguyễn Thị Quý SBD 2386 Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp Private Sub gt_Click()Dim gg = Shell("Tinh xin chang phai.exe", vbNormalFocus)End SubPrivate Sub mnuhd_Click()frmhuongdan.Showfrmchinh.HideEnd SubPrivate Sub mnuly_Click()frmvatly.Showfrmchinh.HideEnd SubPrivate Sub mnusu_Click()frmlichsu.Showfrmchinh.HideEnd SubPrivate Sub mnuthoat_Click()EndEnd SubPrivate Sub mnutinh_Click()Dim aa = Shell(" calc.exe", vbNormalFocus)End SubPrivate Sub mnutoan_Click()Nguyễn Thị Quý SBD 2387 Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp Frmtoan.Showfrmchinh.HideEnd SubPrivate Sub mnuvan_Click()frmvanhoc.Showfrmchinh.HideEnd SubPrivate Sub mnuve_Click()Dim aa = Shell("paint.exe", vbNormalFocus)End SubPrivate Sub ol_Click()Dim gg = Shell("Xa vang.exe", vbNormalFocus)End SubPrivate Sub quasong_Click()Dim gg = Shell("picachu_2005.exe", vbNormalFocus)End SubPrivate Sub Timer1_Timer()Dim x As StringDim y As Stringx = Left(frmchinh.Caption, 1)Nguyễn Thị Quý SBD 2388 Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp y = Right(frmchinh.Caption, Len(frmchinh.Caption) - 1)frmchinh.Caption = y + xEnd SubMàn hình Form FrmToánCode Form FrmToánPrivate Sub cmdlai_Click()If optchon(0).Value Thenketqua(lt) = "A"End IfIf optchon(1).Value Thenketqua(lt) = "B"End IfNguyễn Thị Quý SBD 2389 Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp If optchon(2).Value Thenketqua(lt) = "C"End IfIf optchon(3).Value Thenketqua(lt) = "D"End IfIf lt > 1 Thenlt = lt - 1Else MsgBox ("Day la cau dau tien.") BeepEnd IfLbl2(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 = TrueCase "B": optchon(1).Value = TrueCase "C": optchon(2).Value = TrueCase "D": optchon(3).Value = TrueCase Else:optchon(0).Value = Falseoptchon(1).Value = Falseoptchon(2).Value = Falseoptchon(3).Value = FalseEnd SelectNguyễn Thị Quý SBD 23810 [...]... If End Sub Private Sub Timer2_Timer() Nguyễn Thị Quý 13 SBD 238 Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp 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ý Nguyễn Thị Quý 14 SBD 238 Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp Option Explicit Option Base 1 Dim cau(15, 6)... Right(Label1.Caption, Len(Label1.Caption) - 1) Nguyễn Thị Quý 21 SBD 238 Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp 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 Dim ketqua(10) As String * 1 Nguyễn Thị Quý 22 SBD 238 Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp Dim tn, nd Dim s As String Dim i, j, dem As Integer... hình Form Frmlịchsử Nguyễn Thị Quý 29 SBD 238 Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp Code From Frmlịchsử 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 Nguyễn Thị Quý 30 SBD 238 Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp Private Sub cmdkq_Click()...Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp 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... 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 Nguyễn Thị Quý 15 SBD 238 Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp 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)... 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) & ":" Lbl2(1).Caption = cau(cauhoi(lt), 1) Nguyễn Thị Quý 16 SBD 238 Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp 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)... 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" Nguyễn Thị Quý 17 SBD 238 Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp 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... 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 frmchinh.Show Nguyễn Thị Quý 18 SBD 238 Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp 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")... 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 i=1 Nguyễn Thị Quý 19 SBD 238 Đề Tài Visual Basic Trắc Nghiệm Tổng Hợp Do While i . hơn về kỹ năng lập trình cũng như sử dụng các lênh xử lý chương trình được thành thục hơn để nâng cao khả năng của bản thân về bộ môn Visual basic và khả. chương trình để xây dưng nên chương trình quản lý trăc nghiệm này.Nguyễn Thị Quý SBD 2381 Đề Tài Visual Basic
