elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recopilación Tutoriales y Manuales Hacking, Seguridad, Privacidad, Hardware, etc


  Mostrar Mensajes
Páginas: 1 2 [3] 4 5 6 7 8
21  Programación / Programación General / Re: Manuales y libros de Delphi en: 20 Mayo 2009, 16:24 pm
Cita de: DarK_FirefoX en 21 Junio 2008, 03:29 am
Por otra parte, una lastima que no mucha gente conozca delphi, me gustaria comentar mis dudas...

Lo cual lo hace mas interesante aún, porque la verdad es un lenguaje muy potente.

Salu2!
22  Programación / Java / Re: metodo de ordenamiento en: 20 Mayo 2009, 15:48 pm
Código
  1. ; 1  
  2. ; pivot then append x to less
  3.  

Salu2!
23  Programación / Programación General / Re: Manuales y libros de Delphi en: 20 Mayo 2009, 14:41 pm
Download  :o

Thxs!

Salu2!

Edit:Great! Lo baje, es muy completo... Recomendado!
24  Programación / Ejercicios / Ejercicio Conversión en: 19 Mayo 2009, 04:12 am
Hola miren este problema:
Convertir un número entero de base 2 a base 4 por el método directo.

El método directo consiste en por ejemplo

Entrada: 1101001100

Separa el dígito de a dos, en este caso por ser la base de llegada igual a 4. En consecuencia:

11-01-00-11-00

Por conversión quedaría:

31030

Espero que eso no haya causado problemas.

Ahora este es el siguiente algoritmo que me gustaría que chekaran aver si existe una forma más fácil y como poder optimizarlo.

Código
  1. ;
  2. ;
  3. ;
  4. ;
  5. ;
  6. ;
  7. "0";
  8. ;
  9. ;
  10. ;
  11. ;
  12. ;
  13. ;
  14. ;
  15. ;
  16. ;
  17. ;
  18. ;
  19. ;
  20. ;
  21. ;
  22. ;
  23. ;
  24. ;
  25. ;
  26. ;
  27. ;
  28. ;
  29. "0";
  30. ;
  31.  
25  Programación / Ejercicios / Re: Ejercicios Básicos en: 19 Mayo 2009, 01:37 am
Aqui un nuevo reto, espero que lo resuelvan rápido aplicando el mejor método.  :xD

Mostrar los k primeros numeros naturales que verifiquen la condicion de poseer una cantidad impar de divisores

Suerte!
26  Programación / .NET (C#, VB.NET, ASP) / Re: Abrir y cerrar bandeja. en: 18 Mayo 2009, 20:48 pm
De nada meta.

Salu2!
27  Programación / .NET (C#, VB.NET, ASP) / Re: Ayudas o sugerencias - programa signo zodiaco en: 18 Mayo 2009, 18:11 pm
Pues de nada.
Cuando uno ayuda, tambien aprende muchas cosas, ya que no soy un Gurú de la programación.
Sin mas que decir.

Salu2!
28  Programación / .NET (C#, VB.NET, ASP) / Re: Ayudas o sugerencias - programa signo zodiaco en: 18 Mayo 2009, 16:00 pm
Si  :xD anoche estuve hablando con el y aclarando un par de dudas que tenia. El problema creo que se ha solucionado.
29  Programación / .NET (C#, VB.NET, ASP) / Re: Ayudas o sugerencias - programa signo zodiaco en: 18 Mayo 2009, 01:49 am
Ahora arreglado el tema de la entrada con mayuscula o minuscula... Usando Ucase() Solo falta depurar un poco más los signos, pero creo que ya esta bien.

Código
  1. Dim dia As String
  2. Dim mes As String
  3. Dim reponse As Boolean
  4. Private Sub Form_Load()
  5.     dia = InputBox("Ingrese dia", "Signos")
  6.     If dia = "" Then
  7.         End
  8.     End If
  9.     While (dia < 1) Or (dia > 31) Or (dia = "")
  10.         MsgBox "Error, los meses solo contienen dias entre 1 y 31", vbOKOnly
  11.         dia = InputBox("Ingrese dia", "Signos")
  12.     Wend
  13.     dia = Val(dia)
  14.     mes = InputBox("Ingrese mes", "Signos")
  15.     mes = UCase(mes)
  16.     Select Case mes
  17.         Case "ENERO"
  18.         If dia < 21 Then
  19.             MsgBox "CAPRICORNIO", vbOKOnly
  20.         Else: MsgBox "ACUARIO", vbOKOnly
  21.         End If
  22.         Case "FEBRERO"
  23.         If dia < 20 Then
  24.             MsgBox "ACUARIO", vbOKOnly
  25.         Else: MsgBox "PISCIS", vbOKOnly
  26.         End If
  27.         Case "MARZO"
  28.         If dia < 21 Then
  29.             MsgBox "PISCIS", vbOKOnly
  30.         Else:  MsgBox "ARIES", vbOKOnly
  31.         End If
  32.         Case "ABRIL"
  33.         If dia < 21 Then
  34.              MsgBox "ARIES", vbOKOnly
  35.         Else: MsgBox "TAURO", vbOKOnly
  36.         End If
  37.         Case "MAYO"
  38.         If dia < 21 Then
  39.             MsgBox "TAURO", vbOKOnly
  40.         Else: MsgBox "GEMINIS", vbOKOnly
  41.         End If
  42.         Case "JUNIO"
  43.         If dia < 21 Then
  44.             MsgBox "GEMINIS", vbOKOnly
  45.         Else: MsgBox "CANCER", vbOKOnly
  46.         End If
  47.         Case "JULIO"
  48.         If dia < 24 Then
  49.            MsgBox "CANCER", vbOKOnly
  50.         Else: MsgBox "LEO", vbOKOnly
  51.         End If
  52.         Case "AGOSTO"
  53.         If dia < 24 Then
  54.             MsgBox "LEO", vbOKOnly
  55.         Else: MsgBox "VIRGO", vbOKOnly
  56.         End If
  57.         Case "SETIEMBRE"
  58.         If dia < 24 Then
  59.             MsgBox "VIRGO", vbOKOnly
  60.         Else: MsgBox "LIBRA", vbOKOnly
  61.         End If
  62.         Case "OCTUBRE"
  63.         If dia < 24 Then
  64.            MsgBox "LIBRA", vbOKOnly
  65.         Else: MsgBox "ESCORPIO", vbOKOnly
  66.         End If
  67.         Case "NOVIEMBRE"
  68.         If dia < 22 Then
  69.             MsgBox "ESCORPIO", vbOKOnly
  70.         Else: MsgBox "SAGITARIO", vbOKOnly
  71.         End If
  72.         Case "DICIEMBRE"
  73.         If dia < 22 Then
  74.             MsgBox "SAGITARIO", vbOKOnly
  75.         Else: MsgBox "CAPRICORNIO", vbOKOnly
  76.         End If
  77.         Case Else
  78.         MsgBox "Error", vbOKOnly
  79. End Select
  80. End
  81. End Sub
30  Programación / .NET (C#, VB.NET, ASP) / Re: Ayudas o sugerencias - programa signo zodiaco en: 18 Mayo 2009, 01:08 am
Código
  1. Dim dia As String
  2. Dim mes As String
  3. Dim reponse As Boolean
  4. Private Sub Form_Load()
  5.     dia = InputBox("Ingrese dia", "Signos")
  6.     If dia = "" Then
  7.         End
  8.     End If
  9.     While (dia < 1) Or (dia > 31) Or (dia = "")
  10.         MsgBox "Error, los meses solo contienen dias entre 1 y 31", vbOKOnly
  11.         dia = InputBox("Ingrese dia", "Signos")
  12.     Wend
  13.     dia = Val(dia)
  14.     mes = InputBox("Ingrese mes", "Signos")
  15.     Select Case mes
  16.         Case "enero"
  17.         If dia < 21 Then
  18.             MsgBox "CAPRICORNIO", vbOKOnly
  19.         Else: MsgBox "ACUARIO", vbOKOnly
  20.         End If
  21.         Case "febrero"
  22.         If dia < 20 Then
  23.             MsgBox "ACUARIO", vbOKOnly
  24.         Else: MsgBox "PISCIS", vbOKOnly
  25.         End If
  26.         Case "marzo"
  27.         If dia < 21 Then
  28.             MsgBox "PISCIS", vbOKOnly
  29.         Else:  MsgBox "ARIES", vbOKOnly
  30.         End If
  31.         Case "abril"
  32.         If dia < 21 Then
  33.              MsgBox "ARIES", vbOKOnly
  34.         Else: MsgBox "TAURO", vbOKOnly
  35.         End If
  36.         Case "mayo"
  37.         If dia < 21 Then
  38.             MsgBox "TAURO", vbOKOnly
  39.         Else: MsgBox "GEMINIS", vbOKOnly
  40.         End If
  41.         Case "junio"
  42.         If dia < 22 Then
  43.             MsgBox "GEMINIS", vbOKOnly
  44.         Else: MsgBox "CANCER", vbOKOnly
  45.         End If
  46.         Case "julio"
  47.         If dia < 23 Then
  48.            MsgBox "CANCER", vbOKOnly
  49.         Else: MsgBox "LEO", vbOKOnly
  50.         End If
  51.         Case "agosto"
  52.         If dia < 23 Then
  53.             MsgBox "LEO", vbOKOnly
  54.         Else: MsgBox "VIRGO", vbOKOnly
  55.         End If
  56.         Case "setiembre"
  57.         If dia < 23 Then
  58.             MsgBox "VIRGO", vbOKOnly
  59.         Else: MsgBox "LIBRA", vbOKOnly
  60.         End If
  61.         Case "octubre"
  62.         If dia < 23 Then
  63.            MsgBox "LIBRA", vbOKOnly
  64.         Else: MsgBox "ESCORPIO", vbOKOnly
  65.         End If
  66.         Case "noviembre"
  67.         If dia < 22 Then
  68.             MsgBox "ESCORPIO", vbOKOnly
  69.         Else: MsgBox "SAGITARIO", vbOKOnly
  70.         End If
  71.         Case "diciembre"
  72.         If dia < 22 Then
  73.             MsgBox "SAGITARIO", vbOKOnly
  74.         Else: MsgBox "CAPRICORNIO", vbOKOnly
  75.         End If
  76.         Case Else
  77.         MsgBox "Error", vbOKOnly
  78. End Select
  79. End Sub
  80.  
Páginas: 1 2 [3] 4 5 6 7 8
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines