Hola gente linda!!! como están? en esta oportunidad estoy tratando de realizar una pequeña aplicación en vb6, donde se presenta un formulario con distintas opciones, y por cada check correcto se asigna 1 punto. Al finalizar en un command se debería obtener el resultado de la sumatoria de los check seleccionados correctamente....
pongo el código, siempre me da como resultado final el valor 1, es como un multiple choice en un examen.... presento distintas opciones sobre un tema dado, ejemplo: elementos de una ferreteria:
1- seleccione la opción correcta:
A-MARTILLO
B-GATO
C-HOJAS
D-CLAVOS
E-PLUMAS
En este ejemplo las correctas serian las opciones A y D, al seleccionar obtienen como resultado un 4, siendo que cada una valdria 2 puntos para llegar al 10. No se si se entiende...
dejo mi código, y una imagen de un ejemplo..
Dim suma() As Integer 'Contiene el valor de cada item(checkbox)
Dim total As Integer 'guarda la sumatoria total
Private Sub Check1_Click(Index As nteger)
ReDim suma(6) As Integer
Select Case Check1(Index).Value
Case 0
suma(0) = 2 ' si se selecciona y es correcta se asigna 2 puntos que se guarda en suma(0)
Case 1
suma(1) = 2
Case 2
suma(2) = 2
Case 3
suma(3) = 2
Case 4
suma(4) = 2
End Select
total = suma(0) + suma(1) + suma(2) + suma(3) + suma(4) + suma(5) ' suma total
End Sub
Private Sub Command1_Click()
MsgBox "Resultado:" & total, vbOKOnly + vbInformation, "Resultado total" ' muestra el resultado obtenido
End Sub
http://www.ziddu.com/download/20904367/Suma.JPG.html
es algo muy simple pero no logro ver el error.... si alguien sabe, le agradecería muchísimo!!
desde ya muchísimas gracias + gracias por leer=usuario agradecido!!! jeje
saludos cordiales!!!
