Visual Basic .Net codigos de apoyo!!!

Saludos!!!

noreply@blogger.com (Cash.Net) — Wed, 02 Jul 2008 18:33:00 +0000

Hola a todos los visitantes de este humilde blog, como lo habran notado tiene ya dos meses que no he posteado nada, y en parte no lo he echo por el tiempo y mi trabajo, ademas de que por mi mente paso la idea de saber si quienes visitan este blog encuentran util la informacion aqui mostrada, por eso abri la encuesta, solo que tengo mas visitas que votos, por eso le invito a votar para de esa manera animarme y programar un tiempo para seguir posteando.

Saludos!!!

Enviar emails con Visual Basic

noreply@blogger.com (Cash.Net) — Wed, 30 Apr 2008 14:48:00 +0000

Hola en este sencillo ejemplo enviaremos un email con las credenciales de gmail, aqui las capturas de la aplicacion:

Diseñamos un formulario parecido a este

y el resultado...

El codigo de la aplicacion:

Imports System.Net.Mail 'Libreria para el envio de emails
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enviar.Click
'creamos un nuevo mensaje de correo
Dim correo As New MailMessage
'De
correo.From = New MailAddress(Me.from.Text)
'Para
correo.To.Add(Me.ToAddress.Text)
'Asunto
correo.Subject = Subject.Text
'Cuerpo del correo
correo.Body = Body.Text
'Mostrar como HTML
correo.IsBodyHtml = False
'Prioridad de el correo
correo.Priority = MailPriority.Normal
'Usaremos por default a gmail y su puerto SMTP
Dim smtp As New SmtpClient()
smtp.Host = "smtp.gmail.com"
smtp.Port = 587
smtp.Credentials = New System.Net.NetworkCredential("cuenta@gmail.com", "password")
smtp.EnableSsl = True
Try
'enviamos el correo
smtp.Send(correo)
MsgBox("Mensaje enviado satisfactoriamente", MsgBoxStyle.Information, "Envio de Emails")
Catch ex As Exception
MsgBox("Ocurrio el siguiente Error:" & ex.Message, MsgBoxStyle.Critical, "Envio de Emails")
End Try
End Sub
End Class

Como observaran es necesario contar con credenciales reales de gmail, despues lo haremos con cualquier otra cuenta, Saludos!!!

Generar codigos de Barras en Visual Basic .Net

noreply@blogger.com (Cash.Net) — Fri, 25 Apr 2008 17:44:00 +0000

Imagen de la Aplicacion:

Resultado de la impresion:

Para generar codigos de barras instalaremos previamente la fuente:3 of 9 Barcode

y el codigo de la aplicacion a continuación...

Imports System.Drawing.Printing

Public Class Form1
Dim Contenido As PrintPageEventArgs
Dim WithEvents Documento As New PrintDocument
Dim impresora As New PrintDialog

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Configurar()
Documento.Print()
End Sub

Private Sub Documento_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles Documento.PrintPage
Contenido = e
Contenido.Graphics.DrawString("*" & Me.TextBox1.Text & "*", New Font("3 of 9 Barcode", 14), Brushes.Black, 50, 300)
Contenido.Graphics.DrawString(Me.TextBox1.Text, New Font("Arial", 7), Brushes.Black, 90, 315)
Contenido.HasMorePages = False
End Sub

Private Sub Configurar()
impresora.Document = Documento
impresora.ShowDialog()
Documento.PrinterSettings = impresora.PrinterSettings
End Sub

End Class

PHP y Base de Datos

noreply@blogger.com (Cash.Net) — Tue, 08 Apr 2008 17:01:00 +0000

Bien si lo que les interesa es pasar rapidamente al trabajo con base de datos, aqui tienen un buen manual

Descargar Manual

Y bueno, si desean realizar sus practicas monten su servidor Apache, instalen el PHP y el MySQL, y como se hace todo eso??? pues sencillamente con este paquete que incluye los tres.

Descargar FoxServ

y me permito recomendar tambien en siguiente enlace:
Memorias de un aprendiz de PHP

Crear un Chat con Java

noreply@blogger.com (Cash.Net) — Tue, 08 Apr 2008 16:52:00 +0000

Bien este es un manual que explica las liberias java.net y java.io en el uso de una aplicacion para un chat, recomendado:

Descargar Manual

PHP Manual

noreply@blogger.com (Cash.Net) — Tue, 08 Apr 2008 16:47:00 +0000

El PHP es un lenguaje muy practico y muy potente, ademas que corre en servidores con software libre como linux, a continuacion un manual sobre este lenguaje:

Manual PHP 4

Espero les sea de utilidad

Java/Swing

noreply@blogger.com (Cash.Net) — Tue, 25 Mar 2008 16:00:00 +0000

Swing es una tecnologia que utiliza Java para aplicaciones de Escritorio aqui les dejo un manual que he encontrado en la red, para los que desean aprender este facinante lenguaje:

Descargar Manual Java

Espero les sea de utilidad

Resultado de la Encuesta

noreply@blogger.com (Cash.Net) — Mon, 24 Mar 2008 15:26:00 +0000

Bien, como podran observar en la escuela realizada se voto que se incluya informacion de otros lenguajes, en breve iremos posteando informacion correspondiente.

Gracias por sus votos

DataSet, XML y Flash

noreply@blogger.com (Cash.Net) — Tue, 11 Mar 2008 17:06:00 +0000

En ocaciones tenemos registros leidos desde la base de datos y almacenados en un DataSet, y se nos ocurre que podremos mostrarla en una aplicacion de Macromedia Flash, pues bien, Flash no tiene un soporte nativo para base de datos, pero si la lectura de archivos XML.

Pues bien para crear un archivo XML desde el DataSet basta lo siguiente:

'Esta es una clase que facilita la conexion y la ejecusion de consultas
Dim Conn As New Conectividad()
'Mi Objeto DataSet
Dim ds As New DataSet
'Llenamos el DataSet con el resultado de la consulta
ds = Conn.Consulta("Select * from datos", strError)
'E invocando al metodo WriteXml podemos crear tan facilmente un archivo XML
ds.WriteXml(Server.MapPath("MyXML.XML"), XmlWriteMode.IgnoreSchema)

Una ves creado el archivo XML, en Flash bastará este script para leer y mostrar cada uno de los registros del XML

//Este va en el fotograma 1
//Variables globales para control de recorrido por el XML
_global.pos=0;
_global.limite=0;

//Nuevo Objeto XML
var obj_xml:XML = new XML();
obj_xml.ignoreWhite = true;
//Esta Funcion sera invocada cuando se intente cargar un archivo XML
obj_xml.onLoad = function(exito) {
//La variable exito sera "true" si se cargo bien y "false" si el archivo no existe o no se pudo cargar por errores en su estructura
if (exito) {
//Numero Total de registros
_global.limite=obj_xml.firstChild.childNodes.length;
//modelo, des y precio son los nombres de las instancias de componentes TextInput
modelo.text=obj_xml.firstChild.childNodes[_global.pos].childNodes[1].firstChild.nodeValue;
des.text=obj_xml.firstChild.childNodes[_global.pos].childNodes[3].firstChild.nodeValue;
precio.text=obj_xml.firstChild.childNodes[_global.pos].childNodes[2].firstChild.nodeValue;

//img es una instancia del componente Loader, al cual le indicamos la ruta de la imagen a mostrar
img.contentPath=obj_xml.firstChild.childNodes[_global.pos].childNodes[4].firstChild.nodeValue;
img.load();
} else {
trace("Error"); //Que indique que hubo un error si no cargo el archivo
}
};

//Esta es la función que invoca la carga del archivo
function cargarXML() {
obj_xml.load("myXML.XML");
}

//Cargamos la funcion al iniciar
cargarXML();

Si deseamos un recorrido por cada uno de los registros deberemos incluir un boton de avance y otro de retroceso y escribir el siguiente script

//Boton retroceso
on (release) {
//Llamamos a la función de carga del archivo XML
_global.pos--;//Disminuimos la posicion actual
if (_global.pos<0) style="color: rgb(102, 102, 102);">//Si se paso del indice 0ç
_global.pos=0; //Lo ponemos en 0
cargarXML(); //Cargamos el archivo nuevamente, pero con la posicion indicada
}

//Boton Avanzar
on (release) { //Llamamos a la función de carga del archivo XML
_global.pos++;//aumentamos la posicion actual
if (_global.pos>_global.limite - 1) //Si nos pasamos del limite
_global.pos=_global.limite-1;// Ponemos el indice en el ultimo registro
cargarXML(); //Cargamos nuevamente el archivo
}

Cualquier comentario sera bien recibido...

Manual Visual Basic .Net

noreply@blogger.com (Cash.Net) — Fri, 22 Feb 2008 15:38:00 +0000

Aqui les dejo un manual de visual basic .net

Descargar Manual Visual Basic

Uso de Propiedades en los Formularios

noreply@blogger.com (Cash.Net) — Mon, 18 Feb 2008 15:09:00 +0000

Quiza algo que esta a nuestra disposicion y que en ciertos momentos puede resultarnos util, es el crear propiedades en los formularios que utilizamos, puesto que los formularios son Clases, se puede crear las propiedades que querramos, el uso de las propiedades se puede emplear cuando tengamos talves que pasarle un valor a un formulario, proveniente de uno previo, y despues mostrarlo en una etiqueta o hacer algun proceso con dicho valor

Public Class Form1
'Aqui declaramos el miembro de la clase, que simplemente es una variable
Private Valor_Propiedad As String
'Definimos sus métodos Get y Set, para almacenar el valor y para poder mostrarlo
Public Property Valor() As String 'La propiedad debe llamarse diferente al miembro
Get
return Me.Valor_Propiedad 'Aqui regresa lo que tenga el miembro de la clase
End Get
Set(ByVal value As String)
Me.Valor_Propiedad=value 'Aqui se almacena el valor que se le asigne
End Set
End Property
End Class

Bien y cuando hagamos refrerencia al formulario hariamos algo asi:
'Para Almacenar el valor de la propiedad
Dim MyForm as New Form1
MyForm.Valor="Saludos a todos!!!" 'Aqui le pasamos el valor
MyForm.Show

'Para Leer el valor de la propiedad
Datos=MyForm.Valor 'Aqui leemos el valor

Las propiedades tambien se pueden definir como solo lectura con el modificador: ReadOnly

Private Valor="Este valor es de solo Lectura"
Public ReadOnly Property Solo_Lectura()
Get
Return Valor
End Get
End Property

CrystalReports

noreply@blogger.com (Cash.Net) — Wed, 13 Feb 2008 15:06:00 +0000

Hace un tiempo me preguntaba como mostrar un Reporte de CrystalReports pero que este se actualizara de acuerdo al Contenido de un DataSet, bien, pues aqui un sencillo ejemplo:

'Obviamente primero deben crear su Reporte en Crystal, ok
'Declaramos una variable local instanciada con el Nombte del Reporte Creado
Dim Report As New Reporte_Ventas

'oConn es un objeto de la Clase CReport, dicha Clase se conecta a la Base de Datos SQL_Server
'(la anexare mas abajo)
Dim oConn As New CReport

'Este DataSet estara vinculado al reporte, para muestre el resultado de la consulta
Dim dsConn As New DataSet

'Mi variable de error
Dim strError As String = ""

'Ahora mi DataSet local se llenara con el resultado de la consulta en la Base de Datos
'SP_Report es un procedimiento almacenado en la base de datos
'Obviamente tambien puediera ser una consulta SQL
dsConn = oConn.Reporte("SP_REPORT", strError)
If strError = "" Then
Report.Load(RutaReporte & "Reporte2.rpt") 'Aqui vinculamos la Ruta fisica del reporte
Report.SetDataSource(dsConn.Tables("TB_REPORTE")) 'Vinculamos los datos a mostrar
'con el resultado de la consulta en el DataSet, aqui algo importante, el nombre de la tabla
'en el DataSet, debe coincidir con la tabla utilizada en el reporte
Report.SetDatabaseLogon(User, Pwd, server, basedatos) 'Aqui se controla el acceso a la
'Base de Datos, usuario, password, servidor y nombre de la base de datos usada
Report.SetParameterValue(0, Nombre) 'En caso de que el reporte incluya parametros,
'asi les pasamos el valor a mostrar

'Nuestro Formulario debe incluir el CrystalReportViewer para visualizarlo
CrystalReportViewer1.DisplayGroupTree = False
CrystalReportViewer1.ReportSource = Report

'O si lo queremos imprimir directo, seria:
CrystalReportViewer1.PrintReport
Else
MsgBox(strError)
End If

Codigo de la Clase CReport

Imports System.Data.SqlClient
Imports Microsoft.VisualBasic

Public Class CReport

Private strConx As String

Public Sub New()
strConx = Data Source=HCANOS\SQL_2005;Initial catalog=sistema;password=0000;persist security info=True;user id=sa;Max Pool Size=2000;packet size=4096
End Sub

Public Function Reporte(ByVal pStoreProcedure, ByRef pError) As Data.DataSet

Dim objConn As New SqlConnection
objConn.ConnectionString = strConx

Dim objCmd As New SqlCommand
objCmd.CommandType = Data.CommandType.StoredProcedure
objCmd.Connection = objConn
objCmd.CommandText = pStoreProcedure

Dim daAdapter As New SqlDataAdapter
daAdapter.SelectCommand = objCmd
Dim dsDatos As New Data.DataSet

Try
daAdapter.Fill(dsDatos, "TB_REPORTE")
Return dsDatos
Catch e As SqlException
pError = "Error:" & e.Message & " en " & e.Source
Catch e As Exception
pError = "Error:" & e.Message & " en " & e.Source
Finally
objCmd.Dispose()
objConn.Dispose()
End Try

End Function

End Class

Cualquier duda, dejen su comentario!!!

Impresora de Tickets!!!

noreply@blogger.com (Cash.Net) — Tue, 12 Feb 2008 18:17:00 +0000

Este codigo me fue muy util en la impresion de Ticket para un sistema de punto de venta con impresora de Tickets o miniimpresora:

'Se declaran las constantes ya las funciones API del Sistema

Public Const GENERIC_WRITE = &H40000000
Public Const OPEN_EXISTING = 3
Public Const FILE_SHARE_WRITE = &H2
Public LPTPORT As String
Public hPort As Integer, hPortP As IntPtr
Public retval As Integer

Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Integer, ByVal dwShareMode As Integer, ByRef lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Integer, ByVal dwFlagsAndAttributes As Integer, ByVal hTemplateFile As Integer) As Integer

Public Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Integer) As Integer

Public Structure SECURITY_ATTRIBUTES
Private nLength As Integer
Private lpSecurityDescriptor As Integer
Private bInheritHandle As Integer
End Structure

Ya despues en un boton copiamos y pegamos esto:

Dim SA As SECURITY_ATTRIBUTES
Dim outFile As FileStream
LPTPORT = "LPT1"
hPort = CreateFile(LPTPORT, GENERIC_WRITE, FILE_SHARE_WRITE, SA, OPEN_EXISTING, 0, 0)
hPortP = New IntPtr(hPort)

Dim Safe As New Microsoft.Win32.SafeHandles.SafeFileHandle(hPortP, True)
outFile = New System.IO.FileStream(Safe, IO.FileAccess.Write)

Dim fileWriter As New StreamWriter(outFile)
fileWriter.WriteLine(" " & " Nombre de Empresa")
fileWriter.WriteLine(" " & " Direccion, etc ")
fileWriter.WriteLine(" " & " Fecha : " & Date.Today)
fileWriter.WriteLine(" " & "---------------------------------------")
fileWriter.WriteLine(" " & "Articulo " & " Precio " & " Cantidad " & " Total ")
fileWriter.WriteLine(" " & "---------------------------------------")
'Aqui puede ir un ciclo For que lea el contenido de un DataSet que contenga los datos a imprimir por ejemplo
'O bueno de donde quieran imprimir los datos
fileWriter.WriteLine(" " & "---------------------------------------")
fileWriter.WriteLine(" " & " Total$ " & var_Total) 'Aqui obviamente la variable donde tienen el total
fileWriter.WriteLine(" " & "Gracias Por Su Compra")
fileWriter.Flush()

Funciona al 100%

Numero a Letras

noreply@blogger.com (Cash.Net) — Tue, 12 Feb 2008 17:34:00 +0000

Este sencillo codigo nos permite convertir numeros a letras:
Se copia y pega la funcion en tu codigo fuente:

Public Function Num2Text(ByVal value As Double) As String
Select Case value
Case 0 : Num2Text = "CERO"
Case 1 : Num2Text = "UN"
Case 2 : Num2Text = "DOS"
Case 3 : Num2Text = "TRES"
Case 4 : Num2Text = "CUATRO"
Case 5 : Num2Text = "CINCO"
Case 6 : Num2Text = "SEIS"
Case 7 : Num2Text = "SIETE"
Case 8 : Num2Text = "OCHO"
Case 9 : Num2Text = "NUEVE"
Case 10 : Num2Text = "DIEZ"
Case 11 : Num2Text = "ONCE"
Case 12 : Num2Text = "DOCE"
Case 13 : Num2Text = "TRECE"
Case 14 : Num2Text = "CATORCE"
Case 15 : Num2Text = "QUINCE"
Case Is < 20 : Num2Text = "DIECI" & Num2Text(value - 10)
Case 20 : Num2Text = "VEINTE"
Case Is < 30 : Num2Text = "VEINTI" & Num2Text(value - 20)
Case 30 : Num2Text = "TREINTA"
Case 40 : Num2Text = "CUARENTA"
Case 50 : Num2Text = "CINCUENTA"
Case 60 : Num2Text = "SESENTA"
Case 70 : Num2Text = "SETENTA"
Case 80 : Num2Text = "OCHENTA"
Case 90 : Num2Text = "NOVENTA"
Case Is < 100 : Num2Text = Num2Text(Int(value \ 10) * 10) & " Y " & Num2Text(value Mod 10)
Case 100 : Num2Text = "CIEN"
Case Is < 200 : Num2Text = "CIENTO " & Num2Text(value - 100)
Case 200, 300, 400, 600, 800 : Num2Text = Num2Text(Int(value \ 100)) & "CIENTOS"
Case 500 : Num2Text = "QUINIENTOS"
Case 700 : Num2Text = "SETECIENTOS"
Case 900 : Num2Text = "NOVECIENTOS"
Case Is < 1000 : Num2Text = Num2Text(Int(value \ 100) * 100) & " " & Num2Text(value Mod 100)
Case 1000 : Num2Text = "MIL"
Case Is < 2000 : Num2Text = "MIL " & Num2Text(value Mod 1000)
Case Is < 1000000 : Num2Text = Num2Text(Int(value \ 1000)) & " MIL"
If value Mod 1000 Then Num2Text = Num2Text & " " & Num2Text(value Mod 1000)
Case 1000000 : Num2Text = "UN MILLON"
Case Is < 2000000 : Num2Text = "UN MILLON " & Num2Text(value Mod 1000000)
Case Is < 1000000000000.0# : Num2Text = Num2Text(Int(value / 1000000)) & " MILLONES "
If (value - Int(value / 1000000) * 1000000) Then Num2Text = Num2Text & " " & Num2Text(value - Int(value / 1000000) * 1000000)
Case 1000000000000.0# : Num2Text = "UN BILLON"
Case Is < 2000000000000.0# : Num2Text = "UN BILLON " & Num2Text(value - Int(value / 1000000000000.0#) * 1000000000000.0#)
Case Else : Num2Text = Num2Text(Int(value / 1000000000000.0#)) & " BILLONES"
If (value - Int(value / 1000000000000.0#) * 1000000000000.0#) Then Num2Text = Num2Text & " " & Num2Text(value - Int(value / 1000000000000.0#) * 1000000000000.0#)
End Select
End Function

Para invocar a la Funcion:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim D As Double = CDbl(Me.TextBox1.Text)
Dim parteEntera As Integer = Math.Truncate(D)
Dim parteDecimal As Integer = Math.Round(((D - parteEntera) * 100), 2)

If (parteDecimal > 0) Then
Me.Label1.Text = Num2Text(parteEntera) & " PESOS " & parteDecimal & "/100 MN"
Else
Me.Label1.Text = Num2Text(parteEntera) & "PESOS 00/100 MN"
End If
End Sub

Bienvenida!!!

noreply@blogger.com (Cash.Net) — Tue, 12 Feb 2008 15:24:00 +0000

Hola, este blog esta dedicado a la colección de codigo de apoyo en el lenguaje Visual Basic. Net y mas adelante de otros lenguajes, iremos subiendo rutinas de apoyo, esperamos su colaboracion!!!