Añadir texto sin sobreescribir Abril 30, 2008
Posted by erik in : VisualBasic , add a commentOption Explicit Private Sub Form_Load() Open "C:\archivo.txt" For Append As #1 Print #1, "palabra\notexto ..." Close #1 End Sub
Este codigo es muy sencillo lo unico que hace es introducir frases, oraciones etc.. en un archivo sin sobreescribir lo que ya tenia.
Winsock Control [Localhostname] Abril 30, 2008
Posted by erik in : VisualBasic , add a commentAntes de mirar tu localhostname, necesitas ir a proyect >> Components y activar Microsoft Winsock Controls, una vez activados, a?ades un winsock al form, y 1 textbox.
Luego en el Form_Load a?ade este c?digo:
Dim lhn As String lhn = Winsock1.LocalHostName Text1.Text = Trim$(lhn)
Una vez a?adido, lo compilas y huala, te dice tu Localhostname.
Es muy sencillo, pronto a?adire m?s cosas sobre Winsock Controls
Trim$ Abril 30, 2008
Posted by erik in : VisualBasic , add a commentNecesitamos
2 TextBox, que uno se llame text1 y el otro ruta.
1 CommandButton y listo.
Código: [Seleccionar]
Private sub Command1_click() open trim$(ruta) for binary as #1 dim espaciotxt as string expaciotxt = space(lof(1)) get #1,espaciotxt close #1 text1.text = espaciotxt End Sub Private sub Form_Load() text1.Multiline = true End sub
El sistema trim$ que pongo es para que el valor de la ruta sea el valor del ruta.text
Es muy sencillo.
Velocidad de tu CPU Abril 30, 2008
Posted by erik in : General , add a commentPrivate Sub Form_Load()
Dim Regregistro As Long
Dim Registro As Object
Set Registro = CreateObject("WScript.Shell")
Regregistro = CLng(Reg.regread("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\~MHz"))
Set Registro = Nothing
MsgBox "La velocidad del CPU es: " & CStr(Regregistro) & " MHz", vbInformation, "Velocidad de tu CPU:"
End Sub
Con la variable registro, buscamos en los registros del ordenador la velocidad del CPU y lo declaramos en otra variable, luego borramos la variable que lo buscaba para posibles proximas busquedas y con un msgbox mostramos el resultado 
Buscar archivos Abril 30, 2008
Posted by erik in : VisualBasic , add a commentBueno, es lo que os voy a enseñar actualmente.
Esto es para buscar un archivo en C:,Mis documentos y lo que querais, donde pone &, haces esto: & carpeta &, y sigues con el codigo
Necesitaremos 1 textbox y 1 Commandbutton
Este codigo se pone en el commandbutton, y listo.
Código:
Private Sub Command1_Click() Dim resultado As String Dim archivo As String archivo = "" & "\archivo_a_buscar.exe" resultado = Dir(archivo) If Len(resultado) = 1 Then Text1.Text = "El archivo que se buscaba se ha encontrado" Else Text1.Text = "El archivo que se buscaba no se ha encontrado" End If End Sub
Codigo hecho por mi 
!
Si quereis saber algo, me avisais .
FSO - Copiar carpetas Abril 30, 2008
Posted by erik in : VisualBasic , add a commentLo que hariamos en referencia es activar FSO y luego para copiar una carpeta añadiriamos este código:
Código:
Dim fso As FileSystemObject Set FSO = New FileSystemObject ' En rutacopiar añadiriamos la ruta de la carpeta que queremos copiar ' y en rutaPegar la ruta donde se pegara la carpeta FSO.CopyFolder rutaCopiar, rutaPegar End Sub
Muy sencillo, buena suerte.
Crear un navegador en VB.NET Abril 30, 2008
Posted by erik in : VisualBasic , add a commentVamos a aprender a crear un navegador en visual basic.net haber que tal se os da.
Le damos a crear, y creamos una aplicacion de consola, y ahora vamos a herramientas.
Seleccionas el objeto “Panel” y haces un cuadrado en el formulario que es donde ira el webbrowser, te deveria quedar algo así:
Despues añadimos el webbrowser en el panel, un textbox y 1 Commandbutton, es muy simple, en el commandbutton le ponemos este codigo:
Código:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim texto As String texto = TextBox1.Text WebBrowser1.Navigate(Trim$(texto)) End Sub
Si os dais cuenta utilizo mucho la utilizacion trim$(), ya explicare para que sirve.
Y huala, escribis la pagina web en el textbox le dais al button1 y listo, os habre la que quereis.
- Webbrowser1.Go home : Pagina principal
- WebBrowser1.St op : Cancelar la busqueda o actualizacion
- Webbrowser1.Go back : Ir atras
- WebBrowser1.Go Forward : Ir adelante
- WebBrowser1.Go search : Ir al buscador
- WebBrowser1.Re fresh : Actualizar
Si quereis saber para que sirven porque no lo sabeis me avisais.
Ya teneis vuestro navegador.NET 
Conversor de pesetas a euros en C++ Abril 30, 2008
Posted by erik in : C/C++/C# , add a commentBueno, este código lo cree hoy, aver que tal os va:
Código:
#include <cstdlib>
#include <iostream>
using namespace std;
int main()
{
double psts;
double euros;
cout << "Introduce la cifra de pesetas: ";
cin >> psts;
if (psts < 0) {
cerr << "Error: la cantidad que puso es invalida";
return 1;
}
euros = psts / 166.386;
cout << "Equivale a " << euros << " euro(s)";
system("PAUSE>NUL");
return 0;
}
.
Flujo de datos en C++ Abril 30, 2008
Posted by erik in : C/C++/C# , add a commentC++
Bueno, antes de mostrar el texto plano comenzamos el codigo, se supone que soys novatos, y si no es asi, no pasa nada, yo os lo pongo.
Código:
#include <cstdlib>
#include <iostream>
int main()
{
}
Esto seria la estructura principal, ahora para mostrar un texto plano hariamos:
Código:
cout << "texto a mostrar";
Luego si queremos mostrar un mensaje de error pondriamos esta linea
Código:
cerr << "mensaje de error";
Y por ultimo el cin >>, su funcion es la misma que fscanf de C, guarda datos en una variable.
Código:
cin >> variable;
Luego vendria que si queremos mostrar una variable seria así:
Código:
cout << variable;
Y una supervariable:
Código:
cout << ::supervariable;
Pronto pondre más cosas, funcionamiento IF,WHILE,ELSE,FOR y más…
Flujo de datos en C Abril 30, 2008
Posted by erik in : C/C++/C# , add a commentEsto es parecido a C++, ya que C++ es una creación mejorada substituyendo el C de hoy en dia, para poder hacer programas en C/C++ os recomiendo: DEVC++ 5.0, es el que la mayoria utiliza, luego ya estan otros para C como, Wuyport 001 , Acomber70, y otros más.
Flujo de salida estandar utilizado en C:
Código:
fprintf(stdout,"mensaje");
Flujo de entrada estandar utilizado en C:
Código:
fscanf(stdin,"%tipodevariable", &varialbe_donde_se_almacena);
Flujo de salida en caso de errores estandar utilizando en C:
Código:
fprintf(stderr,"mensaje de error");
Como veis, es sencillo.
Pronto explicare para que sirve fprintf y fscanf .