codigos

Ejercicios

a)

-------------------------------------------------------------------------------------------------
Actividad:1 
Mi primer programa:
Objetivo: cambiar las propiedades (desde código) en tiempo de ejecución. 
Función  (Colorea el fondo de la forma, según el botón presionado)
Nota: identifica los nombres de los controles

'Código para el botón 1 Esto es un comentario y se inicia con comilla simple Alt 39

Private Sub btnAzul_Click()
      Form1.BackColor = vbBlue
End Sub

'Código para el botón 2


Private Sub btnRojo_Click()
     Form1.BackColor = vbRed
End Sub

-------------------------------------------------------------------------------------------------------------






b)

Actividad 2 
Objetivo: utilizar controles de entrada (caja de texto) y de salida (caja de imagen y caja de mensaje) 
Función:Calcular el área de un triangulo (Valor directo de los controles)
Nota: identifica los nombres de los controles

Código: Muestra el resultado en el control picResultado(picturebox) y en una caja de mensaje 

Private Sub cmdCalcula_Click()

             picResultado.Print Val(txtBase.Text) * Val(txtAltura.Text) /2

             MsgBox ((Val(txtBase.Text) * Val(txtAltura.Text)) / 2)

End Sub

Private Sub cmdSalir_Click()
              End

End Sub





------------------------------------------------------------------------------------------------------------






c)


ACTIVIDAD 3:
Objetivo: utilizar controles de entrada y salida. (caja de texto) 
Función:Suma dos números y muestra el resultado en otra caja de texto (Valor directo de los controles)
Nota: identifica los nombres de los controles

---------------------------------------------------------------------------------------------------

Código:

Private Sub cmdCalcula_Click()

            Text3.text =Val(Text1.Text) + Val(Text2.Text) 

End Sub

Private Sub cmdSalir_Click()
              End
End Sub

---------------------------------------------------------------------------------------------------

d)


ACTIVIDAD 4: 
Objetivo: utilizar  el control barra de desplazamiento y el uso de menús desplegables
Función:convertir grados centigrados a fahrenheit  (Valor directo de los controles)
Nota: identifica los nombres de los controles

---------------------------------------------------------------------------------------------------

Ejemplo de uso de barra de desplazamiento y menú : 

Código:

Private Sub VScroll1_Change()

  Text1.Text = VScroll1.Value

  Text2.Text = 32 + 1.8 * VScroll1.Value
End sub

Private sub commandbotton1_click()
End
End sub

-------------------------------------------------------------------------------------------------------
Actividad 5

Calcular el área de un triangulo (Utilizando Variables)

Calcular el promedio de un alumno (ejercicio del cuaderno)



Actividad 6

Ejemplo del if   
determinar si el valor dado es par o impar (Ejercicio del cuaderno)

Actividad 6 a

Código para el ejemplo del if
Sentencia IF ...THEN ...ELSE
(Determinar si el usuario es mayor de edad o no)
------------------------------------------------------------------------------------------------------------

Dim Nombre As String

Dim Apellido As String

Dim Anac As Integer

Dim Edad As Byte

Private Sub Command1_Click()

Nombre = text1.Text

Apellido = text2.Text

Anac = Val(text3.Text)

Edad = 2014 - anac

If edad >= 18 Then

   MsgBox Nombre  +   "  Puedes Votar ya eres mayor de edad " + Edad

Else

MsgBox Nombre  + " No Puedes Votar eres Menor de edad " + Edad

End If

End Sub

Actividad 7  

Objetivo: Uso de la sentencia  FOR NEXT 
                   
Ejemplo: Tablas de multiplicar

diseño

código: 

Actividad 8 

Ejemplo de la sentencia select case 
Objetivo:Uso de los controles combobox y msgbox

Función: Para mostrar el mensaje según el signo

Diseño y codigo

(Escribe no me copies)

Private Sub Command1_Click()

Text1.Text = Combo1.List(Combo1.ListIndex)

Select Case Combo1.ListIndex

Case 0

MsgBox ("Aries Tu Dia es super")

Case 1

MsgBox ("Tauro Tu Dia es super")

Case 2

MsgBox ("Géminis Tu Dia es super")

'

'

'

'Completalo

'

'

'

End Select

End Sub

Actividad 8 a 

Para mostrar el resultado directamente al seleccionar la opción de la lista del combo 

Private Sub Combo1_Click()

Select Case Combo1.List(Combo1.ListIndex)

   Case "Aries"

MsgBox ("Aries Tu Dia es super")

     Case "Tauro"

  MsgBox ("Tauro Tu Dia es super")

     Case "Geminis"

  MsgBox ("Géminis Tu Dia es super")

'

'

'

'Completalo

'

'

'

End Select

Actividad 8 b 

Ejemplo de la sentencia select case 
Objetivo:Uso de los controles inputbox y msgbox


Diseño

Código

Private Sub Form_Load()

Dim dia

dia = InputBox("dime el numero de un día de la semana del 1 al 7")

Select Case dia

Case 1:

   MsgBox ("El día  LUNES estará soleado")

Case 2:

   MsgBox ("El día  MARTES sera nublado con posibles lluvias")

Case 3:

   MsgBox ("El día  MIÉRCOLES se pronostica un chubasco")

Case 4:

   MsgBox ("El día  JUEVES estará soleado parcialmente")

Case 5:

   MsgBox ("El día  VIERNES sera caluroso")

Case 6:

   MsgBox ("El día SÁBADO sera muy caluroso")

Case 7:

   MsgBox ("El día DOMINGO baja el calor y posibles lloviznas")

Case Else:

   MsgBox ("Tiene que ser un día de la semana en número, del 1 al 7")

End Select

End Sub

Resultado

BOTONES PARA MANIPULAR LA BASE DE DATOS:

Ejemplo: