otros ejemplos de subrutinas

Les subo otros ejemplos de subrutinas para que los analicen y prueben en sus computadoras, las 2 últimas son más compleja para que vean algo un poco más avanzado, pero la opción no se incluirá en el examen.

Estos ejemplos declaran o dimensionan las variables dentro de la subrutina, hasta ahora lo han hecho antes, pueden hacerlo de las dos formas, la ventaja de hacerlo dentro de la subrutina es que pueden poner varias en una misma hoja, si las declaran antes, deben ponerlas en hojas separadas para que funcionen.

También recuerden que se les va a pedir que asocien cada macro a una figuta.


Sub compradolares()
  Dim cantidad As Integer, tipo As Double, pesos As Double
  cantidad = InputBox("cuantos dolares quieres comprar")
  tipo = InputBox("a cuanto esta el dolar hoy")
  pesos = cantidad * tipo
  MsgBox ("debes pagar en pesos ") & pesos
End Sub

Sub tienda()
  Dim cantidad As Integer, precio As Double, pago As Double, coniva As Double
  cantidad = InputBox("cuantos articulos vas a comprar")
  precio = InputBox("cual es el precio marcado en la etiqueta")
  pago = cantidad * precio
  MsgBox ("el precio sin IVA es ") & pago
  coniva = pago * 1.16
  MsgBox ("el total a pagar con IVA es ") & coniva
End Sub

Sub celciusafarenheit()
  Dim nombre As String
nombre = InputBox("Cual es tu nombre")
MsgBox ("Hola ") & nombre
  Dim farenheit As Double
  Dim resultado As Double
  farenheit = InputBox("¿cuantos grados celsius quieres convertir?")
  resultado = 32 + (farenheit * 1.8)
  MsgBox "El resultado en Fahrenheit es " & resultado


Sub promediogeneracion()
Dim nombre As String
Dim promedio As Double
Dim grupo4010 As Double
Dim grupo4020 As Double
Dim grupo4030 As Double
Dim grupo4040 As Double
nombre = InputBox("¿Cual es tu nombre?")
MsgBox ("Hola ") & nombre & " para saber el pomedio de la generación en matemáticas pulsa OK"
grupo4010 = InputBox("¿cual es el promedio del grupo 4010?")
grupo4020 = InputBox("¿cual es el promedio del grupo 4020?")
grupo4030 = InputBox("¿cual es el promedio del grupo 4030?")
grupo4040 = InputBox("¿cual es el promedio del grupo 4040?")
promedio = (grupo4010 + grupo4020 + grupo4030 + grupo4040) / 4
MsgBox ("El promedio de la generación en Matemáticas es ") & promedio

End Sub


Sub tipografica()
Dim nombre As String
Dim independiente As Integer
nombre = InputBox("¿Cual es tu nombre?")
MsgBox ("Hola ") & nombre & " las opciones a elegir son 1. cuantitativa 2. cualitativa pulsa OK para elegir"
independiente = InputBox("Elige el numero que corresponde a la naturaleza de tu variable independiente")
If independiente = 1 Then
MsgBox ("Debe ser grafica de dispersión con linea de tendencia ecuación y R2")
Else
If independiente = 2 Then
MsgBox ("Debe ser grafica de columnas con barras de error representando desv. est.")
End If
End If

End Sub

Sub conversion()
     Dim grados As Integer, fahrenheit As Integer, kelvin As Integer, celsius As Integer, rankin As Integer
     MsgBox "Las opciones a elegir son:         1. De Fahrenheit a Kelvin.  2. De Fahrenheit a Celcius.  3. De Fahrenheit a Rankine"
     grados = InputBox("¿Que opcion Quieres?")
    If grados = 1 Then
     fahrenheit = InputBox("¿Cuantos grados Fahrenheit quieres convertir?")
     kelvin = ((fahrenheit - 32) / 1.8) + 273.15
  MsgBox "El resultado en grados Kelvin es " & kelvin
    Else
    If grados = 2 Then
      fahrenheit = InputBox("¿Cuantos grados Fahrenheit quieres convertir?")
      celsius = (fahrenheit - 32) / 1.8
      MsgBox "El resultado en grados Celcius es " & celsius
    Else
    If grados = 3 Then
      fahrenheit = InputBox("¿Cuantos grados Fahrenheit quieres convertir?")
      rankin = (fahrenheit - 32) + 491.67
      MsgBox "El resultado en grados Rankin es " & rankin
   
    End If
    End If
    End If
   
End Sub