Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

cmd

dúvidas de VB

Mensagens Recomendadas

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

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.