• Categories
• Bit
• Basic
• Hardware de la computadora
• Equipo de oficina
• Software

Citation preview

COLEGIO NACIONAL MIXTO “ELOY ALFARO”

9 CABLE DB 225

Este cable es donde se va a llevar la información desde la computadora hacia nuestro circuito para esto se necesita conectores DB25 y cable multifilar o UTP Imagen de los conectores

COLEGIO NACIONAL MIXTO “ELOY ALFARO” Cada pin de los conectores tiene un número asignado por lo cual es muy importante que al armar tus propios cables los identifiques correctamente. Este puerto dispones de tres registros de 8 bit cada uno (un byte). Cada uno de estos registros se denomina puertos o PORT; y cada uno de sus bits, representa un pin determinado del puerto. Los pin’s que del 18 al 25 (ambos inclusive): Son para masa, y sirven para conectar las descargas de los circuitos. Veamos ahora los tres registros Puerto de datos (Pin 2 al 9): Es el PORT 888 y es de solo escritura, por este registro enviaremos los datos al exterior de la pc, cuidado...!!!, no envíes señales eléctricas al ordenador por estos pines. Puerto de estado (Pin 15, 13, 12, 10 y 11): Es el PORT 889 y es de solo lectura, por aquí enviaremos señales eléctricas al ordenador, de este registro solo se utilizan los cinco bits de más peso, que son el bit 7, 6, 5, 4 y 3 teniendo en cuenta que el bit 7 funciona en modo invertido. Puerto de control (Pin 1, 14, 16 y 17): Es el correspondiente al PORT 890, y es de lectura/escritura, es decir, podremos enviar o recibir señales eléctricas, según nuestras necesidades. De los 8 bits de este registro solo se utilizan los cuatro de menor peso o sea el 0, 1, 2 y 3, con un pequeño detalle, los bits 0, 1, y 3 están invertidos. En esta puedes sus bits a cada ellos. La

corresponde a un conector DB-25 (Hembra).

imagen ver los tres registros, y los pines asignados uno de imagen

COLEGIO NACIONAL MIXTO “ELOY ALFARO”

La tensión de trabajo del puerto es de 5 voltios, por lo que necesitamos una fuente estabilizada o regulada de tensión, esto es importante tenerlo en cuenta, ya que estaremos enviando señales al puerto. Por otro lado, si bien puedes utilizar la PC para enviar señales al exterior sin necesitad de una fuente externa, es recomendable utilizarla y así no exiges demasiado al puerto y te evitas problemas. Ahora bien, si activas un bit de salida por el puerto, este permanecerá así hasta que lo cambies, es decir que estarás enviando 5V de forma continua hasta que lo pongas a 0. 10 PROGRAMACION EN VISUAL BASIC Es conocido de todos la habilidad de C para acceder al hardware de la computadora en forma directa, por otra parte también es conocida la inhabilidad de Visual Basic, al contrario BASIC, para realizar tareas similares. Aparentemente lo que se necesita para acceder al puerto paralelo de la PC utilizando VISUAL BASIC es un mecanismo que nos permita “traducir” algunas habilidades de C y así aprovechar la facilidad de VB para crea interfaces de usuario fácil y rápidamente. Dicho mecanismo toma el la forma de una DLL, la misma que habrá que programar en otro lenguaje diferente de VB, una vez que se cuenta con dicha librería se utiliza como cualquier otra disponible en Windows, por lo tanto es hora de entrar en materia. Antes conviene aclarar unos puntos. REQUISITOS DEL SISTEMA Procesador Pentium 150 MHz o superior, 32 MB de RAM (más memoria mejora el funcionamiento), Espacio del disco duro requerido: la instalación típica requiere aproximadamente 295 MB de espacio disponible en el disco duro. La instalación personalizada suele oscilar entre 245 MB y 435 MB, dependiendo de la configuración del sistema y de las opciones seleccionadas. CD ROM o DVD ROM, Monitor VGA o superior, Mouse Microsoft o compatible

COLEGIO NACIONAL MIXTO “ELOY ALFARO”

11 PROGRAMACIO EN

VISUAL BASIC

COLEGIO NACIONAL MIXTO “ELOY ALFARO”

Private Sub Form_Load() Timer1.Interval = 0 Timer2.Interval = 0 Timer3.Interval = 0 Timer4.Interval = 0 Timer5.Interval = 0 Timer6.Interval = 0 Timer7.Interval = 0 Timer8.Interval = 0 End Sub Private Sub Option1_Click() Timer1.Interval = 0 Timer2.Interval = 0 Timer3.Interval = 0 Timer4.Interval = 0 Timer5.Interval = 0 Timer6.Interval = 0 Timer7.Interval = 0 Timer8.Interval = 0 Out &H378, 0 End Sub Private Sub Option2_Click() Timer1.Interval = 1 End Sub Private Sub Text1_Change() If Text1 = "encender 1" Or Text1 = "encender uno" Then Me.acu = Val(acu.Text) + 1 Out &H378, acu End If If Text1 = "apagar 1" Or Text1 = "apagar uno" Then Me.acu = Val(acu.Text) - 1 Out &H378, acu End If End Sub Private Sub Text2_Change() If Text2 = "encender 2" Or Text2 = "encender dos" Then Me.acu = Val(acu.Text) + 2 Out &H378, acu End If

COLEGIO NACIONAL MIXTO “ELOY ALFARO”

If Text2 = "apagar 2" Or Text2 = "apagar dos" Then Me.acu = Val(acu.Text) - 2 Out &H378, acu End If End Sub Private Sub Text3_Change() If Text3 = "encender 3" Or Text3 = "encender tres" Then Me.acu = Val(acu.Text) + 4 Out &H378, acu End If If Text3 = "apagar 3" Or Text3 = "apagar tres" Then Me.acu = Val(acu.Text) - 4 Out &H378, acu End If End Sub Private Sub Text4_Change() If Text4 = "encender cuatro" Or Text4 = "encender 4" Then Me.acu = Val(acu.Text) + 8 Out &H378, acu End If If Text4 = "apagar 4" Or Text4 = "apagar cuatro" Then Me.acu = Val(acu.Text) - 8 Out &H378, acu End If End Sub Private Sub Text5_Change() If Text5 = "encender 5" Or Text5 = "encender cinco" Then Me.acu = Val(acu.Text) + 16 Out &H378, acu End If

If Text5 = "apagar 5" Or Text5 = "apagar cinco" Then Me.acu = Val(acu.Text) - 16 Out &H378, acu End If End Sub

COLEGIO NACIONAL MIXTO “ELOY ALFARO” Private Sub Text6_Change() If Text6 = "encender 6" Or Text6 = "encender seis" Then Me.acu = Val(acu.Text) + 32 Out &H378, acu End If If Text6 = "apagar 6" Or Text6 = "apagar seis" Then Me.acu = Val(acu.Text) - 32 Out &H378, acu End If End Sub Private Sub Text7_Change() If Text7 = "encender siete" Or Text7 = "encender siete" Then Me.acu = Val(acu.Text) + 64 Out &H378, acu End If If Text7 = "apagar 7" Or Text7 = "apagar siete" Then Me.acu = Val(acu.Text) - 64 Out &H378, acu End If End Sub Private Sub Text8_Change() If Text8 = "encender 8" Or Text8 = "encender ocho" Then Me.acu = Val(acu.Text) + 128 Out &H378, acu End If If Text8 = "apagar 8" Or Text8 = "apagar ocho" Then Me.acu = Val(acu.Text) - 128 Out &H378, acu End If End Sub Private Sub Text9_Change() If Text9 = "encender todo" Then Me.acu = 255 Out &H378, 255 End If If Text9 = "apagar todo" Then Me.acu = 0

COLEGIO NACIONAL MIXTO “ELOY ALFARO” Out &H378, 0 End If End Sub Private Sub Text10_Change() If Me.Text10 = "luces locas" Then Timer1.Interval = 1 End If If Me.Text10 = "apagar" Then Timer1.Interval = 0 Timer2.Interval = 0 Timer3.Interval = 0 Timer4.Interval = 0 Timer5.Interval = 0 Timer6.Interval = 0 Timer7.Interval = 0 Timer8.Interval = 0 Out &H378, 0 End If End Sub Private Sub Timer1_Timer() If Timer1.Interval = 1 Then Out &H378, 1 Timer8.Interval = 0Timer2.Interval = 1 End If End Sub

Private Sub Timer2_Timer() If Timer2.Interval = 1 Then Out &H378, 2 Timer1.Interval = 0 Timer3.Interval = 1 End If End Sub Private Sub Timer3_Timer() If Timer3.Interval = 1 Then

COLEGIO NACIONAL MIXTO “ELOY ALFARO” Out &H378, 4 Timer2.Interval = 0 Timer4.Interval = 1 End If End Sub Private Sub Timer4_Timer() If Timer4.Interval = 1 Then Out &H378, 8 Timer3.Interval = 0 Timer5.Interval = 1 End If End Sub Private Sub Timer5_Timer() If Timer5.Interval = 1 Then Out &H378, 16 Timer4.Interval = 0 Timer6.Interval = 1 End If End Sub Private Sub Timer6_Timer() If Timer6.Interval = 1 Then Out &H378, 32 Timer5.Interval = 0 Timer7.Interval = 1 End If End Sub

Private Sub Timer7_Timer() If Timer7.Interval = 1 Then Out &H378, 64 Timer6.Interval = 0 Timer8.Interval = 1 End If End Sub Private Sub Timer8_Timer() If Timer8.Interval = 1 Then Out &H378, 12 Timer7.Interval = 0

COLEGIO NACIONAL MIXTO “ELOY ALFARO” Timer1.Interval = 1 End If End Sub Private Sub Timer9_Timer() If Label20.Enabled = True Then Label20.Enabled = False Else Label20.Enabled = True End If End Sub Private Sub salircmd_Click() If MsgBox("¿Desea salir de la aplicación?", vbQuestion + vbYesNo, "Salir") = vbNo Then Cancel = 1 Else MsgBox "Gracias Por su Atención", vbOKOnly, "Control con Voz" Unload control_voz End If End Sub

CONCEPTOS BÁSICOS DE LA DLL Las librerías de enlace dinámico son uno de los elementos principales del sistema operativo Windows. En su concepto básico, se tratan de archivos ejecutables independientes que contienes funciones y recursos que pueden ser llamados por los programas y por otras DLL para realizar ciertos trabajos. Una DLL no puede ser ejecutada en forma independiente, entra en acción hasta que un programa u otra DLL llaman a una de las funciones de la librería. El termino “enlace dinámico” se refiere al hecho de que el código que contiene la DLL se incorpora al programa ejecutable que la llamaba solo hasta el momento en que es requerido, en tiempo de ejecución, al contrario del enlace estático que es el que se lleva a cabo durante el proceso de enlazado para crear un programa Windows.

COLEGIO NACIONAL MIXTO “ELOY ALFARO” Para que nuestro proyecto funcione con el puerto paralelo es necesario tener la DLL que se la puede descargar de internet con el nombre de impout32.dll Finalmente, se debe colocar la DLL en el directorio System 32 de Windows y entonces bastara con especificar el nombre de la DLL en la declaración de las respectivas funciones, sin embargo recomiendo mantener separados los archivos de trabajo y no tocar nada que tenga que ver con el sistema operativo, digamos que se trata de una norma elemental de seguridad que puede evitarnos algunos dolores de cabeza. Ahora ya se dispone de una herramienta básica para trabajar con el puerto paralelo desde VISUAL BASIC, se puede incluso agregare nuevas funciones a la DLL y así agregar funcionalidad a VB a través de llamadas a función de la biblioteca C. DRAGON NATURALLY SPEAKING Es un software bastante interesante, ya que a través de el puedes crear documentos de Microsoft Office utilizando tu voz y redactar todo tipo de cartas, informes y mensajes de correo electrónico. Parece algo salido de la ciencia ficción pero es cierto, necesitas eso sí algunos requisitos de hardware y software y podrás instalar esta herramienta creada por Nuance Communications Inc. dentro de la gama de herramientas Dragon Naturally Speaking Solutions. Con este software y el de VISUAL BASIC lograremos dictar a la maquina para de esta forma darle un uso diferente al programa ya que así podremos manipularlo a través de la voz. REQUISITOS DEL SISTEMA Procesador Intel Pentium de preferencia con 1 GHz de velocidad o un equivalente del tipo AMD; 1 Giga Byte de memoria RAM con la misma cantidad de espacio libre en el disco duro. Requiere además de una Tarjeta de sonido Creative Labs Sound Blaster 16 o equivalente, compatible con grabación de 16 bits y una unidad de CD para la instalación. En relación al sistema operativo, Dragon Naturally Speaking es compatible con Windows 2000, Windows XP Home and Professional, o Windows Vista de 32-bit y se puede trabajar tanto con Microsoft Internet Explorer versión 5 o superior o con nuestro conocido Mozilla Firefox.

COLEGIO NACIONAL MIXTO “ELOY ALFARO”

APROBACIÓN Y LEGALIZACIÓN Por medio del representante el COLEGIO NACIONAL “ELOY ALFARO”, representado por el Sr. Ing. ROBERT PROCEL y El sexto Curso paralelo “J” representado por el Sr. RICARDO CRUZ, certifican la veracidad de los puntos establecidos en el capitulo Nro. II, “MARCO TEORICO”, para lo cual firma al pie del mismo como constancia de lo expuesto.

COLEGIO NACIONAL MIXTO “ELOY ALFARO”

Ing. Robert Procel Tutor del Proyecto proyecto

Sr. Ricardo Cruz Representante desarrolladores del