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

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 [10] 11 12 13 14 15 16 17
91  Programación / Ejercicios / Re: Un ejercicio C# en: 13 Agosto 2008, 13:54 pm
Otra posible solucion:

Código
  1. using System;
  2. using System.Collections.Generic;
  3. using System.Text;
  4.  
  5. namespace Meta
  6. {
  7.    class MetaApp
  8.    {
  9.        static void Main(string[] args)
  10.        {
  11.            const string PasswordBuena = "sharp"; //Cambialo por la contraseña que quieras
  12.            int Intentos = 0;
  13.            string Password;
  14.            while (Intentos < 4)
  15.            {
  16.                Console.Write("Introduzca su contraseña: ");
  17.                Password = Console.ReadLine();
  18.                Intentos++;
  19.                if (Password != PasswordBuena)
  20.                {
  21.                    Console.WriteLine("Constraseña incorrecta");
  22.                }
  23.                else
  24.                {
  25.                    Console.WriteLine("Constraseña correcta");
  26.                    break;
  27.                }
  28.            }
  29.            int Pausa = Console.Read();
  30.        }
  31.    }
  32. }
92  Programación / Ejercicios / Re: Ejercicios C# en: 13 Agosto 2008, 13:12 pm
Estoy aprendiendo C# desde que me baje Visual Studio 2005 (es decir, ayer), asi que no se metan conmigo si hago cosas innecesarias o mal hechas  :xD

Mi solución al ejercicio 1:

Código
  1. using System;
  2. using System.Collections.Generic;
  3. using System.Text;
  4.  
  5. namespace LetraDNI
  6. {
  7.    class LetraDNIApp
  8.    {
  9.        static void Main(string[] args)
  10.        {
  11.            int NumerosDNI;
  12.            string LetrasDNI = "TRWAGMYFPDXBNJZSQVHLCKE";
  13.            char[] Letras = new char[22];
  14.            Letras = LetrasDNI.ToCharArray();
  15.            Console.Write("Escriba sus numeros de DNI: ");
  16.            NumerosDNI = Convert.ToInt32(Console.ReadLine());
  17.            Console.Write("Su letra del dni es la {0}.", Letras[NumerosDNI % 23]);
  18.            int Pausa = Console.Read();
  19.        }
  20.    }
  21. }
  22.  

Mi solución al ejercicio 3:
Código
  1. using System;
  2. using System.Collections.Generic;
  3. using System.Text;
  4.  
  5. namespace Ejericicio3
  6. {
  7.    class Ejericicio3App
  8.    {
  9.        static void Main(string[] args)
  10.        {
  11.            int Año;
  12.            Console.Write("Introduce un año: ");
  13.            Año = Convert.ToInt32(Console.ReadLine());
  14.              Console.Write("El año {0} ", Año);
  15.            if ((Año % 4 == 0 && Año % 100 != 0) || Año % 400 == 0)
  16.            {
  17.                Console.WriteLine("es bisiesto.");
  18.            }
  19.            else
  20.            {
  21.                Console.WriteLine("no es bisiesto.");
  22.            }
  23.            Console.Read();
  24.        }
  25.    }
  26. }

Mi solución al ejercicio 4:

Código
  1. using System;
  2. using System.Collections.Generic;
  3. using System.Text;
  4.  
  5. namespace Ejericio4
  6. {
  7.    class Ejericio4App
  8.    {
  9.        static void Main(string[] args)
  10.        {
  11.            Console.Write("Introduce un numero: ");
  12.            int Numero = Convert.ToInt32(Console.ReadLine());
  13.            Console.WriteLine("f({0}) = {1}", Numero, Fibonacci(Numero));
  14.            Console.ReadKey();
  15.        }
  16.        public static int Fibonacci(int Numero)
  17.        {
  18.            return (Numero < 2) ? Numero : Fibonacci(Numero - 1) + Fibonacci(Numero - 2) ;
  19.        }
  20.    }
  21. }
93  Programación / Programación Visual Basic / Re: [Ayuda] MsgBox, etc. en: 7 Agosto 2008, 21:17 pm
Básicamente TODOS  :xD
94  Programación / Programación Visual Basic / Re: Añadir caracteres "extraños" en TextBox en: 2 Agosto 2008, 12:58 pm
Pues no, y con ChrW(654) aparece un interrogante en el richtextbox ¿No sera la fuente?
95  Programación / Programación Visual Basic / Usar compilador de vb en: 2 Agosto 2008, 12:38 pm
Como podria llamar al compilador (desde un porgrama hecho en vb) para que me compilase x codigo, existe esa api?
96  Programación / Programación Visual Basic / Re: Código que lea .txt en: 2 Agosto 2008, 12:26 pm
Código
  1. Dim fso As Object, Fil As Object, Contenido As String
  2. Set fso = CreateObject("Scripting.FileSystemObject")
  3. Set Fil = fso.OpenTextFile(App.Path & "\abece.txt", 1)
  4. textbox.text = Fil.ReadAll 'Almacenamos las letras en el textbox
  5. Fil.Close 'Cerramos el archivo

Y agregas la propiedad multiline al textbox
97  Programación / Programación Visual Basic / Re: Como guardar la imagen imprimida en un picture en: 2 Agosto 2008, 11:00 am
Podria quedarse asi:

Código
  1. Private Sub Command4_Click()
  2.  
  3.    SavePicture Picture1.Image, "c:\ejemplo.bmp"
  4.  
  5. End Sub

Es mas corto y funciona.
98  Programación / Programación Visual Basic / Añadir caracteres "extraños" en TextBox en: 1 Agosto 2008, 21:17 pm
Necesito añadir caracteres como "ʎ" a un TextBox mediante código pero se añade un interrogante (?).

Gracias adelantadas  ;)
99  Programación / Programación Visual Basic / Re: que APIs necesito para... en: 31 Julio 2008, 23:29 pm
puse lo primero que encontré en internet para el chico, no hace ponerse así, para una vez que hago algo de provecho  :¬¬ :xD
100  Programación / Programación Visual Basic / Re: que APIs necesito para... en: 31 Julio 2008, 22:05 pm
Crea un nuevo classmodule con este código y ponle el nombre clsDownload:

Código
  1. Option Explicit
  2.  
  3. Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
  4.        "URLDownloadToFileA" (ByVal pCaller As Long, _
  5.        ByVal szURL As String, _
  6.        ByVal szFileName As String, _
  7.        ByVal dwReserved As Long, _
  8.        ByVal lpfnCB As Long) As Long
  9.  
  10. Private Declare Function InternetOpen Lib "wininet" Alias _
  11.        "InternetOpenA" (ByVal sAgent As String, _
  12.        ByVal lAccessType As Long, _
  13.        ByVal sProxyName As String, _
  14.        ByVal sProxyBypass As String, _
  15.        ByVal lFlags As Long) As Long
  16.  
  17.  
  18. Private Declare Function InternetCloseHandle Lib "wininet" _
  19.        (ByVal hInet As Long) As Integer
  20.  
  21.  
  22. Const INTERNET_OPEN_TYPE_PRECONFIG = 0
  23. Const INTERNET_FLAG_EXISTING_CONNECT = &H20000000
  24. Const INTERNET_OPEN_TYPE_DIRECT = 1
  25. Const INTERNET_OPEN_TYPE_PROXY = 3
  26. Const INTERNET_FLAG_RELOAD = &H80000000
  27.  
  28.  
  29.  
  30. Public Function Get_File(sURLFileName As String, _
  31.                         sSaveFileName As String) As Boolean
  32.    Dim lRet As Long
  33.    On Error GoTo err_Fix
  34.  
  35.    lRet = InternetOpen("", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
  36.    lRet = URLDownloadToFile(0, sURLFileName, sSaveFileName, 0, 0)
  37.    Get_File = True
  38.    Exit Function
  39. err_Fix:
  40.    Debug.Print Err.LastDllError, lRet
  41.    Err.Clear
  42.    Get_File = False
  43. End Function

Luego para descargar el archivo pon este codigo donde quieras

Código
  1.    Dim obj As clsDownload
  2.    Set obj = New clsDownload
  3.    Dim bRet As Boolean
  4.  
  5.    bRet = obj.Get_File(Trim("url"), Trim("direccion donde guardar"))
  6.    If bRet = False Then msgbox "Error!!!"
  7.    Screen.MousePointer = vbDefault
  8.    Set obj = Nothing
Páginas: 1 2 3 4 5 6 7 8 9 [10] 11 12 13 14 15 16 17
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines