SISTEMAS DISTRIBUIDOS: Chat con envio de archivos Java

UN CHAT CON ENVÍO DE ARCHIVOS ADJUNTOS PROGRAMADO EN JAVA ES UN BUEN EJEMPLO DEL USO DE LA CLASE SOCKET ASÍ COMO DE SUS ATRIBUTOS OBJECTOUTPUTSETREAM Y OBJECTINPUTSTREAM. EN ESTE ARTICULO SE MUESTRA EL CÓDIGO FUENTE Y UNA EXPLICACIÓN DE LA LÓGICA USADA.

La estructura del programa es muy simple. Tanto el servidor como el cliente tienen activos en todo momento los hilos par recibir o mejor dicho están escuchando en el puerto todo el tiempo esperando por un nuevo mensaje. Así mismo tanto el cliente como el servidor disponen de un hilo para enviar mensaje, al que tienen que pesarle como parámetros el socket y la ventana del receptor, de esta manera puede manipular el texto en pantalla y escribir en el mismo socket o puerto en el que esta escuchando el receptor.

Por ultimo así como ambos(Cliente y Servidor) envían y reciben mensajes, ambos tienen hilos para enviar y recibir archivos, esto se hace primero llenando un vector de datos de tipo byte y luego enviándolo por el socket, si no se a enviado todo el archivo se llenara nuevamente el vector de datos y se enviara, hasta que se envie por completo el archivo. En el caso de mi programa el vector de tipo byte es de 8 Kb o 8192 bytes. Esto queda a su elección pero se recomienda no demasiado grande.

Una pequeña mejora que se puede hacer al programa es activar el hilo de recibir archivos solo cuando sea necesario, ya que en mi programa estos están activos todo momento en un puerto diferente. Esto se puede hacer agregando una condición de texto, por ejemplo cuando se desee enviar un archivo el emisor escribirá en pantalla "Enviar Archivo" y el receptor al leer esto activara el  hilo de recibir y luego este se dormirá.

En el siguiente link les dejo el CÓDIGO del programa en Netbeans:
CÓDIGO FUENTE

SISTEMAS DISTRIBUIDOS: Reloj Analógico en Java

El RELOJ ANALÓGICO DIBUJADO EN JAVA es un simple y muy buen ejemplo para la aplicación de la clase GRAPHICS  ademas del uso de HILOS. En este articulo se muestra la lógica y el CÓDIGO para implementar este programa.

En breve resumen, el programa tiene 4 clases diferentes, una clase  RelojAnalogicoKevinChaca que es la encargada del control de todo el sistema; la clase Aguja que se instancia 3 veces(hora, minuto y segundo) y cada una con parámetros de dimensiones diferentes. esta clase también tiene un método pintar que utiliza la clase GRAPHICS de Java para dibujar cada manecilla; la clase Temporizador es un HILO ,de igual manera se instancia para cada manecilla(hora, minuto y segundo) y por ultimo la clase ventana que es un JFRAME que simplemente muestra el reloj para lo cual usa también un método paint de la clase GRAPHICS.

La lógica del programa es muy sencilla, después de dibujar en la ventana el diseño del reloj, es decir puntos de separación entre minutos y horas, se toma la hora del sistema mediante la clase DATE de Java y calcula por medio de ángulos, dividiendo la circunferencia en 360 grados, la posicion de cada manecilla y la dibuja cada segundo.

En el siguiente link les dejo el CÓDIGO del programa en Netbeans:

CÓDIGO FUENTE

MICRO-CONTROLADORES: Programa teclado en Ensamblador

El lenguaje Ensamblador para programar micro-controladores tiene grandes ventajas, debido a que permite controlar a nivel mas básico el programa, especialmente es útil en aplicaciones donde el tiempo deba ser preciso. 

PROGRAMA USO DEL TECLADO PIC 16F887

En el siguiente programa se muestra el despliegue de los números de un teclado mediante 6 displays. El teclado esta conectado al puerto B. Ademas el programa esta elaborado en MPLAB y ademas contiene su simulación adjunta en Proteus

TECLADO Y DISPLAYS KS

LIST P=16F887
INCLUDE 
;Declaracion variables
tecla      EQU 0x20
num_tecla     EQU 0x21
barrido_display    EQU 0x22
ayuda      EQU 0x24
cont1_pausa     EQU 0x25
cont2_pausa     EQU 0X26
cont3_pausa     EQU 0X27
contador_barrido_display EQU 0x28
display1     EQU 0x29
display2     EQU 0x2A
display3     EQU 0x2B
display4     EQU 0x2C
display5     EQU 0x2D
display6     EQU 0x2F



ORG 0X00
goto INICIO

ORG 0x10

INICIO:
;Inicializacion variables barrido y num_tecla
clrf contador_barrido_display
clrf barrido_display
clrf num_tecla
clrf ayuda
clrf cont1_pausa
clrf cont2_pausa
movlw 0x01
movwf cont3_pausa 

;Banco 3
bsf STATUS,RP0
bsf STATUS,RP1

;Valores digitales Puerto B
clrf ANSELH  
bcf OPTION_REG,NOT_RBPU

;Banco 2
bcf STATUS,RP1
bsf STATUS,RP0

;Mitad entradas(1) mitad salidas(0)
movlw 0xF0
movwf TRISB

;Salidas puerto C puerto D
clrf TRISC
clrf TRISD

;Banco 0
bcf STATUS,RP0
bcf STATUS,RP1

;PORT B mitad en alto(entradas) y mitad el bajo(salidas)
movlw 0xF0
movwf PORTB

;En bajo puerto C y con el contador puerto D
clrf PORTC
movlw 0xFF
movwf PORTC
movwf display1
movwf display2
movwf display3
movwf display4
movwf display5
movwf display6
clrf PORTD


BARRIDO_DISPLAY:
clrf num_tecla
call TABLA_POSICIONES
movwf barrido_display
movwf PORTD  

;Si es el display1
movlw 0x00
xorwf contador_barrido_display,W
btfss STATUS,Z
goto DISPLAY2
movfw display1
movwf PORTC
goto SIGUIENTE_DISPLAY


DISPLAY2:  
;Si es el display2
movlw 0x01
xorwf contador_barrido_display,W
btfss STATUS,Z
goto DISPLAY3
movfw display2
movwf PORTC
goto SIGUIENTE_DISPLAY

DISPLAY3:  
;Si es el display3 
movlw 0x02
xorwf contador_barrido_display,W
btfss STATUS,Z
goto DISPLAY4
movfw display3
movwf PORTC
goto SIGUIENTE_DISPLAY

DISPLAY4:
;Si es el display4
movlw 0x03
xorwf contador_barrido_display,W
btfss STATUS,Z
goto DISPLAY5
movfw display4
movwf PORTC
goto SIGUIENTE_DISPLAY

DISPLAY5
;Si es el display5
movlw 0x04
xorwf contador_barrido_display,W
btfss STATUS,Z
goto DISPLAY6
movfw display5
movwf PORTC
goto SIGUIENTE_DISPLAY

DISPLAY6
;Si es el display6
movfw display6
movwf PORTC


SIGUIENTE_DISPLAY:
incf contador_barrido_display,F 


;Compara si no ha cambiado, es decir sigue siendo 0xF0
movlw 0xF0
xorwf PORTB,W
btfss STATUS,Z
goto PASO2
goto RETARDO

PASO2:
;Saca los valores de PORTB a tecla
movwf tecla

;Cambia entradas por salidas en PORTB
;Banco 2
bcf STATUS,RP1
bsf STATUS,RP0

;Mitad entradas(1) mitad salidas(0) al revez
movlw 0x0F
movwf TRISB

;Banco 0
bcf STATUS,RP0
bcf STATUS,RP1

;PORT B mitad en alto(entradas) y mitad el bajo(salidas)
movlw 0x0F
movwf PORTB

;Hace XOR con 0xF0 para ver que valor a cambiado nivle bajo
movlw 0x0F
xorwf PORTB,W

;Hace OR con tecla para tener en tecla los bits que se han presionado
iorwf tecla,F

movlw 0xFF
movwf PORTC 

movlw 0x03
movwf cont3_pausa
PAUSA
decfsz cont1_pausa
goto PAUSA
decfsz cont2_pausa
goto PAUSA
decfsz cont3_pausa
goto PAUSA

clrf cont1_pausa
clrf cont2_pausa


;Compara de uno en uno los posibles valores para tecla

;Tecla 16(MAS)
movlw 0x88
xorwf tecla,W
btfsc STATUS,Z
goto FIN_PREGUNTA

;Tecla 12(MENOS)
incf num_tecla,F
movlw 0x84
xorwf tecla,W
btfsc STATUS,Z
goto FIN_PREGUNTA

;Tecla 8(POR)
incf num_tecla,F
movlw 0x82
xorwf tecla,W
btfsc STATUS,Z
goto FIN_PREGUNTA

;Tecla 4(DIVIDIDO)
incf num_tecla,F
movlw 0x81
xorwf tecla,W
btfsc STATUS,Z
goto FIN_PREGUNTA

;Tecla 15(IGUAL)
incf num_tecla,F
movlw 0x48
xorwf tecla,W
btfsc STATUS,Z
goto FIN_PREGUNTA

;Tecla 11(numero 3)
incf num_tecla,F
movlw 0x44
xorwf tecla,W
btfsc STATUS,Z
goto FIN_PREGUNTA

;Tecla 7(numero 6)
incf num_tecla,F
movlw 0x42
xorwf tecla,W
btfsc STATUS,Z
goto FIN_PREGUNTA

;Tecla 3(numero9)
incf num_tecla,F
movlw 0x41
xorwf tecla,W
btfsc STATUS,Z
goto FIN_PREGUNTA

;Tecla 14(numero 0)
incf num_tecla,F
movlw 0x28
xorwf tecla,W
btfsc STATUS,Z
goto FIN_PREGUNTA

;Tecla 10(numero 2)
incf num_tecla,F
movlw 0x24
xorwf tecla,W
btfsc STATUS,Z
goto FIN_PREGUNTA

;Tecla 6(numero 5)
incf num_tecla,F
movlw 0x22
xorwf tecla,W
btfsc STATUS,Z
goto FIN_PREGUNTA

;Tecla 2(numero 8)
incf num_tecla,F
movlw 0x21
xorwf tecla,W
btfsc STATUS,Z
goto FIN_PREGUNTA

;Tecla 13(ON OFF)
incf num_tecla,F
movlw 0x18
xorwf tecla,W
btfsc STATUS,Z
goto FIN_PREGUNTA

;Tecla 9(numero1)
incf num_tecla,F
movlw 0x14
xorwf tecla,W
btfsc STATUS,Z
goto FIN_PREGUNTA

;Tecla 5(numero 4)
incf num_tecla,F
movlw 0x12
xorwf tecla,W
btfsc STATUS,Z
goto FIN_PREGUNTA

;Tecla 1(numero 7)
incf num_tecla,F
goto FIN_PREGUNTA


FIN_PREGUNTA:

;recorro los datos de la pantalla de displays

;recorro el display 5 al 6
movfw display5
movwf display6
;recorro el display 4 al 5
movfw display4
movwf display5
;recorro el display 3 al 4
movfw display3
movwf display4
;recorro el display 2 al 3
movfw display2
movwf display3
;recorro el display 1 al 2
movfw display1
movwf display2


;Cargamos en el display1 el valor segun nuestra tabla 

call TABLA_DIGITOS
movwf ayuda 
comf ayuda,W 
movwf display1
goto RETARDO


TABLA_POSICIONES
;Incremento la posicion de barrido de display de tecla al PCL
movf contador_barrido_display,W
addwf PCL,f

retlw 0x20  ;valor posicion 1
retlw 0x10  ;valor posicion 2
retlw 0x08  ;valor posicion 3
retlw 0x04  ;valor posicion 4
retlw 0x02  ;valor posicion 5
retlw 0x01  ;valor posicion 6
clrf contador_barrido_display
retlw 0x20



 TABLA_DIGITOS 
;Incrementa el numero de tecla al PCL
movf num_tecla,W
addwf PCL,f 

;Tabla con numeros segun la tecla
;Columna 4 de abajo hacia arriba
retlw 0xE   ; valor para mas
retlw 0x01   ; valor para menos
retlw 0x37   ; valor para por
retlw 0x49    ; valor para dividiendo
;Columna 3 de abajo hacia arriba
retlw 0x05   ; valor para igual
retlw 0x4F   ; 3 en código 7 segmentos
retlw 0x7D   ; 6 en código 7 segmentos 
retlw 0x6F    ; 9 en código 7 segmentos
;Columna 2 de abajo hacia arriba
retlw 0x3F   ; 0 en código 7 segmentos 
retlw 0x5B   ; 2 en código 7 segmentos
retlw 0x6D   ; 5 en código 7 segmentos
retlw 0x7F   ; 8 en código 7 segmentos
;Columna 1 de abajo hacia arriba
retlw 0x64   ; valor para on/off
retlw 0x06   ; 1 en código 7 segmentos 
retlw 0x66   ; 4 en código 7 segmentos 
retlw 0x07   ; 7 en código 7 segmentos


RETARDO
;retardo de 0.5 segundos aprox
decfsz cont1_pausa
goto RETARDO
; decfsz cont2_pausa
; goto RETARDO
; decfsz cont3_pausa
; goto RETARDO

clrf cont1_pausa
movlw 0x08
movwf cont2_pausa

movlw 0xFF
movwf PORTC 

clrf cont1_pausa
clrf cont2_pausa

;Banco 2
bcf STATUS,RP1
bsf STATUS,RP0

;Mitad entradas(1) mitad salidas(0)
movlw 0xF0
movwf TRISB

;Banco 0
bcf STATUS,RP0
bcf STATUS,RP1


;PORT B mitad en alto(entradas) y mitad el bajo(salidas)
movlw 0xF0
movwf PORTB

goto BARRIDO_DISPLAY


END