Ingresos de datos y Condicionales.

Desarrolle el siguiente programa:

Permite capturar: Nombre, Tipo Bolsas (G= Grande, M= Mediana, P=Pequeña), Cantidad de Bolsas.

Calcular al dar CLic en el botón Aceptar:

Valor de la Bolsa: Grade = 500, Mediana=300 y Pequeña=100.

Valor Producción = multiplicar Valor Bolsa por la cantidad de Bolsas.

Diseño del Programa:

Botón Aceptar

Private Sub CommandButton1_Click()

  Dim TipoB As String, CBolsas As Currency, _

      ValorB As Currency, VProduccion As Currency

  TipoB = TextBox2

  Select Case TipoB

    Case "G", "g"

      ValorB = 500

    Case "M", "m"

      ValorB = 300

    Case "P", "p"

      ValorB = 100

    Case Else

      MsgBox "Error, escriba G, M,P", vbCritical, "Mi Programa"

      TextBox2.SetFocus

      Exit Sub

  End Select

  CBolsas = Val(TextBox3)

  VProduccion = CBolsas * ValorB

  

  TextBox4 = ValorB

  TextBox5 = VProduccion

End Sub

Botón Continuar

Private Sub CommandButton2_Click()

  TextBox1 = ""

  TextBox2 = ""

  TextBox3 = ""

  TextBox4 = ""

  TextBox5 = ""

  TextBox1.SetFocus

End Sub

Botón Cerrar

Private Sub CommandButton3_Click()

  If MsgBox("Desea Cerrar el programa", vbYesNo, "Mi Programa") = vbYes Then

    End

  End If

End Sub

Entorno de Visual Basc

Tenga en cuenta:

1. Entrar a Visual Basic, siga los siguientes pasos:

3. Agregar un formulario

  

Aparece la siguiente Ventana: Tenga en cuenta lo siguiente:

En el explorador de proyectos encontramos:

En la ventana Propiedades encontramos:

Diseñe el siguiente formulario, teniendo en cuenta lo explicado anteriormente:

Ventana de código F7

Para retornar al formulario presione Shif F7 o clic en el botón formulario de la ventana explorador de proyectos.

Conceptos Básicos de Programación.

Lengua de programación: Serie de órdenes por lo general del idioma inglés, las cuales se encuentran en un orden lógico.
Ejemplo:
El programa siguiente calcula el subsidio  de transporte de un empleado, al cual se le da solo a los empleados que tienen un salario en menor o igual a 1.200.000 y es de $75.000.
Tenga en cuenta:
DIM: Instrucción que permite crear un espacio de memoria con nombre (Variables o constantes),  en las cuales se almacenan diferente información.
IF  - ELSE – ENDIF: Instrucción que permite evaluar una condición y devuelve un valor de verdad (Falso o Verdadero), La condición del IF si es verdadera se ejecutan las siguientes instrucciones, al ser FALSA, pasa de forma inmediata a la instrucción ELSE.
DIM Salario as Currency, Transp as Currency, Transporte as Currency, NetoPagar as Currency
Transp=75000
Salario=1000000
IF  Salario<=1200000 THEN
  Transporte= Transp
ELSE
  Transporte= 0
ENDIF
NetoPagar = Salario + Transporte
Explicación:
El programa siguiente calcula el subsidio  de transporte de un empleado, al cual se le da solo a los empleados que tienen un salario en menor o igual a 1.200.000 y es de $75.000.

VARIABLE: Espacio de memoria con nombre que permite almacenar información de un tipo de dato especifico, el cual cambia en el transcurso del programa.

CONSTANTE: Espacio de memoria con nombre que permite almacenar información de un tipo de dato especifico, el cual permanece fijo en el transcurso del programa.
Operadores

Operador Lógico AND			Operador Lógico OR
Evalúa dos condiciones y devuelve un valor de verdad (Falso o Verdadero), se aplica la siguiente Tabla de verdad			Evalúa dos condiciones y devuelve un valor de verdad (Falso o Verdadero), se aplica la siguiente Tabla de verdad
COND1	COND2	RESULTADO	COND1	COND2	RESULTADO
V	V	V	V	V	V
V	F	F	V	F	V
F	V	F	F	V	V
F	F	F	F	F	F

Operador Lógico NOT
Niega un expresión
COND1	RESULTADO
V	F
F	V

Operador de Relación
Se utilizan para relacionar dos valores y devolver un valor de Vedad
Nombre	Símbolo
<	Menor Que
>	Mayor Que
<=	Menor Igual
>=	Mayor Igual
=	Igual
<>	Diferente

Operador Matemáticos
Se utilizan para relacionar operaciones matemáticas en Visual Basic
Simbolo	Nombre
/	División
*	Multiplicación
+	Suma
-	Resta
MOD	Modulo o residuo

Ejemplo para utilizar operadores de relación y operadores lógicos
Programa que capture tres numero he informar cual es el mayor de los tres.
N1=10
N2=20
N3=30
IF (N1 > N2 ) AND (N1 > N3) THEN
  MSGBOX “El mayor es N1”
ELSEIF  (N2 > N1 ) AND (N2 > N3) THEN
  MSGBOX “El mayor es N2”
ELSEIF  (N3 > N1 ) AND (N3 > N2) THEN
  MSGBOX “El mayor es N3”
ELSE
  MSGBOX “Son Iguales”
ENDIF