MICROCHIP PIC

Panel 8x8 con PIC16F628A

noreply@blogger.com (FBZ) — Sun, 18 Nov 2012 07:19:00 -0800

Para los alumnos de microcontroladores implementar el Laboratorio :"Panel 8x8 con PIC16F628A"
Hacer las siguientes modificaciones:
A.- Modificar el tipo de letra que se muestra, pasar a letra corrida, si la memoria del micro no alcanza pasarlo al PIC16F877A o similar
B. Implementar Panel de mensajes 8x48 con PIC16F877A.

A continuación les mostrare que si se puede implementar un pequeño panel 8x8 de solo mensajes con el PIC 16F628A simulado en el ISIS PROTEUS., Cuando lo implementen y los led no tienen mucho brillo agregar
8 transistores para las FIlas y el ULN2803 para las columnas

'******************************************************************************
define OSC 8
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 24h
DEFINE HSER_BAUD 4800
RCIF VAR PIR1.5 ' Alias RCIF (USART Receive Interrupt Flag)
OERR VAR RCSTA.1 ' Alias OERR (USART Overrun Error Flag)
CREN VAR RCSTA.4 ' Alias CREN (USART Continuous Receive Enable)
INTCON = %11000000 ' Enable interrupts
ON INTERRUPT GoTo MSG ' Declare interrupt handler routine
PIE1.5 = 1 ' Enable interrupt on USART
'******************************************************************************
'VARAIABLES PARA MENSAJE O VISUALIZACION EN PANEL
B1 var Byte:B var Byte : X VAR Byte:I VAR Word : V VAR Byte : B2 VAR BYTE
C VAR Word : W VAR WORD:Velocidad VAR Byte
Col_texto VAR Word:y var byte:dato var byte:d var byte:direccion var word
Cuadro_temp VAR Byte [8]:Dat VAR Byte [9]
mensaje VAR Byte [40]:Longitud var Word:Letra var byte
Dirf2 VAR Word :CAR VAR BYTE:
'*******************************************************************************
'PINES DE USADOS PARA MEMORIA SERIAL
SDA VAR PORTA.3
SCK VAR PORTA.4
cont Con %10100000
'********************************************************************************
TRISA=0 :PORTA=0
CAR=1
'*******************************************************************************
I2cREAD SDA,SCK,CONT,510,[COL_TEXTO]
pause 100
'*******************************************************************************
'///////////////////////////////////////////////////////////////////////////////

INICIO:
CAR=1
w=0
For I = 1 To Col_texto
W = I
For B = 1 To 8'Columnas
I2CREAD SDA,SCK,CONT,W,[B1]
'B1.0=B2.7:B1.1=B2.6:B1.2=B2.5: B1.3=B2.4
'B1.4=B2.3:B1.5=B2.2:B1.6=B2.1: B1.7=B2.0
Cuadro_temp[b] = ~B1
W = W + 1
Next B
Gosub Desplegar
Next I
GOTO INICIO
'*******************************************************************************
Desplegar:
FOR V = 0 To 10'velocidad 'Velocidad
PORTA.1=1 ' DATOS REGISTRO
For X = 1 To 8'Columnas
Toggle PortA.0 ' CLOCK DEL REGISTRO
PORTA.1=0
Toggle PortA.0
Toggle PortA.2 ' LATCH DEL REGISTRO
Shiftout Portb.3 , Portb.0 ,4,[Cuadro_temp(x)]
Toggle Portb.4
Toggle Portb.4
Toggle PortA.2
PAUSEUS 800' TIEMPO
'portb = 255
Next X
Next V
Return
'*******************************************************************************
disable
'///////////////////////////////////////////////////////////////////////////////
'****/////RUTINA GRABA MENSAJE EN MEMORIA FLASH EEPROM 24C32 ///////***********
'***** SI SE RECIBE BYTE "*" SE PROCEDE HA LEER MENSAJE Y GRABAR EN EEPROM*****
MSG:

HSERIN [WAIT ("*"),STR MENSAJE \60\"."]
I=0
WHILE CAR <> 0

LETRA= MENSAJE(I)
I=I+1
IF LETRA="," THEN
CAR=0
ENDIF
WEND
LONGITUD=I
'*******************************************************************************
Direccion = 7
'SI MENSAJE ES MEOR A 3 CARACTERES NO SE MUESTRA SOLO SE GUARDA EFECTO
IF LONGITUD < 3 THEN
RESUME
ENDIF
'################################################################################
'Lee letra por letra y graba en memoria serial 24C32
For I = 0 To Longitud
LETRA=MENSAJE(I)
Select Case Letra
'***************************LETRAS MAYUSCULAS***********************************

Case "A","a"
Dat(1) = 63
Dat(2) = 127
Dat(3) = 200
Dat(4) = 72
Dat(5) = 63
Dat(6) = 0
Y = 6
Gosub Grabar

Case "B","b"
Dat(1) = 255
Dat(2) = 255
Dat(3) = 145
Dat(4) = 145
Dat(5) = 110
Dat(6) = 0
Y = 6
Gosub Grabar

Case "C","c"
Dat(1) = 126
Dat(2) = 255
Dat(3) = 129
Dat(4) = 129
Dat(5) = 66
Dat(6) = 0
Y = 6
Gosub Grabar

Case "D","d"
Dat(1) = 255
Dat(2) = 255
Dat(3) = 129
Dat(4) = 129
Dat(5) = 126
Dat(6) = 0
Y = 6
Gosub Grabar

Case "E","e"
Dat(1) = 255
Dat(2) = 255
Dat(3) = 145
Dat(4) = 145
Dat(5) = 129
Dat(6) = 0
Y = 6
Gosub Grabar

Case "F","f"
Dat(1) = 255
Dat(2) = 255
Dat(3) = 136
Dat(4) = 136
Dat(5) = 128
Dat(6) = 0
Y = 6
Gosub Grabar

Case "G","g"
Dat(1) = 126
Dat(2) = 255
Dat(3) = 139
Dat(4) = 139
Dat(5) = 78
Dat(6) = 0
Y = 6
Gosub Grabar

Case "H","h"
Dat(1) = 255
Dat(2) = 255
Dat(3) = 16
Dat(4) = 16
Dat(5) = 255
Dat(6) = 0
Y = 6
Gosub Grabar

Case "I","i"
Dat(1) = 129
Dat(2) = 129
Dat(3) = 255
Dat(4) = 129
Dat(5) = 129
Dat(6) = 0
Y = 6
Gosub Grabar

Case "J","j"
Dat(1) = 135
Dat(2) = 129
Dat(3) = 129
Dat(4) = 255
Dat(5) = 255
Dat(6) = 0
Y = 6
Gosub Grabar

Case "K","k"
Dat(1) = 255
Dat(2) = 255
Dat(3) = 40
Dat(4) = 68
Dat(5) = 131
Dat(6) = 0
Y = 6
Gosub Grabar
Case "L","l"
Dat(1) = 255
Dat(2) = 255
Dat(3) = 1
Dat(4) = 1
Dat(5) = 1
Dat(6) = 0
Y = 6
Gosub Grabar

Case "M","m"
Dat(1) = 255
Dat(2) = 64
Dat(3) = 32
Dat(4) = 64
Dat(5) = 255
Dat(6) = 0
Y = 6
Gosub Grabar

Case "N","n"
Dat(1) = 255
Dat(2) = 64
Dat(3) = 32
Dat(4) = 16
Dat(5) = 255
Dat(6) = 0
Y = 6
Gosub Grabar

Case "+"
Dat(1) = 63
Dat(2) = 160
Dat(3) = 144
Dat(4) = 136
Dat(5) = 63
Dat(6) = 0
Y = 6
Gosub Grabar

Case "O","o"
Dat(1) = 126
Dat(2) = 129
Dat(3) = 129
Dat(4) = 129
Dat(5) = 126
Dat(6) = 0
Y = 6
Gosub Grabar

Case "P","p"
Dat(1) = 255
Dat(2) = 255
Dat(3) = 136
Dat(4) = 136
Dat(5) = 112
Dat(6) = 0
Y = 6
Gosub Grabar

Case "Q","q"
Dat(1) = 126
Dat(2) = 129
Dat(3) = 141
Dat(4) = 130
Dat(5) = 125
Dat(6) = 0
Y = 6
Gosub Grabar

Case "R","r"
Dat(1) = 255
Dat(2) = 255
Dat(3) = 152
Dat(4) = 148
Dat(5) = 146
Dat(6) = 97
Dat(7) = 0
Y = 7
Gosub Grabar

Case "S","s"
Dat(1) = 98
Dat(2) = 145
Dat(3) = 145
Dat(4) = 145
Dat(5) = 78
Dat(6) = 0
Y = 6
Gosub Grabar

Case "T","t"
Dat(1) = 128
Dat(2) = 128
Dat(3) = 255
Dat(4) = 128
Dat(5) = 128
Dat(6) = 0
Y = 6
Gosub Grabar

Case "U","u"
Dat(1) = 255
Dat(2) = 255
Dat(3) = 1
Dat(4) = 1
Dat(5) = 254
Dat(6) = 0
Y = 6
Gosub Grabar

Case "V","v"
Dat(1) = 252
Dat(2) = 2
Dat(3) = 1
Dat(4) = 2
Dat(5) = 252
Dat(6) = 0
Y = 6
Gosub Grabar

Case "W","w"
Dat(1) = 255
Dat(2) = 2
Dat(3) = 4
Dat(4) = 2
Dat(5) = 255
Dat(6) = 0
Y = 6
Gosub Grabar

Case "X","x"
Dat(1) = 129
Dat(2) = 66
Dat(3) = 36
Dat(4) = 24
Dat(5) = 36
Dat(6) = 66
Dat(7) = 129
Dat(8) = 0
Y = 8
Gosub Grabar

Case "Y","y"
Dat(1) = 128
Dat(2) = 64
Dat(3) = 63
Dat(4) = 64
Dat(5) = 128
Dat(6) = 0
Y = 6
Gosub Grabar

Case "Z","z"
Dat(1) = 135
Dat(2) = 137
Dat(3) = 145
Dat(4) = 161
Dat(5) = 193
Dat(6) = 0
Y = 6
Gosub Grabar
'************************************NUMEROS************************************
Case "1"
Dat(1) = 16
Dat(2) = 32
Dat(3) = 64
Dat(4) = 255
Dat(5) = 0
Y = 5
Gosub Grabar

Case "2"
Dat(1) = 67
Dat(2) = 133
Dat(3) = 137
Dat(4) = 145
Dat(5) = 97
Dat(6) = 0
Y = 6
Gosub Grabar

Case "3"
Dat(1) = 66
Dat(2) = 129
Dat(3) = 137
Dat(4) = 137
Dat(5) = 118
Dat(6) = 0
Y = 6
Gosub Grabar

Case "4"
Dat(1) = 8
Dat(2) = 24
Dat(3) = 40
Dat(4) = 72
Dat(5) = 255
Dat(6) = 8
Dat(7) = 0
Y = 7
Gosub Grabar

Case "5"
Dat(1) = 241
Dat(2) = 145
Dat(3) = 145
Dat(4) = 145
Dat(5) = 142
Dat(6) = 0
Y = 6
Gosub Grabar

Case "6"
Dat(1) = 126
Dat(2) = 137
Dat(3) = 137
Dat(4) = 137
Dat(5) = 70
Dat(6) = 0
Y = 6
Gosub Grabar
Case "7"
Dat(1) = 128
Dat(2) = 128
Dat(3) = 135
Dat(4) = 136
Dat(5) = 240
Dat(6) = 0
Y = 6
Gosub Grabar
Case "8"
Dat(1) = 118
Dat(2) = 137
Dat(3) = 137
Dat(4) = 137
Dat(5) = 118
Dat(6) = 0
Y = 6
Gosub Grabar
Case "9"
Dat(1) = 112
Dat(2) = 136
Dat(3) = 136
Dat(4) = 136
Dat(5) = 127
Dat(6) = 0
Y = 6
Gosub Grabar
Case "0"
Dat(1) = 126
Dat(2) = 225
Dat(3) = 145
Dat(4) = 137
Dat(5) = 135
Dat(6) = 126
Dat(7) = 0
Y = 7
Gosub Grabar

'***********************************SIGNOS**************************************

Case " " 'espacio
Dat(1) = 0
Dat(2) = 0
Dat(3) = 0
Y = 3
Gosub Grabar

Case "%" ' cara feliz

Dat(1) = 60
Dat(2) = 66
Dat(3) = 169
Dat(4) = 133
Dat(5) = 133
Dat(6) = 169
Dat(7) = 66
Dat(8) = 60
Dat(9) = 0
Y = 9
Gosub Grabar
Case ")" ' cara TRISTE

Dat(1) = 60
Dat(2) = 66
Dat(3) = 165
Dat(4) = 137
Dat(5) = 137
Dat(6) = 165
Dat(7) = 66
Dat(8) = 60
Dat(9) = 0
Y = 9
Gosub Grabar
Case "$" 'corazon
Dat(1) = 112
Dat(2) = 248
Dat(3) = 124
Dat(4) = 62
Dat(5) = 63
Dat(6) = 124
Dat(7) = 248
Dat(8) = 112
Dat(9) = 0
Y = 9
Gosub Grabar
Case "&" 'corazon ROTO
Dat(1) = 112
Dat(2) = 248
Dat(3) = 120
Dat(4) = 54
Dat(5) = 39
Dat(6) = 92
Dat(7) = 152
Dat(8) = 112
Dat(9) = 0
Y = 9
Gosub Grabar
Case "?" 'interrogacion
Dat(1) = 64
Dat(2) = 128
Dat(3) = 128
Dat(4) = 141
Dat(5) = 144
Dat(6) = 96
Dat(7) = 0
Y = 7
Gosub Grabar
Case "(" ' telefono
Dat(1) = 14
Dat(2) = 7
Dat(3) = 7
Dat(4) = 14
Dat(5) = 220
Dat(6) = 248
Dat(7) = 112
Dat(8) = 0
Y = 8
Gosub Grabar

'*******************************letras minusculas******************************
Case Else
Dat(1) = 0
Y = 1
Gosub Grabar

End Select

Next I
COL_TEXTO = Direccion ' total de bytes incluido los 48 bytes iniciales
Dirf2 = COL_TEXTO + 8 ' sele agrega 48 ceros al final
Dato = 0
For I = COL_TEXTO To Dirf2
I2cWRITE SDA,SCK,CONT,i,[dato] ' graba 48 ceros al final de mensaje
pause 10
Next I
'GRABA EL VALOR DE LA CANTIDAD DE BYTES DEL MENSAJE EN LA POSICION 510
I2cWRITE SDA,SCK,CONT,510,[COL_TEXTO]
pause 10
Dato = 0
For I = 0 To 7
I2cWRITE SDA,SCK,CONT,i,[dato]
pause 10
Next I
RESUME

'################################################################################
'*******************************************************************************
grabar: ' grabar en memoria los bytes de las letras del mensaje
For D = 1 To Y
Direccion = Direccion + 1
Dato = Dat(d)
I2cWRITE SDA,SCK,CONT,DIRECCION,[dato]
pause 10
Next d

return
'******************************************************************************

CONTROL REMOTO IR -PIC : PROTOCOLO SIRC SONY Y RC5 PHILLIPS

noreply@blogger.com (FBZ) — Fri, 16 Nov 2012 20:13:00 -0800

Para los Alumnos de Microcontroladores y los que deseen implementarlo...
Les dejo imágenes y código de programa que les ayudara ha realizar un Control Remoto Universal. Los protocolos que tienen que implementar se encuentran en este Enlace.
El control remoto que se implementado y simulado en ISIS PROTEUS simula los protocolos IR: SIRC de SONY y RC5 PHILLIPS, con este ejemplo ya pueden culminar su trabajo.
Tiene comunicación Serial por el se envía los comandos respectivos tiene el siguiente formato:
$Dirección-Comando.
La "Dirección" es de tres digitos al igual que el "Comando" Ejemplo: "$005053."

'*******************************************************************************

'Interupción del puerto USART

DEFINE HSER_RCSTA 90h

DEFINE HSER_TXSTA 24h

DEFINE HSER_BAUD 2400

RCIF VAR PIR1.5 ' Alias RCIF (USART Receive Interrupt Flag)

OERR VAR RCSTA.1 ' Alias OERR (USART Overrun Error Flag)

CREN VAR RCSTA.4 ' Alias CREN (USART Continuous Receive Enable)

INTCON = %11000000 ' Enable interrupts

ON INTERRUPT GoTo PROTOCOLO ' Declare interrupt handler routine

PIE1.5 = 1 ' Enable interrupt on USART

'*******************************************************************************

'// Define variables

Ciclos VAR BYTE '// numero de ciclos

Index VAR BYTE '// Index

DBYTE VAR BYTE '// Byte de datos

ABYTE VAR BYTE '// 5-bit dirección - protocolo SIRC

Cabecera var byte

Cero var byte

Uno var byte

RETARDO VAR word

RETARDO1 VAR byte

RET VAR byte

'*******************************************************************************

COMANDO VAR BYTE[7]

MARCA VAR BYTE : TIPO1 VAR BYTE : TIPO2 VAR BYTE : TIPO3 VAR BYTE

ACCION1 VAR BYTE : ACCION2 VAR BYTE : ACCION3 VAR BYTE : I var byte

TRISB.7 = 0

TRISB.1 = 0

portb.1=0

'*******************************************************************************

INICIO:

pause 10

PORTB.7 = 0

GOTO INICIO

DISABLE

'*******************************************************************************

PROTOCOLO: 'SELECIONAR PROTOCOLO

HSerin [WAIT ("$"),STR COMANDO \8\"."]

MARCA = COMANDO[0] ' MARCA , SONY, LG ETC

SELECT CASE MARCA

CASE "A" ' MARCA SONY EJECUTAR PROTOCOLO SIRC

Cabecera=96 '// Cabecera = (96 * 25uS) = 2.4mS de duración

Cero=24 '// Cero = (24 * 25uS) = 0.6mS de duración

Uno=48 '// Uno = (48 * 25uS) = 1.2mS de duración

ret=150

FOR I=0 TO 100

GOSUB SIRC

NEXT I

CASE "B"

Cero=32 '// Cero = (32 * 28uS) = 0.889mS de duración

Uno=32 '// Uno = (32 * 28uS) = 0.889MS de duración

RETARDO = 889

ret=156

FOR I=0 TO 100

GOSUB RC5

NEXT I

CASE "C"

CASE "D"

END SELECT

RESUME

'*******************************************************************************

'//////////////////////////////PROTOCOLO SIRC///////////////////////////////////

SIRC:

DBYTE = (COMANDO[4]-48)*100 +(COMANDO[5]-48)*10+ COMANDO[6]-48

ABYTE = (COMANDO[1]-48)*100 +(COMANDO[2]-48)*10+ COMANDO[3]-48

GOSUB ENVIAR_SIRC

RETURN

'*******************************************************************************

'// Send Cabecera Pulsos + 13-bit data/address packet on keypress

ENVIAR_SIRC:

Ciclos = Cabecera

CALL Pulsos

'// Enviar 7 bits de datos

FOR Index = 0 TO 6

IF DBYTE.0[Index] = 0 THEN

Ciclos = Cero

retardo=ret

ELSE

Ciclos = Uno

retardo=ret

ENDIF

CALL Pulsos

NEXT Index

'// Enviar 5-bit de dirección

FOR Index = 0 TO 4

IF ABYTE.0[Index] = 0 THEN

Ciclos = Cero

retardo=ret

ELSE

Ciclos = Uno

retardo=ret

ENDIF

CALL Pulsos

NEXT Index

PAUSE 25 '// 25mS delay entre paquetes

return

'*******************************************************************************

Pulsos: '// Genera 40kHz ;

ASM

Pulso bsf PORTB, 7 ;// 1uS, LED=on [necesita 25uS total]

goto $+1 ;// 3uS (2uS por goto $+1)

goto $+1 ;// 5uS

goto $+1 ;// 7uS

goto $+1 ;// 9uS

goto $+1 ;// 11uS

goto $+1 ;// 13uS

bcf PORTB, 7 ;// 14uS, LED=off

goto $+1 ;// 16uS

goto $+1 ;// 18uS

goto $+1 ;// 20uS

goto $+1 ;// 22uS

decfsz _Ciclos,f ;// 23uS

goto Pulso ;// 25us

goto $+1 ;//2

salto decfsz _RETARDO,f ;// 3

goto salto ;// 4

ENDASM

RETURN '// Retorna programa Enviar_SIRC

'*******************************************************************************

'//////////////////////////////FIN PROTOCOLO SIRC///////////////////////////////

'-------------------------------------------------------------------------------

'//////////////////////////////PROTOCOLO RC5///////////////////////////////////

RC5:

DBYTE = (COMANDO[4]-48)*100 +(COMANDO[5]-48)*10+ COMANDO[6]-48

ABYTE = (COMANDO[1]-48)*100 +(COMANDO[2]-48)*10+ COMANDO[3]-48 +192

GOSUB ENVIAR_RC5

RETURN

'*******************************************************************************

'// Send Cabecera Pulsos + 13-bit data/address packet on keypress

ENVIAR_RC5:

'// Enviar 8 bits direccion mas cabecera

FOR Index = 7 TO 0 STEP-1

IF ABYTE.0[Index] = 0 THEN

Ciclos = Cero

CALL FREC36

ELSE

Ciclos = Uno

retardo1=ret

CALL FREC36b

ENDIF

NEXT Index

'// Enviar 6-bit de datos

FOR Index = 5 TO 0 STEP-1

IF DBYTE.0[Index] = 0 THEN

Ciclos = Cero

CALL FREC36

ELSE

Ciclos = Uno

retardo1=ret

CALL FREC36b

ENDIF

NEXT Index

PAUSE 25 '// 25mS delay entre paquetes

return

'*******************************************************************************

FREC36: ' GENERA FRECUENCIA DE 36KHZ APROX , BIT 0

ASM ;

FRE36 bsf PORTB, 7 ;// 1uS, LED=on [necesita 28uS total]

goto $+1 ;// 3uS (2uS por goto $+1)

goto $+1 ;// 5uS

goto $+1 ;// 7uS

goto $+1 ;// 9uS

goto $+1 ;// 11uS

goto $+1 ;// 13uS

bcf PORTB, 7 ;// 14uS, LED=off

goto $+1 ;// 16uS

goto $+1 ;// 18uS

goto $+1 ;// 20uS

goto $+1 ;// 22uS

goto $+1 ;// 24uS

NOP ;// 25US

decfsz _Ciclos,f ;// 27uS

goto FRE36 ;// 28us

ENDASM

PAUSEUS RETARDO

RETURN '// Retorna programa Enviar_RC5

'******************************************************************************

FREC36b:' GENERA FRECUENCIA DE 36KHZ APROX , BIT 1

ASM

salto1 goto $+1 ;// 2uS

decfsz _RETARDO1,f ;// 3us

goto salto1 ;// 5us

nop ;// 6us ;

FRE bsf PORTB, 7 ;// 1uS, LED=on [necesita 25uS total]

goto $+1 ;// 3uS (2uS por goto $+1)

goto $+1 ;// 5uS

goto $+1 ;// 7uS

goto $+1 ;// 9uS

goto $+1 ;// 11uS

goto $+1 ;// 13uS

bcf PORTB, 7 ;// 14uS, LED=off

goto $+1 ;// 16uS

goto $+1 ;// 18uS

goto $+1 ;// 20uS

goto $+1 ;// 22uS

NOP ;// 23uS

decfsz _Ciclos,f ;// 24uS

goto FRE ;// 26us

ENDASM

RETURN '// Retorna programa Enviar_RC5

'*******************************************************************************

'//////////////////////////////FIN PROTOCOLO RC5///////////////////////////////

'-------------------------------------------------------------------------------

ORDEN Y LIMPIEZA

noreply@blogger.com (FBZ) — Wed, 24 Oct 2012 06:14:00 -0700

Activando salida digital con una llamada - RING.

noreply@blogger.com (FBZ) — Wed, 8 Jun 2011 09:17:00 -0700

Este ejemplo muestra como activar salida digital PORTD.0 con una llamada.
Se utiliza el PIC16F877A y el MODEM ENFORA GSM1218, el modem de configurarse para que trabaje con un microcontrolador para lo cual se utiliza los siguientes comandos:
AT+IFC=0,0
AT+CNMI=1,2,0,0
AT+IPR=4800
ATE0
y para guardar la configuración se utiliza el comando AT&W.
Para poder configurar el Modem se utilza el software de comunicaciones Hyperterminal, la velocidad por defecto o de fabrica del modem es 105200 b/s. Una vez ingresado el comando AT+IPR=4800 se debe reconfigurar el Hyperterminal para que trabaje ha 4800 b/s y poder guardar la configuracion con comando AT&W.
En el Código que se muestra el PIC esta a la espera de recibir una llamada (RING). Si recibe 02 RING LED en el puerto D.0 se pone en ON y al 4 RING se pone en OFF.

Mas aplicaciones haz clic aquí

'******************************************************************

'* Name : GSM_CIDRING.BAS

'* Author : ING. FRANKLIN BARRA ZAPATA ,ING. OMAR BARRA ZAPATA

'* Date : 12/05/2011

'* : Activa y desactiva saldias digitales cuando

'* : Recibe llamada (RING) activa portd.0 CON RING

'* : DESACTIVA CON 4 RING

'******************************************************************

'Definiendo los pines para el LCD de 16x2

DEFINE LCD_DREG PORTD

DEFINE LCD_BITS 4

DEFINE LCD_DBIT 4

DEFINE LCD_RSREG PORTE

DEFINE LCD_RSBIT 1

DEFINE LCD_EREG PORTE

DEFINE LCD_EBIT 2

ADCON1 = %1001

R VAR BYTE

'****************************************************************

' Variables para MODEM

D0 var byte

D1 var byte

D2 VAR BYTE

'****************************************************************

' Mensaje Inicial en el LCD

LCDOut $fe, 1

LCDOut "Sist. GSM - RING"

LCDOut $fe,$C0," CIDT SCRL"

PAUSE 1000

R=0

'*****************************************************************

'Programa Principal

Inicio:

'Esperando recibir comando O RING

' SI NO RECIBE NADA EN 100 ms y SALTA HACIA LA ETIQUETA Inicio

SerIn2 portb.7,188,100,iNICIO,[wait("R"),D0,D1,D2] 'ESPERA RING

' Si recibo llamada

LCDOut $fe, 1

LCDOut " TIMBRANDO !!!"

LCDOut $fe,$C0,"R",D0,D1,D2 , "=", dec r 'VISUALIZA RING

PAUSE 500

'*****************************************************************

'Comando RING (cuando recibe una llamada o ring)

if d0= "I" then

IF R=2 THEN

HIGH PORTD.0

ENDIF

IF R=4 THEN

LOW PORTD.0

R=0

ENDIF

R=R+1

endif

GoTo Inicio

'******************************************************************

Mas aplicaciones haz clic aquí

Ebook: Aplicaciones GPS _GSM con Microcontroladores ATMEL

noreply@blogger.com (FBZ) — Sat, 4 Jun 2011 17:48:00 -0700

Ebook Técnico: $ 15.00

Comprar ahora con PAYPAL -PayLoadz

Si estas en el Perú compra en Mercado Libre Haz clic aquí

Comprar ahora con PAYPAL -PayLoadz

Si estas en el Perú compra en Mercado Libre Haz clic aquí

El Ebook contiene presentaciones en Pdf de aplicaciones GSM -GPS basadas en el Microcontrolador AT89C52 , los programas para el Microcontrolador ha sido desarrollados en BASCOM 8051. Los archivos de los programas PBP , asm y hex estan en este Archivo.rar,
Para las Aplicaciones GSM se ha Utilizado el Modem GSM Enfora 1218 con sus respectivos Comandos AT . Se utiliza SMS para activar desactivar salidas digitales, leer entradas analógicas activar o desactivar salidas con una llamada (RING) etc.
Para Las Aplicaciones GPS se ha utilizado el GPS SIRF con Antena Externa con su respectivo protocolo de comunicación Standar "NMEA". Se tiene aplicaciones para mostrar en un LCD la ubicación Latitud y Longitud así también Velocidad en KM/h.
El Archivo.rar también contiene programa en Visual Studio 2008 (V.BASIC) . Este programa se conecta con el GPS y se puede realizar rastreo de un Vehiculo, Se entrega código fuente para que lo puedas modificar a tu gusto.
También Se muestra ejemplos para simulacion usando el COMPIM de Proteus.
Los programas que encontraras en este archivo comprimido ha sido realizado en : BASCOM 8051, Visual Studio 2008 y Proteus 7.2.

Comprar ahora con PAYPAL -PayLoadz
Si estas en el Perú compra en Mercado Libre Haz clic aquí

ATmega 32 BASCOM AVR LEER GPS SIRF

noreply@blogger.com (FBZ) — Thu, 26 May 2011 23:16:00 -0700

VIZUALIZAR EN LCD LA UBICACION LATITUD Y LONGITUD

USANDO ATMEGA32 Y BASCOM AVR

Descarga los códigos de programas ahora
ver mas..

Descarga los códigos de programas ahora

VIZUALIZAR EN LCD LA UBICACION LATITUD, LONGITUD Y VELOCIDAD

USANDO ATMEGA32 Y BASCOM AVR

Descarga los códigos de programas ahora
Ver mas..

Descarga los códigos de programas ahora

EBOOK: APLICACIONES GPS - GSM CON MICROCONTROLADORES PIC16F877A

noreply@blogger.com (FBZ) — Mon, 23 May 2011 10:05:00 -0700

Ebook Técnico: $ 15.00
APLICACIONES GPS - GSM CON MICROCONTROLADORES PIC16F877A
Compra ahora usando PAYPAL - PayLoadz
Si estas en el Perú compra en Mercado Libre Haz clic aquí

ver mas..

PAYPAL_PAYLOADZ

Si estas en el Perú compra en Mercado Libre Haz clic aquí

El ebook contiene presentaciones en Pdf de aplicaciones GSM -GPS basadas en el Microcontrolador PIC 16F877A , los programas para el microcontrolador ha sido desarrollados en PIC Basic Procompiler. Los archivos de los programas PBP , asm y hex estan en este Archivo.rar,
Para las Aplicaciones GSM se ha Utilizado el Modem GSM Enfora 1218 con sus respectivos Comandos AT . Se utiliza SMS para activar desactivar salidas digitales, leer entradas analógicas activar o desactivar salidas con una llamada (RING) etc.
Para Las Aplicaciones GPS se ha utilizado el GPS SIRF con Antena Externa con su respectivo protocolo de comunicación Standar "NMEA". Se tiene aplicaciones para mostrar en un LCD la ubicación Latitud y Longitud así también Velocidad en KM/h.
También hay 03 Aplicaciones PIC_GSM_GPS el cual mediante SMS se detecta la ubicaión y velocidad del móvil.
El Archivo.rar también contiene programa en Visual Studio 2008 (V.BASIC) . Este programa se conecta con el GPS y se puede realizar rastreo de un Vehiculo, Se entrega código fuente para que lo puedas modificar a tu gusto.
También Se muestra ejemplos para simulacion usando el COMPIM de Proteus.
Los programas que encontraras en este archivo comprimido ha sido realizado en : PIC BASIC PRO 2.47, Visual Studio 2008 y Proteus 7.2 Compra ahora usando PAYPAL - PayLoadz

Si estas en el Perú compra en Mercado Libre Haz clic aquí

PAYPAL_PAYLOADZ

PERU

LEER GPS SIRF ONLINE Y MOSTRA UBICACION Y VELOCIDAD - VISUAL STUDIO 2008

noreply@blogger.com (FBZ) — Thu, 19 May 2011 22:48:00 -0700

SSGMAP V1.0
Caracteristicas:

Programa desarrollado en Visual Studio 2008 - Se entrega código fuente para que lo mejoren o realicen modificaciones que estimen convenientes.
Se comunica por puerto Serial-USB a 4880 b/s con GPS SIRF.
Recibe las cadenas de datos enviados por el GPS SIRF en formato standar NMEA ($GPRMC), por el puerto serial (COM).
Se puede seleccionar el puerto serial que esta utilizando el GPS para comunicarse con la computadora.
Se Visualiza en cajas de Texto la Latitud, Longitud y Velocidad en Km/h, (máxima velocidad 190 Km/h).Para mas velocidad se tiene que modificar rutinas.
Lee los datos recibidos del GPS cada 0.5 segundos y llama automáticamente al Google Maps para visualizar mapa de la Ubicación cada 20 segundos estos tiempos se puede modificar en el código.
Este software tiene la posibilidad de ingresar datos de dirección, ciudad, latittud y longitud y ubicar en el Google Maps.

Todos los archivos de Visual y Proteus lo puedes descargar solo enviando un SMS haz clic aquí.

El GPS utilizado para realizar este software es el PMB-688 GPS Module con antena interna y externa, Este pequeño GPS lo pueden Adquirir en www.parrallax.com

Se muestra el Circuito a implementar para que el GPS se comunique con a Computadora

Todos los archivos de Visual y Proteus lo puedes descargar solo enviando un SMS haz clic aqui.

Se demuestra el funcionamiento de la comunicación PC-GPS

Todos los archivos de Visual y Proteus lo puedes descargar solo enviando un SMS haz clic aquí.

También se realizado una Simulación mediante el Uso del COMPIM de Proteus

Todos los archivos de Visual y Proteus lo puedes descargar solo enviando un SMS haz clic aquí.

Todos los archivos de Visual y Proteus lo puedes descargar solo enviando un SMShaz clic aquí.

LEER GPS SIRF -VISUALIZAR EN LCD LA UBICACION

noreply@blogger.com (FBZ) — Tue, 17 May 2011 21:41:00 -0700

LEER GPS SIRF -VISUALIZAR EN LCD LA UBICACION-SIMULACION CON EL COMPIM

OBTENER CODIGO DE ACCESO PARA LA DESCARGA

Se presenta un pequeño pero muy útil sistema basado en el GPS SIRF ( PMB-688 GPS MODULE)(www.parallax.com) y el PIC16F877A. este Sistema muestra en un LCD la Ubicación Latitud y Longitud en grados minutos y segundos. Para la Simulación se usa el COMPIM de Proteus.

OBTENER CODIGO DE ACCESO PARA LA DESCARGA

El codigo de programa ha sido realizado en PICBASIC PROCOMPILER el cual se encuentra en el archivo que se adjunta. El Archivo que se adjunta contiene Documento PDF con la descripción completa del sistema, Programas realizados usando el PICBASIC PROCOMPILER: GPS_CIDT1.PBP y GPS_CIDT.HEX .

También tiene el archivo con el diagrama circuital hecho en Proteus.

OBTENER CODIGO DE ACCESO PARA LA DESCARGA

MICROCHIP : MOTORES DC - CAMBIO DE GIRO - CONTROL DE VELOCIDAD - VISUAL BASIC

noreply@blogger.com (FBZ) — Sun, 13 Feb 2011 22:49:00 -0800

Visualizar PDF: motoresdc_pic.pdf
Descargar PDF: motoresdc_pic.pdf

MICROCHIP : INALAMBRICOS RF - IR

noreply@blogger.com (FBZ) — Sat, 12 Feb 2011 21:43:00 -0800

Visualizar pdf : inalambricos.pdf
Descargar pdf : Inalambricos.pdf

MICROCHIP : MEMORIA SERIALES

noreply@blogger.com (FBZ) — Thu, 10 Feb 2011 22:23:00 -0800

Visualizar archivo pdf: : Memoria.pdf

Descargar archivo pdf: Memoria.pdf

MICROCHIP : VISUALIZACION DE DATOS CON LCD

noreply@blogger.com (FBZ) — Thu, 10 Feb 2011 21:43:00 -0800

Visualizar archivo : lcd_pic.pdf
Descargar archivo: lcd_pic.pdf

MICROCHIP : CONVERSORES DAC - COMUNICACION SERIAL CON VISUAL BASIC

noreply@blogger.com (FBZ) — Wed, 9 Feb 2011 22:08:00 -0800

Visualizar Pdf: dac_pic2.pdf
Descargar pdf: dac_pic2.pdf

MICROCHIP : CONVERSOR D/A Y POTENCIOMETRO DIGITAL DS1867

noreply@blogger.com (FBZ) — Wed, 9 Feb 2011 09:35:00 -0800

VISUALIZAR PDF: CAPITULO8.PDF
DESCARGAR PDF: CAPITULO8.PDF

Visualizar Pdf: dac_pic1.pdf
Descargar Pdf: dac_pic1.pdf

Visualizar PDF : DS1867_PIC.PDF
Descargar Archivo : DS1867_PIC.PDF

MICROCHIP : Solución Primer Examen - Verano 2011

noreply@blogger.com (FBZ) — Wed, 26 Jan 2011 23:01:00 -0800

Bajar Archivos : Prob1

VIDEO PROB.1

Bajar Archivos : Prob2

VIDEO PROB.2

MICROCHIP : Manejo de Entradas Digitales (Comunicación RS232 Visual Basic y Proteus)

noreply@blogger.com (FBZ) — Sun, 16 Jan 2011 21:57:00 -0800

Descargar Archivos de VISUAL BASIC; PROTEUS y PBP : VBPIC4

Descargar Archivos de VISUAL BASIC; PROTEUS y PBP : VBPIC5

Descargar Archivos de VISUAL BASIC; PROTEUS y PBP : VBPIC6

Descargar Archivos de VISUAL BASIC; PROTEUS y PBP : VBPIC7

Descargar Archivos de VISUAL BASIC; PROTEUS y PBP : VBPIC8

MICROCHIP : Manejo de Salidas Digitales (Comunicación RS232 Visual Basic y Proteus)

noreply@blogger.com (FBZ) — Sat, 15 Jan 2011 06:58:00 -0800

Descargar Archivos de VISUAL BASIC; PROTEUS y PBP : VBPIC1

Descargar Archivos de VISUAL BASIC; PROTEUS y PBP : VBPIC2

Descargar Archivos de VISUAL BASIC; PROTEUS y PBP : VBPIC3

MICROCHIP : CAPITULO 1,2 Y 3

noreply@blogger.com (FBZ) — Sun, 24 May 2009 09:11:00 -0700

CAPITULO 1

Ver y descargar archivo en formato pdf: Capitulo1.pdf

CAPITULO 2

Ver y descargr archivo formato pdf: Capitulo2.pdf

CAPITULO 3

Ver y descargar archivo en formato pdf: Capitulo3.pdf

MICROCHIP : CAPITULO 4,5 Y 6

noreply@blogger.com (FBZ) — Sat, 23 May 2009 23:59:00 -0700

CAPITULO 4

Ver y descargar archivo en formato pdf: Capitulo4.pdf

CAPITULO 5

Ver y descargar archivo en formato pdf:Capitulo5.pdf

CAPITULO 6

Ver y descargar archivo en formato pdf: Capitulo6.pdf