Archivo

Archive for the ‘Lenguajes de Programacion’ Category

Curso de introducción a Android (Instalación del Android SDK + Hello World)

agosto 3, 2011 9 comentarios

Particularmente no hago esto en mi blog pero de vez en cuando dejar simplemente un link donde encontremos algo interesante ayuda mucho, pues aquí un tutorial muy facil para hacer tu primer “Hello World” en Android. Disfrútenlo.

Enlace:
http://www.flu-project.com/curso-de-introduccion-a-android-instalacion-del-android-sdk-hello-world.html

Categorías:Java, Lenguajes de Programacion Etiquetas:

Solo aceptar números o solo letras en un TextBox – VB.Net 2005

septiembre 22, 2009 79 comentarios

Hola nuevamente, si quieres hacer que el TextBox de un formulario solo acepte letras o solo acepte números, deberias usar el evento KeyPress del TexBox en mencion, de la siguiente manera:

1.- Ir a la parte del código de tu formulario. (Solo dar click derecho a cualquier parte del formulario y elegir View Code)

ViewCode

2.- Elige el nombre de tu TexBox y luego elige el evento KeyPress.

UsodeEventos

3.- Dentro de la función creada automaticamente por Visual Basic inserta el siguiente codigo según tus requerimientos.

Aceptar Solo Números

SoloNumeros

Aceptar Solo Letras

SoloLetras

Y listo, aquí en modo texto para copiarlo:

If Char.IsDigit(e.KeyChar) Then
e.Handled = False
ElseIf Char.IsControl(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If

Quitar los botones de un form (Cerrar X, Minimizar y Maximizar) – VB.net 2005

septiembre 21, 2009 192 comentarios

Esto es algo bien sencillo y practico para las personas como yo, que recien comienzan a conocer el VB.net 2005.  Simplemente usando la propiedad ControlBox y puedes usarla asi:

ControlBox = True

habilitaX

ControlBox = False

deshabilitaX

También lo puedes encontrár en el menu de propiedades de tu formulario.

Opción “Leer más” para Blogger

agosto 27, 2009 1 comentario

Este truco es muy bueno, y recomiendo que lo vean de su fuente original donde lo encontré.

Fuente: http://oloblogger.blogspot.com/2008/11/opcion-leer-mas.html

Categorías:Blogger Etiquetas: ,

Reloj digital en VB.NET (función TIMER)

agosto 25, 2009 23 comentarios

Sumante fácil. Creamos un form y en el colocamos un label (Label1).

reloj1

Ahora arrastramos el componente Timer a nuestro form, y veremos que se coloca un simbolo abajo de nuestro ambiente de diseño.

reloj3

Ahora le damos dos click al simbolo del Timer arrastrado en el paso anterior y dentro de el escribimos el siguiente codigo.

reloj2

Label1.Text = Date.Now.ToLongTimeString

Ahora en las propiedades del Timer, colocamos el valor TRUE a la propiedad Enabled, y listo a correrlo.

reloj4

Insertar data desde VB.NET a Access

agosto 20, 2009 52 comentarios

Con este tutorial podrás (como el título dice) insertar registros por medio de un formulario desarrollado en VB.NET, a un archivo de MS Access (*.mdb). Para este tutorial es necesario contar con un archivo *.mdb llamado RegistroHoras2.mdb el cual posee una tabla llamada Registro, a su vez esta tabla tiene los siguientes campos Id (Autonumérico), Nombre (Texto), DNI (Número), Fecha (Texto) y HoraRegistro (Fecha/Hora).

Nuestro proyecto consiste en crear un sistema el cual espera un número de identificación (DNI) para que luego de presiona el botón Registrar, los datos del DNI sean grados en nuestra base de datos (Access) junto con la hora y fecha actual.

Nuestro formulario tiene el siguiente diseño, consistente en 2 TextBox (txtcodigo y txthora), 1 botón (btnregistrar) y 1 DateTimePicker (CmbFecha), además a nuestro proyecto se le insertó el módulo Timer (Timer1)  (arrástralo al formulario desde el Toolbox del Visual Sudio).

formularioControldeAsistencia
Bueno manos a la obra:

1.- Importar las siguientes librerias:

1

2.- Creamos dos variales en el formulario:

2

3.- En el evento Load del formulario insertar el siguiente código:

Dim con As String = “Provider=Microsoft.JET.oledb.4.0;Data Source=C:\RegistroHoras2.mdb”
conn = New OleDb.OleDbConnection(con)

‘Activar control Timer
Timer1.Enabled = True
Timer1.Interval = 1
Timer1.Start()

4.- Finalmente, en el evento Click del botón Registrar, copiar el siguiente código.

Dim Fecha As String
Dim Hora As String
txthora.Text = Date.Now().ToLongTimeString
Fecha = Date.Now().ToLongDateString
Hora = txthora.Text

Try
conn.Open()
cmd = New OleDb.OleDbCommand(“insert into Registro (DNI,Fecha,HoraRegistro) values(‘ ” + txtcodigo.Text + ” ‘,'” + Fecha + “‘,'” + Hora + “‘)”, conn)
cmd.ExecuteNonQuery()
conn.Close()
MessageBox.Show(“Hora de Ingreso ” + Hora, Fecha, MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(“Error de Conexión”)
End Try

txtcodigo.Text = “”
txtcodigo.Focus()

5.- Y eso es todo, para ver como debería funcionarte colocaré algunos pantallazos del sistema:

4

5

6

Webgrafía: http://www.dotnetspider.com/resources/30381-really-best-code.aspx

Importar datos de una BD Access a Excel

julio 29, 2009 23 comentarios

090428_access_excelHola a todos, el siguiente post es uno de los que me ayudo para realizar un trabajo de la universidad, lo encuentro bastante sencillo y útil, la idea es importar la data de una tabla que tenemos en un archivo de Access, y con ayuda de una macros podremos exportar estos datos a nuestra hoja de Excel. Manos a la obra.

  • Tenemos creada una BD Access llamada Empleados.mdb ubicada en nuestra unidad C:, este archivo a su vez tiene una tabla llamada Employees (puedes usar el nombre del archivo y de la tabla que sea, en este caso solo es para cuestiones del ejemplo).
  • Tambien tenemos abierto el Excel y previamente hemos dado algunas libertades en la seguridad para la ejecución de Macros, para esto nos dirigimos a Herramientas / Macro / Seguridad, y elegimo el nivel de seguridad “Medio”, luego Aceptar.
  • Habilitamos la barra de herramientas de “Formulario” para poder sacar un boton, crear la macro y ejecutarla cada vez que presionamos en ese botón.
  • Al crear el boton en nuestra hoja de Excel, se abrirá una ventan llamada “Asignar Macro”, ahi ecribimos el nombre de nuestra Macro, para nuestro caso le llamaron ImportarAccess y luego le damos en Nuevo.
  • Se abrirá una ventana de Visual Basic donde veremos escrito dos líneas de código “SubImportarAccess()” y “End Sub”.
  • Dentro de esas dos líneas de código pegamos el siguiente script, el cual hará el trabajo de la conexión y la importación de la data.

‘dimensiones
Dim datConnection As ADODB.Connection
Dim recSet As ADODB.Recordset
Dim strDB, strSQL As String
Dim strTabla As String
Dim lngTablas As Long
Dim i As Long

‘elegir uno de estas dos rutas al archivo Access
‘strDB = ThisWorkbook.Path & “\” & “db.mdb”
strDB = “C:\Empleados.mdb” ‘si en otra carpeta

‘nombre de la tabla del archivo Access
strTabla = “Employees

‘crear la conexión
Set datConnection = New ADODB.Connection
Set recSet = New ADODB.Recordset
datConnection.Open “Provider=Microsoft.Jet.OLEDB.4.0;” & _
“Data Source =” & strDB & “;”

‘consulta SQL
strSQL = “SELECT * FROM ” & strTabla & “
recSet.Open strSQL, datConnection
‘copiar datos a la hoja
ActiveSheet.Cells(2, 1).CopyFromRecordset recSet

‘copiar rótulos
lngCampos = recSet.Fields.Count
For i = 0 To lngCampos – 1
ActiveSheet.Cells(1, i + 1).Value = recSet.Fields(i).Name
Next

‘desconectar
recSet.Close: Set recSet = Nothing
datConnection.Close: Set datConnection = Nothing

  • Antes de probarlo debemos hacer lo siguiente, en la misma ventana de Visual Basic nos vamos a Herramientas / Referencias,  buscamos la opción “Microsoft ActiveX Data Objects 2.8 Library” le damos check y luego Aceptar.
  • Cerramos la ventana de Visual Basic, la cual nos llevará nuevamente a nuestra hoja de Excel, y listo solo nos queda probar la Macro dándole click al botón creado anteriormente.
  • Veremos que la data de la BD de Access se importa a nuestra hoja.