Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Me Ahogue Con Estos IFs
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Me Ahogue Con Estos IFs 
 
Borre el código chapucero
 



 
última edición por ivanovichenco el Jueves, 16 Junio 2011, 05:40; editado 6 veces 
ivanovichenco - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Me Ahogue Con Estos IFs 
 
Hola

Me es muy dificil seguir eso pero una importante costumbre es INDENTAR el código para que no te pasen esas cosas
if condicion then
   if condicion then
      if condicion then
         bla bla bla
      endif
   else
      if condicion then
         bla bla bla
      endif
   endif
endif

Además a mi particularmente no me gusta poner muchas cosas dentro de esos if si puedo evitarlo. Suelo llamar a una SUB con los parámetros apropiados para haga algo y ya está así que generalmente dentro de esos if hay muy pocas líneas.

Otra cosa es  cuando hay muchas condiciones dependiendo de unas pocas variables utilizar el select case en vez de if anidados.

El caso es que ahora no te funciona, pero podría haberte funcionado; sin embargo siempre tienes que prestar atención a que tu código sea legible y ese realmente es poco legible.

 
 



 
soplo - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Me Ahogue Con Estos IFs 
 
Gracias por la claridad. Lo hice con selct case y tampoco me funciono. Voy a tratar de hacer rutinas para llamarlas. Es que etaba empecinado en usar solo IFs pero me tocara variar. Gracias.
 



 
ivanovichenco - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Me Ahogue Con Estos IFs 
 
claro.

Por ejemplo veo que sueles poner este código dentro de los if

ModVar.Errores = ModVar.Errores + 1
TextBoxErrores.Text = ModVar.Errores 'aca se van sumando los errores
PictureBoxPregunta.Visible = FALSE
PictureBoxRespuesta.Visible = TRUE


Pues yo si viera que suelo poner eso con los valores que correspondan en los if lo que haría es una función como esta

private function Ejemplo(Pregunta as boolean, Respuesta as boolean, Fallo as boolean) as integer
ModVar.Errores = ModVar.Errores + 1
PictureBoxPregunta.Visible = Pregunta
PictureBoxRespuesta.Visible = Respuesta
return iif(fallo,1,0)
end


Y así en un if donde ponías esto:
IF ((RadioButtonC.Value = TRUE) AND (ModVar.numeros[2] = "3")) THEN
CalAcierto = Int(Rnd(1, 9))
TextBox5.Text = ListBoxFelicitacion.List[CalAcierto]
ModVar.Aciertos = ModVar.Aciertos + 1
PictureBoxPregunta.Visible = FALSE
PictureBoxRespuesta.Visible = TRUE


Lo sustituyes por esto
IF ((RadioButtonC.Value = TRUE) AND (ModVar.numeros[2] = "3")) THEN
   CalAcierto = Int(Rnd(1, 9))
   TextBox5.Text = ListBoxFelicitacion.List[CalAcierto]
   ModVar.Aciertos = Ejemplo(true,false,true)
endif
 

Seguramente se puede sintetizar mas pero como no se bien lo que haces pues mejor que te quedes con la idea

¡y no te olvides de indentar!!! ¡Usa el tabulador!

 
 



 
soplo - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Me Ahogue Con Estos IFs 
 
Gracias
Estudiare mañana este código porque el sueño me mató.
 



 
última edición por ivanovichenco el Jueves, 16 Junio 2011, 05:45; editado 1 vez 
ivanovichenco - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Como Hago Una Simple Tabla Para Estos Dato... JosueCR Bases de Datos 11 Sabado, 14 Agosto 2010, 01:42 Ver último mensaje
JosueCR
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron