Traductor

miércoles, 4 de diciembre de 2013

Practica 23

Jóvenes, les dejo el código para la realización de la práctica 23, su labor será:

  • Identificar funcionalidad del código, es decir, investigar, discutir y analizar cada línea de código y explicar que función tiene.
  • Identificar la asignación de nombres de objetos, para asignación de código.
  • Recuerden que las prácticas 20, 22 y 23 (hasta el momento) deberán ser entregadas impresas tanto en código como en ejecución.

Public Class Form1

Private Structure Articulo

Dim nombre As String
Dim precio As Double

End Structure

Dim a(4) As Articulo, plazo As Integer
Const interes = 0.12

   
Private Sub cuoto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cuoto.Click

Dim Total As Double, CuotaMensual As Double, i As Integer
i = Arti.SelectedIndex 'Indice del elemento seleccionado
Total = a(i).precio * (1 + interes)
  If opt6.Checked Then

plazo = 6
Else

If opt12.Checked Then

plazo = 12
 Else

If opt24.Checked Then

plazo = 24
end If

CuotaMensual = Total / plazo
MessageBox.Show("Cuota mensual: " & CuotaMensual.ToString("$ #,##0.00"))

End Sub

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

a(0).nombre = "Monitor SAMSUNG Syncmaster 3"

a(1).nombre = "Impresora Hewlet Packard Deskjet 930C"

a(2).nombre = "Impresora Epson Stylus Color 740"

a(3).nombre = "Microprocesador Pentium I 233 MHz"


a(0).precio = 150 : a(1).precio = 275 : a(2).precio = 145 : a(3).precio = 80
'Cargar los datos del array en el combobox
Dim i As Integer

For i = 1 To 4
Arti.Items.Add(a(i - 1).nombre)
next

'Inicializamos Intere y plazo

inte.Text = CStr(interes) : plazo = 6

End Sub

Private Sub Arti_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Arti.SelectedIndexChanged

Dim i As Integer

i = Arti.SelectedIndex 'Indice del elemento seleccionado

Prec.Text = CStr(a(i).precio) 'Escribe el precio del elemento seleccionado

End Sub

Private Sub total_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles total.Click

Dim Total As Double, i As Integer

i = Arti.SelectedIndex 'Indice del elemento seleccionado



Total = a(i).precio * (1 + interes)
  MessageBox.Show("Total: " & Total.ToString("$ #,##0.00"))

End Sub

End Class