joaorebouta 0 Posted May 13, 2019 Report Share Posted May 13, 2019 (edited) 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 June 3, 2019 by thoga31 GeSHi Link to post Share on other sites
FilipeSantos 0 Posted May 28, 2019 Report Share Posted May 28, 2019 (edited) 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 May 28, 2019 by FilipeSantos Link to post Share on other sites
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now