Contenido de Sistemas de información II

502 sistemas de información II

Nivel de 1 a 3  básicas

https://studio.code.org/s/aquatic/lessons/1/levels/1

niveles   del 4 al 6 con bucles

Nivele  de 7   al   12     condicionales

aventuras en minecraft 1 a 14 lecciones

https://studio.code.org/s/mc/lessons/1/levels/1

frozen (Elsa y Ana)  en 20 lecciones 

https://studio.code.org/s/frozen/lessons/1/levels/1

 Angry Birds  en 20 lecciones
https://studio.code.org/hoc/1

Plataforma Scratch

https://scratch.mit.edu/

Plataforma CODE

https://code.org/

EVALUACIÒN

Criterios de evaluación

Asistencia 10% = Contestar la pregunta del día en tiempo y forma.

Actividades 30% = Enviar evidencias de cada actividad según de indique.

Evaluaciones 30% = Contestar (solo una vez) los cuestionarios enviados (en el tiempo establecido).

Sistema final 30% = Documentación y desarrollo del sistema final. 

DESARROLLO  DE APLICACIONES

LENGUAJE DE PROGRAMACIÓN  VISUAL BASIC 6.0

              CLASE 1                (Lunes)                                                                             

Recursos y herramientas para el desarrollo de la materia:

• Conocimientos previos
• Recursos disponibles
• Apoyos digitales

• Conocimiento de las herramientas digitales
•  Métodos de trabajo

• Criterios de evaluación
• preparar e instalar los programas Requeridos

 CLASE 2 

INTRODUCCIÓN

https://www.youtube.com/watch?v=ysGYFwfMAR4

ACTIVIDAD 1   

INSTRUCCIONES: Identifica,  Investiga y Define los conceptos:

1. Programación 

• Algoritmo
• Diagrama de flujo
• Seudocódigo
• Lenguajes de programación
• desarrollo de un sistema
• Programación lineal
• Programación orientada a objetos

2. Pantalla de código de Visual Basic 6.0

• Elementos
• función
• formas de acceder

3. Características principales de un objeto en Visual Basic 6.0

4. Eventos del Ratón para ejecutar una acción.

5. Ventana de diseño (Objeto) en Visual Basic 6.0

6. Principales Controles utilizados en Visual Basic 6.0

• Elementos de una ventana de dialogo de Windows

7. Reglas para Identificadores en Visual Basic 6.0

• Reglas 
• sugerencias

8. Formas para ejecutar un programa en Visual Basic 6.0

• Desde el editor, en la etapa de pruebas y compilación 

9. Tipos de datos  que reconoce  visual BASIC 6.0

• Nombre, capacidad y ¿Qué pueden almacenar?

10. Operadores aritméticos

• Símbolo y acción que representa

11. Operadores de relación

• Símbolo y acción que representa

12. Variables 

• Definición 
• clasificación

13. Constantes

• Definición 
• clasificación

14. Proyecto

• Definición 
• Elementos

15. Formulario en informática

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

ENTRAR  Y SALIR A VISUAL BASIC  

ENTRAR  A VISUAL BASIC 

• Botón inicio/todos los programas/visual estudio 6.0/visual basic 6.0
• opción   EXE ESTÁNDAR

SALIR A VISUAL BASIC  

• Archivo / salir

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

ACTIVIDAD 2   

INSTRUCCIONES: Investiga e identifica los Elementos de la interfaz de Visual Basic  (Dibújala en tu cuaderno)

http://guisseladominguez3.blogspot.com/2014/01/grupo-4-elementos-de-la-ventana.html

 
ACTIVIDAD 3   

INSTRUCCIONES: Identificar el nombre  y función de cada control

Controles de  la barra de herramientas

MATERIAL SOBRE CONTROLES

https://www.programaresfacil.co/librosprogramacion/vb/controles_comunes-vb6.pdf

visual basic 6.0

PROPIEDADES DE LAS HERRAMIENTAS MAS UTILIZADAS

Ventana de propiedades : en esta se encuentra toda la lista de propiedades para modificar un control.

CONTROLES BÁSICOS

TEXTBOX:

Text: texto que aparecerá en el control.

Name: nombre del control.

Multiline: nos permite introducir varias lineas de texto.

Alignment: Alineación que tendrá el texto dentro del control que puede ser izquierdo, derecho, centrado.

Visible: si esta propiedad esta en falso la caja de texto no sera visible cuando este en ejecución el programa. si está en verdadero si se podrá ver.
Maxlength: numero máximo de caracteres que tendrá el control.
Looked: Con esta propiedad podemos bloquear el control para que el usuario no pueda escribir ni modificar.
Backolor: Color que tendrá el fondo de la caja de texto.
Forecolor: Es el color de la letra que tendrá el control.

Font: tipo y tamaño que contendrá el control.

Height,Left,Top,Width : Se refieren al tamaño del Espacio reservado para las Text Box.

lABEL:

Caption: texto que contendrá el control.

BorderStyle: borde al rededor del texto.
BackStyle: borde transparente o no transparente.
Backcolor: Para cambiar color del fondo.
Visible : Si está en True el control está visible si está en False está oculto.
Name: es el nombre del control y sirve para hacer referencia al mismo en el código, como todos los controles.

Enabled: Si está en True (Verdadero) el control está activado y se puede utilizar normalmente, si se encuentra en False, el control está desactivado.

FontName: El nombre de la fuente que utilizará el texto del control. Podemos elegir las que tengamos instaladas en el sistema.

Forecolor: indica el color del Texto.

Height y Width: Ancho y alto del Label.

ToolTipText: muestra el mensaje de descripción cuando pasamos el mouse por encima del control.

COMMANDBUTTON:

Caption: texto para el usuario.

Enable: Inhavilita o habilita el control con el fin de que ese disponible para el usuario.
Style: cuando esta en 1 habilita al backcolor y cuando esta en 0 lo deshabilita.

PICTURE E PICTURE:

Name: Especifíca el nombre del control para poder referenciarlo e identificarlo.

Appearance: Esta propiedad determina si el Image posee o no efecto 3d con respecto a su apariencia. Los valores son: 1 - 3D y 0 - None. Para que esta propiedad se pueda utilizar, la propiedad BorderStyle debe estar con el valor 1.
BorderStyle: Determina si el control Image posee o no un borde. Al igual que el anterior tiene dos posibles valores, 0 sin borde o 1 con borde.
Picture: Esta es la propiedad principal del control, que también es la propiedad por defecto o default. Picture es la que establece la imagen o gráfico que mostrará el control.
Stretch: Esta es una de las propiedades mas importantes. Si está en True la imagen se ajustará al tamaño que posea el control Image, si está en False el control Image es el que se adaptará al tamaño y dimensiones de la imagen.
Las demás propiedades son las clásicas y comunes para la mayoría de los controles, como la propiedad Index, Visible, Enabled, ToolTipText, Width, Height, etc...

FRAME:

Name : Este es el nombre como se le reconocera al objeto durante el programa, se acostumbra escribir frm antes del nombre para saber que es un Frame (Ej: frmFondo)..
Caption : Este es el mensaje que se quiere que aparesca en el Frame.
Height,Left,Top,Width : Se refieren al tamaño del Espacio reservado para los Frames.
Font : Permite escoger el tipo de letra, tamaño y estilo de la letras a usar.

BorderStyle: si esta en 0 no dibuja el recuadro.

CHECKBOX Y OPTIONBUTTON :

Name : Este es el nombre como se le reconocera al objeto durante el programa, se acostumbra escribir chk o rdb antes del nombre para saber que es un check box o radio Button (Ej: chkop1 o rdbop1).
Enable : Este parametro permite que el Boton este habilitado o deshabilitado.
Value : Indica si esta precionado o no el boton.
Height,Left,Top,Width : Se refieren al tamaño del Espacio reservado para los Check box y los option Button.
Caption : Este es el mensaje que se quiere que aparesca a la par del radio Button o del Check Box.

LITSBOX:

Name : Este es el nombre como se le reconocera al objeto durante el programa, se acostumbra escribir lst antes del nombre para saber que es un List Box (Ej: lstLista).
List : Aqui podemos ingresar los elementos nuevos al List Box.
Font : Permite escoger el tipo de letra, tamaño y estilo de la letras a usar.
sorted: si el valor es verdadero la lista aparecera en orden alfabetico.
Height,Left,Top,Width : Se refieren al tamaño del Espacio reservado para los List Box.

SCROLL BAR:

Name : Este es el nombre como se le reconocera al objeto durante el programa, se acostumbra escribir scb antes del nombre para saber que es un Scroll Bar (Ej: scbFila).
Max : Este indica el valor maximo que puede alcanzar el Scroll al moverse.
Min : Es el valor minim con el cual empieza la barra de Scroll.
Height,Left,Top,Width : Se refieren al tamaño del Espacio reservado para los Scroll Bar.


SHAPE:

Shape: esta propiedad es la forma que tomara nuestro control.

Bordercolor: color del borde.

Borderstyle: estilo del borde.

Border whidth: ancho del borde.

Fillcolor: este es el fondo, esta funciona si filestyle en opaco.

Clase   3   Martes 

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

PROPIEDADES Y EJEMPLOS

http://moisesrbb.tripod.com/controle.htm

INICIO DE UNA APLICACIÓN

https://www.youtube.com/watch?v=1gXbShWFOE0&t=14s

Propiedades de los objetos

http://javierm-visualbasic60.blogspot.com/2007/10/herramientas-mas-utilizadas.html?m=1 

ACTIVIDAD 4 

Realiza una lista resumiendo  las principales propiedades de cada control que se utiliza en una aplicación de Visual Basic 6.0

Proceso para crear, guardar y comprimir un programa

1.- ENTRAR  A VISUAL BASIC  EXE ESTÁNDAR
Botón inicio/todos los programas/visual estudio 6.0/visual basic 6.0
opción estándar

2.-CAMBIAR LA APARIENCIA DE LA FORMA CON LOS ATRIBUTOS

NAME = nombre que lo identificara en el código y en el archivo

CAPTION =contenido, titulo de la forma

3.- DIBUJAR LOS CONTROLES SOBRE LA  FORMA

4.- MODIFICAR LA APARIENCIA DE LOS CONTROLES CON LOS ATRIBUTOS CAPTION, FONT, ETC.

5.- ASIGNAR EL NOMBRE A LOS CONTROLES QUE SERÁN UTILIZADOS EN EL  CÓDIGO
 CON EL ATRIBUTO NAME

6.- ENTRAR A LA VENTANA DE CÓDIGO (DANDO DOBLE CLIC AL CONTROL QUE SE LE ASIGNARA LA FUNCIÓN) Y ESCRIBIR EL CÓDIGO CORRESPONDIENTE PARA LOS BOTONES DE COMANDO cmdCalcula y cmdSalir

7.- COMPILAR  Y EJECUTAR EL PROGRAMA CON

 o   F5    o  menú-> Ejecutar -> iniciar

8.- GUARDAR EL PROYECTO (EN UNA NUEVA  CARPETA) -> se guarda el proyecto y cada forma

9.- DESDE EL MENÚ ARCHIVO  GENERAR EL PROYECTO .EXE ---> con el nombre "calcula área" en una carpeta que se llame  "Evidencias Finales"

FORMAS DE  GUARDAR UN ARCHIVO

FORMA 1(cuando lo guardas por primera vez)

(guarda el proyecto editable ==== al abrirse abre el VB y se puede modificar)

•  CREAR UNA NUEVA CARPETA EN EL ESCRITORIO
•  DEL MENÚ ARCHIVO  OPCIÓN GUARDAR PROYECTO
• SELECCIONE LA NUEVA CARPETA
•                  GUARDAR  FORMA  Y   DELE NOMBRE guardar
•                  GUARDAR PROYECTO DELE NOMBRE guardar

(guarda el proyecto Ejecutable = en lenguaje maquina al abrirse se abre directamente para utilizarse y no se puede modificar)
 

• DEL MENÚ ARCHIVO  GENERAR PROYECTO. EXE

FORMA 2 (segunda vez cuando la primera no la guardaste bien) 

•    CREAR UNA NUEVA CARPETA EN EL ESCRITORIO
• SELECCIONE LA FORMA1
• DEL MENÚ ARCHIVO GUARDAR FORMA COMO...
•         SELECCIONE LA NUEVA CARPETA
•         GUARDAR  FORMA 
• DEL MENÚ ARCHIVO  GUARDAR PROYECTO COMO..
•          SELECCIONE LA NUEVA CARPETA
•          GUARDAR  PROYECTO 

10.- SALIR DEL VISUAL BASIC. (Antes comprueba que todos lo archivos fueron guardados, un archivo para el proyecto y un archivo por cada forma.)

Nota: puedes guardar la carpetas a tu Drive (arrastrándolas) o puedes comprimir para enviarlas por correo

11.- COMPRIMIR LA CARPETA (sobre la carpeta clic derecho  )

y Aceptar

12.- ENVIAR  SU ARCHIVO COMPRIMIDO POR CORREO

Fin del Proceso para crear y  guardar un programa

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

ACTIVIDAD 5 

Realiza en tu cuaderno  un resumen del proceso de creación de una aplicación, utilizando la información anterior.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

CLASE   (Miércoles)

Temas:

 

IDENTIFICADORES, CONSTANTES Y VARIABLES

Identificadores 

Es el nombre que se le da a  cada control u objeto dentro del programa para identificarlo.

En el caso de los controles se aplican Reglas y sugerencias.

Reglas:

1. No debe iniciar con número

2. No debe llevar espacios ni caracteres especiales.

3. Solo se permita guion bajo para separar palabras

4. No pueden ser palabras reservadas

Sugerencias:

1. Debe iniciar con un prefijo de 3 letras que indique el tipo de control que se esta identificando.

2. El prefijo debe ser en minúsculas y solo la primera letra de cada palabra en mayúscula.

3. Debe ser corto y significativo.

Prefijos:(ejemplos)

pic

txt

lbl

cmd

Ejemplos: de identificadores

picResultado

txtDato

lblTitulo

cmdCallcular

TIPO DE DATOS EN VISUAL BASIC 6.0

String : Para cadenas de letras o, palabra o frases.

String de longitud: Igual que string pero que tienen logitud máxima.

Integer: Para números enteros desde el -32768 hasta el 32767

Long: Para números enteros desde el -2147483648 al 2147483647

Single:

• Para números negativos desde -3402823E38 al -1401298E45
• Para números positivos desde 1401298E45 a 3402823E38

Double :

• Para números negativos desde -179769313486232E308 al -494065645841247E234


• Números positivos desde 494065645841217E324 al 179769313486232E308

Boolen: Solo admite un valor True o False

Byte: Para números de 0 a 255

Currency: Para números de -922337303685477.5808 a 922337203685477.5807

Date: Para almacenar fechas

Variant:Para contener cualquiera de los strings arriba indicados.

Object: Para lo datos de un objeto de programación.

OPERADORES

LOGICOS: 

or o, 

and y , 

not negacion

DE RELACION: 

> mayor que, 

< menor que 

>= mayor igual que, 

<= menor igual que, 

= igual a, 

<>,! distinto que.

ARITMÉTICOS: 

+ suma,

- resta, 

*multiplicación , 

/dimisión,  

mod Residuo

VARIABLES

Estas son utilizadas para almacenar valores que pueden cambiar durante la ejecución de un programa, existen 3 tipos de variables:

variables de objeto

Variables de entorno
Variables declaradas

características y condiciones :

• Iniciar con una letra.
• No tener espacios. sugerencia separar palabras con subrayado  o inicial con mayúscula
• Su longitud no debe superar los 255 caracteres. sugerencia  8 caracteres
• Poseer un nombre único dentro de su alcance. sugerencia significativo

Declaración de variables:

sintaxis:

DIM nombre_de_variable AS tipo_de_dato

Ejemplos

Dim nombre as string
Dim contador as integer
Dim a, b, c as long

Asignar un valor a la variable

nombre_de_variable = valor (directo, resultado de una operación o tomar de un control)

Ejemplo:

nombre = txtNombre

contador = contador + 1

a = 8

b = 6

c = a*b

Actividad 5

Recordatorio Ejemplo (calcular el área de un triangulo usando variables)

Corregirlo según lo que requiera su ejercicio. 

Diseño:

código:

Dim Num1 As Single
Dim Num2 As Single
Dim Resultado As Single

Private Sub cmdSuma_Click()
     Num1 = txtN1.Text
     Num2 = txtN2.Text
     Resultado = Num1 + Num2
     picResultado.Print Resultado
End Sub

Private Sub cmdResta_Click()
     Num1 = txtN1.Text
     Num2 = txtN2.Text
     Resultado = Num1 - Num2
     picResultado.Print Resultado
End Sub

Private Sub cmdDivide_Click()
     Num1 = txtN1.Text
     Num2 = txtN2.Text
     Resultado = Num1 / Num2
     picResultado.Print Resultado
End Sub

Private Sub cmdMultiplica_Click()
     Num1 = txtN1.Text
     Num2 = txtN2.Text
     Resultado = Num1 * Num2
     picResultado.Print Resultado
End Sub

Private Sub cmdSalir_Click()
              End
End Sub

Private Sub cmdLimpia_Click()
             txtN1.text=""

             txtN2.text=""

             picResultado.cls

     
End Sub

Basándose en los ejercicios anteriores Realiza el diseño y código para los siguientes casos:

• 2.- Aplicación para Convertir centímetros a pulgadas

Pulgada = 2.5 centímetros

• 3.- Aplicación para Convertir Litros a onzas

1 litro = 33.8 onzas

• 4.- Aplicación para Convertir libras a gramos 

(Una libra es igual a  453.592 gramos)

CONSTANTES

Son elementos, números, fechas, cadenas de caracteres y expresiones que contienen operadores lógicos o aritméticos, ellas mantienen un valor fijo durante la ejecución del programa.
características:

• Comenzar con una letra.
• Poseer un mismo nombre único.
• No tener mas de 255 caracteres de longitud.
• No tener espacios.

Declaración de constantes:
conts nombre as tipo = valor

const pi as Double = 3.1416

Ejercicios

ACTIVIDAD  6

1.- Realiza diseño y el código para calcular el área de un triangulo (sin variables) ejemplo en el proceso de la actividad 4.

ACTIVIDAD 7

2.-Diseñe el formulario y el código para desarrollar una aplicación con las 4 funciones básicas de una calculadora (sin usar variables) tomando los valores directamente de las cajas de texto.

ACTIVIDAD 8

3.-Con tu propio diseño, crear un programa para establecer en una casa de cambio, que permita convertir pesos a dólar y dólar a peso, considerando el tipo de cambio para compra y para venta.

4.

Tipos de datos que maneja visual basic 6.0

Tipos de datos más utilizados

Srting

Integer

Long

Single

Double

Tema: Variables

Variables: son espacios de memoria  que pueden cambiar su contenido durante la ejecución del programa.  

Tienen tres ámbitos:

Nombre (utiliza las reglas de los identificadores)

Tipo de dato.- indica que datos puede guardar.

Área.- puede ser global (se reconoce en todo el programa) o local (solo se reconoce en el módulo que de crea)

Ejemplos de variables:

 Nombre

 Edad 

Precio

USO DE VARIABLES

PROCESO:

Paso 1.-  SE DECLARAN LAS VARIABLES

sintaxis:

DIM Nombre_de_la_variable AS Tipo_de_Variable

Ejemplo:

DIM Nombre AS String

DIM Edad AS Byte

DIM Sueldo AS Single

DIM Semanas_cotizadas AS Integer

Paso 2.- SE LLENAN LAS VARIABLES 

(SE ASIGNA EL VALOR DE LOS CONTROLES DE ENTRADA A LAS MEMORIAS PREPARADAS (VARIABLES ))

Ejemplo:

Nombre_alumno =txtNombre.text

Edad_alumno =txtEdad.text

PASO 3.- SE UTILIZAN LAS VARIABLES PARA GUARDAR RESULTADO  DE CÁLCULOS O COMPARACIONES 

Ejemplo:

Area = Base * Altura

Sueldo = Pago_por_hora * Horas_trabajadas

Total = Venta + Iva

Resultado = cantidad * precio

PASO 4.- SE MUESTRA EL CONTENIDO DE LAS VARIABLES COMO RESULTADO, EN UN CONTROL DE SALIDA DEL FORMULARIO O UNA CAJA DE MENSAJES.

Ejemplos:

picResultado.Print Area

MsgBox ("El  Total a pagar es: ", Total)

lblPago.Caption = Sueldo

         Text3.Text = Total

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

Ejercicios

ACTIVIDAD 9

2.- Realiza diseño y el código para calcular el área de un triangulo (utilizando variables) ejemplo en el video de presentación.

ACTIVIDAD 10

4.- Diseñe el formulario y el código para desarrollar una aplicación con las funciones básicas de una calculadora (utilizando variables)

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

Clase 5 ()

tema: clasificación de controles

***CONTROLES DE ENTRADA

  CUADRO DE TEXTO 

       Variable =Text3.Text 

VENTANA EMERGENTE DE ENTRADA

Variable= InputBox("¿Cual es tu nombre?")

 ***CONTROLES DE SALIDA

(PICTURE, UNA CAJA DE MENSAJE, UNA ETIQUETA, UN CUADRO DE TEXTO)

Ejemplo:

PICTURE

          picResultado.Print Area

         

CAJA DE MENSAJE

          MsgBox ("El  Total a pagar es: "  & Total)

ETIQUETA

         lblPago.Caption = Sueldo

  CUADRO DE TEXTO

         Text3.Text = Total

Actividad 12   

DISEÑA UN PROGRAMA PARA CONVERTIR DE CENTÍMETROS A PULGADAS

Y MUESTRA EL RESULTADO EN UNA CAJA DE MENSAJE 

EJEMPLO:  MsgBox ("En pulgadas  es: ", Resultado)

********************

Clase 7   Miércoles Estructuras Condicionales
introducción

https://www.youtube.com/watch?v=pdrnTILg4Xk

Tema: Sentencia condicional

Condicionales Doble

Sentencia IF ...THEN ...ELSE

Función:   Realiza una de dos acciones dependiendo del resultado de la evaluación de la condición.

Sintaxis:  

IF   condición THEN 

      acciones_si_se_cumple la condición 

ELSE 

      acciones_si_no_se_cumple_la_condicion

END IF

Ejemplo: 

Determinar si el usuario es mayor de edad o no)


objetivo tramitar la credencial del INE

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 = 2022  - 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 11
objetivo

 Pregunta la calificación del cuatrimestre y muestra si aprobó o no

Basándote en el ejemplo,  Realiza el diagrama de flujo, el diseño de la pantalla y el código para el siguiente. Planteamiento:

pregunta calificación de matemáticas, ingles y física, calcula el promedio y si el resultado es mayor que 7 muestra el mensaje "FELICIDADES PASASTE", de lo contrario el mensaje dirá  "PRESENTARAS  EXAMEN DE TITULO".

Actividad 12

EJEMPLO

Definición del problema: Luisito desea saber su calificación en la materia de Informática, para ello debe tomar en cuenta las calificaciones de los tres parciales y calcular su promedio. Mostrar un mensaje que indique si aprobó o reprobó la asignatura.
Identificación del problema	Entrada: Parcial 1, parcial 2, parcial 3 Salida: Sí: “Aprobado” No: “Reprobado”
Planteamiento de alternativas de solución	1 . suma = parcial 1+parcial 2+parcial  3     prom. = suma / 3     prom. >= 6     “Aprobado”      De otro modo      “Reprobado”
	2 .  prom. = (parcial 1+parcial 2+parcial 3) /  3      prom. < 6      “Reprobado”       De otro modo       “Aprobado”
Elección de una alternativa	Opción 1
Desarrollo de solución	Pseudocódigo	Diagrama de flujo
	Inicio Leer parcial 1, parcial 2, parcial 3. suma = parcial 1+parcial 2 + parcial 3 prom. = suma / 3 Si prom. >= 6 entonces      Imprimir “Aprobado” Sí  No       Imprimir “Reprobado” Fin Sí Fin	prom. = suma / 3
Evaluación de la solución	Inicio Parcial 1 = 8, parcial 2 = 7, parcial 3 =  9 suma = 8+7+9 =  24 prom. = 24 / 3 =  8 Si 8 >= 6 entonces     “Aprobado” Fin Sí  Fin

 Examen de admisión

Realiza el diagrama, diseño y código.

De una aplicación para la universidad, donde pregunte la cantidad de aciertos que se obtuvieron en el Examen de admisión y si fueron más de 400 mostrará el mensaje "SOLICITUD APROBADA" de lo contrario muestra el mensaje "SOLICITUD DENEGADA".

comprueba realizando en la compradora de tu equipo  los 3 proyectos ejecutables

Clase 6 

Función condicional múltiple

sentencia:

select case

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

Actividad 

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 = 2021  - 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  

Ejemplo de select case 

https://www.youtube.com/watch?v=iMzYvSV1xEUDiseño

sintaxis

SELECT mivariable
  CASE expresión1
   'código
  CASE expresión2
    'otro código
  CASE ELSE
    'Código por defecto
END SELECT

Ejemplos

con un campo de texto (String):

1 2 3 4 5 6 7 8

SELECT Grupo   CASE "Dirección"     colorfondo="verde"   CASE "Producción"     colorfondo="gris"   CASE ELSE     colorfondo="rojo" END SELECT

evaluando por rangos:

1 2 3 4 5 6 7 8 9 10

SELECT Edad   CASE 0 to 14     grupo="Infantil"   CASE 15 to 20     grupo="juvenil"   CASE 21 to 70     grupo="adulto"   CASE ELSE     grupo="anciano" END SELECT

con grupos de valores por comas:

1 2 3 4 5 6

SELECT Numero   CASE 1,3,5,7,9     impar=True   CASE ELSE     impar=False END SELECT

 usando una expresión aritmética para la evaluación:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

SELECT Peso   CASE IS < 48     categoria="minimosca"   CASE IS < 51     categoria="mosca"   CASE IS < 54     categoria="gallo"   CASE IS < 57     categoria="pluma"   CASE IS < 60     categoria="ligero"   CASE IS < 64     categoria="superligero"   CASE IS < 69     categoria="wélter"   CASE IS < 75     categoria="mediano"   CASE IS < 81     categoria="semipesado"   CASE IS = 91     categoria="superpesado" END SELECT

Código

Private Sub Form_Load()

Dim dia as integer

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 será 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 será caluroso")

Case 6:

   MsgBox ("El día SÁBADO será 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

Actividad   (select case)


Con base en el ejemplo anterior realice un programa para consultar un mensaje según su signo astral (utilice un combo box para preguntar el signo zodiacal)

Clase 7 

Proyecto final

Diseño y justificación

Prepararse para el Examen téorico

Consulta la ficha guía de este blog

Clase 6

CREAR MULTIFORMULARIOS

        MULTIFORMULARIOS                                       

• AGREGAR FORMULARIO 

• DESDE EL CÓDIGO DE  UN COMAND BOTÓN (Cambiar de una  forma a otra)

Private Sub Command1_Click()

Form1.Hide  'OCULTA EL FORMULARIO 1

Form2.Show   'MUESTRA EL FORMULARIO 2

End Sub

.....................................................................................................................................................

                                          PARA CREAR UN MENÚ                                              

• Entrar al editor 

• Desde el editor contestar los campos

                        Para los menús (caption y name)
                        Para los sub menús (caption, name y opcionalmente shortcut)

                       Ordenar con las flechas de la ventana y aceptar.

                        Escribir el código para cada sub menú

Resultado:

Material de apoyo para crear menús 

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico8.htm#menues

Ejercicio 

ACTIVIDAD :

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:

Código:

Private Sub VScroll1_Change()

  Text1.Text = VScroll1.Value

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

Private Sub Command1_Click()
              End
End Sub

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

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

........................................................................................

USO DE VARIABLES

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

PROCESO:

• SE DECLARAN LAS VARIABLES

sintaxis:

DIM Nombre_de_la_variable AS Tipo_de_Variable

Ejemplo:

DIM Nombre AS String
DIM Edad AS Byte
DIM Sueldo AS Single
DIM Semanas_cotizadas AS Integer

• SE LLENAN LAS VARIABLES (SE ASIGNA EL VALOR DE LOS CONTROLES DE ENTRADA A LAS MEMORIAS PREPARADAS)

Ejemplo:
Nombre_alumno =txtNombre.text
Edad_alumno =txtEdad.text

• SE UTILIZAN LAS VARIABLES PARA GUARDAR RESULTADO  DE CÁLCULOS O COMPARACIONES 

Ejemplo:
Area = Base * Altura
Sueldo = Pago_por_hora * Horas_trabajadas
Total = Venta + Iva
CONTROLES DE ENTRADA
  CUADRO DE TEXTO

       Variable =Text3.Text 

VENTANA EMERGENTE DE ENTRADA

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

• SE MUESTRA EL CONTENIDO DE LAS VARIABLES EN UN CONTROL DE SALIDA

CONTROLES DE SALIDA PARA EL USO DE VARIABLES

(PICTURE, UNA CAJA DE MENSAJE, UNA ETIQUETA, UN CUADRO DE TEXTO)

Ejemplo:

PICTURE

          picResultado.Print Area


Variable = InputBox("dime el numero de un día de la semana del 1 al 7")_____________________________________________________________________________         
CAJA DE MENSAJE

          MsgBox ("El  Total a pagar es: ", Total)








_______________________________________________________________________________
ETIQUETA

         lblPago.Caption = Sueldo


________________________________________________________________________________
  CUADRO DE TEXTO

         Text3.Text = Total


_______________________________________________________________________________
-------------------------------------------------------------------------------------------------------

Liga a calculadoras básicas creadas en visual basic 6.0 

http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/calculadora-simple.htm

Actividad 5

Calcular el área de un triangulo (UTILIZANDO VARIABLES)

código: muestra el resultado en el control picResultado(picbox) y en una caja de mensaje 

'Esto es un comentario y se inicia con comilla simple Alt 39

Dim Base As Single
Dim Altura As Single
Dim Area As Single

Private Sub Command1_Click()
     Base = Text1.Text
     Altura = Text2.Text
     Area = Base * Altura / 2

     Picture1.Print Area
End Sub

Private Sub Command2_Click()
              End
End Sub



Actividad 6   ESPECIAL

DISEÑA UN PROGRAMA PARA CONVERTIR DE CENTÍMETROS A PULGADAS

Y MUESTRA EL RESULTADO EN UNA CAJA DE MENSAJE 


EJEMPLO:  MsgBox ("En pulgadas  es: ", Resultado)



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

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

Instrucciones condicionales

if
Sentencia IF ...THEN ...ELSE

Actividad   

Ejemplo "par e impar"

Actividad   

Ejercicio  "ficha del alumno"

 Instrucciones de ciclos

Sentencia FOR ... NEXT

sintaxis

For contador = 1 to 10 step incremeto

      instruccion1

      instruccion2

.

.

Next

Código para el ejemplo:

 for... next

Total = 0
For i = 1 To 10

 Total = Total + i
Next i
labelTotal.caption Total

Actividad  

Ejemplo: Tablas de multiplicar

diseño

código: 

Estructura While ... Wend

Esta sentencia es otra forma de generar bucles que se recorren mientras se cumpla la condición inicial. Su estructura es la siguiente:

sintaxis

While

'Sentencias

Wend

Ejemplo:

Dim varcontrol As Integer 'declaracion de la variable varcontrol.

varcontrol = 0  'Se inicializa la variable varcontrol.

While varcontrol < 5   'Se comprueba el valor de varcontrol

varcontrol = varcontrol + 1    'Se incrementa el valor de Conts

MsgBox ("Vamos en el ciclo:  " &  varcontrol )  'Se muestra el valor de varcontrol

Wend  'Se acaba el bucle cuando varcontrol > 5

Actividad 

Ejemplo de uso de barra de desplazamiento:
Diseño:

Código:
Private Sub VScroll1_Change()

  Text1.Text = VScroll1.Value
  Text2.Text = 32 + 1.8 * VScroll1.Value

End Sub

ACTIVIDADES PARA HOY  
DEFINICIONES (INVESTIGAR)
CASA DE CAMBIO (TERMINAR)
EJERCICIO IF (COMPROBAR)
SISTEMA  FINAL (AVANZAR DISEÑO)

ACTIVIDADES PARA HOY  
DEFINICIONES (INVESTIGAR)
CASA DE CAMBIO (TERMINAR)
EJERCICIO FOR NEXT (COMPROBAR)
SISTEMA  FINAL (AVANZAR DISEÑO)

ACTIVIDADES PARA HOY  
GUÍA DE EXAMEN(TERMINAR)
EJERCICIO WHILE (COMPROBAR)
EJERCICIO SELECT CASE (COMPROBAR)

MANIPULANDO UNA BASE DE DATOS

Conectar una base de datos de Excel en Visual Basic

Pasos:

1 Crear una carpeta para el sistema 


En Excel

2 Crear un archivo en Excel y guardarlo en la versión 2003 y cerrarlo

En Visual Basic

3 Insertar un  control data

Establecer las propiedades del control data

• Connect    Excel 8.0;
• DatabaseName selecciona el archivo guardado en Excel
•  RecordSource  Hoja1$

4 Insertar los  contoles  textbox para cada campo

Establecer las propiedades de cada textbox donde se mostraran los datos

• DataSource   Data1
• DataField   Nombre

 Actividad   (uso de una base de datos)    

Para darle mantenimiento a una agenda de amigos creada en Excel

• Diseña el formulario con:
• Conexión de base de datos.
• Botones para desplazarse (inicio, final, anterior, siguiente). 
• Botones de mantenimiento (añadir, eliminar, editar, guardar, cancelar, buscar).
• 
  
• Menú desplegable. 

BOTONES PARA MANIPULAR LA BASE DE DATOS:

Ejemplo:

código de la Forma (doble click en el formulario)

Private Sub Form_Load()

cmdGuardar.Enabled = False

cmdCancelar.Enabled = False

End Sub

 código de los botones (doble click formulario)

Private Sub cmdAnadir_Click()

Data1.Recordset.AddNew

cmdGuardar.Enabled = True

cmdCancelar.Enabled = True

End Sub

Private Sub cmdCancelar_Click()

Data1.Recordset.CancelUpdate

cmdGuardar.Enabled = False

cmdCancelar.Enabled = False

End Sub

Private Sub cmdEditar_Click()

Data1.Recordset.Edit

cmdGuardar.Enabled = True

cmdCancelar.Enabled = True

End Sub

Private Sub cmdGuardar_Click()

Data1.Recordset.Update

cmdGuardar.Enabled = False

cmdCancelar.Enabled = False

End Sub

Private Sub cmdMenu_Click()

frmClientes.Hide

frmMenu.Show

End Sub

Private Sub cmdAñadir_Click()

Data1.Refresh
Data1.Recordset.AddNew
txtNombre.SetFocus

End Sub

Private Sub cmdGuardar_Click()

Data1.Recordset.Update

End Sub

Private Sub cmdCancelar_Click()

Data1.Recordset.CancelUpdate

End Sub

Private Sub cmdEditar_Click()

Data1.Recordset.Edit

End Sub

ejemplo 2 utilizando clave para darle mantenimiento a la base de dato

Private Sub Form_Load()
cmdAnadir.Visible = False
cmdCancelar.Visible = False
cmdCancelar.Visible = False
cmdEditar.Visible = False
End Sub

Private Sub cmdAnadir_Click()
Data1.Refresh
Data1.Recordset.AddNew
Text1.SetFocus
End Sub

Private Sub cmdCancelar_Click()
Data1.Recordset.CancelUpdate
End Sub

Private Sub cmdEditar_Click()
Data1.Recordset.Edit
End Sub

Private Sub cmdGuardar_Click()
Data1.Recordset.Update
End Sub


Private Sub cmdMantenimiento_Click()
Dim Buscar As String
Buscar = InputBox("Introdusca su id")
If Buscar = "leo" Then
cmdAnadir.Visible = True
cmdCancelar.Visible = True
cmdCancelar.Visible = True
cmdEditar.Visible = True
Else
MsgBox ("No tienes permisos")
End If

End Sub

' DESPLAZÁNDOSE ENTRE LA BASE DE DATOS



Private Sub cmdPrimero_Click()
 deDatos.rsActualizarEmpleados.MoveFirst
End Sub


Private Sub cmdSiguiente_Click()
 deDatos.rsActualizarEmpleados.MoveNext
 If deDatos.rsActualizarEmpleados.EOF = True Then
 deDatos.rsActualizarEmpleados.MoveLast
 End If
End Sub


Private Sub cmdAnterior_Click()
 deDatos.rsActualizarEmpleados.MovePrevious
 If deDatos.rsActualizarEmpleados.BOF = True Then
 deDatos.rsActualizarEmpleados.MoveFirst
 End If
End Sub


Private Sub cmdUltimo_Click()
 deDatos.rsActualizarEmpleados.MoveLast
End Sub


Private Sub cmdCerrar_Click()
 Unload Me
End Sub

Private Sub cmdBuscar_Click()

 deDatos.rsActualizarEmpleados.MoveFirst

While txtBusca.text <> txtNombre.text and  deDatos.rsActualizarEmpleados.EOF  = False

deDatos.rsActualizarEmpleados.MoveNext

MsgBox ("Vamos en el ciclo:  " )  

Wend 

 If deDatos.rsActualizarEmpleados.EOF = True Then

msgbox ("No Encontrado")

 End If

End Sub

ENTREGAR

SISTEMA  FINAL (ENTREGAR)

ACTIVIDADES PARA EVIDENCIAS:

1. Realiza un programa para convertir de pulgadas a centímetros
2. Realiza un programa que se utilizaría en una casa de cambio
3. seleccione un ejercicio comprobado.

Actividades en el cuaderno

JKLJKLJKLJKLJKLJKLJKLJKLJKLJKLJKLJKLJKLJKLJKL

NOTAS ACLARATORIAS

1      código  para ocultar botones

Private Sub Form_Load()

Command1.Visible = False

Command2.Visible = False

Command3.Visible = False

Command4.Visible = False

End Sub

2      código  para Mostrar  botones si  la clave es correcla

Private Sub Command5_Click()

Dim Buscar As String

Buscar = InputBox("Introdusca su id")

If Buscar = "leo" Then

      Command1.Visible = True

      Command2.Visible = True

      Command3.Visible = True

      Command4.Visible = True

Else

     MsgBox ("No tienes permisos")

End If

End Sub

3      código  para des-habilitar botones

Private Sub Form_Load()

Command1.Enabled = False

Command2.Enabled = False

Command3.Enabled = False

Command4.Enabled = False

End Sub

2      código  para habilitar botones si  la clave es correcla

Private Sub Command5_Click()

Dim Buscar As String

Buscar = InputBox("Introdusca su id")

If Buscar = "leo" Then

      Command1.Enabled = True

      Command2.Enabled = True

      Command3.Enabled = True

      Command4.Enabled = True

Else

     MsgBox ("No tienes permisos")

End If

End Sub

_________________________________________________



Repaso de la teoria
BLOQUE I PROGRAMACION DE UN SISTEMA DE INFORMACION

Introducción a los tipos de datos

Clasificaciones en los tipos de datos 

clasificaciones:  Dinámicos  Estáticos o El tipo cadena o Estructurados o Simples  Ordinales  No-ordinales

BLOQUE II Y III DOCUMENTACION DEL SISTEMA DE INFORMACION ADMINISTRACIÓN DEL SISTEMA DE INFORMACIÓN

Manual de Usuario: (para entregar) Esta parte se divide en dos manuales distintos, uno por cada aplicación cliente. Se explicará todas las posibles opciones que puede realizar el usuario con estas aplicaciones de manera detallada, y mediante el uso de capturas de pantalla. Este documento está dirigido al usuario final. Sistema Educativo José Vasconcelos Preparatoria Modalidad Mixta Página 159 Pasos del manual del usuario: 1. Portada: ¿De qué se trata el documento y quién lo elaboro? 2. Introducción: Describe el uso del documento ¿Para qué sirve? y ¿De qué habla? 3. Análisis y requerimientos del sistema ¿Qué se ocupa para poder instalarlo y usarlo? 3. Explicación del funcionamiento: Debes de poner paso a paso y con pantallas bien explicadas ¿Cómo funciona el programa? 4. Glosario. • Debe ser escrito de tal manera, que cualquier persona pueda entenderlo con la menor dificultad posible. • Es recomendable, detallar todos aquellos pasos que se llevan a cabo para usar el programa. • Especificar los alcances y las limitaciones que tiene el programa. • Un buen punto de partida para un manual de usuario, es hacer de cuenta que las personas que lo van a leer no tienen el más mínimo conocimiento sobre computadoras.