March 27th, 2011 
admin 
Para este ejemplo primero crearemos la clase Categoria.
Public Class Categoria Private cCodigo As Short Private cDescripcion As String Public Property Codigo() As Short Get Return cCodigo End Get Set(ByVal value As Short) cCodigo = value End Set End Property Public Property Descripcion() As String Get Return cDescripcion End Get Set(ByVal value As String) cDescripcion = value End Set End Property End Class
March 10th, 2011 admin Public Class Form1 Dim texto As String Dim ancho As Short Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick texto += " " Text = texto + TextBox1.Text ancho += 1 If CShort(((Width / 4) + 1)) = ancho Then texto = String.Empty Text = String.Empty ancho = 0 End If End Sub End Class
December 20th, 2010 admin Modo Consola:
'Hacer la referencia a la capa negocios (CapaNegocios.dll) Imports CapaNegocios Module Module1 Sub Main() Dim can As New Empleado_Neg Console.WriteLine("Total de empleados: " & can.Total_de_Empleados) Console.ReadLine() End Sub End Module
Modo WindowForm:
December 19th, 2010 admin Hacemos referencia a las librerías:
CapaDatos.dll
CapaEntidad.dll
Luego importamos las siguientes NameSpace.
Imports CapaAccesoDatos Imports CapaEntidad Imports System.Data.SqlClient
December 19th, 2010 admin Primero creamos la tabla Empleado en MS SqlServer:
CREATE TABLE Empleado ( IdEmpleado int NOT NULL, Nombres varchar(50) NULL, Apellidos varchar(50) NULL, FechaNac date NULL, CONSTRAINT PK_Empleado PRIMARY KEY CLUSTERED (IdEmpleado) )
creamos la clase Empleado_Ent que pertenecerá a la capa Entidad:
| M | T | W | T | F | S | S |
|---|---|---|---|---|---|---|
| « May | ||||||
| 1 | 2 | 3 | 4 | 5 | ||
| 6 | 7 | 8 | 9 | 10 | 11 | 12 |
| 13 | 14 | 15 | 16 | 17 | 18 | 19 |
| 20 | 21 | 22 | 23 | 24 | 25 | 26 |
| 27 | 28 | 29 | ||||
Publicidad
Tags: