Título: Crear aplicaciones de Consola con VB {INTERMEDIO} Publicado por: Karcrack en 9 Octubre 2008, 19:39 pm Indice:
Introduccion: Todo el mundo sabe que una aplicacion de consola es una aplicacion que se muestra desde la linea de comandos (CMD.exe,Command Prompt...). Una captura para que quede aun mas claro: (http://tbn0.google.com/images?q=tbn:5Udn83zuvmtBMM:http://chipmunkninja.com/images/cmd.exe.png) (http://chipmunkninja.com/images/cmd.exe.png) Manos a la obra: En este manual, como es nivel 'intermedio', explicare el uso de In/Out (Entrada/Salida) usando FSO (FileSystemObject (http://msdn.microsoft.com/en-us/library/6kxy1a51(VS.85).aspx)). Envez de usando las APIs, seguramente saque de aqui un tiempo una clase para hacerlo usando APIs. La funciones esta perfectamente comentadas para que no haya ningunas dudas ;) Salida: Aqui esta la funcion para enviar algo a nuestra consola: Código
Entrada: Esta funcion obtiene los datos que hay en nuestro Command Prompt Código
Finalizando: Una vez hemos codeado nuestra aplicacion y esta terminada del todo hemos de compilarla de forma normal. Pero para que se puede ejecutar desde el CMD.exe hemos de modificar el ejecutable, para hacerlo nos serviremos de este comando del LINK.exe: Código: LINK /EDIT /SUBSYSTEM:CONSOLE <Ruta Ejecutable> He hecho un diminuto script VBS para que al arrastrar nuestro ejecutable lo transforme en Command Prompt compatible ;) aqui esta, para usarlo habeis de guardarlo con el bloc de notas en formato *.vbs y arrastrar el ejecutable que querais modificar. Código: Dim StrLINK ,StrEXE ,WSHShell 'Ruta del LINK.exe de la carpeta VB StrLINK = """C:\Archivos de programa\Microsoft Visual Studio\VB98\LINK.EXE""" 'Ruta del ejecutable que arrastras StrEXE = """" & WScript.Arguments(0) & """" Set WSHShell = CreateObject("WScript.Shell") WSHShell.Run StrLINK & " /EDIT /SUBSYSTEM:CONSOLE " & StrEXE , 0 Set WSHShell = Nothing WScript.Echo "Finalizado!!" Una vez nuestro ejecutable ya ha sido editado para que se ejecute por linea de comandos ya podra ser utilizado :D. Ejemplo: Este es un codigo de ejemplo de una calculadora :D (Tambien lo adjunto al Post) En un formulario: Código: Option Explicit Private Sub Form_Load() Dim Numero1 As Long Dim Numero2 As Long Dim Operacion As String Dim Resultado As Double 'Para que no se vea la ventana Form1.Visible = False 'Pedimos el primer numero Call SendCMD("Introduce el primer numero:") 'Lo obtenemos Numero1 = GetCMD(True) 'Pedimos el segundo Call SendCMD("Introduce el segundo numero:") 'Lo obtenemos Numero2 = GetCMD(True) 'Pedimos la operacion Call SendCMD("Introduce la operacion:" & vbCrLf & " + para suma" & vbCrLf & " - para resta" & vbCrLf & " * para multiplicacion" & vbCrLf & " / para division") 'La obtenemos Operacion = GetCMD(False, 1) 'Hacemos la operacion Select Case Operacion Case "+" Resultado = Numero1 + Numero2 Case "-" Resultado = Numero1 - Numero2 Case "*" Resultado = Numero1 * Numero2 Case "/" Resultado = Numero1 / Numero2 End Select 'Devolvemos el resultado Call SendCMD(Resultado & vbCrLf) End End Sub Public Function SendCMD(ByVal sData As String) As Boolean 'Si hay algun error devuelve False, si todo ha ido bien devuelve True On Error GoTo Fallo Dim FSO As Object Dim sOut As Object 'Cargamos los objectos Set FSO = CreateObject("Scripting.FileSystemObject") Set sOut = FSO.GetStandardStream(1) ' StdOut = 1 'Llamamos a la funcion que envia la informacion Call sOut.WriteLine(sData) 'Descargamos los objetos Set sOut = Nothing Set FSO = Nothing 'Devolvemos True, todo ha ido bien SendCMD = True 'Salimos de la funcion Exit Function Fallo: 'Algo fallo, devolvemos False SendCMD = False End Function Public Function GetCMD(Optional ByVal ReadLine As Boolean = False, Optional ByVal Caracteres As Long = 0) As String Dim FSO As Object Dim sIn As Object 'Cargamos los objectos Set FSO = CreateObject("Scripting.FileSystemObject") Set sIn = FSO.GetStandardStream(0) ' StdIn = 0 If ReadLine = False Then 'Si no queremos la ultima linea If Caracteres = 0 Then 'Si lo queremos todo GetCMD = sIn.ReadAll Else 'Si solo queremos los ultimos n Caracteres GetCMD = sIn.Read(Caracteres) End If Else 'Si queremos solo la ultima linea GetCMD = sIn.ReadLine End If 'Descargamos los objetos Set sIn = Nothing Set FSO = Nothing End Function Despedida: Bueno, ya esta todo explicado :D, cualquier duda avisen :D. De aqui un tiempo sacare una clase que permitira hacer esto, pero con APIs, ademas de permitir cambiar el color al texto y otras cosas :P. Saludos :D, espero que hayan aprendido mucho :P Pueden distribuirlo libremente siempre que pongan la fuente y el autor, yo, Karcrack. Título: Re: Crear aplicaciones de Consola con VB {INTERMEDIO} Publicado por: aaronduran2 en 9 Octubre 2008, 19:49 pm Buen trabajo, Karcrack.
Saludos. |