PEDIDO DE COTIZACIONES

Elaborar una aplicación que permita seleccionar un artículo de un cuadro combinado (Combo). Apenas el usuario seleccione un artículo se debe mostrar el precio del mismo, el interés es fijo para esta ocasión.
El diseño de la interfaz debe ser similar a la siguiente figura:



Para el desarrollo de esta aplicación, proceda a ubicar los siguientes controles en el formulario:

1 marco
3 etiquetas
1 cuadro combinado
2 cajas de texto
3 botones de opción
2 botones de comando

En seguida proceda a establecer las propiedades según se indica:

Form1

Nombre
FrmCotizacion

BorderStyle
3-Fixed Dialog

Caption
Pedido de cotizaciones

Frame1

Nombre
FraPlazo

Caption
Plazo:

Label1

Nombre
LblArticulo

Caption
Artículo:

Label2

Nombre
LblPrecio

Caption
Precio US$

Label3

Nombre
LblInteres

Caption
Interés:

Combo1

Nombre
CboArticulo

Text


Text1

Nombre
TxtPrecio

Locked
True

Text


Text2

Nombre
TxtInteres

Locked
True

Text


Option1

Nombre
OptPlazo

Caption
6 meses

Value
True

Option2

Nombre
OptPlazo

Caption
12 meses

Value
False

Option3

Nombre
OptPlazo

Caption
24 meses

Value
False

Command1

Nombre
CmdCuotaMensual

Caption
&Cuota mensual

Command2

Nombre
CmdTotal

Caption
&Total

Una vez establecidas las propiedades de la interfaz, haga doble click sobre el formulario e ingrese las siguientes declaraciones en la sección General del módulo de formulario:

Private Type Articulo
Nombre As String * 30
Precio As Double
End Type
Dim A(4) As Articulo, Plazo As Integer
Const Interes = 0.12

Recuerde que un dato declarado en la sección General de un módulo puede ser accedido por todos los procedimientos de dicho módulo. Luego, continúe ingresando el código que se muestra a continuación:

Private Sub Form_Load()
A(0).Nombre = “Monitor SAMSUNG SyncMaster 3”
A(1).Nombre = “Impresora Hewlett 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
Dim I As Integer
For I = 1 To 4
CboArticulo.AddItem A(I - 1).Nombre
Next I
TxtInteres = Interes : Plazo = 6
End Sub
Private Sub CboArticulo_Click()
Dim I As Integer
I = CboArticulo.ListIndex
TxtPrecio = A(I).Precio
End Sub

Private Sub OptPlazo_Click(Index As Integer)
Select Case Index
Case 0: Plazo = 6
Case 1: Plazo = 12
Case 2: Plazo = 24
End Select
End Sub

Private Sub CmdCuotaMensual_Click()
Dim Total As Double, CuotaMensual As Double, I As Integer
I = CboArticulo.ListIndex
Total = A(I).Precio * (1 + Interes)
CuotaMensual = Total / Plazo
MsgBox “Cuota Mensual US$” & Str(CuotaMensual)
End Sub

Private Sub CmdTotal_Click()
Dim Total As Double, I As Integer
I = CboArticulo.ListIndex
Total = A(I).Precio * (1 + Interes)
MsgBox “Total US$” & Str(Total)
End Sub