Bueno, el hecho de que sea un programa comercial no es para que no puedas publicar únicamente lo solicitado.
Pero viendo que se te complica, para mí no es ningún inconveniente subir un ejemplo.
Esto es con el fin de que le pueda servir a varias personas.
No hay dificultad alguna para lograr que un microcontrolador funcione correctamente, todo está en la hoja de datos.
PD: En este Foro he publicado cientos de ejemplos que usan partes de mis programas comerciales.
El problema es precisamente ese: vos queres proteger tu esfuerzo a costa del esfuerzo "gratuito" de quienes colaboran en el foro. Te parece correcto???
Vos fuiste quien se quejó de la situacion. A mi me importa tres pepinos...directamente no colaboro si la consulta se trata de un producto comercial.
Entonces para que creas el tema y posteas una consulta???
Si no le importa entonces para que se mete.
Para que el que quiera y por su propia voluntad responda.
Por que no violo ninguna regla y por que me gusta armar despelote exponiendo a los "vivos" del foro. Está mal???
Aaaahhhhhh.....y por eso no decis nada de lo "comercial" ni mostras nada del problema y los que quieren colaborar tienen que adivinar ??
Yo vivo y usted loco ... ahhhh!!
No busque que fuera comercial, solo lo instale en mi carro y luego a otros le gustaron... y si puedo ganar dinero pues no tiene nada de malo.
Hola D@rkbytes,
Si lo hago yo, no vas a aprender, pero si lees la hoja de datos, sí que lo harás.
Hola,
Device = 18F4520
Xtal = 4
All_Digital = true
Declare Hserial_Baud = 9600
Declare Hserial_RCSTA = %10010000
Declare Hserial_TXSTA = %00100100
Declare Hserial_Clear = On
Declare LCD_Type = 0
Declare LCD_DTPin PORTB.0
Declare LCD_RSPin PORTB.4
Declare LCD_ENPin PORTB.5
Declare LCD_Lines 2
Declare LCD_Interface 4
TRISB = 0
Dim latitud As String *8
Dim longitud As String *9
Dim valido As String *1
Cls
DelayMS 10
inicio:
Cls
DelayMS 100
Print At 1,1," buscado"
Print At 2,1," satelite"
HSerIn [Wait( "$GPGGA" ),skip 37 ,Str valido]
If Val(valido,Dec)<>1 Then GoTo inicio
programa:
DelayMS 100
'Espera hasta Recibir $GPGGA lo que venga detras es guardado en las variables: latitud,longitud
HSerIn [Wait( "$GPGGA" ),skip 12 ,Str latitud,skip 3 ,Str longitud]
Print At 1,1,Str latitud," Latitud"
Print At 2,1,Str longitud," Longitud"
DelayMS 100
GoTo programaDevice = 18F2550
Xtal 4
Config_Start
PLLDIV = 1 ;No prescale (4 MHz oscillator input drives PLL directly)
CPUDIV = OSC4_PLL6 ;[Primary Oscillator Src: /1][96 MHz PLL Src: /2]
USBDIV = 1 ;USB clock source comes directly from the primary oscillator block with no postscale
FOSC = XT_XT ;HS oscillator (HS)
FCMEN = OFF ;Fail-Safe Clock Monitor disabled
IESO = OFF ;Oscillator Switchover mode disabled
PWRT = OFF ;PWRT disabled
BOR = OFF ;Brown-out Reset disabled in hardware and software
VREGEN = OFF ;USB voltage regulator disabled
WDT = OFF ;WDT disabled (control is placed on the SWDTEN bit)
PBADEN = OFF ;PORTB<4:0> pins are configured as digital I/O on Reset
LPT1OSC = OFF ;Timer1 configured for higher power operation
MCLRE = OFF ;RE3 input pin enabled; MCLR pin disabled
STVREN = OFF ;Stack full/underflow will not cause Reset
LVP = OFF ;Single-Supply ICSP disabled
XINST = OFF ;Instruction set extension and Indexed Addressing mode disabled (Legacy mode)
Debug = OFF ;Background debugger disabled, RB6 and RB7 configured as general purpose I/O pins
Config_End
All_Digital = true
Declare Hserial_Baud = 9600
Declare Hserial_RCSTA = PORTC.7
Declare Hserial_TXSTA = PORTC.6
Declare Hserial_Clear = On
Declare LCD_Type = 0
Declare LCD_DTPin PORTB.0
Declare LCD_RSPin PORTB.4
Declare LCD_ENPin PORTB.5
Declare LCD_Lines 2
Declare LCD_Interface 4
TRISB = 0
'trisc = 1
Dim latitud As String *8
Dim longitud As String *9
Dim valido As String *1
Cls
DelayMS 100
inicio:
Cls
DelayMS 500
Print At 1,1," buscado"
Print At 2,1," satelite"
HSerIn [Wait( "$GPGGA" ),skip 37 ,Str valido]
If Val(valido,Dec)<>1 Then GoTo inicio
programa:
DelayMS 500
'Espera hasta Recibir $GPGGA lo que venga detras es guardado en las variables: latitud,longitud
HSerIn [Wait( "$GPGGA" ),skip 12 ,Str latitud,skip 3 ,Str longitud]
Print At 1,1,Str latitud," Latitud"
Print At 2,1,Str longitud," Longitud"
DelayMS 500
GoTo programaEl PIC18F2550 es idéntico en hardware al PIC18F4550, solo que no tiene el puerto D ni el E y tampoco SPP, pero no lo estás usando.
Sí, efectivamente verifique eso porque probé y realmente en la simulación no funciona la comunicación por el puerto serie( para poder colaborar).
HSerIn [Wait( "$GPGGA" ),skip 37 ,Str valido]
