đề tài chương trình trắc nghiệm tổng hợp kiến thức

Ly do chon dé tai 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 c

Trang 1

A.Phan Mé Dau

I Ly do chon dé tai

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

IH 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ả

+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

+Dua ra cau hoi va dap á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

Trang 2

HI Đố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à cham bai 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ình

Trang 3

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 đạ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 cam on thay LE DUC 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 !

Trang 4

Ca nhạc

Bieu do phan cap chuc nang

II Bieu do luong du lieu

GD 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 đữ 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

Trang 6

Code Form frmchinh

Private Sub dabong_Click()

Trang 8

Private Sub Timerl_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

Trang 9

Man hinh Form FrmToan

Trang 10

If optchon(3) Value Then

Lb12(3).Caption = cau(cauhoi(It), 3)

Lb12(4).Caption = cau(cauhoi(It), 4) Lb12(5).Caption = cau(cauhoi(It), 5) Select Case ketqua(It)

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

End Select

End Sub

Private Sub Form_Activate()

10

Trang 12

12

Trang 13

Case Else

Trang 15

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 It, cc, diem, socau As Integer

Open App.Path & "ket quaketqua” & 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)) & ":"” &

Trang 16

Private Sub cmdtiep_Click()

Trang 17

Select Case ketqua(It)

Case "B": optchon(1).Value = True Case "C": optchon(2) Value = True

Case "D": optchon(3) Value = True Case Else:

End Select

End Sub

Private Sub cmdlai_ClickQ)

Trang 18

Case Else:

Trang 20

Trang 21

End Select

End Sub

Private Sub Optchon_Click(Index As Integer)

Select Case Index

Case 0: ketqua(It) = "A"

End Sub

21

Trang 22

Man hinh Form FrmVanhoc

Dim cau(15, 6) As String

Dim tn, nd

Dim s As String

22

Trang 23

Open App.Path & "ket quaketqua” & CStr(Hour(Time)) &

Print #2, ten

Print #2, CStr(Hour(Time)) & ":" & CStr(Minute(Time)) & ":" &

ketqua(It) = "A"

End If

If optchon(1).Value Then

23

Trang 24

24

Trang 25

Case Else:

End Select

End Sub

Private Sub cmdlai_ClickQ)

Trang 26

Case Else:

Trang 28

Lb12(4).Caption = cau(cauhoi(It), 4) Lb12(5).Caption = cau(cauhoi(It), 5) Select Case ketqua(It)

Case Else

End Select

End Sub

28

Trang 29

Private Sub Optchon_Click(Index As Integer)

Select Case Index

End Sub

Man hinh Form Frmlichstr

29

Trang 30

= "LICH SU “**

Code From Frmlichstr

Option Explicit

Option Base 1

Dim cau(15, 6) As String

Dim tn, nd

Dim s As String

Dim ten

30

Trang 31

Private Sub cmdkq_Click()

Open App.Path & "ket qua\ketqua" & CStr(Hour(Time)) &

Print #2, ten

Print #2, CStr(Hour(Time)) & ":" & CStr(Minute(Time)) & ":" & CStr(Second(Time))

Trang 32

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")

Case Else:

32

Trang 33

End Select

End Sub

Private Sub cmdlai_Click()

33

Trang 34

Case Else:

Trang 35

If Dir(App.Path & "\csdl\lichsu.txt") = '"" Then tn=1

Trang 36

Case Else

Trang 37

End Sub

Màn hình Frorm FrmHướngdẫn

37

Trang 38

Code Frorm FrmHướngdẫn

Private Sub Cmdthoat_Click()

Trang 39

st=st+" ở A,B,C,D phía dưới.+ Chr(13)

st=st+" Bạn phải suy nghĩ và thao tác thật nhanh vì chỉ có 3 phút cho bạn hoàn thành " + Chr(13)

st=st+" các câu hỏi trên." + Chr(13)

Trang 40

Man hinh Form Frmgiaitri:game:Chinh phục ái tình

‘a “CDSP HA TAY*** TIN 27A"™* ^*

#7) Macromedia Flash Player 6

CHINH PHUC AI TINH

Code Form Frm giai tri:chinh phuc ai tinh

Trang 42

a = Shell(" calc.exe", voNormalFocus)

Private Sub Timerl_Timer()

42

Trang 44

Trang 45

Private Sub mnuthoat_Click()

Private Sub ol_ClickQ)

Dim g

g = Shell("Xa vang.exe", vbNormalFocus)

45

Trang 46

Man hinh Form Frmnghenhac:tinh xin chang phai

f2 Macrormedia Flash Player 7

Product;Phuthinh.«t E4dit mexie:ngoethien Masic:Vietlluy

46

Trang 47

Code form frmnghenhac:Tinh xin chang phai

Trang 48

Private Sub ol_Click()

Dim g

48

Trang 49

g = Shell("Xa vang.exe", vbNormalFocus)

End Sub

Màn hình Frmnghenhac:xa vắng Form

49

Trang 50

YJ Macromedia Flash Player 7

File View Control Help

Sanetkity@yahoo.com

Code form frmnghenhac:xa vang

Trang 53

frmchinh.Caption = y + x

End Sub

53

Trang 54

MUC LUC

I Ly do chon dé tai

II Mục đích và nhiệm vụ nghiên cứu .-. -sses=es=ee 1

HI Đối tượng nghiên cứu

IV Phương pháp nghiên cứu

H Biểu đồ luồng dữ liệu

Giao diện form Frm chính - ¿ .: 2222222 ‡‡2EEEEEEEEEEsksssxe 8 Code form Frm Chimh c::ccccccssccsscesscessecsseecesecescesseeecsesesteessecsseetseees 13

Màn hình Form Frm Vật lý -: -¿¿ 222 222222222221122212221E22152x1x22+ 21

Man hinh Form Frm Lich sw

Code Form Frm Lich sw °

Code Form Erm Hướng dẫn ¿- 2-2-5252 22222222222222222225223 39 Màn hình Form Frm Game: Chinh phục ái tình 39

Màn hình Form Frm Game: Pikachu ::-.::-.:+> Code Form Frm: Pikachu .:¿ 22222222 ‡22‡‡22x‡2vxsxxssxx> Màn hình Form Nghe nhac: Tinh xin ching phai se Code Form Frm Tình xin chắng phai -.¿- ¿2 22zz2zzz2zz2zzzz2s Màn hình Form Nghe nhạc: Xa vắng ¿2¿222522552: Code Form Frm Xa vắng 2: ¿22 ¿22222222322322222222222222222

54

Tiêu đề	Đề Tài Chương Trình Trắc Nghiệm Tổng Hợp Kiến Thức
Tác giả	A. Phan Mé Dau
Người hướng dẫn	Thầy Lê Đức Khiêm
Trường học	Cao Đẳng Sư Phạm Hà Tây
Chuyên ngành	Giáo Dục
Thể loại	Đề Tài
Thành phố	Hà Tây

Định dạng
Số trang	54
Dung lượng	14,95 MB