<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style>
</head>
<body class='hmmessage'>
Es obvio que no es C.<div><br></div><div>Así que te propongo que busques en la red foros de Visual Basic para resolver tu problema... que por lo que veo en ese código, no tienes declarado y tampoco inicializado algunos objetos visibles, cómo por ejemplo: menor, felicidades, etc...</div><div><br><hr id="stopSpelling">Date: Tue, 12 Oct 2010 00:16:27 -0500<br>From: oscar.oafaflores1@gmail.com<br>To: Cconclase@listas.conclase.net<br>Subject: [C con Clase] ayuda<br><br><div>Tengo este codigo</div>
<div>quisiera saber que funsion cumple cada apartado</div>
<div>y si es posible por que no me funciona uno de los formularios</div>
<div> </div>
<div>pues este es el error que me sale cuando le doy al formulario Juego_adivina</div>
<div> </div>
<div>Private Sub probar_Click()<br>x = x - 1<br>If x > 0 Then<br> If mi_numero > adivina Then<br> menor.Show</div>
<div> Else<br> If mi_numero < adivina Then<br> mayor.Show<br> Else<br> <br> felicidades.Show<br> End If<br> End If<br>Else<br> intentos.Show<br> mi_numero = ""<br>
Randomize<br> adivina = Int((50 - 1 + 1) * Rnd + 1)<br> x = 5<br>End If</div>
<div>End Sub</div>
<div> </div>
<div> </div>
Private Sub Command1_Click()<br>Form1.Hide<br>frmSplash.Show<br>mi_numero = ""<br>Randomize<br>adivina = Int((50 - 1 + 1) * Rnd + 1)<br>End Sub<BR>
Private Sub Form_Load()<br>Randomize<br>adivina = Int((50 - 1 + 1) * Rnd + 1)<br>x = 5<br>End Sub<BR>
Private Sub Label4_Click()<BR>
End Sub<BR>
Private Sub nuevo_Click()<br>Form1.Hide<br>frmSplash.Show<br>mi_numero = ""<br>Randomize<br>adivina = Int((50 - 1 + 1) * Rnd + 1)<br>End Sub<BR>
Private Sub probar_Click()<br>x = x - 1<br>If x > 0 Then<br> If mi_numero > adivina Then<br> menor.Show<BR>
Else<br> If mi_numero < adivina Then<br> mayor.Show<br> Else<br> <br> felicidades.Show<br> End If<br> End If<br>Else<br> intentos.Show<br> mi_numero = ""<br>
Randomize<br> adivina = Int((50 - 1 + 1) * Rnd + 1)<br> x = 5<br>End If<BR>
End Sub<BR>
Private Sub salir_Click()<br>Resp = MsgBox(vbCrLf & "Confirma que desea salir?", vbQuestion + vbYesNo + vbDefaultButton2, "Salir")<BR>
If Resp = 6 Then<BR>
End<BR>
Else<BR>
<br>End If<BR>
<div><br>End Sub<br></div>
<div>Muchas gracias de antemano<br clear="all"><br>-- <br>Oscar Agustin Flores Arana.<br>Lima - Perú<br>Móvil Nextel 994122895<br>CD Nextel 412*2895<br>RPC Claro 989076615<br>Fijo 5265131<br>Correo electrónico <a href="mailto:oafaflores1@hotmail.com">oafaflores1@hotmail.com</a><br>
Correo electrónico <a href="mailto:oscar.oafaflores1@gmail.com">oscar.oafaflores1@gmail.com</a><br></div>
<br>_______________________________________________
Lista de correo Cconclase Cconclase@listas.conclase.net
http://listas.conclase.net/mailman/listinfo/cconclase_listas.conclase.net
Bajas: http://listas.conclase.net/index.php?gid=2&mnu=FAQ</div> </body>
</html>