3 Replies - 2926 Views - Last Post: 21 January 2013 - 07:52 PM Rate Topic: -----

#1 Taza95  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 1
  • Joined: 28-November 11

who wants to be a millionaire project

Posted 28 November 2011 - 04:30 AM

Hi

I got a college assignment to do to make who wants to be a millionaire game
Public Class Form1
    Structure question
        Dim question As String
        Dim A As String
        Dim b As String
        Dim c As String
        Dim d As String
        Dim answer As String
    End Structure
    Dim questions(14) As question
    Dim currentquestion As Integer = 0
    Dim Prizemoney(14) As Integer

    Private Sub setupprizemoney()
        Prizemoney(0) = "100"
        Prizemoney(1) = "200"
        Prizemoney(2) = "300"
        Prizemoney(3) = "500"
        Prizemoney(4) = "1000"
        Prizemoney(5) = "2000"
        Prizemoney(6) = "4000"
        Prizemoney(7) = "8000"
        Prizemoney(8) = "16000"
        Prizemoney(9) = "32000"
        Prizemoney(10) = "54000"
        Prizemoney(11) = "125000"
        Prizemoney(12) = "250000"
        Prizemoney(13) = "500000"
        Prizemoney(14) = "1000000"


    End Sub

    Private Sub setupquestions()
        questions(0).question = "how many moons do we have?"
        questions(0).A = "2"
        questions(0).b = "1"
        questions(0).c = "984"
        questions(0).d = "We have a moon?"
        questions(0).answer = "1"

        questions(1).question = "Who was the first president of america?"
        questions(1).A = "Kevin"
        questions(1).b = "George washington"
        questions(1).c = "Tariq Salameh"
        questions(1).d = "Abraham lincoln"
        questions(1).answer = "George washington"


        questions(2).question = "Who sang the song in 1974 called 'no woman no cry?'"
        questions(2).A = "Barrack obama"
        questions(2).b = "Tariq Salameh"
        questions(2).c = "Bob Marley"
        questions(2).d = "Justin bieber"
        questions(2).answer = "Bob Marley"

        questions(3).question = "Am i cool?"
        questions(3).A = "Yes"
        questions(3).b = "No"
        questions(3).c = "Chewing gum"
        questions(3).d = "Abraham lincoln"
        questions(3).answer = "Yes"

        questions(4).question = "Who was the first Tv chef?"
        questions(4).A = "Franny craddock"
        questions(4).b = "Tony blaire"
        questions(4).c = "Kevin"
        questions(4).d = "Abraham lincoln"
        questions(4).answer = "Franny craddock"

        questions(5).question = "How old is craig?"
        questions(5).A = "7"
        questions(5).b = "30"
        questions(5).c = "Its over 9000!"
        questions(5).d = "99"
        questions(5).answer = "Its over 9000!"


        questions(6).question = "Who was the first president of america?"
        questions(6).A = "Barrack obama"
        questions(6).b = "George washington"
        questions(6).c = "George Bush"
        questions(6).d = "Abraham lincoln"
        questions(6).answer = "George washington"

        questions(7).question = "Who created mankind?"
        questions(7).A = "Not sure"
        questions(7).b = "Maybe kevin?"
        questions(7).c = "could be phil?"
        questions(7).d = "Nah im sure its kevin"
        questions(7).answer = "Nah im sure its kevin"


        questions(8).question = "Where does Tariq live?"
        questions(8).A = "Gy"
        questions(8).b = "Meggies"
        questions(8).c = "kevin"
        questions(8).d = "Humberstone avenue"
        questions(8).answer = "Gy"

        questions(9).question = "Who was the first president of america?"
        questions(9).A = "kevin"
        questions(9).b = "kevin"
        questions(9).c = "kevin"
        questions(9).d = "George washington"
        questions(9).answer = "George washington"


        questions(10).question = "Kevin?"
        questions(10).A = "Sleep"
        questions(10).b = "Cool"
        questions(10).c = "Hard working"
        questions(10).d = "Legend"
        questions(10).answer = "Sleep"

        questions(11).question = "Tariq For?"
        questions(11).A = "Kevin"
        questions(11).b = "Amy <---THE ANSWER!"
        questions(11).c = "Nobody (im Lonely)"
        questions(11).d = "Lucy Pinder"
        questions(11).answer = "Amy <---THE ANSWER!"

        questions(12).question = "Who was the first president of america?"
        questions(12).A = "Barrack obama"
        questions(12).b = "George washington"
        questions(12).c = "George Bush"
        questions(12).d = "Abraham lincoln"
        questions(12).answer = "George washington"

        questions(13).question = "Who was the first president of america?"
        questions(13).A = "Barrack obama"
        questions(13).b = "George washington"
        questions(13).c = "George Bush"
        questions(13).d = "Abraham lincoln"
        questions(13).answer = "George washington"

        questions(14).question = "Im just too cool?"
        questions(14).A = "Yeah right"
        questions(14).b = "We love you Tariq!"
        questions(14).c = "Africa"
        questions(14).d = "Trololololo"
        questions(14).answer = "Trololololo"
    End Sub
    Private Sub showquestion(ByVal Q As Integer)


        Button1.Visible = True
        Button2.Visible = True
        Button3.Visible = True
        Button4.Visible = True






        Label1.Text = questions(Q).question
        Button1.Text = questions(Q).A
        Button2.Text = questions(Q).b
        Button3.Text = questions(Q).c
        Button4.Text = questions(Q).d
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        setupquestions()
        showquestion(currentquestion)


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button1.Text = questions(currentquestion).answer Then
            MsgBox("Correct")


            currentquestion = currentquestion + 1
            showquestion(currentquestion)

        Else
            MsgBox("wrong")
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Button2.Text = questions(currentquestion).answer Then
            MsgBox("Correct")

            currentquestion = currentquestion + 1
            showquestion(currentquestion)

        Else
            MsgBox("wrong")
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Button3.Text = questions(currentquestion).answer Then
            MsgBox("Correct")

            currentquestion = currentquestion + 1
            showquestion(currentquestion)


        Else
            MsgBox("wrong")
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Button4.Text = questions(currentquestion).answer Then
            MsgBox("Correct")

            currentquestion = currentquestion + 1
            showquestion(currentquestion)

        Else
            MsgBox("wrong")
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim r As New Random
        Dim removed As Integer = 0
        Dim number As Integer


        number = r.Next(0, 3)

        Select Case number

            Case 0
                If Button1.Text = questions(currentquestion).answer Then


                Else


                    Button1.Visible = False = removed + 1
                    If removed < 2 Then
                        number = r.Next(0, 3)
                    End If
                End If


            Case 1

                If Button2.Text = questions(currentquestion).answer Then


                Else


                    Button2.Visible = False = removed + 1
                    If removed < 2 Then
                        number = r.Next(0, 3)
                    End If
                End If

            Case 2

                If Button3.Text = questions(currentquestion).answer Then


                Else


                    Button3.Visible = False = removed + 1
                    If removed < 2 Then
                        number = r.Next(0, 3)
                    End If
                End If


            Case 3

                If Button4.Text = questions(currentquestion).answer Then


                Else


                    Button4.Visible = False = removed + 1
                    If removed < 2 Then
                        number = r.Next(0, 3)
                    End If
                End If


        End Select







    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim responses(15) As String
        responses(0) = "I think the answer is 1"
        responses(1) = "I think The answer is George washington"
        responses(2) = "I think the answer is bob marley"
        responses(4) = "I think the answe is Abhraham lincoln"
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub
End Class


I am stuck with connecting the questions with the array of prizemoney.
I am also stuck on doing the phone a friend lifeline and the ask the audience.

I am new to all this some any tips please? :)

Is This A Good Question/Topic? 0
  • +

Replies To: who wants to be a millionaire project

#2 modi123_1  Icon User is online

  • Suitor #2
  • member icon



Reputation: 9566
  • View blog
  • Posts: 36,209
  • Joined: 12-June 08

Re: who wants to be a millionaire project

Posted 28 November 2011 - 07:30 AM

Quote

I am stuck with connecting the questions with the array of prizemoney.

Isn't that what the variable "currentquestion" is for? To index both question and value?


Quote

I am also stuck on doing the phone a friend lifeline and the ask the audience.

Well, what are the requirements for both?
Was This Post Helpful? 0
  • +
  • -

#3 jnova  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 4
  • Joined: 21-January 13

Re: who wants to be a millionaire project

Posted 21 January 2013 - 07:51 PM

I copied your code in to my VB.net and I get an error Error

Handles clause requires a WithEvents variable defined in the containing type or one of its base types.	


Was This Post Helpful? 0
  • +
  • -

#4 macosxnerd101  Icon User is offline

  • Self-Trained Economist
  • member icon




Reputation: 10803
  • View blog
  • Posts: 40,255
  • Joined: 27-December 08

Re: who wants to be a millionaire project

Posted 21 January 2013 - 07:52 PM

This is the VB6 forum, not the VB.NET forum.

Also, please avoid pointless necroposting.
Was This Post Helpful? 0
  • +
  • -

Page 1 of 1