[C con Clase] ayuda

[Oscar]

El pasado 2010-10-12 21:32:34, oscar flores arana escribió:
 
ofa> Muchas gracias
ofa> El 12 de octubre de 2010 11:42, Pedro Rodríguez González <
ofa> sr.whiteskull en hotmail.com> escribió:
ofa> > Es obvio que no es C.
ofa> >
ofa> > Así que te propongo que busques en la red foros de Visual Basic para
ofa> > resolver tu problema... que por lo que veo en ese código, no tienes
ofa> > declarado y tampoco inicializado algunos objetos visibles, cómo por ejemplo:
ofa> > menor, felicidades, etc...
ofa> >
ofa> > ------------------------------
ofa> > Date: Tue, 12 Oct 2010 00:16:27 -0500
ofa> > From: oscar.oafaflores1 en gmail.com
ofa> > To: Cconclase en listas.conclase.net
ofa> > Subject: [C con Clase] ayuda
ofa> >
ofa> >
ofa> > Tengo este codigo
ofa> > quisiera saber que funsion cumple cada apartado
ofa> > y si es posible por que no me funciona uno de los formularios
ofa> >
ofa> > pues este es el error que me sale cuando le doy al formulario Juego_adivina
ofa> >
ofa> > Private Sub probar_Click()
ofa> > x = x - 1
ofa> > If x > 0 Then
ofa> >     If mi_numero > adivina Then
ofa> >     menor.Show
ofa> >     Else
ofa> >         If mi_numero < adivina Then
ofa> >         mayor.Show
ofa> >         Else
ofa> >
ofa> >         felicidades.Show
ofa> >         End If
ofa> >     End If
ofa> > Else
ofa> >     intentos.Show
ofa> >     mi_numero = ""
ofa> >     Randomize
ofa> >     adivina = Int((50 - 1 + 1) * Rnd + 1)
ofa> >     x = 5
ofa> > End If
ofa> > End Sub
ofa> >
ofa> >
ofa> > Private Sub Command1_Click()
ofa> > Form1.Hide
ofa> > frmSplash.Show
ofa> > mi_numero = ""
ofa> > Randomize
ofa> > adivina = Int((50 - 1 + 1) * Rnd + 1)
ofa> > End Sub
ofa> > Private Sub Form_Load()
ofa> > Randomize
ofa> > adivina = Int((50 - 1 + 1) * Rnd + 1)
ofa> > x = 5
ofa> > End Sub
ofa> > Private Sub Label4_Click()
ofa> > End Sub
ofa> > Private Sub nuevo_Click()
ofa> > Form1.Hide
ofa> > frmSplash.Show
ofa> > mi_numero = ""
ofa> > Randomize
ofa> > adivina = Int((50 - 1 + 1) * Rnd + 1)
ofa> > End Sub
ofa> > Private Sub probar_Click()
ofa> > x = x - 1
ofa> > If x > 0 Then
ofa> >     If mi_numero > adivina Then
ofa> >     menor.Show
ofa> >     Else
ofa> >         If mi_numero < adivina Then
ofa> >         mayor.Show
ofa> >         Else
ofa> >
ofa> >         felicidades.Show
ofa> >         End If
ofa> >     End If
ofa> > Else
ofa> >     intentos.Show
ofa> >     mi_numero = ""
ofa> >     Randomize
ofa> >     adivina = Int((50 - 1 + 1) * Rnd + 1)
ofa> >     x = 5
ofa> > End If
ofa> > End Sub
ofa> > Private Sub salir_Click()
ofa> > Resp = MsgBox(vbCrLf & "Confirma que desea salir?", vbQuestion + vbYesNo +
ofa> > vbDefaultButton2, "Salir")
ofa> > If Resp = 6 Then
ofa> > End
ofa> > Else
ofa> >
ofa> > End If
ofa> >
ofa> > End Sub
ofa> > Muchas gracias de antemano
ofa> >
ofa> > --
ofa> > Oscar Agustin Flores Arana.
ofa> > Lima - Perú
ofa> > Móvil Nextel 994122895
ofa> > CD Nextel 412*2895
ofa> > RPC Claro 989076615
ofa> > Fijo 5265131
ofa> > Correo electrónico oafaflores1 en hotmail.com
ofa> > Correo electrónico oscar.oafaflores1 en gmail.com
ofa> >
ofa> > _______________________________________________ Lista de correo Cconclase
ofa> > Cconclase en listas.conclase.net
ofa> > http://listas.conclase.net/mailman/listinfo/cconclase_listas.conclase.netBajas:
ofa> > http://listas.conclase.net/index.php?gid=2&mnu=FAQ
ofa> >
ofa> > _______________________________________________
ofa> > Lista de correo Cconclase Cconclase en listas.conclase.net
ofa> > http://listas.conclase.net/mailman/listinfo/cconclase_listas.conclase.net
ofa> > Bajas: http://listas.conclase.net/index.php?gid=2&mnu=FAQ
ofa> >
ofa> -- 
ofa> Oscar Agustin Flores Arana.
ofa> Lima - Perú
ofa> Móvil Nextel 994122895
ofa> CD Nextel 412*2895
ofa> RPC Claro 989076615
ofa> Fijo 5265131
ofa> Correo electrónico oafaflores1 en hotmail.com
ofa> Correo electrónico oscar.oafaflores1 en gmail.com
ofa> _______________________________________________
ofa> Lista de correo Cconclase Cconclase en listas.conclase.net
ofa> http://listas.conclase.net/mailman/listinfo/cconclase_listas.conclase.net
ofa> Bajas: http://listas.conclase.net/index.php?gid=2&mnu=FAQ

ok gracias
muchas gracias