Trắc nghiệm kiến thức THPT” dựa trên ngôn ng Visual Basic

http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN L i Gi i Thi u OBO OK S CO M giúp em h c sinh THPT ki m tra ki n th c c a đ ng th i giúp em làm quen v i ph ó ph ng pháp thi m i ,ph ng pháp đ i m i giáo d c n vào k thi H, C ây ph ng pháp thi tr c nghi m c ta, ph ng pháp v a đ a b mơn ti ng Anh ti n t i đ a vào t t b mơn ng pháp có tính u m cao s đơng thich h p v i q trình d y h c đem l i hi u qu Có th s d ng ph ng pháp trác nghi m hồn tồn ho c tr c nghi m t lu n Có th s d ng d ng có nhi u ch n l c, d ng câu h i sai, d ng câu h i ghép đơi, d ng n khuy t Tùy t ng mơn h c gi h c c th mà s d ng d ng thích h p đ đ t hi u qu t t Tr c nghi m khách quan m t nh ng ph tra đánh giḠt nh t v i moi tri th c S đơng ph ng pháp dùng đ ki m ng pháp gi d y h c c ng m t cách đ i m i n i dung d y h c theo ph ng pháp m i nh m th c hi n m c tiêu giáo d c chung tồn qu c Chính v y chung em thi t k ch ng trình “Tr c nghi m ki n th c THPT” d a ngơn ng Visual Basic Visual Basic m t cơng c phát tri n ph n m m, nh ng m l i c a so v i ngơn ng l p trình khác ti t ki m th i gian cơng s c h n n a lúc xây d ng m t ng d ng Trong thêi gian làm đ tài em nh n đ giáo h ng d n: Lê c Khiêm, th y giáo d y b mơn Tin h c Tr ng trình c KIL C SP Hà Tây Ch c s giúp đ , góp ý c a Th y b n đ g c hồn thành nh ng th i gian trình đ b n thân nhi u h n ch nên khơng th tránh kh i nh ng thi u sót, m khuy t Vì v y em r t mong đ c s đánh giḠgóp ý c a th y b n đ em có th hồn thi n t t h n đ tài c a Em xin chân thành c m n th y giáo Lê c Khiêm t n tình h d n giúp đ em r tt nhi u th i gian làm đ tài ng http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN A Ph n m đ u I Lý ch n đ tài KIL OBO OKS CO M V i m c đích tìm hi u trình đ ki n th c h c sinh, kh n ng ti p thu gi h c, tìm hi u kh n ng t h c c a h c sinh, u tra kh n ng k t h p h c đơi v i hành q trình d y h c, tìm hi u k n ng nhanh nh y sáng t o c a h c sinh Ph ng pháp thi tr c nghi m giúp h c sinh t ki m tra đánh giá l c h c, n ng l c nh n th c c a c ng c l i ki n th c đ k thi đ t k t qu cao h n v i ch t l Ch ng t t h n ng trình tr c nghi m ki n th c THPT kêt qu thu đ nghiên c u, tìm hi u q trình d y h c Xu ng tr tr ng THPT Tam Hi p ng tìm hi u th c t g n g i v i h c sinh hi u đ kh n ng n m b t ki n th c c a h c sinh t rút đ c n thi t th y đ c k t qu kh thi c a ph c t vi c c tâm lý c nh ng kinh nghi m ng pháp tr c nghi m có th s d ng thành cơng vi c d y h c tài tr c nghi m ki n th c THPT góp ph n nâng cao ki n th c l p trình đ ng thêi nâng cao,ki n th c kinh nghi m q trình nghiên c u m t đ tài khoa h c II M c đích nhi m v nghiên c u nh h ng đ t Tìm hi u kh n ng n m b t ki n th c c a h c sinh THPT b ng ph pháp tr c nghi m N u thành cơng s ng d ng vào th c t c th THPT Tam Hi p nói riêng cho nhi u tr tr ng ng ng THPH khác Nhi m v c th c n ti n hành + Nghiên c u chu n b tr c làm: chu n b t p, m ng đ tài khác c a t ng mơn h c, chu n b ph ng ¸án thành cơng khơng http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN thành cơng, tìm hi u tâm lý h ng thú c a h c sinh THPT, s đơng ph ng pháp tr c nghi m t ng gi h c c th + Thu th p thơng tin sách báo liên quan đ n đ tài, xem n c a b n bè nh ng tài li u liên quan KIL OBO OKS CO M sách, m hi u Cài đ t B n vào th m c “ Package” tìm đ n file setup.exe r i cài đ t ch y ch ng trình cài đ t b n vào Start r i vào Tr c nghi m ki n th c đ ch y ch ng trình III it ng ph m vi nghiên c u - Nghiên c u trình đ ki n th c c a h c sinh tr ng THPT Tam Hi p - Phúc Th -Hà Tây - Ph m vi nghiên c u: t t c mơn h c tr ng THPT Tam Hi p Hồn thành q trình nghiên c u ng d ng đè tài vào th c t - Gi thiê khoa häc: s đơng ph ng pháp tr c nghi m vào q trình d y h c l y h c sinh làm trung tâm đ th y đ c kh n ng ch đ ng tích c c sáng t o c a h c sinh S đơng ph ng pháp tr c nghi m vào q trình d y h c đ th y đ kh n ng t ng h p ki n th c c a h c sinh THPT t có ph c ng pháp d y hocc c nn thi t v i kh n ng nh n th c c a h c sinh THPT IV Ph ng pháp nghiên c u Ph xu ng tr ng pháp tìm hi u th c t , ph ng pháp nghiên c u tìm hi u tài li u, ng Ph thơng tìm hi u th c t , h ng thú, kh n ng tu c a h c sinh THPT Nghiên c u tài li u liên quan, nghiên c u ¸sách báo, lý lu n có liên quan đ n tài V óng góp c a đ tài Trong gi hoc s đơng ph sinh thu đ ng pháp tr c nghi m táo h ng thú cho hoc c hi u qu cao q trình d y h c http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Ph ng pháp tr c nghi m s đơng d y h c có tính kh thi cao Qua u tra ng d ng vào th c t só đơng ph hoc nh m phân lo i đ c h c sinh n m b t đ c trình đ ki n th c, trình đ ng pháp d y hoc t t nh t KIL OBO OKS CO M nh n th c c a t ng lo i h c sinh t đ ph ng pháp vào gi ng d ng ph ng pháp tr c nghi m vào d y h c giúp q trình d y h c B Ph n n i dung Ch ng I:phân tích thi t k h th ng I/Bi u đ phân c p ch c n ng: QU N LÝ TR C NGHI M Khoa T Nhiên Khoa Xã H i Tin H c V n Hoc Tốn K mTraTốn Lý Ki m Tra lý Ki m Tra Tin K mTra v n v V n L ch S English h H Gi i Trí K mTra Elgish ngD n Thốt Ca Nh c Game K mTra s a Hố Ki m Tra hố Ki m Tra a Hình : bi u đ phân c p ch c n ng c a ch ng trình II Bi u đ lu ng d li u Các bi u đ lu ng d li u có tác d ng mơ t s ho t đ ng c a h th ng qu n lý Chú thích: http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Tác nhân ngồi: m t ng i,hay nhóm ng òi có trao đ i thơng tin v i h th ng KIL OBO OKS CO M Ch c n ng x lý làm bi n đ i thơng tin Lu ng d li u vào hay c a h th ng N i l u tr thơng tin c n cho h th ng Bi u đ lu ng d li u m c khung c nh Th hi n ch c n ng t ng th , lu ng thơng tin vào, m i quan h c a h th ng v i tác nhân ngồi ban giám hi u Qu n lý tr c nghi m Hoc sinh giáo viên Hình Bi u đ lu ng d li u m c khung c nh http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL OBO OKS CO M Ki m tra trình đ S h c sinh trác nghi m K t qu tr c nghi m áp án Ban giám hi u Giáo viên Hình 3: Bi u đ lu ng d li u m c đ nh c a h th ng 2.Lu ng d li u m c d a.Ch c n ng “Tr c nghi m i đ nh khoa T Nhiên”: g m ch c n ng Tốn,lý Hố,Sinh ph n h i t h c sinh H c Sinh http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN TỐN D/S HS KIL OBO OKS CO M KQ DS HS Ban giám hi u V T LÝ D/S HS HỐ H C DS HS SINH H C H c sinh KQ Hình Bi u đ lu ng d li u m c d i đ nh c a ch c n ng "Tr c nghi m khoa t nhiên" http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN V NH C D/S HS Ban giám hi u KIL OBO OKS CO M KQ D/S HS L CH S DS HS A LÝ H c sinh KQ Hình Bi u đ lu ng d li u m c d i đ nh c a ch c n ng "Tr c nghi m khoa xã h i" H th ng menu Menu c a ch ng trình g m có m c sau: I Khoa h c t nhiên Ph n tr c nghi m v mơn khoa h c t nhiên: tốn, lý, hóa, sinh: + FrmToan.frm + FrmLy.frm + FrmHoa.frm + FrmSinh.frm http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN II Khoa h c xã h i Ph n tr c nghi m v mơn khoa h c xã h i nh : v n h c, l ch s , đ a lý KIL OBO OKS CO M + Frmvan.frm + Frmsu.frm + Frmdia.frm III Gi i trí Ph n gi i trí g m hai ph n: FrmCa nh c.frm B n có th ch n nghe theo theo hát mà b n yeu thích FrmGame.frm th giãn đ u óc, đ c ng th ng b n có th vào m c game ch n l a trò ch i mà b n u thích IV H ng d n s d ng Ph n có hai m c: FrmGioithieu: Gi i thi u ch ng trình Ph n gi i thi u ch Frmhoatdong: H Ph n h V Thốt ng trình tr c nghi m ng d n s d ng ng d n s d ng, ho t đ ng c a ch Thốt kh i ch Ho t đ ng c a ch ng trình ng trình ng trình 2.1 Form chính:frmmain.frm Bên ph i c a form ph n gi i thi u v ch ph n gi i thi u v form ch ng trình tr c nghi m, bên trái ng trình, b n Click chu t vào m c m c đ i màu xu t hi n dòng gi i thi u vỊ m c bên d i B n có th truy c p nhanh vào form b ng cách nh n chu t ph i vào form đ vào tr c nghi m c a mơn http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN 2.2 Form tr c nghi m i v i m i tr c nghi m c a m i mơn b n s có tùy ch n câu hay 10 câu tr c nghi m kho ng th i gian phút hay phút KIL OBO OKS CO M theo l a ch n Khi Click vào m t mơn s có form làm tr c nghi m hi n Ch ng h n b n Click vào form “V n “ form hi n th v i ch c n ng sau + Command c u ti p: b n nh n vào đ đ n câu h i k ti p + Command câu tr tr c c: b n nh n vào đ xem ho c tr l i câu h i + Command k t qu : b n click vào m c m t h p tho i xu t hi n u c u b n nh p tên c a vào, ti p mét h p tho i hi n cho bi t k t qu m tr c nghi m c a b n,b n nh n OK m t h p tho i khác hi n h i b n có mu n ghi tên vào danh sách nh ng ng b n ch n có tên b n s đ i làm tr c nghi m khơng, c ghi khung danh sách bên c nh + Command đáp án: b n nh n vào đ xem đáp án tr c nghi m c a b n đ ki m tra xem lám hay sai + Command xóa danh sách: b n nh n vào đ xóa khái danh sách nh ng ng i làm tr c nghi m + Command thêm: b n có th thêm nh ng câu h i đ ch ng trình thêm phong phú b n nh n vào nút + Command thốt: b n nh n vào đ k t thúc tr c nghi m đ tr v ch ng trình chính, b n có th làm ti p tr c nghi m mơn khác 10 http://kilobooks.com KIL OBO OKS CO M THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN 4.2 Code l nh c a form : Option Base 'chi so mang bat dau tinh tu 1, thay vi tu Dim result(10) As String * 'Mang luu ket qua lam bai Dim ntest, nduplicate Dim s As String Dim i, j, ncount As Integer Dim nameofper Dim LUU, kq Dim ghi As Integer Private Sub cmddapan_Click() frmdapantoan.Show End Sub Private Sub cmdds_Click() Open App.Path & "\KetquaToan.txt" For Output As 'xoa noi dung tep tin ketquaenglish Close 'dong tep List1.Clear 'xoa danh sach can luu list1 'neu khong thi an cmdxoa no se xoa tap tin ma van danh sach hien list End Sub 21 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL OBO OKS CO M Private Sub cmdketqua_Click() nameofper = InputBox("Nhap ten cua ban:", "Thong bao") For i = To totals 'Cong diem cac cau trac nghiem If result(i) = UCase(Toan(question(i), 6)) Then 'Neu tra loi dung grade = grade + (10 / totals) End If Next i MsgBox "Diem so ban dat duoc :" & CStr(grade) & Chr(13) & Chr(10) & "Nhan OK de ket thuc." 'mo hop thoai hoi xem co muon ghi vao khong ghi = MsgBox("Ban co muon ghi ten minh vao danh sach khong?", vbYesNo, "Luu ten ") Select Case ghi Case vbYes: Open App.Path & "\KetquaToan.txt" For Append As 'Luu ten nguoi lam va ket qua lam bai, thoi gian lam bai LUU = nameofper & " §iĨm ®¹t ®­ỵc:" & CStr(grade) & ", " & CStr(Hour(Time)) & ":" & CStr(Minute(Time)) & ":" & CStr(Second(Time)) & "," & Space(1) & CStr(Date) Print #2, LUU List1.AddItem LUU Close #2 Case vbNo: End Select End Sub Private Sub cmdquaylai_Click() If optchon(0).Value Then 'Neu option button dau tien duoc chon result(orderno) = "A" 'Luu ket qua tra loi cua cau trac nghiem la A End If If optchon(1).Value Then 'Neu option button thu hai duoc chon result(orderno) = "B" 'Luu ket qua tra loi cua cau trac nghiem la B End If If optchon(2).Value Then result(orderno) = "C" End If If optchon(3).Value Then result(orderno) = "D" End If If orderno > Then orderno = orderno - 'Tro ve cau trac nghiem truoc End If lbl1(0).Caption = "C©u" & CStr(orderno) & ":" lbl1(1).Caption = Toan(question(orderno), 1) lbl1(2).Caption = Toan(question(orderno), 2) lbl1(3).Caption = Toan(question(orderno), 3) lbl1(4).Caption = Toan(question(orderno), 4) lbl1(5).Caption = Toan(question(orderno), 5) Select Case result(orderno) Case "A": optchon(0).Value = True Case "B": optchon(1).Value = True Case "C": optchon(2).Value = True 22 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL OBO OKS CO M 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 cmdthem_Click() frmthemtoan.Show End Sub Private Sub cmdthoat_Click() If MsgBox("Ban co muon thoat khong?", vbOKCancel, "Thong bao") = vbOK Then Unload Me End If End Sub Private Sub cmdtiep_Click() If optchon(0).Value Then result(orderno) = "A" End If If optchon(1).Value Then result(orderno) = "B" End If If optchon(2).Value Then result(orderno) = "C" End If If optchon(3).Value Then result(orderno) = "D" End If If orderno < totals Then orderno = orderno + End If lbl1(0).Caption = "C©u" & CStr(orderno) & ":" lbl1(1).Caption = Toan(question(orderno), 1) lbl1(2).Caption = Toan(question(orderno), 2) lbl1(3).Caption = Toan(question(orderno), 3) lbl1(4).Caption = Toan(question(orderno), 4) lbl1(5).Caption = Toan(question(orderno), 5) Select Case result(orderno) 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() 23 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL OBO OKS CO M If ntest = Then 'Neu thoat form lam trac nghiem Frmmain.Show Unload Me End If End Sub Private Sub Form_Load() Open App.Path & "\KetquaToan.txt" For Input As Do Until EOF(2) Line Input #2, LUU List1.AddItem LUU Loop Close Dim nsent As Integer sumsent = 20 'So cau trac nghiem co the luu mang ntest = ncount = If Dir(App.Path & "\Toan.txt") = "" Then 'Neu tap tin luu cau hoi khong ton tai nsent = MsgBox("file Toan.txt is not exist", vbExclamation + vbOKOnly, "warning") ntest = Exit Sub 'Ket thuc thu tuc End If Open App.Path & "\Toan.txt" For Input As #1 'Mo tap tin de doc nsent = 'Bien dem so cau da doc Do Until EOF(1) 'Neu chua het tap tin nsent = nsent + 'Doc cau ke tiep If nsent > sumsent Then 'Neu da du so cau quy dinh Exit Do End If For i = To 'Moi cau trac nghiem gom phan Line Input #1, s 'Vi the can doc dong va luu vao mang Toan(nsent, i) = s Next i Loop Close #1 'Khoi dong che chon so ngau nhien Randomize i=1 Do While i [...]... m ki n th c THPT” s d ng ph n m m KIL OBO OKS CO M Microsoft Visual Basic for Windows Version 6.0 đ thi t k các ch ng trình ng d ng ch y trên windows là ngơn ng thân thi n và g n g i Visual Basic là m t cơng cơ phát tri n ph n m m, nh ng ui đi m c a nó so v i các ngơn ng l p trình khác là ti t ki m th i gian và cơng s c trong lúc xây d ng m t ng d ng Khi thi t k ch ng trình v i Visual Basic b n có... h n Tài li u tham kh o KIL OBO OKS CO M + Visual Basic cho sinh viên & k thu t viên khoa cơng ngh thơng tin Tác gi : Ks inh Xn Lâm Nhà xu t b n Th ng kê + T h c l p trình Visual Basic 6.0 Tác gi : u Quang Tu n Nhà xu t b n Tr + Giáo trình h c và th c hành Microsoft Visual Basic c n b n Tác gi : inh Xn Lâm Nhà xu t b n Th ng kê + Nh ng bài th c hành Visual Basic 6.0 Tác gi : inh Xn Lâm Nhà xu t b n ... Sub 30 http:/ /kilobooks. com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Private Sub Form_Unload(Cancel As Integer) Close Frmtoan.Show End Sub KIL OBO OKS CO M Form ca nh¹c: Frmcanhac.frm 31 http:/ /kilobooks. com... c làm: chu n b t p, m ng đ tài khác c a t ng mơn h c, chu n b ph ng ¸án thành cơng khơng http:/ /kilobooks. com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN thành cơng, tìm hi u tâm lý h ng thú c a h c sinh THPT,... đơng ph sinh thu đ ng pháp tr c nghi m táo h ng thú cho hoc c hi u qu cao q trình d y h c http:/ /kilobooks. com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Ph ng pháp tr c nghi m s đơng d y h c có tính kh thi cao