¡Hola! como le hago?

thelma
07 de Octubre del 2003
Hola, tengo un problema estoy haciendo un programa en vb6 y es un examen donde utilizo opciones son 15 preguntas con cuatro opciones cada una...debe de dar un resultado de calificacion...y segun estoy haciendo lo corresco, pero no funciona..me aparece error 424 "se requiere un objeto".....porfavor ayudame.....si quieres te mando todo mi codigo para que veas lo que estoy haciendo...gracias!!!

sdemingo
07 de Octubre del 2003
Hola,
creo que sería bueno poder ver tu código porque de lo contrario no se donde puede fallar.

Un saludo
sdemingo

thelma
07 de Octubre del 2003
Este es mi codigo a ver que te parece

Private Sub Command2_Click()

'declaracion de las variables'

Dim resultado As Integer
Dim calcular As Integer
Dim res1 As Integer
Dim res2 As Integer
Dim res3 As Integer
Dim res4 As Integer
Dim res5 As Integer
Dim res6 As Integer
Dim res7 As Integer
Dim res8 As Integer
Dim res9 As Integer
Dim res10 As Integer
Dim res11 As Integer
Dim res12 As Integer
Dim res13 As Integer
Dim res14 As Integer
Dim res15 As Integer

resultado = Val(Text1.Text)

If op2.Value = True Then
res1 = 6.666666667
End If '

If op8.Value = True Then
res2 = 6.666666667
End If

If op9.Value = True Then
res3 = 6.666666667
End If

If op13.Value = True Then
res4 = 6.666666667
End If

If op20.Value = True Then
res5 = 6.666666667
End If

If op23.Value = True Then
res6 = 6.666666667
End If

If op26.Value = True Then
res7 = 6.666666667
End If

If op31.Value = True Then
res8 = 6.666666667
End If

If op.Value = True Then
res9 = 6.666666667
End If

If op39.Value = True Then
res10 = 6.666666667
End If

If op40.Value = True Then
res11 = 6.666666667
End If

If op47.Value = True Then
res12 = 6.666666667
End If

If op49.Value = True Then
res13 = 6.666666667
End If

If op59.Value = True Then
res14 = 6.666666667
End If

If op56.Value = True Then
res15 = 6.666666667
End If

resultado = res1 + res2 + res3 + res4 + res5 + res6 + res7 + res8 + res9 + res10 + res11 + res12 + res13 + res14 + res15
Text1.Text = resultado



End Sub

thelma
07 de Octubre del 2003
Private Sub Command2_Click()
'declaracion de las variables'
Dim resultado As Integer
Dim calcular As Integer
Dim res1 As Integer
Dim res2 As Integer
Dim res3 As Integer
Dim res4 As Integer
Dim res5 As Integer
Dim res6 As Integer
Dim res7 As Integer
Dim res8 As Integer
Dim res9 As Integer
Dim res10 As Integer
Dim res11 As Integer
Dim res12 As Integer
Dim res13 As Integer
Dim res14 As Integer
Dim res15 As Integer

resultado = Val(Text1.Text)

If op2.Value = True Then
res1 = 6.666666667
End If '

If op8.Value = True Then
res2 = 6.666666667
End If

If op9.Value = True Then
res3 = 6.666666667
End If

If op13.Value = True Then
res4 = 6.666666667
End If

If op20.Value = True Then
res5 = 6.666666667
End If

If op23.Value = True Then
res6 = 6.666666667
End If

If op26.Value = True Then
res7 = 6.666666667
End If

If op31.Value = True Then
res8 = 6.666666667
End If

If op.Value = True Then
res9 = 6.666666667
End If

If op39.Value = True Then
res10 = 6.666666667
End If

If op40.Value = True Then
res11 = 6.666666667
End If

If op47.Value = True Then
res12 = 6.666666667
End If

If op49.Value = True Then
res13 = 6.666666667
End If

If op59.Value = True Then
res14 = 6.666666667
End If

If op56.Value = True Then
res15 = 6.666666667
End If

resultado = res1 + res2 + res3 + res4 + res5 + res6 + res7 + res8 + res9 + res10 + res11 + res12 + res13 + res14 + res15
Text1.Text = resultado



End Sub