Bueno les comento que me llamo Ayala Cristian, tengo 19 anos, soy de Temperley, estudio Técnico Superior en Programación en la UTN Fra (Universidad Tecnológica Nacional Regional Avellaneda), termine el 3er cuatrimestre de la carrera, en donde rendí Laboratorio III y Programación III, en las cuales tuve como lenguaje de programación el de Visual Basic.Net, me costo mucho pasar de programar en consola a pasar a Windows Form (formularios), y por eso hago este blog como ayuda para mis compañeros y para los que la necesitan, desde ya muchas gracias a todos mis compañeros que me dan su ayuda en todo momento, como Leonardo Cabano y Luciano Orsi.
Empecemos a programar en Vb.net, voy hacer todos los ejercicios de la guía de Laboratorio III, en total son 27.
Yo solamente les voy a mostrar como programar no voy a enseñarles teoría.
Aplicación Nº 1 Se requiere crear la clase SerHumano que posea los siguientes atributos privados:
_nombre (String)
_peso (Single)
_altura (Single)
_sexo (String)
Además tendrá los siguientes métodos:
Comer(String)
Dormir
A partir de la clase SerHumano, se pide: Crear dos clases (que hereden de la anterior) llamadas Gerente y Empleado. Cada una de dichas clases poseerá atributos y métodos característicos (por ejemplo, la clase Empleado tendrá como atributo sueldo y como método Trabajar). Generar, en el método Main, las sentencias necesarias para probar los miembros de ambas clases.
Este primer es en consola para acostumbrarse a las nuevas sentencias de VB.net.
Module Module1
Sub Main()
Dim op As Integer
Console.WriteLine("Menu De Opciones")
Console.WriteLine("----------------")
Console.WriteLine("1. Empleado")
Console.WriteLine("2. Gerente")
Console.WriteLine("3. Salir")
Console.WriteLine("----------------")
Console.WriteLine("Ingrese una opcion: 1,2 o 3")
Try
op = Integer.Parse(Console.ReadLine())
Catch ex As Exception
Console.WriteLine("Ingrese un entero por favor")
End Try
Select Case op
Case 1
Dim miEmpleado As New Empleado("Cristian", "Masculino", 73, 1.8, 2000)
miEmpleado.DatosEmpleado()
miEmpleado.Trabajar()
miEmpleado.comer("Milanesas de Carne")
miEmpleado.dormir()
Case 2
Dim miGerente As New Gerente("Emanuel", "Masculino", 70, 1.75, 7000)
miGerente.DatosGerente()
miGerente.darOrdenes("Despedir Empleados")
miGerente.comer("Sopa")
miGerente.dormir()
Case 3
End
Case Else
Console.WriteLine("Ingrese una opcion correcta 1, 2 o 3")
End Select
Console.WriteLine("------------------------------")
Console.WriteLine("El programa ha terminado, hasta luego")
Console.ReadKey()
End Sub
End Module
Public Class SerHumano
Private _nombre As String
Private _sexo As String
Private _altura As Single
Private _peso As Single
Public Property Nombre() As String
Get
Return _nombre
End Get
Set(ByVal value As String)
Me._nombre = value
End Set
End Property
Public Property Sexo() As String
Get
Return _sexo
End Get
Set(ByVal value As String)
Me._sexo = value
End Set
End Property
Public Property Peso() As Single
Get
Return _peso
End Get
Set(ByVal value As Single)
Me._peso = value
End Set
End Property
Public Property Altura() As Single
Get
Return _altura
End Get
Set(ByVal value As Single)
Me._altura = value
End Set
End Property
Public Sub New(ByVal nombre As String, ByVal sexo As String, ByVal peso As Single, ByVal altura As Single)
_nombre = nombre
_sexo = sexo
_peso = peso
_altura = altura
End Sub
Public Sub comer(ByVal comida As String)
Console.WriteLine("Estoy morfando" & comida)
End Sub
Public Sub dormir()
Console.WriteLine("Estoy durmiendo")
End Sub
End Class
Public Class Empleado
Inherits SerHumano
Private _nombre As String
Private _sexo As String
Private _sueldo As Single
Private _altura As Single
Private _peso As Single
Public Sub New(ByVal nombre As String, ByVal sexo As String, ByVal peso As Single, ByVal altura As Single, ByVal sueldo As Single)
MyBase.New(nombre, sexo, Peso, altura)
_nombre = nombre
_sexo = sexo
_sueldo = sueldo
_altura = altura
_peso = Peso
End Sub
Public Sub DatosEmpleado()
Console.WriteLine("Datos del empleado")
Console.WriteLine("------------------")
Console.WriteLine("Nombre: {0}", _nombre)
Console.WriteLine("sexo: {0}", _sexo)
Console.WriteLine("Sueldo: {0}", _sueldo)
Console.WriteLine("Altura: {0}", _altura)
Console.WriteLine("Peso: {0}", _peso)
End Sub
Public Sub Trabajar()
Console.WriteLine("{0} se encuentra trabajando", _nombre)
End Sub
End Class
Public Class Gerente
Inherits SerHumano
Private _nombre As String
Private _sexo As String
Private _sueldo As Single
Private _altura As Single
Private _peso As Single
Public Sub New(ByVal nombre As String, ByVal sexo As String, ByVal peso As Single, ByVal altura As Single, ByVal sueldo As Single)
MyBase.New(nombre, sexo, peso, altura)
_nombre = nombre
_sexo = sexo
_sueldo = sueldo
_altura = altura
_peso = peso
End Sub
Public Sub DatosGerente()
Console.WriteLine("Datos del Gerente")
Console.WriteLine("------------------")
Console.WriteLine("Nombre: {0}", _nombre)
Console.WriteLine("sexo: {0}", _sexo)
Console.WriteLine("Sueldo: {0}", _sueldo)
Console.WriteLine("Altura: {0}", _altura)
Console.WriteLine("Peso: {0}", _peso)
End Sub
Public Sub darOrdenes(ByVal _orden As String)
Console.WriteLine("Realiza esta acciom: " & _orden)
End Sub
End Class
