Thiết kế ứng dụng trò chơi ai là triệu phú

- Đây là game được mô phỏng lại chương trình “Ai là triệu phú” trên VTV3, nhằm đáp ứng nhu cầu giải trí cho mọi người, với những ai chưa có cơ hội ngồi trên chiếc ghế nóng thì đây là nơ

Trường Cao Đẳng Thực Hành

FPT-Polytechnic

BÁO CÁO ASSIGNMENT

Tên đề tài : Thiết kế ứng dụng trò chơi Ai LÀ Triệu Phú

Lớp : PT0901 MSSV : PA00023 Sinh viên thực hiện : Nguyễn Tiến Dũng Giáo viên hướng dẫn : Lê Thanh Hải

Mục Lục Tự Động Game Ai Là Tri u Phú ệu Phú CHƯƠNG 1: GIỚI THIỆU TỔNG QUAN 2

1 Giới thiệu: 2

2 Mục đích của đề tài : 2

3 Những đối tượng sử dụng : 2

4.Nhiệm vụ của người chơi : 2

CHƯƠNG II : ỨNG DỤNG AI LÀ TRIỆU PHÚ 3

1 Sơ đồ liên kết 3

A Cấu trúc Form 3

B Sơ đồ liên kết Form 4

2 Hình thức trong Game: 5

3 Mô hình và code 6

4 Chức năng cả từng Form 16

triệu phú" ngay trên máy tính cá nhân của bạn

- Đây là game được mô phỏng lại chương trình “Ai là triệu phú” trên VTV3,

nhằm đáp ứng nhu cầu giải trí cho mọi người, với những ai chưa có cơ hội ngồi trên chiếc ghế nóng thì đây là nơi để bạn vừa giải trí và kiểm tra lại kiến thức của mình

- Ai đã từng đam mê chương trình “Ai là triệu phú” thì hôm nay chắc chắn

không thể bỏ qua các phiên bản game mới mới nhất của gameshow đầy thú

vị này

2 Mục đích của đề tài :

Để cải thiện thêm mục đích giải trí của con người , Lập trình viên Dungnt sẽ thực hiện đề tài thiết kế một ứng dụng game giải trí nhỏ phục vụ cho việc vui chơi giải trí.

Game Ai là Triệu Phú là một game mô phỏng game show trên đài truyền hình Việt Nam Bạn sẽ được trải nghiệm những giây phút sống động đầy thử thách nhưng vô cùng hấp dẫn với phiên bản Ai là Triệu Phú Offline cho Laptop 1.0 do lập trình viên Dungnt sinh viên của trường Cao Đẳng Thực Hành FPT Polytechnich lập trình.

3 Những đối tượng sử dụng :

Là những người đam mê những trò trơi trên truyền hình, muốn thử thách bản thân qua những câu hỏi của trò chơi, chính vì lấy ý tưởng từ các trương trình trên truyền hình nên sẽ thu hút được số lượng người chơi , từ những em nhỏ cho đến những người lớn tuổi , trò chơi không có tính bạo lực mà đây sẽ là game trau dồi cho ta nhiều kiến thức về nhiều lĩnh vực khác nhau trong đời sống xã hội

4.Nhiệm vụ của người chơi :

Lấy ý tưởng từ trò chơi Ai là triệu phú trên truyền hình, với người dẫn chương trình

ăn khách Lại Văn Sâm Chúng tôi đã nỗ lực không biết mệt mỏi trong một thời gian dài để đưa ra thực tiễn trò chơi Ai là triệu phú Ghế nóng Nhiệm vụ của người chơi

là trả lời 15 câu hỏi khác nhau để đi đến đích cao nhất của chương trình, đó là triệu phú Ghế nóng.

Có một bộ câu hỏi bao gồm hơn 1000 câu hỏi ở nhiều lĩnh vực, từ câu hỏi dễ đến câu hỏi khó, đòi hỏi độ phức tạp cao Những lĩnh vực mà chúng tôi thường xuyên lấy câu hỏi đó là lĩnh vực lịch sử, hóa học, y học và thể thao Vì vậy các bạn muốn thắng được ứng dụng game này thì trước tiên bản nắm rõ được các lĩnh vực trên để

có thể trả lời được nhiều câu hỏi và nhận được phần thưởng bằng tiền mặt có giá trị.

Từ câu 1 đến câu 15, sẽ có 3 mốc quan trọng là 5,10,15 giống hệt trò chơi Ai là triệu phú trên truyền hình Bạn vượt qua mốc này thì giá trị tiền của bạn nhận được thấp nhất sẽ là giá trị ở các mốc thấp nhất.

+ Form Hướng Dẫn

+ Form Sẵn Sàng

+ Form Câu Hỏi

+ Form Thêm Câu Hỏi

B Sơ đồ liên kết Form

Form Login Form mở đầu

Form Câu Hỏi

Form Sẵn sàng

Form Hướng dẫn Form Bắt đầu

Form Giới Thiệu

Form Chính

2 Hình thức trong Game:

Với giao diện đơn giản, dễ sử dụng, mở lên, bạn chỉ cần ấn OK(phím giữa)

là có thể bắt đầu chơi, hoặc ấn nút back để thoát

- Với thư viện câu hỏi lên đến hàng trăm câu, ngẫu nhiên và đủ mọi lĩnh vực

- Sử dụng chuột để lựa chọn đáp án, sau khi chọn đáp án bạn sẽ phải đợi trong 5s để máy tính đưa ra đáp án đúng

Trong khi chơi, bạn có thể ấn nút Dừng Chơi để quay trở lại giao diện bắt đầu

Khi trả lời sai, bạn sẽ bị thua cuộc

Câu hỏi và mức thưởng bằng tiền Việt

3 Mô hình và code

<< Form Mở Đầu >>

Public Class frmMoDau

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Label1.Click

frmLogin.Show()

Me.Hide()

End Sub

End Class

<< Form Login >>

Public Class frmLogin

Public sTen, sNgheNghiep As String

Public bTime As Boolean

Public iTime As Integer

Dim sDir As String = My.Application.Info.DirectoryPath & "\"

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles OK.Click

On Error Resume Next

ElseIf txNgheNghiep.Text.Trim <> "" Then

MsgBox("Bạn cầ:n nhập nghê: nghiệp cu=a bạn!", MsgBoxStyle.YesNo+ MessageBoxIcon.Error, "Thông báo")

Private Sub Thoat_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Thoat.Click

Public Class frmChinh

Dim App_path As String

Private Sub btnThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThoat.Click

My.Computer.Audio.Stop()

Me.Hide()

frmModau.Show()

' Me.Close()

Private Sub frmChinh_Activated(ByVal sender As Object, ByVal e As

System.EventArgs) Handles Me.Activated

My.Computer.Audio.Play(App_path & "modau.wav",

AudioPlayMode.BackgroundLoop)

End Sub

Private Sub frmChinh_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load

<< Form Giới Thiệu >>

Public Class frmGioiThieu

Private Sub btnTroVe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTroVe.Click

<< Form Hướng Dẫn >>

Public Class frmHuongDan

Private Sub btnTroVe_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnTroVe.Click

<< Form Sẵn Sàng >>

Public Class frmBatDau

Dim App_path As String

Private Sub frmBatDau_Load(ByVal sender As Object, ByVal e As

System.EventArgs) Handles Me.Load

Private Sub btnBatDau2_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnBatDau2.Click

frmCauHoi.Show()

Me.Close()

End Sub

End Class

Imports System.IO

Public Class frmCauHoi

Dim App_path As String

Dim cauhoi() As String = New String(15) {}

Dim dapanA() As String = New String(15) {} ' khai báo tương đương với sôY cầu

ho=i sẽ xuầYt hiện

Dim dapanB() As String = New String(15) {}

Dim dapanC() As String = New String(15) {}

Dim dapanD() As String = New String(15) {}

Dim noidung() As String = New String(15) {}

Dim dapandung() As Integer = New Integer(15) {}

Dim cauhientai As Integer

Dim i As Integer

Dim chondapan() As Integer = New Integer(15) {}

Private Sub frmCauHoi_Activated(ByVal sender As Object, ByVal e As

System.EventArgs) Handles Me.Activated

My.Computer.Audio.Play(App_path & "nhacnen.wav",

AudioPlayMode.BackgroundLoop)

End Sub

Private Sub frmCauHoi_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load

App_path = New

System.IO.FileInfo(Application.ExecutablePath).DirectoryName

App_path = Microsoft.VisualBasic.Left(App_path, Len(Trim(App_path)) - 9)

dapanA(i) = noidung(i).Split("|")(1).Trim

dapanB(i) = noidung(i).Split("|")(2).Trim

dapanC(i) = noidung(i).Split("|")(3).Trim

dapanD(i) = noidung(i).Split("|")(4).Trim

dapandung(i) = noidung(i).Split("|")(5).Trim

Private Sub btnA_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnA.Click

Timer1.Stop()

Dim result As DialogResult = MessageBox.Show("Bạn có chắYc chắYn chọn đáp

án A không ?", "Thông báo", MessageBoxButtons.YesNo, MessageBoxIcon.Information)

If result = DialogResult.Yes Then

ChoiceAnw = A

Timer2.Start()

End If

End Sub

Private Sub btnB_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnB.Click

Timer1.Stop()

Dim result As DialogResult = MessageBox.Show("Bạn có chắYc chắYn chọn đáp

án B không ?", "Thông báo", MessageBoxButtons.YesNo, MessageBoxIcon.Information)

If result = DialogResult.Yes Then

ChoiceAnw = B

Timer2.Start()

End If

End Sub

Private Sub btnC_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnC.Click

Timer1.Stop()

Dim result As DialogResult = MessageBox.Show("Bạn có chắYc chắYn chọn đáp

án C không ?", "Thông báo", MessageBoxButtons.YesNo, MessageBoxIcon.Information)

If result = DialogResult.Yes Then

ChoiceAnw = C

Timer2.Start()

End If

End Sub

Private Sub btnD_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnD.Click

Timer1.Stop()

Dim result As DialogResult = MessageBox.Show("Bạn có chắYc chắYn chọn đáp

án D không ?", "Thông báo", MessageBoxButtons.YesNo, MessageBoxIcon.Information)

If result = DialogResult.Yes Then

ChoiceAnw = D

Timer2.Start()

End If

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Timer1.Tick

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Timer2.Tick

DapAn()

End If

End Sub

End Class

4 Chức năng cả từng Form

Form này chính là form người chơi click vào để bắt đầu đăng nhập vào trò chơi

Form này người chơi phải bắt buộc nhận vào form cho đủ dữ liệu thì chương trình sẽ cho tiếp tục login vào chương trình

Form này là form menu chính để người chơi lựa chọn , người chơi có thể xem giới thiệu về chương trình , xem hướng dẫn cách chơi và để bắt đầu trò chơi

Tại giao diện của form này chính là giao diện để người chơi trả lời những câu hỏi của chương trình, người chơi trả lời và nhận được số tiền tương ứng với mỗi câu hỏi , và có thể sử dụng quyền trợ giúp