Ingeniero en sistemas informaticos



Contenido
Ejercicio 1 3
Form1.vb 3
Circunferencia.vb 3
rectangulo.vb 3
Class Diagram 4
Print Screen 4
Ejercicio 2 5
Form1.vb 5
Triangulo.vb 5
Class Diagram 6
Print Screen 6
Ejercicio 3 6
Form1.vb 6
Figura.vb 6
Circulo.vb 7
Rectangulo.vb 8
Class Diagram 9
Print Screen 9
Ejercicio 4 9
Form1.vb 9
Motor.vb 11
Rueda.vb 11
Class Diagram 11
Print Screen 11
Ejercicio 5 12Form1.vb 12
Cliente.vb 12
Proveedor.vb 13
Persona.vb 13
Class Diagram 14
Print Screen 14
Ejercicio 6 14
Form1.vb 14
VehiculoEstandard.vb 15
VehiculoDeportivo.vb 15
Vehiculo.vb 15
Class Diagram 17
Print Screen 17
Ejercicio 7 17
Form1.vb 17
Vehiculo.vb 18
Auto.vb 18
Moto.vb 18
Colectivo.vb 19
Class Diagram 19
Print Screen 19
Ejercicio 8 (Falta Terminar) 19
Form1.vb 19Persona.vb 21
Articulo.vb 21
Class Diagram 22
Print Screen 23
Ejercicio 9 23
Form1.vb 23
Figura.vb 24
Circulo.vb 24
Rectangulo.vb 24
Class Diagram 25
Print Screen 26


Ejercicio 1
Form1.vb
Public Class Form1

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

End Sub

Private Sub Button1_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim c As Rectangulo
c = New Rectangulo
c.Lado1 = Convert.ToDouble(TextBox1.Text)
c.Lado2 = Convert.ToDouble(TextBox2.Text)

Label4.Text = c.Superficie

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dimcirculo As Circunferencia = New Circunferencia
circulo.Radio = Convert.ToDouble(TextBox3.Text)
Label6.Text = "Superficie = " + circulo.Superficie().ToString
End Sub
End Class
Circunferencia.vb
Public Class Circunferencia
Private _radio As Double

Public Property Radio()
Get
Return _radio
End Get
Set(ByVal value)_radio = value
End Set
End Property
Public Function Superficie() As Double
Dim s As Double
Const PI = 3.14159265358979
s = PI * (_radio ^ 2)
Return s
End Function

End Class
rectangulo.vb
Public Class Rectangulo
Private _lado1 As Double
Private _lado2 As Double

Public Property Lado1() As Double
GetReturn _lado1
End Get
Set(ByVal value As Double)
_lado1 = value
End Set
End Property

Public Property Lado2() As Double
Get
Return _lado2
End Get
Set(ByVal value As Double)
_lado2 = value
End Set
End Property

Public Function Superficie() As Double
Dim Sup AsDouble
Sup = _lado2 * _lado1
Return Sup
End Function



End Class

Class Diagram

Print Screen



Ejercicio 2
Form1.vb
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim t As Triangulo = New Triangulo
t.Altura = Convert.ToDouble(TextBox1.Text)t.Base = Convert.ToDouble(TextBox2.Text)
Label3.Text = "Superficie = " + t.Superficie.ToString

'Aqui demuestro la sobrecarga del consturctor NEW de la clase Triangulo con
'un msgbox.

'Dim t2 As Triangulo
't2 = New Triangulo()
'MsgBox(t2.Altura)
End Sub
End Class
Triangulo.vb
Public Class Triangulo

Private _altura As DoublePrivate _base As Double

Property Altura()
Get
Return _altura

End Get
Set(ByVal value)
_altura = value
End Set
End Property

Property Base()
Get
Return _base

End Get
Set(ByVal value)
_base = value
End Set
End Property

Public Function...