LÝ THUYẾT TIỂU LUẬN ĐỀ TÀI: Game show Đường lên đỉnh Olympia pdf

Trong dó có 2 slide chính:  Slide 3: Người chơi sẽ quan sát cau hỏi rồi ghi câu trả lời vào khung và nhấn nút hoàn tất.. - Bước 3: tạo 3 textbox lần lượt lấy tên là: traloi, dongho và d

TRƯỜNG ĐẠI HỌC CÔNG NGHIỆP THÀNH PHỐ HỒ CHÍ MINH

KHOA KẾ TOÁN- KIỂM TOÁN

LÝ THUYẾT TIỂU LUẬN

ĐỀ TÀI: Game show Đường lên đỉnh Olympia

Sinh viên thực hiện

GVHD: Nguyễn Ngọc Minh Cao Hoàng Huy

TP HỒ CHÍ MINH 03/2012 Phần 1: Ý tưởng

Gameshow này lấy ý tưởng từ chương trình “Đường lên đỉnh Olympia” với 6 slide Trong dó có 2 slide chính:

 Slide 3: Người chơi sẽ quan sát cau hỏi rồi ghi câu trả lời vào khung và nhấn nút hoàn tất Người chơi trả lời trước 20s sẽ được 30 điểm, trước 15s được

20 điểm và trước 10s sẽ dược 10 điểm

 Slide 5: Người chơi sẽ lựa chọn và trả lời 5 câu hỏi trong thời gian 3 phút Câu hỏi nào không trả lời được người chơi có thể cho qua, nếu còn thời gian người chơi vẫn được quyền quay lại câu hỏi bất kì lúc nào Trả lời đúng lần đầu được 30 điểm, nhưng kể từ lần thứ 2 trở đi nếu trả lời đúng

sẽ được nhân 3 lần điểm số hiện tại

Phần 2: Nội dung thực hiện( chỉ giới thiệu nội dung thực hiện slide 3 và 5)

 Slide 3:

- Bước 1: tạo 3 nút toggle button lần lượt lấy tên là cau1,cau2 va cau3

- Bước 2: tạo 1 label lấy tên là cauhoi

- Bước 3: tạo 3 textbox lần lượt lấy tên là: traloi, dongho và diem.sắp xếp sao cho hợp lý và đẹp mắt

- Bước 4: tạo 2 nút command button lần lượt lấy tên là hoantat và reset Bên trên textbox dongho, ta tạo thêm 1 nút command button nữa lấy tên là nuttime

- Bước 5: viết mã lệnh

Private Sub cau1_Click()

If cau1.Value = True Then cauhoi.Caption = " cau vong co may mau?" Else

cauhoi.Caption = ""

If cau1.Value = True Then nuttime.Value = True Else nuttime.Value = False

End Sub

Private Sub cau2_Click()

If cau2.Value = True Then cauhoi.Caption = " viet nam nam o chau luc nao?" Else

cauhoi.Caption = ""

If cau2.Value = True Then nuttime.Value = True Else nuttime.Value = False

End Sub

Private Sub cau3_Click()

If cau2.Value = True Then cauhoi.Caption = " dai duong co dien tich nho nhat la?"

Else cauhoi.Caption = ""

If cau2.Value = True Then nuttime.Value = True Else nuttime.Value = False

End Sub

Private Sub dongho_Change()

If dongho.Value > other Then

Dim pausetime, start, finish

pausetime = 1

start = Timer

Do While Timer < start + pausetime

DoEvents

Loop

If dongho.Value > 0 Then dongho.Value = dongho.Value - 1

If dongho.Value = 0 Then nuttime.Value = False

End If

End Sub

Private Sub hoantat_Click()

If dongho.Value = 0 Then diem.Value = 0

If dongho.Value < 20 And traloi = "7" Then diem.Value = diem.Value + 30

If dongho.Value < 15 And traloi = "7" Then diem.Value = diem.Value - 10

If dongho.Value < 10 And traloi = "7" Then diem.Value = diem.Value - 10

If dongho.Value < 20 And traloi = "chaua" Then diem.Value = diem.Value + 30

If dongho.Value < 15 And traloi = "chaua" Then diem.Value = diem.Value - 10

If dongho.Value < 10 And traloi = "chaua" Then diem.Value = diem.Value - 10

If dongho.Value < 20 And traloi = "bacbangduong" Then diem.Value = diem.Value

+ 30

If dongho.Value < 15 And traloi = "bacbangduong" Then diem.Value = diem.Value

- 10

If dongho.Value < 10 And traloi = "bacbangduong" Then diem.Value = diem.Value

– 10

nuttime.Value = False

End Sub

Private Sub nuttime_Click()

If nuttime.Value = True Then dongho.Value = 20 Else dongho.Value = 0

End Sub

Private Sub reset_Click()

cau1.Value = False

cau2.Value = False

cau3.Value = False

diem.Value = 0

nuttime.Value = False

cauhoi.Caption = ""

traloi.Text = ""

End Sub

- Bước 6: chạy thử

 Slide 5:

- Bước 1: tạo 5 nút Toggle button lần lượt lấy tên là cau1, cau 2, cau3, cau4, cau5

- Bước 2: tạo 5 nút Command button lần lượt lấy tên là dapan1, dapan2, dapan3, dapan4, dapan5

- Bước 3: tạo 1 label lấy tên là nhan để đưa câu hỏi vào

- Bước 4: tạo 2 textbox lần lượt lấy tên là dongho và diem.tren textbox dongho ta tạo 1 nút toggle button lấy tên là nuttime

- Bước 5: tạo thêm 2 nút command button lần lượt lấy tên là nutdiem va reset

- Bước 6: viết mã lệnh

Private Sub cau1_Click()

If cau1.Value = True Then nhan.Caption = " co mot ong da den, rang trang, leo

len mot dinh nui,hoi khi len toi noi ong ta thay gi? " Else nhan.Caption = ""

If cau1.Value = True Then nuttime.Value = True

End Sub

Private Sub cau2_Click()

If cau2.Value = True Then nhan.Caption = " Co' mot thang nhoc da trang mat

den,leo len ngon nui ay,hoi no thay gi? " Else nhan.Caption = ""

If cau2.Value = True Then nuttime.Value = True

End Sub

Private Sub cau3_Click()

If cau3.Value = True Then nhan.Caption = " co ba con cuu di qua mot cay cau,con

thu nhat di qua quay lai dem duoc hai con, con thu hai di qua quay lai dem duoc mot con, con thu ba cung di qua quay lai dem duoc mot con, hoi tai sao lai nhu vay? " Else nhan.Caption = ""

If cau3.Value = True Then nuttime.Value = True

End Sub

Private Sub cau4_Click()

If cau4.Value = True Then nhan.Caption = " co mot doan tau dien di theo huong

bac nam, hoi khoi bay theo huong nao? " Else nhan.Caption = ""

If cau4.Value = True Then nuttime.Value = True

End SubPrivate Sub cau5_Click()

If cau5.Value = True Then nhan.Caption = " hay tuong tuong ban dang di tren con

mot con thuyen bong dung gio to song lon lam lat thuyen, ban lai khong biet boi, lam sao de ban thoat chet mot cach nhanh nhat?" Else nhan.Caption = ""

If cau5.Value = True Then nuttime.Value = True

End Sub

Private Sub dapan1_Click()

nhan.Caption = " ong ta thay met "

End Sub

Private Sub dapan2_Click()

nhan.Caption = " no thay ong da den "

End Sub

Private Sub dapan3_Click()

nhan.Caption = " vi no khong biet dem "

End Sub

Private Sub dapan4_Click()

nhan.Caption = " tau dien lam gi co khoi "

End Sub

Private Sub dapan5_Click()

nhan.Caption = " Chi can dung tuong tuong thoi "

End Sub

Private Sub nutdiem_Click()

If diem.Value < 30 Then diem.Value = diem.Value + 10

If diem.Value < 2430 Then diem.Value = diem.Value * 3

End Sub

Private Sub nuttime_Click()

If nuttime.Value = True Then time.Value = 180 Else time.Value = 0 End Sub

Private Sub reset_Click()

nuttime.Value = False

nhan.Caption = ""

diem.Value = 0

cau1.Value = False

cau2.Value = False

cau3.Value = False

cau4.Value = False

cau5.Value = False

End Sub

Private Sub time_Change()

If time.Value > 0 Then

Dim start, pausetime, finish

pausetime = 1

start = Timer

Do While Timer < start + pausetime

DoEvents

Loop

If time.Value > 0 Then time.Value = time.Value - 1

End If

End Sub

- Bước 7: chạy thử