Hola,
Mirá, voy a ser un poco flexible con el código para que lo entiendas, ya que es sencillo lo que te piden. Veamos.
Vamos a tener un ComboBox (
cmb) que va a tener cargado 4 Vendedores para que el usuario despliegue y seleccione uno. Una vez que selecciona el Vendedor debe ingresar el Monto a través de un TextBox (
txt), y recién ahí va a poder clickear en el Botón (
btn) para que, dependiendo del Vendedor seleccionado, el Monto vaya a parar a alguno de los 4 ComboBox (ya que son 4 Vendedores). ¿Cómo hacemos el código?
Vamos a ver qué controles necesitamos:- 5 ComboBox
- 1 para seleccionar un Vendedor (cmbVendedor)
- 4 para enviar el Monto a algunos de los 4 Vendedores (cmbPablo, cmbJuan, cmbAna y cmbMaria)
- 1 TextBox para ingresar el Monto (txtMonto)
- 1 Button para ingresar el Monto a alguno de los 4 ComboBox de los Vendedores (btnIngresar)
- Etiquetas (llamadas Label) para identificar cada control en la ventana Diseño (y para que el usuario sepa dónde debe ingresar los datos)
Vamos a ver qué necesitamos para que entiendas el código (VB.NET 2010):- Conocer las propiedades de los controles
- (Name): Indica el nombre que le vamos a asignar a dicho control y que sólo se ve en nuestro código (el usuario no lo ve)
- Text: Indica el nombre que le vamos a asignar a dicho control para que sea "amigable" para el usuario (lo ve)
- Items: Indica una lista de propiedades relacionadas al elemento (solamente para ComboBox)
- Add(...): Agrega un elemento (solamente para ComboBox)
- SelectedItem(...): devuelve un string que contiene el elemento seleccionado (solamente para ComboBox)
- Clear(): Borra el contenido de la propiedad Text (solamente para TextBox). Opcional
- Focus(): Posiciona al cursor en un control (lo vamos a usar solamente para TextBox). Opcional
- Val(...): Convierte a número lo que está entre .... Esto es opcional, solamente valida que si, por ejemplo, el usuario ingresa "Hola" esa expresión la convierta en el número 0
- Conocer las funciones
- If... Then: Evalúa una expresión y, si es Verdadera, ejecuta el código de Verdadero (opcional: dentro del If...Then existe una palabra llamada Else: decimos que si la expresión no es Verdadera -Falsa- ejecute el código de Else)
- Or: Se usa como disyunción dentro de las expresiones de If...Then (ejemplo: If 5 = 3 + 2 Or "Hola" = "Chau" Then {Verdadero, Else Falso}
sale por el lado Verdadero, pues como la primera condición (5 = 3 + 2) es Verdadera, la otra no nos importa conocer si es True o False) - Select Case: Lo mismo que If...Then, nada más que reducido, pues si tenemos que evaluar sobre una misma variable varias condiciones
(ejemplo: si queremos evaluar una variable llamada número si es = 5, o > 5, o > 7 y < 10, etc.) no vamos a hacer 40 If...Then por cada condición - MsgBox(...): Muestra al usuario una ventana con texto
- Y bueno... obviamente conocer el entorno en el que estamos trabajando. Por ejemplo, saber cómo generar el evento FormLoad(...) para el Formulario (Form1) (se hace haciendo doble click en el Form1), o cómo generar el evento Click(...) (lo usaremos solamente para el btnIngresar, también, haciendo doble click sobre el Botón creado)
Con todo esto,
¡MANOS A LA OBRA!Te dejo una imagen del DISEÑO del programa que hice, y el código a continuación (omito ciertos parámetros de los eventos pues como no los modificamos es innecesario tener a vista ese código. En su defecto, lo cambié por
...):
Public Class Form1
Private Sub Form1_Load(...) Handles MyBase.Load
cmbProveedores.Items.Add("Pablo")
cmbProveedores.Items.Add("Juan")
cmbProveedores.Items.Add("Ana")
cmbProveedores.Items.Add("Maria")
End Sub
Private Sub btnIngresar_Click(...) Handles btnIngresar.Click
If txtMonto.Text = "" Or Val(txtMonto.Text) = 0 Then
MsgBox("Debe ingresar un Monto válido")
Else
Select Case cmbProveedores.SelectedItem
Case "Pablo"
cmbPablo.Items.Add(txtMonto.Text)
txtMonto.Clear()
Case "Juan"
cmbJuan.Items.Add(txtMonto.Text)
txtMonto.Clear()
Case "Ana"
cmbAna.Items.Add(txtMonto.Text)
txtMonto.Clear()
Case "Maria"
cmbMaria.Items.Add(txtMonto.Text)
txtMonto.Clear()
Case Else
MsgBox("Seleccione un Vendedor válido")
txtMonto.Focus()
txtMonto.Clear()
End Select
End If
End Sub
End Class
LEERLO ATENTAMENTE. Cualquier duda que hayas tenido preguntá por acá.
Saludos!!
Ya te envié el email con el libro de programación.
