trato de hacer un scoredonde me indique la respuesta del usuario, la buena yla mala y su calificacion y esto es lo que tengo. esto es lo que tengo y espero que me puedan decir porque no me aparece lo que escogio el usuario, la buena y la mala
en la pregunta tengo esta programacion. gracias


Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
If opt1.Value = True Then
p1 = 0
End If
If opt2.Value = True Then
p1 = 1
End If
If opt3.Value = True Then
p1 = 0
End If


Private Sub Form_Load()
cargar_grid
End Sub

Sub cargar_grid()
On Error GoTo errores
With Grid
.TextMatrix(o, o) = "No"
.ColWidth(2) = 2000
.TextMatrix(o, 1) = "Pregunta"
.TextMatrix(0, 2) = "Respuesta"
.TextMatrix(0, 3) = "la Buena"
.TextMatrix(0, 4) = "Calificacion"
.TextMatrix(1, 0) = " 1"
.TextMatrix(1, 1) = "Pregunta"
If p1 = 1 Then
.TextMatrix(1, 2) = "daikon oroshi"
End If
If p1 = 2 Then
.TextMatrix(1, 2) = "daikon"
End If
If p1 = 3 Then
.TextMatrix(1, 2) = "gomashio"
End If
If p1 = 2 Then
.TextMatrix(1, 3) = " Daikon"
If p1 = 2 Then
.TextMatrix(1, 4) = "Daikon"
Else
.TextMatrix(1, 4) = "Daikon oroshi"
End If

End
salir:
Exit Sub
errores:
MsgBoxErr.Description , vbCritical, "Paola "
Resume salir

End If
End With
End Sub

Hola...

En primer lugar... esto no lo entiendo:No veo que le des un valor específico por respuesta...

Además... te fijaste si agregar una Linea más a la Grilla para mostrar las respuestas???

Esto otro tampoco lo entiendo mucho:En ninguna parte se ve que des el valor 2 ó 3 a p1...

Serciórate de que todo lo que te menciono esté correcto, sino, corrígelo... y nos cuentas...

Saludos... :smt004

__________________
Atentamente, Juan Ríos Pizarro...
Saludos desde Chile...

PD: Perdí mi mascota... buaaaaaaaa.... al menos encontré una nueva

jrios03,
hola, la verdad no entiendo lo que dijiste aqui deberia ser asi o como
If opt1.Value = True Then
p1 = 1
End If
If opt2.Value = True Then
p1 = 1
End If
If opt3.Value = True Then
p1 = 1

y aqui no se como

If p1 = 1 Then
.TextMatrix(1, 2) = "daikon oroshi"
End If
If p1 = 2 Then
.TextMatrix(1, 2) = "daikon"
End If
If p1 = 3 Then
.TextMatrix(1, 2) = "gomashio"
End If
If p1 = 2 Then
.TextMatrix(1, 3) = " Daikon"
If p1 = 2 Then
.TextMatrix(1, 4) = "Daikon"
Else
.TextMatrix(1, 4) = "Daikon oroshi"
End If

En primer lugar deberías eliminar el evento DragDrop del Frame 1. Esto sirve para arrastrar y soltar datos entre diferentes objetos del sistema y én tu caso, la verdad, es que no comprendo que utilidad puede tener. Lo que tienes que controlar es el evento click de los controles Option (Que supongo existen en algún lugar). Cuando el usuario haga 'click' en alguno de ellos modificas el valor de la variable p1.



En esta línea [.TextMatrix(o, 1) = "Pregunta"] tienes un error pues en vez de la fila '0' has puesto la fila 'o' de Oviedo.

Elimina también la sentencia END, pues una vez has realizado las comparaciones IF anidadas, la aplicación se descarga antes de mostrar cualquier cosa.

Sobre cual es la pregunta y cual la respuesta, pco creo que podamos decirte, pues el código resulta bastante confuso...

Ya nos dirás alguna cosita que nos ayude a comprenderlo.

__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion

Muy confuso veo el código, si pusiera los comentarios en las líneas...