Muchas gracias<br><br>
<div class="gmail_quote">El 12 de octubre de 2010 11:42, Pedro Rodríguez González <span dir="ltr"><<a href="mailto:sr.whiteskull@hotmail.com">sr.whiteskull@hotmail.com</a>></span> escribió:<br>
<blockquote style="BORDER-LEFT: #ccc 1px solid; MARGIN: 0px 0px 0px 0.8ex; PADDING-LEFT: 1ex" class="gmail_quote">
<div>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>
Date: Tue, 12 Oct 2010 00:16:27 -0500<br>From: <a href="mailto:oscar.oafaflores1@gmail.com" target="_blank">oscar.oafaflores1@gmail.com</a><br>To: <a href="mailto:Cconclase@listas.conclase.net" target="_blank">Cconclase@listas.conclase.net</a><br>
Subject: [C con Clase] ayuda
<div>
<div></div>
<div class="h5"><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" target="_blank">oafaflores1@hotmail.com</a><br>
Correo electrónico <a href="mailto:oscar.oafaflores1@gmail.com" target="_blank">oscar.oafaflores1@gmail.com</a><br></div><br></div></div>_______________________________________________ Lista de correo Cconclase <a href="mailto:Cconclase@listas.conclase.net" target="_blank">Cconclase@listas.conclase.net</a> <a href="http://listas.conclase.net/mailman/listinfo/cconclase_listas.conclase.net" target="_blank">http://listas.conclase.net/mailman/listinfo/cconclase_listas.conclase.net</a> Bajas: <a href="http://listas.conclase.net/index.php?gid=2&mnu=FAQ" target="_blank">http://listas.conclase.net/index.php?gid=2&mnu=FAQ</a></div>
</div><br>_______________________________________________<br>Lista de correo Cconclase <a href="mailto:Cconclase@listas.conclase.net">Cconclase@listas.conclase.net</a><br><a href="http://listas.conclase.net/mailman/listinfo/cconclase_listas.conclase.net" target="_blank">http://listas.conclase.net/mailman/listinfo/cconclase_listas.conclase.net</a><br>
Bajas: <a href="http://listas.conclase.net/index.php?gid=2&mnu=FAQ" target="_blank">http://listas.conclase.net/index.php?gid=2&mnu=FAQ</a><br></blockquote></div><br><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>