http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN A.Ph n M u I Lý ch n đ tài ng c a ngành giáo d c chuy n d n t OBO OK S CO M Ngày v i s chuy n h 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 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 ti p thu đ c m t cách linh ho t hi u qu nh t tài giúp ích cho vi c gi ng d y h c t p c a giáo viên h c sinh tr ng v k n ng, ph ng pháp h c t p gi ng d y theo hinh th c h c t p m i.Giúp cho h c sinh v n d ng ki n th c h c theo nhi u cách t nh :Ph ng án lo i tr ,ch n ph đánh giá xác đ ng án nh t,………Giúp giáo viên có th c n ng l c kh n ng ti p thu ki n th c c ah c sinh V i đ tài 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 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 kh n ng v n d ng c a t ng tr ng h p, c th nh tốn v qu n lý tr c nghi m mà em th c hiên II M c đích 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 t ng mơn h c +Nh ng câu h i ph i sát v i ch ng trình h c c a h c sinh +Quy ch thi c , thi, ch m thi a câu h i đáp án tr l i xác KIL + +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 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN it III Nghiên c u gì? N mđ c n i dung ki n th c đ xây d ng Tam lý kh n ng áp d ng ng pháp h c tâp thi c theo hinh th c m i c a giáo viên h c sinh KIL OBO OKS CO M ph ng ph m vi nghiên c u Làm đ n đâu? Ch ng trình thi t k form tr c nghi m t ng đ ng vói mơn: Tốnh c V t lý, V n h c,L ch s M i đ tr c nghi m g m câu, m i câu có l a ch n đ tr l i Th i gian làm 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 thi v ch ng trình K t qu thi s l u t p ‘k t qu ’ Ngồi 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 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 h c sinh -Tham kh o qua sách v v b mơn c a mơn h c 2.Nghiên c u lý lu n,ch tr -Nghiên c u ch tr ng,chính sách,quy ch ng c a b giào d c, c a nhà tr ng -Quy ch đ thi ch m 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 t p, sách nâng cao, m t s giáo án c a giáo viên v b mơn mà th c hi n 4.Nghiên c u đ t ch V ng trình óng góp c a đ tài óng góp th c t c a đ tài tài giúp ích cho vi c gi ng d y h c t p c a giáo viên h c sinh v k n ng, ph ng pháp h c t p 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 ki n th c h c theo nhi u cách t nh :ph án lo i tr ,ch n ph đ ng ng án nh t…….Giúp giáo viên có th đánh giá xác c n ng l c kh n ng ti p thu ki n th c c a h c sinh http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN 2.L i ích c a đ tài đ i v i b n thân -N m v ng thành th o h n v ki n thúc l p trình h c t p v n d ng th c t ng d n b n giúp KIL OBO OKS CO M Xin chân thành c m n th y t n tình ch d y, h đ tơi hồn thành ch ng trình ! http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN B.Ph n n i dung Phân C p Ch c N ng KIL OBO OKS CO M I Bi u Tr c nghi m Tốn H c V t Lý V nH c L ch S H ng D n Gi i Trí Game Ca nh c Hinh 1: Bieu phan cap chuc nang II Bieu 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 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ốt http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN 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 Ng KIL OBO OKS CO M L ch s i dùng V nh c K t qu tr c nghi m Ng i dùng V t lý Tốn h c H ng d n file h ng d n http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Giao Di n Form KIL OBO OKS CO M Frmchinh Code Form frmchinh Private Sub dabong_Click() Dim g g = Shell("Chinh phuc tinh.exe", vbNormalFocus) 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 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN End Sub Private Sub mnuly_Click() KIL OBO OKS CO M 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 Private Sub mnutoan_Click() Frmtoan.Show frmchinh.Hide End Sub Private Sub mnuvan_Click() frmvanhoc.Show frmchinh.Hide http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN End Sub Dim a KIL OBO OKS CO M Private Sub mnuve_Click() 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 x = Left(frmchinh.Caption, 1) y = Right(frmchinh.Caption, Len(frmchinh.Caption) - 1) frmchinh.Caption = y + x End Sub http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL OBO OKS CO M Màn hình Form FrmTốn Code Form FrmTốn 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 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN ketqua(lt) = "D" End If lt = lt - Else KIL OBO OKS CO M If lt > Then 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 = Then frmchinh.Show 10 http://kilobooks.com KIL OBO OKS CO M THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Code Form Frm gi i trí:chinh ph c tình Private Sub dabong_Click() Dim g g = Shell("Chinh phuc tinh.exe", vbNormalFocus) End Sub Private Sub gt_Click() Dim g g = Shell("Tinh xin chang phai.exe", vbNormalFocus) End Sub 40 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN End Sub KIL OBO OKS CO M Private Sub Label2_Click() 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 Private Sub mnutoan_Click() 41 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Frmtoan.Show frmchinh.Hide KIL OBO OKS CO M 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 x = Left(frmchinh.Caption, 1) y = Right(frmchinh.Caption, Len(frmchinh.Caption) - 1) frmchinh.Caption = y + x 42 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN End Sub KIL OBO OKS CO M Màn hình form Frmgi itrí:game:picachu Code Form Frm giaitrí:picachu Private Sub dabong_Click() Dim g g = Shell("Chinh phuc tinh.exe", vbNormalFocus) End Sub Private Sub gt_Click() Dim g 43 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN g = Shell("Tinh xin chang phai.exe", vbNormalFocus) KIL OBO OKS CO M End Sub Private Sub Label2_Click() 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 44 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Private Sub mnutoan_Click() Frmtoan.Show End Sub KIL OBO OKS CO M frmchinh.Hide 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 45 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Dim y As String x = Left(frmchinh.Caption, 1) y = Right(frmchinh.Caption, Len(frmchinh.Caption) - 1) End Sub KIL OBO OKS CO M frmchinh.Caption = y + x Màn hình Form Frmnghenh c:tình xin ch ng phai Code form frmnghenh c:Tình xin ch ng phai Private Sub dabong_Click() Dim g g = Shell("Chinh phuc tinh.exe", vbNormalFocus) End Sub Private Sub Form_Load() End Sub 46 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Private Sub gt_Click() Dim g End Sub KIL OBO OKS CO M g = Shell("Tinh xin chang phai.exe", vbNormalFocus) 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 47 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Private Sub mnutoan_Click() Frmtoan.Show End Sub KIL OBO OKS CO M frmchinh.Hide 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 x = Left(frmchinh.Caption, 1) 48 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN y = Right(frmchinh.Caption, Len(frmchinh.Caption) - 1) frmchinh.Caption = y + x End Sub KIL OBO OKS CO M Màn hình Frmnghenh c:xa v ng Form Code form frmnghenh c:xa v ng Private Sub dabong_Click() Dim g g = Shell("Chinh phuc tinh.exe", vbNormalFocus) End Sub Private Sub Form_Load() End Sub 49 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Private Sub gt_Click() Dim g End Sub KIL OBO OKS CO M g = Shell("Tinh xin chang phai.exe", vbNormalFocus) 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 50 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Private Sub mnutoan_Click() Frmtoan.Show End Sub KIL OBO OKS CO M frmchinh.Hide 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 x = Left(frmchinh.Caption, 1) 51 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN y = Right(frmchinh.Caption, Len(frmchinh.Caption) - 1) frmchinh.Caption = y + x KIL OBO OKS CO M End Sub 52 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Bài tốn v qu n lý tr c nghi m (BC; 10) KIL OBO OKS CO M M CL C A Ph n m đ u I Lý ch n đ tài II M c đích nhi m v nghiên c u III IV Ph it ng nghiên c u ng pháp nghiên c u V óng góp đ tài B Ph n n i dung I Bi u đ phân c p ch c n ng II Bi u đ lu ng d li u Giao di n form Frm Code form Frm Màn Form Frm tốn Code form Frm Tốn Màn hình Form Frm V t lý Code Form Frm V t lý Màn hình Form Frm V n h c Code form Frm V n h c Màn hình Form Frm L ch s Code Form Frm L ch s Màn hình Form Frm H Code Form Frm H ng d n ng d n Màn hình Form Frm Game: Chinh ph c tình Code Form Frm Chinh ph c tình Màn hình Form Frm Game: Pikachu Code Form Frm: Pikachu Màn hình Form Nghe nh c: Tình xin ch ng phai 53 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Code Form Frm Tình xin ch ng phai Màn hình Form Nghe nh c: Xa v ng KIL OBO OKS CO M Code Form Frm Xa v ng 54 [...]... 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 12 http://kilobooks.com THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN optchon(2).Value = False optchon(3).Value = False End Sub KIL OBO OKS CO M End Select Private Sub Optchon_Click(Index As Integer) Select... 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 16 http://kilobooks.com THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN optchon(2).Value = False optchon(3).Value = False End Sub KIL OBO OKS CO M End Select Private Sub cmdlai_Click() If optchon(0).Value Then ketqua(lt) = "A" End If If optchon(1).Value... 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 Optchon_Click(Index As Integer) Select Case Index Case 0: ketqua(lt) =... 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 24 http://kilobooks.com THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN optchon(3).Value = False End Select KIL OBO OKS CO M End Sub Private Sub cmdlai_Click() If optchon(0).Value Then ketqua(lt) = "A" End If If optchon(1).Value... 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 Optchon_Click(Index As Integer) Select Case Index Case 0: ketqua(lt) =... 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 32 http://kilobooks.com THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN optchon(3).Value = False End Select KIL OBO OKS CO M End Sub Private Sub cmdlai_Click() If optchon(0).Value Then ketqua(lt) = "A" End If If optchon(1).Value... 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 Optchon_Click(Index As Integer) Select Case Index Case 0: ketqua(lt) =... Case ketqua(lt) 25 http://kilobooks.com THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN Case "A": optchon(0).Value = True Case "B": optchon(1).Value = True Case "C": optchon(2).Value = True Case Else: KIL OBO OKS CO M Case "D": optchon(3).Value = True 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... 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 15 http://kilobooks.com THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN ketqua(lt) = "C" End If If optchon(3).Value Then End If KIL OBO OKS CO M ketqua(lt) = "D" If (optchon(0).Value = False) And (optchon(1).Value = False) And (optchon(2).Value = False) And (optchon(3).Value = False)... 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" 31 http://kilobooks.com THÖ VIEÄN ÑIEÄN TÖÛ TRÖÏC TUYEÁN End If If optchon(3).Value Then End If KIL OBO OKS CO M ketqua(lt) = "D" If (optchon(0).Value = False) And (optchon(1).Value = False) And (optchon(2).Value = False) And (optchon(3).Value = False) ...http:/ /kilobooks. com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN it III Nghiên c u gì? N mđ c n i dung ki n th c đ xây... t…….Giúp giáo viên có th đánh giá xác c n ng l c kh n ng ti p thu ki n th c c a h c sinh http:/ /kilobooks. com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN 2.L i ích c a đ tài đ i v i b n thân -N m v ng thành th... OBO OKS CO M Xin chân thành c m n th y t n tình ch d y, h đ tơi hồn thành ch ng trình ! http:/ /kilobooks. com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN B.Ph n n i dung Phân C p Ch c N ng KIL OBO OKS CO M I