Khoá luận tốt nghiệp áp dụng lý thuyết Game xây dựng một số trò chơi Lời nói đầu Cùng với sự phát triển của các lĩnh vực kinh tế, xã hội, nhu cầu ứng dụng công nghệ thông tin ngày càng cao và không ngừng biến đổi. Khi một hệ thống càng phát triển, càng phức tạp thì các phơng thức cổ điển truyền thống sẽ trở nên cồng kềnh và khó có thể áp dụng đợc yêu cầu ngày càng cao của hệ thống. Để xử lý các thông tin một cách nhanh chóng, chính xác, thuận tiện và hiệu quả, đòi hỏi phải có sự hỗ trợ của một công cụ hiện đại, đó chính là công nghệ thông tin. Sự phát triển nhảy vọt của công nghệ thông tin đã tác động mạnh mẽ đến các hoạt động xã hội, làm thay đổi một cách sâu sắc đến phong cách làm việc của một xã hội. Công nghệ thông tin đã trở thành trụ cột chính của nền kinh tế tri thức. ứng dụng công nghệ thông tin vào các hoạt động giải trí của xã hội đợc nhiều ngời quan tâm. Phạm vi ứng dụng của công nghệ thông tin ngày càng mở rộng trên nhiều lĩnh vực: quản lý các hoạt động của con ngời và xã hội, tự động hóa, truyền thông, giải trí . . Đời sống của con ngời ngày càng đợc nâng cao. Bên cạnh đó nhu cầu về vui chơi giải trí của con ngời ngày càng đợc đòi hỏi. Các trò chơi đợc thiết kế bằng máy tính đã ra đời và đang trên đà phát triển để đáp ứng những nhu cầu đòi hỏi đó của con ngời. Vì lý do đó tôi đã mạnh dạn chọn đề tài: áp dụng lý thuyết Game xây dựng một số trò chơi làm khoá luận tốt nghiệp đại học. Mục tiêu của chơng trình là xây dựng một số trò chơi đơn giản nhằm giúp cho ngời chơi th giản sau những giờ học tập, làm việc căng thẳng. Chơng trình đợc tổ chức dới dạng một chơng trình quản lý các trò chơi, do đó ngời chơi có thể chơi các trò chơi khác nhau, ở các mức độ khác nhau. Sau khi tìm hiểu ngôn ngữ Visual Basic 6.0, cùng bộ công cụ Bảo Minh UniToolBox", tôi đã xây dựng chơng trình quản lý các trò chơi áp dụng lý thuyết Game gồm 4 chơng cấu trúc nh sau: Lời nói đầu 55 Đinh Thuần Nho 43B2 CNTT Khoá luận tốt nghiệp áp dụng lý thuyết Game xây dựng một số trò chơi Chơng I: Giao diện chính chơng trình quản lý một số trò chơi. Chơng II: Các trò chơi có bớc đi may rủi. Chơng III: Các trò chơi đối kháng. Chơng IV: Các trò chơi khéo léo. Kết luận Tôi xin chân thành cảm ơn tiến sỹ Phan Lê Na đã hớng dẫn và giúp đỡ tận tình tôi trong thời gian qua. Qua đây tôi cũng xin gửi lời cảm ơn các thầy giáo, cô giáo trong khoa Công nghệ thông tin và các bạn trong lớp 43B2 đã góp nhiều ý kiến cho chơng trình này. Với thời gian cho phép tôi đã hoàn thành đề tài. Song trong quá trình thiết kế và phân tích chơng trình không tránh khỏi một số hạn chế vì vậy tôi rất mong đợc sự góp ý giúp đỡ của các thầy cô giáo, các bạn để chơng trình đợc hoàn thiện hơn. Sinh viên thực hiện Đinh Thuần Nho 55 Đinh Thuần Nho 43B2 CNTT Khoá luận tốt nghiệp áp dụng lý thuyết Game xây dựng một số trò chơi Chơng I: Giao diện chính chơng trình qUản lý một số trò chơi I. Lý do chọn ngôn ngữ: Trong trờng Đại học chúng ta đợc học cơ bản về một số ngôn ngữ lập trình mang tính lý thuyết nhiều hơn là ứng dụng nh Pascal, C, Assembly, .Trong cuộc sống nhiều bài toán quản lý, tính toán đòi hỏi ngoài sự chính xác, tính đúng đắn còn cần phải có tính thẩm mỹ cao, chơng trình dễ sử dụng. Để đáp ứng đợc điều đó, tôi thấy mình cần tìm hiểu thêm một số ngôn ngữ lập trình trong môi trờng Windows mà chúng hỗ trợ rất nhiều trong quá trình thiết kế giao diện chơng trình. Visual Basic là một trong số các ngôn ngữ đó. Visual Basic là một ngôn ngữ khá mới, hỗ trợ rất mạnh cho ngời lập trình, nó có thể hỗ trợ, kết nối đợc với nhiều ngôn ngữ khác. Ngoài phần chính là lập trình với cơ sở dữ liệu, các tính năng đồ họa trong Visual Basic cũng đợc ứng dụng rất rộng rãi. Bên cạnh đó, tôi còn sử dụng bộ công cụ Bảo Minh UniToolBox", với một số tính năng nổi trội sau: - Là ngời lập trình, bạn sẽ quan tâm đến UniCode, nếu bạn chọn một môi trờng để phát triển nào đó hỗ trợ UniCode, chẳng hạn Microsoft.Net. Tuy nhiên nếu chúng ta dùng Visual Basic6, mà vẫn muốn dùng nó, thì chúng ta phải làm sao? - Microsoft hỗ trợ cho chúng ta các Activex trong Microsoft Form 2.0: TextBox, Label, ListBox, . Với các Control này đã có thể xử lý đợc dữ liệu đơn giản trên Unicode. Tuy nhiên giữa các Control chuẩn của Windows và MS Form 2.0 có những nét không giống nhau, gây khó khăn khi xử lý. - Mặt khác, chắc chắn ngời lập trình sẽ quan tâm đến giao diện của sản phẩm do mình viết ra: hình thức trình bày, giao tiếp với ngời dùng, tính hợp lý, dễ sử dụng . nói cách khác, tính Thân thiện với ngời sử dụng. 55 Đinh Thuần Nho 43B2 CNTT Khoá luận tốt nghiệp áp dụng lý thuyết Game xây dựng một số trò chơi Để thể hiện một phần kiến thức nghiên cứu đợc, em cài đặt một chơng trình thể hiện một số trò chơi đơn giản. II.Giao diện chính của ch ơng trình quản lý một số trò chơi: Chơng trình đợc thiết kế dới dạng thực đơn (Menu) để ngời chơi thuận tiện trong việc lựa chọn các trò chơi ở các mức độ khác nhau. Giao diện chính của chơng trình đợc thiết kế nh sau: Các chức năng của chơng trình đợc phân rã thành các chức năng con theo sơ đồ sau: 55 Đinh Thuần Nho 43B2 CNTT Khoá luận tốt nghiệp áp dụng lý thuyết Game xây dựng một số trò chơi Sơ đồ bố trí các chức năng con của chức năng Trò chơi may mắn: Sơ đồ bố trí các chức năng con của chức năng Trò chơi đối kháng: 55 Đinh Thuần Nho 43B2 CNTT Khoá luận tốt nghiệp áp dụng lý thuyết Game xây dựng một số trò chơi Sơ đồ bố trí các chức năng con của chức năng Trò chơi khéo léo: Ngời chơi có thể chọn nhạc trong quá trình chơi các trò chơi. Sơ đồ các choc năng của hệ thống: 55 Đinh Thuần Nho 43B2 CNTT Khoá luận tốt nghiệp áp dụng lý thuyết Game xây dựng một số trò chơi Chơng trình áp dụng lý thuyết Game xây dựng một số trò chơi hy vọng nó sẽ giúp ích phần nhỏ để th giản sau những giờ học tập hay làm việc căng thẳng. 55 Đinh Thuần Nho 43B2 CNTT Khoá luận tốt nghiệp áp dụng lý thuyết Game xây dựng một số trò chơi Chơng II: Các trò chơi có bớc đi may rủi I. Trò chơi Oẳn tù tỳ 1. ý tởng thuật toán: - Chúng ta thờng thấy các em nhỏ có trò chơi Oẳn tù tì, trò chơi cần có 2 ngời hoặc 2 đội tham gia để phân thắng bại dành quyền đi trớc cho một trò chơi nào đó tiếp theo, hoặc chỉ để thử may mắn của 2 ngời. Tuy nhiên nếu chỉ có một ngời, lại đang ngồi làm việc bên máy tính, cũng muốn thử may rủi của mình? Do đó xây dựng trò chơi này và xem máy tính nh ngời chơi còn lại. - Ngời chơi có thể chọn 1 trong 3 lựa chọn là: Búa, Kéo hoặc Giấy. - Khi ngời chơi đã lựa chọn phơng án cho mình, máy tính sẽ chọn ngẫu nhiên 1 trong 3 lựa chọn đó. - Sau đó sẽ kiểm tra các trờng hợp xảy ra là: Máy tính thắng, ngời chơi thắng hoặc trò chơi hòa. Với các quy tắc: + Búa thắng kéo + Kéo thắng giấy + Giấy thắng búa + Nếu máy tính và ngời chơi cùng chọn 1 lựa chọn thì trò chơi hòa. - Lu số lần thắng của mỗi bên trong mỗi lần chơi. 55 Đinh Thuần Nho 43B2 CNTT Khoá luận tốt nghiệp áp dụng lý thuyết Game xây dựng một số trò chơi 2. Giao diện chơng trình: Giao diện gồm có: - 3 bmBotton: cmdBua, cmdKeo, cmdGiay: là 3 lựa chọn của ngời chơi. - 2 Image: I_Ban, I_May: hiển thị lựa chọn của ngời chơi và của máy tính. - 2 bmLabel để ghi điểm ngời chơi: Diem1, Diem2. - Timer1: điều khiển trò chơi: lấy giá trị ngẫu nhiên cho lựa chọn của máy, kiểm tra các trờng hợp thắng, thua. - Timer2: điều khiển điểm chơi. 3. Code của chơng trình: - Biến lu điểm của 2 ngời chơi: Dim d1 As Integer Dim d2 As Integer - Khi ngời chơi lựa chọn 1 phơng án, chẳng hạn ngời chơi chọn là Kéo, thì sẽ đặt hình Kéo vào I_Ban, đồng thời Timer1 hoạt động: Private Sub cmdKeo_Click() Let I_Ban.Picture = cmdKeo.Picture Timer1.Enabled = True End Sub 55 Đinh Thuần Nho 43B2 CNTT cmdGiay cmdBua I_Ban (Image) I_May (Image) Khoá luận tốt nghiệp áp dụng lý thuyết Game xây dựng một số trò chơi - Private Sub Timer1_Timer() Let Timer1.Interval = Timer1.Interval + 5 Randomize Timer 1 X = Int(Rnd * 2) + 1 'Lay ngau nhien cac so >=0 va <1 roi +1, Rnd tra ve 0<gia tri<1 If X = 1 And cmdBua.Picture <> I_May.Picture Then Let I_May.Picture = cmdBua.Picture Else If X = 1 Then GoTo 1 If X = 2 And cmdKeo.Picture <> I_May.Picture Then Let I_May.Picture = cmdKeo.Picture Else If X = 2 Then GoTo 1 If X = 3 And cmdGiay.Picture <> I_May.Picture Then Let I_May.Picture = cmdGiay.Picture Else If X = 3 Then GoTo 1 If Timer1.Interval = 66 Then ' Interval la mot so chia cho 5 du 1 Let Timer1.Enabled = False Let Timer1.Interval = 1 ' Cac truong hop hoa If I_Ban.Picture = cmdBua.Picture And I_May.Picture = cmdBua.Picture Then MsgBox " Kết quả hoà ! ", vbOKOnly + vbInformation, "Hoà ." If I_Ban.Picture = cmdKeo.Picture And I_May.Picture = cmdKeo.Picture Then MsgBox " Kết quả hoà ! ", vbOKOnly + vbInformation, "Hoà ." If I_Ban.Picture = cmdGiay.Picture And I_May.Picture = cmdGiay.Picture Then MsgBox " Kết quả hoà ! ", vbOKOnly + vbInformation, "Hoà ." ' Cac truong hop thang, thua If I_Ban.Picture = cmdKeo.Picture And I_May.Picture = cmdBua.Picture Then MsgBox "Búa thắng kéo! Bạn thua! ", vbOKOnly + vbInformation, "Bạn thua!" d2 = d2 + 1 End If If I_Ban.Picture = cmdBua.Picture And I_May.Picture = cmdKeo.Picture Then MsgBox "Búa thắng kéo! Bạn thắng! ", vbOKOnly + vbInformation, "Bạn thắng!" d1 = d1 + 1 End If If I_Ban.Picture = cmdBua.Picture And I_May.Picture = cmdGiay.Picture Then MsgBox "Giấy thắng búa! Máy thắng! ", vbOKOnly + vbInformation, "Bạn thua!" d2 = d2 + 1 End If If I_Ban.Picture = cmdGiay.Picture And I_May.Picture = cmdBua.Picture Then MsgBox "Giấy thắng búa! Bạn thắng! ", vbOKOnly + vbInformation, "Bạn thắng! " 55 Đinh Thuần Nho 43B2 CNTT . CNTT Khoá luận tốt nghiệp áp dụng lý thuyết Game xây dựng một số trò chơi Chơng trình áp dụng lý thuyết Game xây dựng một số trò chơi hy vọng nó sẽ giúp. tốt nghiệp áp dụng lý thuyết Game xây dựng một số trò chơi Chơng I: Giao diện chính chơng trình quản lý một số trò chơi. Chơng II: Các trò chơi có bớc