TSU Mecatronica Area Automatizacion


Asignatura Programación Visual Fecha: 22/03/2013________
Nombre De La Práctica: Compuertas Lógicas: AND _____________________________________
Alumno(a) o Equipo: _Luis Alfonso Cerecero Hernández______________________
Grupo: 5A3M ____ Práctica _1__de ___ Duración___2_____ Horas



Competencia a desarrollar:Implementar sistemas de medición y control bajo los estándares establecidos, para el correcto funcionamiento de los procesos industriales.



Objetivo General de la Asignatura: El alumno desarrollara aplicaciones con programación visual e interfaces de entrada y salida disponibles en una computadora personal para el control y monitoreo de sistemas automatizados


Objetivo de la UnidadTemática: El alumno elaborara aplicaciones visuales utilizando los conceptos de estructura de control para el manejo de una programación orientada a objetos



Equipo, Material, y Herramienta Didáctica requerida:

Computadora.
Software de Visual Basic 6.0



Descripción de la práctica:

El alumno desarrollara aplicaciones programando en el software Visual Basic 6.0 con interfaces deentrada y salida que le ayudaran al control y monitoreo de sistemas automatizados. Además el alumno investigara los códigos adecuados para hacer funcionar correctamente dichas aplicaciones












Dibujo o esquema (en caso que aplique)



Private Sub Check1_Click()
If Check1.Value = 1 And Check2.Value = 1 Then
Timer1.Enabled = True
Timer2.Enabled = True
End If
IfCheck1.Value = 1 And Check2.Value = 0 Then
Timer1.Enabled = False
Timer2.Enabled = False
Shape2.Visible = False
End If
If Check1.Value = 0 And Check2.Value = 1 Then
Timer1.Enabled = False
Timer2.Enabled = False
Shape2.Visible = False
End If
If Check1.Value = 0 And Check2.Value = 0 Then
Timer1.Enabled = False
Timer2.Enabled = False
Shape2.Visible =False
End If
End Sub

Private Sub Check2_Click()
If Check1.Value = 1 And Check2.Value = 1 Then
Timer1.Enabled = True
Timer2.Enabled = True
End If
If Check1.Value = 1 And Check2.Value = 0 Then
Timer1.Enabled = False
Timer2.Enabled = False
Shape2.Visible = False
End If
If Check1.Value = 0 And Check2.Value = 1 Then
Timer1.Enabled = False
Timer2.Enabled =False
Shape2.Visible = False
End If
If Check1.Value = 0 And Check2.Value = 0 Then
Timer1.Enabled = False
Timer2.Enabled = False
Shape2.Visible = False
End If
End Sub

Conclusiones dadas por el (los) alumno (s) (as) (saber hacer): En esta práctica realzamos la compuerta lógica AND que se enciende cuando ambos check están en 1 y cuando uno de los check esta en 1 o ambos en 0el shape se apagara.


Bibliografía:
http://www.lawebdelprogramador.com

Asignatura Programación Visual ______________ Fecha: 22/03/2013_______
Nombre De La Práctica: Compuertas Lógicas: NAND___________________________
Alumno(a) o Equipo: Luis Alfonso Cerecero Hernández__________________________________
Grupo: 5A3M ____Práctica _2__de ___ Duración___2_____ Horas



Competencia a desarrollar: Implementar sistemas de medición y control bajo los estándares establecidos, para el correcto funcionamiento de los procesos industriales.



Objetivo General de la Asignatura: El alumno desarrollara aplicaciones con programación visual e interfaces de entrada y salida disponibles en una computadorapersonal para el control y monitoreo de sistemas automatizados


Objetivo de la Unidad Temática: El alumno elaborara aplicaciones visuales utilizando los conceptos de estructura de control para el manejo de una programación orientada a objetos



Equipo, Material, y Herramienta Didáctica requerida:

Computadora.
Software de visual Basic



Descripción de la práctica:

El...