Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

cmd

dúvidas de VB

Recommended Posts

cmd

Boa noite a todos,

Tenho uma dúvida e um problema que esperava que me ajudassem.

A minha dúvida é como meter um ficheiro de música a tocar permanentemente num projecto de VB, agradecia qualquer ajuda.

O meu problema é o seguinte:

Estou a desenvolver um projecto em VB para as aulas de inglês, o projecto é um quiz e onde estou "enpancado" é no sistema de pontuação.

Tenho o seguinte código:

Select Case numero
            Case 0
                RadioButton1.Text = "Use public transports"
                RadioButton2.Text = "Use your bicicle"
                RadioButton3.Text = "Start fires"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 5
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 10
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 0
                End If
            Case 1
                RadioButton1.Text = "Recicle, Reduce and Reuse"
                RadioButton2.Text = "Run, Run and Run"
                RadioButton3.Text = "O Rato Roeu a Rolha"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 10
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 0
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 0
                End If
            Case 2
                RadioButton1.Text = "Is a layer of gases"
                RadioButton2.Text = "I have no idea"
                RadioButton3.Text = "Is the layer that protects the earth"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 5
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 0
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 10
                End If
            Case 3
                RadioButton1.Text = "Rising temperature of the earth"
                RadioButton2.Text = "Variation of the temperature"
                RadioButton3.Text = "Something to eat"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 10
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 5
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 0
                End If
            Case 4
                RadioButton1.Text = "Air pollution and deforestation"
                RadioButton2.Text = "Car gases"
                RadioButton3.Text = "Walking to work"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 5
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 0
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 10
                End If
            Case 5
                RadioButton1.Text = "Melting of the polar regions"
                RadioButton2.Text = "Excessive water"
                RadioButton3.Text = "Floods"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 10
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 0
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 5
                End If
            Case 6
                RadioButton1.Text = "Cutting trees"
                RadioButton2.Text = "Mowing your lawn"
                RadioButton3.Text = "Massive forest destruction"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 5
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 0
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 10
                End If
            Case 7
                RadioButton1.Text = "A natural function of the ozone layer"
                RadioButton2.Text = "Effect of painting your house in green"
                RadioButton3.Text = "Something about the atmosphere"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 10
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 0
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 5
                End If
            Case 8
                RadioButton1.Text = "Driving our car to work"
                RadioButton2.Text = "Using public transports"
                RadioButton3.Text = "Walking or using our bicicle"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 0
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 5
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 10
                End If
            Case 9
                RadioButton1.Text = "Everytime I can"
                RadioButton2.Text = "Sometimes"
                RadioButton3.Text = "Never"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 10
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 5
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 0
                End If
            Case 10
                RadioButton1.Text = "I don't know what they are"
                RadioButton2.Text = "I use some of them"
                RadioButton3.Text = "I only use renewable energies"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 0
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 5
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 10
                End If
            Case 11
                RadioButton1.Text = "No, I can't stop using them"
                RadioButton2.Text = "I could give a try"
                RadioButton3.Text = "I am already reducing the use of fossil fuels"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 0
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 5
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 10
                End If
            Case 12
                RadioButton1.Text = "Global warming"
                RadioButton2.Text = "Deforestation"
                RadioButton3.Text = "Spilling your coffe"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 10
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 5
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 0
                End If
            Case 13
                RadioButton1.Text = "Energies that never run out"
                RadioButton2.Text = "Energies that we replace them when they're out"
                RadioButton3.Text = "Natural energies"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 10
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 0
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 5
                End If
            Case 14
                RadioButton1.Text = "No"
                RadioButton2.Text = "Yes, everyday"
                RadioButton3.Text = "Sometimes"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 10
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 0
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 5
                End If
        End Select

O que o código que mostrei deveria efectuar era somar a pontuação certa se o "RadioButton" escolhido fosse o correcto, de cada vez que pressionava o botão.

A pontuação que deveria ser apresentada era 100 pontos e só apresenta entre 45 e 60.

Será que me podiam ajudar?

(peço desculpa pela extensão do texto)

EDIT:

Peço desculpa por ter colocado o POST no local errado, peço aos moderadores para o moverem.


Cumps.cmd

Share this post


Link to post
Share on other sites
pbreda

tenta na pontuação em vez de "pontuacao = pontuacao + 0" mete "pontuacao += 0"...se por acaso continuar a dar o mesmo problema verifica as operações lógicas, ou seja, os IF's....

Cumprimentos.....


Qualquer coisa esfrega a lampada!!!Visite Banco de Software e desfrute do software disponível xD

Share this post


Link to post
Share on other sites
cmd

tenta na pontuação em vez de "pontuacao = pontuacao + 0" mete "pontuacao += 0"...se por acaso continuar a dar o mesmo problema verifica as operações lógicas, ou seja, os IF's....

Cumprimentos.....

Boas,

Qual a diferença entre eles?

Nunca percebi muito bem  :wallbash:

Edit:

Já fiz como indicado e continua sem funcionar


Cumps.cmd

Share this post


Link to post
Share on other sites
pbreda

peço desculpa....pensava que estava em vb.net e a final estou em vb xD....podes apresentar o codigo todo do programa?

Cumprimentos....


Qualquer coisa esfrega a lampada!!!Visite Banco de Software e desfrute do software disponível xD

Share this post


Link to post
Share on other sites
cmd

XD

Mas qual é a diferença entre eles?

Public Class quiz_1
    'definir o construtor da função
    Dim p As gerar_pergunta = Nothing

    Private Sub quiz_1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'iniciar o contrutor
        p = New gerar_pergunta
        'executar a função
        p.pergunta()
        'preencher as labels com os dados respectivos
        Label2.Text = perguntas(numero)
        Label3.Text = numero_p
        pontuacao = 0
        Select Case numero
            Case 0
                RadioButton1.Text = "Use public transports"
                RadioButton2.Text = "Use your bicicle"
                RadioButton3.Text = "Start fires"
            Case 1
                RadioButton1.Text = "Recicle, Reduce and Reuse"
                RadioButton2.Text = "Run, Run and Run"
                RadioButton3.Text = "O Rato Roeu a Rolha"
            Case 2
                RadioButton1.Text = "Is a layer of gases"
                RadioButton2.Text = "I have no idea"
                RadioButton3.Text = "Is the layer that protects the earth"
            Case 3
                RadioButton1.Text = "Rising temperature of the earth"
                RadioButton2.Text = "Variation of the temperature"
                RadioButton3.Text = "Something to eat"
            Case 4
                RadioButton1.Text = "Air pollution and deforestation"
                RadioButton2.Text = "Car gases"
                RadioButton3.Text = "Walking to work"
            Case 5
                RadioButton1.Text = "Melting of the polar regions"
                RadioButton2.Text = "Excessive water"
                RadioButton3.Text = "Floods"
            Case 6
                RadioButton1.Text = "Cutting trees"
                RadioButton2.Text = "Mowing your lawn"
                RadioButton3.Text = "Massive forest destruction"
            Case 7
                RadioButton1.Text = "A natural function of the ozone layer"
                RadioButton2.Text = "Effect of painting your house in green"
                RadioButton3.Text = "Something about the atmosphere"
            Case 8
                RadioButton1.Text = "Driving our car to work"
                RadioButton2.Text = "Using public transports"
                RadioButton3.Text = "Walking or using our bicicle"
            Case 9
                RadioButton1.Text = "Everytime I can"
                RadioButton2.Text = "Sometimes"
                RadioButton3.Text = "Never"
            Case 10
                RadioButton1.Text = "I don't know what they are"
                RadioButton2.Text = "I use some of them"
                RadioButton3.Text = "I only use renewable energies"
            Case 11
                RadioButton1.Text = "No, I can't stop using them"
                RadioButton2.Text = "I could give a try"
                RadioButton3.Text = "I am already reducing the use of fossil fuels"
            Case 12
                RadioButton1.Text = "Global warming"
                RadioButton2.Text = "Deforestation"
                RadioButton3.Text = "Spilling your coffe"
            Case 13
                RadioButton1.Text = "Energies that never run out"
                RadioButton2.Text = "Energies that we replace them when they're out"
                RadioButton3.Text = "Natural energies"
            Case 14
                RadioButton1.Text = "No"
                RadioButton2.Text = "Yes, everyday"
                RadioButton3.Text = "Sometimes"
        End Select
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'verificar se ja atingiu o máximo de perguntas
        If numero_p = 10 Then
            MsgBox("The game is over", MsgBoxStyle.Information, "Error")
            pontos.Show()
            Me.Close()
            Exit Sub
        End If
        'incrementar o numero da pergunta
        numero_p = numero_p + 1
        'preencher o numero da pergunta
        Label3.Text = numero_p
        'executar a função
        p.pergunta()
        'preencher com a nova pergunta
        Label2.Text = perguntas(numero)
        RadioButton1.Checked = True
        Select Case numero
            Case 0
                RadioButton1.Text = "Use public transports"
                RadioButton2.Text = "Use your bicicle"
                RadioButton3.Text = "Start fires"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 5
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 10
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 0
                End If
            Case 1
                RadioButton1.Text = "Recicle, Reduce and Reuse"
                RadioButton2.Text = "Run, Run and Run"
                RadioButton3.Text = "O Rato Roeu a Rolha"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 10
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 0
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 0
                End If
            Case 2
                RadioButton1.Text = "Is a layer of gases"
                RadioButton2.Text = "I have no idea"
                RadioButton3.Text = "Is the layer that protects the earth"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 5
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 0
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 10
                End If
            Case 3
                RadioButton1.Text = "Rising temperature of the earth"
                RadioButton2.Text = "Variation of the temperature"
                RadioButton3.Text = "Something to eat"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 10
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 5
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 0
                End If
            Case 4
                RadioButton1.Text = "Air pollution and deforestation"
                RadioButton2.Text = "Car gases"
                RadioButton3.Text = "Walking to work"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 5
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 0
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 10
                End If
            Case 5
                RadioButton1.Text = "Melting of the polar regions"
                RadioButton2.Text = "Excessive water"
                RadioButton3.Text = "Floods"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 10
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 0
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 5
                End If
            Case 6
                RadioButton1.Text = "Cutting trees"
                RadioButton2.Text = "Mowing your lawn"
                RadioButton3.Text = "Massive forest destruction"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 5
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 0
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 10
                End If
            Case 7
                RadioButton1.Text = "A natural function of the ozone layer"
                RadioButton2.Text = "Effect of painting your house in green"
                RadioButton3.Text = "Something about the atmosphere"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 10
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 0
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 5
                End If
            Case 8
                RadioButton1.Text = "Driving our car to work"
                RadioButton2.Text = "Using public transports"
                RadioButton3.Text = "Walking or using our bicicle"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 0
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 5
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 10
                End If
            Case 9
                RadioButton1.Text = "Everytime I can"
                RadioButton2.Text = "Sometimes"
                RadioButton3.Text = "Never"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 10
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 5
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 0
                End If
            Case 10
                RadioButton1.Text = "I don't know what they are"
                RadioButton2.Text = "I use some of them"
                RadioButton3.Text = "I only use renewable energies"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 0
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 5
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 10
                End If
            Case 11
                RadioButton1.Text = "No, I can't stop using them"
                RadioButton2.Text = "I could give a try"
                RadioButton3.Text = "I am already reducing the use of fossil fuels"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 0
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 5
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 10
                End If
            Case 12
                RadioButton1.Text = "Global warming"
                RadioButton2.Text = "Deforestation"
                RadioButton3.Text = "Spilling your coffe"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 10
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 5
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 0
                End If
            Case 13
                RadioButton1.Text = "Energies that never run out"
                RadioButton2.Text = "Energies that we replace them when they're out"
                RadioButton3.Text = "Natural energies"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 10
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 0
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 5
                End If
            Case 14
                RadioButton1.Text = "No"
                RadioButton2.Text = "Yes, everyday"
                RadioButton3.Text = "Sometimes"
                If RadioButton1.Checked = True Then
                    pontuacao = pontuacao + 10
                ElseIf RadioButton2.Checked = True Then
                    pontuacao = pontuacao + 0
                ElseIf RadioButton3.Checked = True Then
                    pontuacao = pontuacao + 5
                End If
        End Select
    End Sub
End Class

Aqui está o código.


Cumps.cmd

Share this post


Link to post
Share on other sites
cmd

Claro obrigado,

Tenho também módulos onde estão outras partes do programa, são necessários?


Cumps.cmd

Share this post


Link to post
Share on other sites
pbreda

boas, não obrigatoriamente mas é melhor fornecer, torna-se mais fácil para te ajudar....

Cumprimentos...


Qualquer coisa esfrega a lampada!!!Visite Banco de Software e desfrute do software disponível xD

Share this post


Link to post
Share on other sites
cmd

Boas,

Acho que já consegui resolver.

pbreda, obrigado  :)

O que fiz foi colocar as respostas certas sempre no radiobutton1.checked.

Dessa forma já resolveu :D


Cumps.cmd

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

×

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.