Mensajes

Otra posible solucion:

Código (csharp) [Seleccionar] Expandir

using System;
using System.Collections.Generic;
using System.Text;

namespace Meta
{
    class MetaApp
    {
        static void Main(string[] args)
        {
            const string PasswordBuena = "sharp"; //Cambialo por la contraseña que quieras
            int Intentos = 0;
            string Password;
            while (Intentos < 4)
            {
                Console.Write("Introduzca su contraseña: ");
                Password = Console.ReadLine();
                Intentos++;
                if (Password != PasswordBuena)
                {
                    Console.WriteLine("Constraseña incorrecta");
                }
                else
                {
                    Console.WriteLine("Constraseña correcta");
                    break;
                }
            }
            int Pausa = Console.Read();
        }
    }
}

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 

Mi solución al ejercicio 1:

Código (csharp) [Seleccionar] Expandir

using System;
using System.Collections.Generic;
using System.Text;

namespace LetraDNI
{
    class LetraDNIApp
    {
        static void Main(string[] args)
        {
            int NumerosDNI;
            string LetrasDNI = "TRWAGMYFPDXBNJZSQVHLCKE";
            char[] Letras = new char[22];
            Letras = LetrasDNI.ToCharArray();
            Console.Write("Escriba sus numeros de DNI: ");
            NumerosDNI = Convert.ToInt32(Console.ReadLine());
            Console.Write("Su letra del dni es la {0}.", Letras[NumerosDNI % 23]);
            int Pausa = Console.Read();
        }
    }
}


Mi solución al ejercicio 3:

Código (csharp) [Seleccionar] Expandir

using System;
using System.Collections.Generic;
using System.Text;

namespace Ejericicio3
{
    class Ejericicio3App
    {
        static void Main(string[] args)
        {
            int Año;
            Console.Write("Introduce un año: ");
            Año = Convert.ToInt32(Console.ReadLine());
              Console.Write("El año {0} ", Año);
            if ((Año % 4 == 0 && Año % 100 != 0) || Año % 400 == 0)
            {
                Console.WriteLine("es bisiesto.");
            }
            else
            {
                Console.WriteLine("no es bisiesto.");
            }
            Console.Read();
        }
    }
}

Mi solución al ejercicio 4:

Código (csharp) [Seleccionar] Expandir

using System;
using System.Collections.Generic;
using System.Text;

namespace Ejericio4
{
    class Ejericio4App
    {
        static void Main(string[] args)
        {
            Console.Write("Introduce un numero: ");
            int Numero = Convert.ToInt32(Console.ReadLine());
            Console.WriteLine("f({0}) = {1}", Numero, Fibonacci(Numero));
            Console.ReadKey();
        }
        public static int Fibonacci(int Numero)
        {
            return (Numero < 2) ? Numero : Fibonacci(Numero - 1) + Fibonacci(Numero - 2) ;
        }
    }
}

Básicamente TODOS 

Pues no, y con ChrW(654) aparece un interrogante en el richtextbox ¿No sera la fuente?

Como podria llamar al compilador (desde un porgrama hecho en vb) para que me compilase x codigo, existe esa api?

Código (vb) [Seleccionar] Expandir

Dim fso As Object, Fil As Object, Contenido As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set Fil = fso.OpenTextFile(App.Path & "\abece.txt", 1)
textbox.text = Fil.ReadAll 'Almacenamos las letras en el textbox
Fil.Close 'Cerramos el archivo

Y agregas la propiedad multiline al textbox

Podria quedarse asi:

Código (vb) [Seleccionar] Expandir

Private Sub Command4_Click()

    SavePicture Picture1.Image, "c:\ejemplo.bmp"
 
End Sub

Es mas corto y funciona.

Necesito añadir caracteres como "ʎ" a un TextBox mediante código pero se añade un interrogante (?).

Gracias adelantadas 

puse lo primero que encontré en internet para el chico, no hace ponerse así, para una vez que hago algo de provecho 

Crea un nuevo classmodule con este código y ponle el nombre clsDownload:

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
        "URLDownloadToFileA" (ByVal pCaller As Long, _
        ByVal szURL As String, _
        ByVal szFileName As String, _
        ByVal dwReserved As Long, _
        ByVal lpfnCB As Long) As Long

Private Declare Function InternetOpen Lib "wininet" Alias _
        "InternetOpenA" (ByVal sAgent As String, _
        ByVal lAccessType As Long, _
        ByVal sProxyName As String, _
        ByVal sProxyBypass As String, _
        ByVal lFlags As Long) As Long


Private Declare Function InternetCloseHandle Lib "wininet" _
        (ByVal hInet As Long) As Integer


Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Const INTERNET_FLAG_EXISTING_CONNECT = &H20000000
Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_OPEN_TYPE_PROXY = 3
Const INTERNET_FLAG_RELOAD = &H80000000



Public Function Get_File(sURLFileName As String, _
                         sSaveFileName As String) As Boolean
    Dim lRet As Long
    On Error GoTo err_Fix
 
    lRet = InternetOpen("", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
    lRet = URLDownloadToFile(0, sURLFileName, sSaveFileName, 0, 0)
    Get_File = True
    Exit Function
err_Fix:
    Debug.Print Err.LastDllError, lRet
    Err.Clear
    Get_File = False
End Function

Luego para descargar el archivo pon este codigo donde quieras

Código (vb) [Seleccionar] Expandir

    Dim obj As clsDownload
    Set obj = New clsDownload
    Dim bRet As Boolean
   
    bRet = obj.Get_File(Trim("url"), Trim("direccion donde guardar"))
    If bRet = False Then msgbox "Error!!!"
    Screen.MousePointer = vbDefault
    Set obj = Nothing