La bitacora de un Geek

December 26, 2005

Edicion del ListView en ejecución

Filed under: Cursos y Manuales

Despues de tratar de meter datos a un DataGrid sin muchos resultados, decidi usar un ListView k a mi manera de ver tiene mejor aspecto que el DataGrid k solo son celdas =), aki un pequeño ejemplo con el ListView

Diseñar el Formulario

Al evento Load

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

‘agregar datos al combo
Me.cbProducto.Items.Add(”Azucar”)
Me.cbProducto.Items.Add(”Arroz”)
Me.cbProducto.Items.Add(”Leche”)
Me.cbProducto.Items.Add(”Chocolate”)

‘configurar el DataView
Me.lvwDetalle.View = View.Details ‘para ver como una factura
Me.lvwDetalle.GridLines = True ‘permite ver las lineas del DataView
Me.lvwDetalle.FullRowSelect = True ‘para seleccionar los lementos relacionados

‘limpiar los items y columnas
Me.lvwDetalle.Items.Clear()
Me.lvwDetalle.Columns.Clear()

‘agregar las cabezeras al DataView
Me.lvwDetalle.Columns.Add(”N°”, 25, HorizontalAlignment.Center)
Me.lvwDetalle.Columns.Add(”Producto”, 112, HorizontalAlignment.Center)
Me.lvwDetalle.Columns.Add(”Cant.”, 45, HorizontalAlignment.Center)
Me.lvwDetalle.Columns.Add(”Precio”, 50, HorizontalAlignment.Center)
Me.lvwDetalle.Columns.Add(”Sub-Total”, 70, HorizontalAlignment.Center)
End Sub

Validar al txtCantidad para no ingresar valores nulos.
Private Sub txtCantidad_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtCantidad.KeyUp

If Len(Me.txtCantidad.Text) > 0 Then
Me.btnAgregar.Enabled = True
Else
Me.btnAgregar.Enabled = False
End If
End Sub

Ahora la btnAgregar le agregamos el siguiente código para que lo ponga en el ListView.
Private Sub btnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgregar.Click

Static intX As Integer
Static intPrecio As Double

‘MsgBox(x)
‘rellenar datos al ListView
Me.lvwDetalle.Items.Add(intX + 1)
Me.lvwDetalle.Items.Item(intX).SubItems.Add(Me.cbProducto.Text)
Me.lvwDetalle.Items.Item(intX).SubItems.Add(Me.txtCantidad.Text)

Select Case Me.cbProducto.SelectedIndex

Case 0
Me.lvwDetalle.Items.Item(intX).SubItems.Add(”3.00″)
Me.lvwDetalle.Items.Item(intX).SubItems.Add(FormatNumber(3.0 * Me.txtCantidad.Text, 2))
intPrecio = intPrecio + (3.0 * Me.txtCantidad.Text) ‘guardar el precio
Case 1
Me.lvwDetalle.Items.Item(intX).SubItems.Add(”4.00″)
Me.lvwDetalle.Items.Item(intX).SubItems.Add(FormatNumber(4.0 * Me.txtCantidad.Text, 2))
intPrecio = intPrecio + (4.0 * Me.txtCantidad.Text) ‘guardar el precio
Case 2
Me.lvwDetalle.Items.Item(intX).SubItems.Add(”2.00″)
Me.lvwDetalle.Items.Item(intX).SubItems.Add(FormatNumber(2 * Me.txtCantidad.Text, 2))
intPrecio = intPrecio + (2.0 * Me.txtCantidad.Text) ‘guardar el precio
Case 3
Me.lvwDetalle.Items.Item(intX).SubItems.Add(”1.00″)
Me.lvwDetalle.Items.Item(intX).SubItems.Add(FormatNumber(1.0 * Me.txtCantidad.Text, 2))
intPrecio = intPrecio + (1.0 * Me.txtCantidad.Text) ‘guardar el precio
End Select

‘volver a la normalidad el formulario
Me.cbProducto.SelectedIndex = 0
Me.txtCantidad.Clear()
Me.btnAgregar.Enabled = False

‘mostrar el precio
Me.lblPrecio.Text = “S/. ” & FormatNumber(intPrecio, 2)

‘agregar 1 al contador
intX = intX + 1
End Sub

… y luego ejecutar

December 22, 2005

Net y MySql

Filed under: Cursos y Manuales

Si alguna vez intentaste conectar al MySql con el .Net aqui esta el codigo para que puedas realizarlo, pero tienes que tener isntalado lo siguiente:

* MySql 5.0 (por que es la mejor version hasta ahora)
* Query Browser (si aun no te adaptas a la ventana del DOS)
* Conector NET (el 1.0.7 que es el ultimo)

y lo más importante, aqui esta el codigo para VB y C# =>>>

Pero antes debes importar el MySql.Data.dll y tambien los siguientes namespaces

[VB]

Imports System
Imports System.Data
Imports MySql.Data.MySqlClient

Dim conn As New MySql.Data.MySqlClient.MySqlConnection
Dim myConnectionString as String

myConnectionString = “server=127.0.0.1;” _
& “uid=root;” _
& “pwd=12345;” _
& “database=test;”

Try
conn.ConnectionString = myConnectionString
conn.Open()

Catch ex As MySql.Data.MySqlClient.MySqlException
MessageBox.Show(ex.Message)
End Try

[C#]
using System;
using System.Data;
using MySql.Data.MySqlClient;

MySql.Data.MySqlClient.MySqlConnection conn;
string myConnectionString;

myConnectionString = “server=127.0.0.1;uid=root;” +
“pwd=12345;database=test;”;

try
{
conn = new MySql.Data.MySqlClient.MySqlConnection();
conn.ConnectionString = myConnectionString;
conn.Open();
}
catch (MySql.Data.MySqlClient.MySqlException ex)
{
MessageBox.Show(ex.Message);
}

Pronto colgare mi sistema para k lo revisen y les sea de ayuda =)

December 19, 2005

Acrylic Graphic Designer

Filed under: Uncategorized

Explore Creative Possibilities

Produce a variety of graphic visual effects using innovative styles and graphic properties such as textures, fringes, and dimensionality. Add blurs, drop shadows, color corrections, and other image effects and filters using nondestructive, editable Live Effects.

Realize Greater Productivity

Bring together the best of vector-based and pixel-based design with a flexible hybrid graphics environment. Incorporate graphics from other applications, and export design elements to a variety of software tools and formats including the Windows® Presentation Foundation (formerly code named “Avalon”) coming in Windows VistaTM.

Si desea un DVD de Oracle Database 10g gratis

Filed under: Uncategorized

Las soluciones de Inteligencia de Negocios de Oracle, bajo una plataforma robusta de datawarehousing proveen la mayor calidad de información, en una fracción de tiempo, a una fracción del costo y con un solo proveedor.

Has clic en:

Oracle 10

December 17, 2005

Solo para amantes a la Programación….

Filed under: Noticias

Despues de tiempo vuelvo a postear =D, pero es para dar una buena noticia a la personas que comparten una gran fascinación, quizás obsesiva, por la tecnología y la imaginación, a los ke no duermen sino ven codigo, compilan codigo o no tokan a su unika kompañera sincera si… nuestra querida PC =P jejejejejeje, a los amantes de la Tecnologia .NET, ya se inicio el gran concurso Imagine Cup 2006, para mas datos revisen el siguiente enlace:

logo
Imagine Cup India 2006

Si alguien se inscribe me avisa , a lo mejor podemos formar un Team jejeje =P

December 1, 2005

Imagenes de inicio para el Grub

Filed under: Uncategorized

splash ubuntu dance

Para que puedas añadir un archivo de imagen a tu GRUB solo se tienen que seguri los siguientes pasos:

1. Descargar las imágenes
Puedes descargar todas las imagenes que desees de esta web:
schultz-net.dk
Debes guardar los archivos de imagenes en el directorio /boot/grub
2. Luego modifica tu archivo de configuracion de grub
Abrir el archivo grub.conf o menu.lst y añadir la siguiente linea:
splashimage=(hd0,0)/grub/ARCHIVO.xpm.gz
donde ARCHIVO.xpm.gz debe ser el archivo de imagen que descargaste del punto anterior.

Pero para ubuntu debes hacer los siguiente:
1. Descargar las imágenes
2. Crear una carpeta para la imagenes
shell>>sudo mkdir /boot/grub/images
3. Guardar la imagen en la carpeta creada
4. Luego modifica tu archivo de configuracion de grub
Abrir el archivo grub.conf o menu.lst y añadir la siguiente linea:
splashimage=(hdx,y)/boot/grub/ARCHIVO.xpm.gz
donde ARCHIVO.xpm.gz debe ser el archivo de imagen que descargaste del punto anterior.
x,y = los defines segun tus datos de HD

Get free blog up and running in minutes with Blogsome
Theme designed by Ian Main