Disp2 4
Disp2 4
Disp2 4
Guía de Uso
Ing. Wilfrido
Wilfrido González Bonilla
P I C M I C R O E S T D U D I O
• 4 Displays de 7 segmentos
• 1 Microcontrolador PIC16F84
• 1 cristal de 4 Mhz
• Capacidad de comunicarse por el puerto serial de una
computadora sin necesidad del CI MAX-232
1
P I C M I C R O E S T D U D I O
2
P I C M I C R O E S T D U D I O
La tarjeta entrenadora cuenta con dos bornes que proporcionan 5 volts de DC,
justo lo que necesitamos en este caso. Esta conexión no tiene problemas. Los
botones RA1 y RA2 los podemos utilizar para simular las entradas del
contador.
3
P I C M I C R O E S T D U D I O
4
P I C M I C R O E S T D U D I O
Cuando el usuario aprieta el botón con el rotulo Enviar Dato, este se deberá
visualizar en el display de 4 dígitos.
5
P I C M I C R O E S T D U D I O
Para poder acceder al puerto serial y así poder enviar datos utilizado una
aplicación creada en Visual Basic, se hace uso del control MS COMM, el
cual trae incorporadas todas las funciones para configurar el puerto.
Para poder tener acceso a cualquier propiedad del puerto serial se utiliza la
siguiente sintaxis:
Nombre del Control . Propiedad = Valor
En este caso el objeto es MS Comm1, por lo tanto si quisiera abrir el puerto, la
instrucción sería:
MS Comm1.PortOpen = True
6
P I C M I C R O E S T D U D I O
Enviar.exe
En la siguiente Figura se muestra la Forma y los diferentes componentes del
programa en Visual Basic 6. dicho programa tiene el nombre de enviar.vbp, el
cual puede encontrar en el disco que acompaña este módulo
Una vez entendido esto, se procede a declarar las variables a utilizar, en este caso
se declara la variable comando de tipo cadena, en la cual se almacenara los
números tecleados por el usuario en el objeto Textbox1.
Option Explicit
Dim comando As String
7
P I C M I C R O E S T D U D I O
comando = "DN"
serie.Output = comando + "0000"
End Sub
Al hacer un click sobre este botón, el texto que este en el control Text1, es
agregado a la constante comando, y se envía a través del puerto.
Sin embargo cuando el usuario se dirige al control Text1, este puede escribir
cualquier carácter y presionar sobre el botón Enviar dato, produciendo un error
en el envió de datos ya que el microcontrolador no entendería este comando.
Para evitar esto se creo una función en dicho control en el cual, el usuario solo
podrá escribir caracteres numéricos, evitando así este problema.
Esto se logra con el siguiente código:
8
P I C M I C R O E S T D U D I O
Se declaran dos variables: Car de tipo cadena y tem de tipo variant. Cuando el
usuario desea insertar un carácter en el control Text, este es almacenado en la
variable KeyAscii, inmediatamente la función Chr() convierte un carácter en
numero, y este es almacenado en la variable Car.
Por ultimo cuando el usuario desea terminar la ejecución del programa, este tiene
dos opciones, una es a través del botón con el rotulo Salir, y al otra con el botón
de cerrar, en la esquina superior derecha. Independientemente se cual sea la
opción escogida, las dos opciones cierran el puerto serial antes de terminar la
aplicación.
9
P I C M I C R O E S T D U D I O
Option Explicit
Dim comando As String
Dim mat(9999) As String
Dim xx
For ss = 0 To 9
10
P I C M I C R O E S T D U D I O
For ss = 10 To 99
mat(ss) = "DN00" + CStr(ss)
Next ss
Como se observa, se declara una variable con el nombre ss, la cual servirá como
índice para dirigirse a cualquier elemento de la matriz:
La función Cstr( ), convierte un numero en cadena, esto se hace por que a través
del puerto serial solo se pueden enviar cadenas de caracteres.
De tal forma que por ejemplo:
Por otra parte cada vez que el usuario se dirige al botón con el rotulo “iniciar
cuenta”, el puerto serial envía el contenido de la variable mat, y la variable xx,
actúa como índice incrementándose en uno cada vez que se aprieta dicho botón.
11
P I C M I C R O E S T D U D I O
12