Optionbuttons com valores

[farmasutra 0]

Oi galera,

 

Estou a criar um formulário com 2 perguntas. Cada pergunta possui por sua vez 4 respostas (4 optionbuttons). O que quero fazer é associar um número a cada resposta para que no fim das selecções possa aparecer um valor que é o resultado do somatório das opções escolhidas.

Já criei dois frames (frame 1 com os optionbuttons da pergunta 1 e frame 2 com os optionbuttons da pergunta 2), um CommandButton1 no qual quero que apareça a pontuação que optive das respostas seleccionadas.

Já atribui valores aos optionbuttons.

 

O que já fiz foi por ex:

 

Pergunta 1

- optionbutton1

- optionbutton2

- optionbutton3

- optionbutton4

 

Pergunta 2

- optionbutton5

- optionbutton6

- optionbutton7

- optionbutton8

 

Private Sub OptionButton1_Click()

myoption = "3"

End Sub

 

Private Sub OptionButton2_Click()

myoption = "2"

End Sub

 

Private Sub OptionButton3_Click()

myoption = "1"

End Sub

 

Private Sub OptionButton4_Click()

myoption = "0"

End Sub

 

Private Sub OptionButton5_Click()

myoption = "3"

End Sub

 

Private Sub OptionButton6_Click()

myoption = "2"

End Sub

 

Private Sub OptionButton7_Click()

myoption = "1"

End Sub

 

Private Sub OptionButton8_Click()

myoption = "0"

End Sub

 

Private Sub CommandButton1_Click()

MsgBox myoption 'display the current value of the global

'variable

 

End Sub

 

O que não consigo fazer é que na MsgBox apareça o resultado da selecção dos dois optionbuttons, ou seja do somatório dos dois valores.

 

 

Alguém me pode ajudar sff.

 

Abraços

[Claudio Neto 3]

O que você fez está quase certo, mas primeiro, você está declarando strings na sua variável, e deveria estar declarando números.

Segundo, declare, duas variáveis distintas, uma para a primeira pergunta e uma para a segunda.

 

Ex.:

 

Private Sub OptionButton1_Click()

myoption1 = 3

End Sub

 

Private Sub OptionButton2_Click()

myoption1 = 2

End Sub

 

Private Sub OptionButton3_Click()

myoption1 = 1

End Sub

 

Private Sub OptionButton4_Click()

myoption1 = 0

End Sub

 

Private Sub OptionButton5_Click()

myoption2 = 3

End Sub

 

Private Sub OptionButton6_Click()

myoption2 = 2

End Sub

 

Private Sub OptionButton7_Click()

myoption2 = 1

End Sub

 

Private Sub OptionButton8_Click()

myoption2 = 0

End Sub

 

Depois no seu botão basta somar as duas variáveis:

 

Private Sub CommandButton1_Click()

MsgBox myoption1 + myotion2 'display the current value of the global

'variable

 

Beleza???

 

Falou...