TODOPIC
Microcontroladores PIC => Lenguaje Basic para microcontroladores PIC => Mensaje iniciado por: flaminco en 02 de Febrero de 2014, 17:24:05
-
Muy buenas .
En su dia estube con ustedes ,la verdad es que no aporte mucho ,quisiera empezar de nuevo
aportando este proyecto ,a falta de depurar lo .
La idea es de una alarma de una sola entrada que con el tiempo ampliaremos conectada a un modulo gsm siemens tc35.
las pruevas el Proteus van bien en mi ordenador.
Se lo he pasado a un compañero que
fue el quien inicio el proyecto ,me comenta que el hiperterminal le dice tonterias ,
por que el TC 35 lo podemos simular como el hiperterminal ?
-
los archiovos.
Como envio el esquema del proteus?+
-
Los siento el hex. parece que da un error al descargar .
-
program gsm
' Declarations section
symbol led = PORTC.0 ' pues eso conexion del led al portc.0
dim i as byte
dim txt1 as char[36]
dim txt2 as char[15]
sub procedure lf_cr() ' Pues eso nueva linea y retorno de carro
UART1_Write(10) ' Line Feed
UART1_Write(13) ' Carriage Return
end sub
sub procedure configuracion() 'Configuracion del 16f876 y variables
adcon0 = %00000000
adcon1 = %00000110
trisa = %11111111
trisb = %11101101
trisc = %10111110
led = 1 ' Led encendido
Delay_ms(500)
led = 0 ' Led apagado
' Configuracion interrupciones
GIE_bit = 0 ' Interrupciones GLOBALES
PEIE_bit = 0 ' Interrupciones de PERIFERICOS
RCIE_bit = 0 ' Interrupcion Recepcion USART
UART1_Init(9600) ' Inicializacion USART
Delay_ms(250)
lf_cr()
Delay_ms(250)
end sub
main:
' Main program
configuracion()
UART1_Write_Text("AT+CMGF=1")
Delay_ms(1000)
lf_cr()
UART1_Write_Text("AT+CMGS=000000000")
Delay_ms(1000)
lf_cr()
UART1_Write_Text("ALARMA")
Delay_ms(1000)
UART1_Write(26) ' esto creo que es control Z
while true
led = 1 ' Led
Delay_ms(100)
led = 0 ' Led
Delay_ms(250)
wend
end.
Quisira publicar el esquema en proteus lo puedo deja en una pagina de descargas
-
Parte del esquema