Jump to content

Estou com dificuldades neste projeto final, tema- videojogos


joaorebouta
 Share

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

Edited by thoga31
GeSHi
Link to comment
Share on other sites

FilipeSantos

Viva João,

Tens que fazer o dimensionamento das variaveis fora do do Sub do botão.

Podes fazer no Form_Load, por exemplo.

No teu código essas variaveis ficam a "0" sempre que o Button3 é clicado, e nem precisas do ContaN = 0... o Dim já fáz isso.

Melhor opção é usares uma array a colocar na zona de declarações; Private Conta(6) as integer

Depois usas Conta(1) = Conta(1) +1... etc, no sub do botão.

Edited by FilipeSantos
Link to comment
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
 Share

×
×
  • 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.