Jump to content
urso

Como controlar Pontos ?? VB 2010

Recommended Posts

urso

Ora boas..

Bem estou a tentar desenvolver um quizz.. no qual quero Que  no final existam pontos totais,

Exemplo: Cada pergunta certa valer 5 pontos e cada errada 0..

O meu problema está ai mesmo :S como Faze-lo ? .. :wallbash:

Este é o Código Que tenho ..

Será Que alguem me poderia dar uma ajuda de como  meter Ele a gerar os pontos SFF :S

 

Sopondo Que a Primeira resposta da Checkbox esta sempre certa

"Está a Correr este código Quando Clicko no Butão "NEXT""

 

Dim key As Integer

        key = Int(Rnd() * 9)
        Select Case key

            Case 0


                Pergunta.Text = "Qual a tua nacionalidade?"
                If Resposta1.Checked = True Then
                    ponto = 5
                    pontos.Text = (ponto)
                Else
                    ponto = 0


                End If

            Case 1
                Pergunta.Text = "Onde nasceste ?"
                If Resposta1.Checked = True Then
                    ponto = 5
                    pontos.Text = (ponto)
                Else
                    ponto = 0


                End If
            Case 2
                Pergunta.Text = "Onde nascest22222222222e ?"
                If Resposta1.Checked = True Then
                    ponto = 5
                    pontos.Text = (ponto)
                Else
                    ponto = 0


                End If
            Case 3
                Pergunta.Text = "Onde nascest33333333333333 ?"
                If Resposta1.Checked = True Then
                    ponto = 5
                    pontos.Text = (ponto)
                Else
                    ponto = 0


                End If

            Case 4
                Pergunta.Text = "Onde nascest444444444444444e ?"
                If Resposta1.Checked = True Then
                    ponto = 5

                Else
                    ponto = 0


                End If
            Case 5
                Pergunta.Text = "Onde nascest555555555555e ?"
                If Resposta1.Checked = True Then
                    ponto = 5

                Else
                    ponto = 0


                End If
            Case 6
                Pergunta.Text = "Onde nascest566666666666666e ?"
                If Resposta1.Checked = True Then
                    ponto = 5

                Else
                    ponto = 0


                End If
            Case 7
                Pergunta.Text = "Onde nasces77777777777777e ?"
                If Resposta1.Checked = True Then
                    ponto = 5

                Else
                    ponto = 0


                End If
            Case 8
                Pergunta.Text = "Onde nasceste ?"
                If Resposta1.Checked = True Then
                    ponto = 5

                Else
                    ponto = 0


                End If

        End Select
       


    End Sub

Agradecia a Vossa aJuda..

Cumps....

Share this post


Link to post
Share on other sites
Andrepereira9

boas

Crias uma variavel para armazenar os pontos totais, fora do evento do botão Next

Ex:

Dim pontototais as integer

Depois dentro de cada if, se a resposta estiver correcta, metes

pontostotais += 5


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
urso

ObrigadO pela ajuda..

mas continua  sem fazer o que era necessário. :wallbash:

Resumidamente é isto Que tenho! =)

Public Class Form2
Dim pontototais As Integer

Private randomize As New Random

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim key As Integer

        key = Int(Rnd() * 9)
        Select Case key

            Case 0


                Pergunta.Text = "Qual a tua nacionalidade?"
                If Resposta1.Checked = True Then
                    pontototais += 5
                    pontos.Text = pontototais
                Else
                    pontototais += 0


                End If
pontos.Text = pontototais

End Class

Agradecia uma ajuda =)

Share this post


Link to post
Share on other sites
bioshock

É normal que isso não funcione em nenhuma parte do mundo.

O que o teu código faz é igual a zero.

Se queres elaborar um quiz, terás de utilizar arrays para armazenar as perguntas e as devidas respostas, quando tiveres isso feito, então aí a questão dos pontos é uma feature substancial.

Share this post


Link to post
Share on other sites
Away

boas

Crias uma variavel para armazenar os pontos totais, fora do evento do botão Next

Ex:

Dim pontototais as integer

Depois dentro de cada if, se a resposta estiver correcta, metes

pontostotais += 5

Cada resposta certa faz o que ele disse ( Adiciona no codigo do butao certo )  pontostotais += 5

E Para obter os pontos apenas Faz QualquerCoisa.Text = pontostotais ( "QualquerCoisa" pode ser qualquer coisa LOL tipo labels, textboxes...)

Não tou a ver Como não fazer xD


Msgbox("I Help if i can, Hope some day you help me too!")

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.