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

joaorebouta

Estou com dificuldades neste projeto final, tema- videojogos

Recommended Posts

joaorebouta

Boa tarde!

Com este programa os meus objectivos são:

1-Fazer uma pergunta a utilizador de quantos formulários quer fazer;

2-Depois a pessoa selecciona o radiobutton que lhe interessa;

3-Aparece uma mensagem a dizer obrigado pela votação;

4- Escreve na listbox quantas vezes votaram neste Radiobutton;

O erro que tenho é quando escreve o Rpg que é o texto de um radiobutton aparece o numero de questionarios que a pessoa quer fazer e nao esta a somar so aparece o 1 nao soma a variavel volta sempre a 0

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim i, n, Conta1, Conta2, Conta3, Conta4, Conta5, Conta6 As Integer
        Conta1 = 0
        Conta2 = 0
        Conta3 = 0
        Conta4 = 0
        Conta5 = 0
        Conta6 = 0

        For i = 1 To n

            If RadioButton1.Checked Then
                Conta1 = Conta1 + 1
                ListBox1.Items.Add("RPG =" & Conta1)
            ElseIf RadioButton2.Checked Then
                Conta2 = Conta2 + 1
                ListBox1.Items.Add("Survival =" & Conta2)
            ElseIf RadioButton3.Checked Then
                Conta3 = Conta3 + 1
                ListBox1.Items.Add("Ação =" & Conta3)
            ElseIf RadioButton4.Checked Then
                Conta4 = Conta4 + 1
                ListBox1.Items.Add("Terror =" & Conta4)
            ElseIf RadioButton5.Checked Then
                Conta5 = Conta5 + 1
                ListBox1.Items.Add("Survival=" & Conta5)
            ElseIf RadioButton6.Checked Then
                Conta6 = Conta6 + 1
                ListBox1.Items.Add("MOBA=" & Conta6)
            End If
        Next

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        n = InputBox("Quantas votações deseja fazer?")

Link da interface do meu programa

https://imgur.com/a/vzxFiqu

 

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.