12 de diciembre de 2012

Ejemplo con Clases en VS2010

Un ejemplo de lo mas sencillo, lo haremos para una clase Bicicleta y crearemos instancias(objetos) de esta clase, primero creamos un nuevo proyecto lo cual nos creara un formulario al que le agregamos Labels, Textbox y dos botones tal como se muestra


El siguiente paso sera agregar una clase al proyecto y llamarla Bicicleta, el código se muestra a continuación  y dependiendo si el atributo es declarado como privado, se agrega una propiedad con métodos Get y Set para este, la clase en VB queda así:

VB

Public Class Bicicleta
    Public Modelo As String
    Public Precio As String
    Private NumeroDeVelocidades As String
    Private Belocidad_ As Integer = 0   'valor inicial

    Public Property Velocidades() As String  'para valores de NumeroDeVelocidades
        Get
            Return NumeroDeVelocidades
        End Get
        Set(ByVal value As String)
            NumeroDeVelocidades = value
        End Set
    End Property

    Public Property Belocidad() As Integer  'para valores de Belocidad_
        Get
            Return Belocidad_
        End Get
        Set(ByVal value As Integer)
            Belocidad_ = value
        End Set
    End Property


    Public Sub acelerar(km As Integer)
        Belocidad_ = Belocidad_ + km
    End Sub

    Public Sub frenar()
        If Belocidad_ > 0 Then
            Belocidad_ = Belocidad_ - 1
        End If
    End Sub

    Public Function ConsultarVelocidad() As Integer
        Return Belocidad_
    End Function
End Class


  y el código en el formulario queda así, este ejemplo muestra en forma sencilla como utilizar clases, ustedes deberán implementar las validaciones necesarias:

Public Class Form1
    Dim objBicicleta = New Bicicleta()

    Private Sub BAgregar_Click(sender As System.Object, e As System.EventArgs) Handles BAgregar.Click
        objBicicleta.Modelo = Trim(TModelo.Text)
        objBicicleta.Precio = Trim(TPrecio.Text)
        objBicicleta.Belocidad = Trim(CInt(TBelocidad.Text))
        objBicicleta.Velocidades = Trim(TVelocidades.Text)
    End Sub

    Private Sub BMostrar_Click(sender As System.Object, e As System.EventArgs) Handles BMostrar.Click
        objBicicleta.acelerar(15)
        objBicicleta.frenar()
        TResultado.Text = CStr(objBicicleta.ConsultarVelocidad)
    End Sub

End Class



C# 
el código de la clase Bicicleta es:

class Bicicleta
    {
        public string Modelo;
        public string Precio;
        private string NumeroDeVelocidades_;
        private int Velocidad_;

        public string  NumeroDeVelocidades
        {
            get { return  NumeroDeVelocidades_; }
            set {  NumeroDeVelocidades_ = value; }
        }

        public int Velocidad
        {
            get { return Velocidad_; }
            set { Velocidad_ = value; }
        }
       
        public void Acelerar(int km)
        {
            Velocidad_ = Velocidad_ + km;
        }

        public void Frenar()
        {
            if (Velocidad_ > 0)
            {
                Velocidad_ = Velocidad_ - 1;
            }
        }

        public int ConsultarVelocidad()
        {
            return Velocidad_;
        }
    }

y el código del formulario es

public partial class Form1 : Form
    {
        Bicicleta objbicicleta = new Bicicleta();
        public Form1()
        {
            InitializeComponent();
        }

        private void BAgregar_Click(object sender, EventArgs e)
        {
            objbicicleta.Modelo = (TModelo.Text).Trim();
            objbicicleta.Precio = (TPrecio.Text).Trim();
            objbicicleta.NumeroDeVelocidades = (TVelocidades.Text).Trim();
            objbicicleta.Velocidad = (Convert.ToInt32((TBelocidad.Text).Trim()));
        }

        private void BMostrar_Click(object sender, EventArgs e)
        {
            objbicicleta.Acelerar(1);
            objbicicleta.Frenar();
            TResultado.Text = Convert.ToString(objbicicleta.ConsultarVelocidad());
        }
    }





miércoles, diciembre 12, 2012