- 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