Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature currently requires accessing the site using the built-in Safari browser.
Hola Ricbevi,Yo lo colocaría el llamado al censado de temperatura dentro de la rutina " Frecuencia_set: " ya que es la que esta activa la mayor parte del tiempo.
Por esa causa (si se esta haciendo otra cosa/rutina) y resulta que hay que actuar por la temperatura, no esta disponible la acción.
Tendría que involucrar el uso de interrupciones o agilizar el programa para que el tiempo de respuesta se minimice ante una eventual falla por exceso de temperatura.
@Americo8888
Sí, se puede hacer un montón de cosas con las placas que ya viene armadas el tema que aquí con convoca es ajustado de algunos detalles del software de Hüseyin GÜNER en Basic del control de la placa con el PLL TSA5511 en el esquema Veronica con el uso del PIC 16F628A.
Con es PIC también se puede medir la temperatura pese a que no tienen ADC ya que se puede implementar con el uso de un sensor 1-Wire tipo DS18B20.
Jogyweb,Hoa, hice las modificaciones, pero sigo con un detalle al no poder cambiar de frecuencia. Si pude probar la función de encender y apagar la pantalla utilizando los botones de subir y bajar frecuencia, también me respondió el botón de set para cambiar al estado de cambiar frecuencia, pero ahí es donde queda un poco pegado.
Saludos.
:100000000000000000005C29A101A117B200FE3031
:10001000EC203208EC28A01126080319A0150530A1
:10002000A5002730AC00103021200330AC00E830B0
:100030002120AC0164302120AC010A3021202D08A0
:100040002828AB002E08AA002D08A900262129087F
:10005000A900A5030319A0112608031932282502B7
:10006000031839282908031DA011A0193928303E8A
:10007000EC280800B00085110612831685110612BF
:10008000F030860583123008A01864283E30AA009C
:10009000803012213330AF0079201330AA0088302D
:1000A000122179206430112179206430112122300D
:1000B000AF007920283063200C30632006306320A5
:1000C000A014300864282014AF00201C72280612E7
:1000D000033C031C772877200730AA00D030122178
:1000E000031408002014FE3C031986280616AF0EE0
:1000F000201C20108515F03086052F080F39860446
:100100008511AF0E20187928323011213008582976
:100110002016201E2012A01A9128A016CA2003180B
:10012000B8280830AC00DE20AB0DAC0B9328201EA5
:10013000C320E820E420201AB820BD202B0803109B
:1001400058292016201E2012201BAB28FE39A8009B
:10015000201703105829A01BB328AF00A017CA20EE
:100160000318B8282F08D1200318B828201E5829B2
:10017000C320E8202013A013A0122208840027081F
:1001800084178004C9282208840027098005841761
:1001900080050800BD20E820C320E4202808A01A1C
:1001A0000138AB000830AC00AB0D0318BD20031CB8
:1001B000C320E820E420AC0BD428BD20E82022088E
:1001C000840027080005FF3E230884002409C62870
:1001D000230884002408C028A11B3A28080083169D
:1001E0009A001C1555309D00AA309D009C149C1847
:1001F000F7281C119B0A582983169B0083169C0123
:100200001C141A089B0A5829AC01AB00FF30AB073D
:10021000031CAC07031C58290330AA00DF3012214D
:100220000629AA01E83EA900AA09FC30031C1B29E3
:10023000A90703181829A9070000AA0F18292918C7
:100240002129A91C2529000025290800AE01AD019E
:100250001030AF002A0DAD0DAE0D2B08AD022C08ED
:10026000031C2C0FAE0203183C292B08AD072C08E9
:1002700003182C0FAE070310A90DAA0DAF0B2A29E6
:10028000290808001030B300AA01A901B00CAF0C76
:10029000031C50292B08A9072C0803182C0FAA07A8
:1002A000AA0CA90CAE0CAD0CB30B46292D08080006
:1002B000831383120313080083120313A001073072
:1002C0009F0007309F00850186010030FC20B600AA
:1002D000033036020318642AB60A83169B01831280
:1002E0003608EF200330AC00483005218316051195
:1002F000831205158030A100042046303A206F306B
:100300003A2072303A206F303A2073303A20203051
:100310003A2044303A2065303A2020303A204530A7
:100320003A206C303A2065303A2063303A207430FD
:100330003A2072303A206F303A206E303A206930DD
:100340003A208030A100C130042043303A204130AF
:100350003A2020303A2050303A204C303A203A208F
:1003600020303A2052303A2044303A2056303A2059
:100370003A2020303A203A203A203A200130AC008E
:100380002C3005210230FC20B700FE20B8000830D8
:100390003802031CD729031DD12971303702031CF1
:1003A000D729831203130830B8001030B70037087C
:1003B0003804031DB62A831203133808B500370822
:1003C000B4003508B0003408AF00AC010A30AB000F
:1003D0004221B4002E08B5000310B50CB40C35084A
:1003E000AA003408A900AC016430AB0026212E0815
:1003F000BA002D08B9003808B5003708B400350830
:10040000B0003408AF00AC010A30AB004221B400A8
:100410002E08B5000310B50CB40C3508AA0034083A
:10042000A900AC016430AB002621BB002A08BC0047
:100430002330AC00283005218030A1000420543046
:100440003A2065303A2073303A2074303A20203018
:100450003A208030A100C030042046303A2072306B
:100460003A2065303A2071303A2020303A208030EE
:10047000A100C6300420A6013B08AD003C08AE0038
:100480000B202C303A200230A6003908AD003A0883
:10049000AE000B2020303A204D303A2068303A2010
:1004A0007A303A2020303A203A203A203A203A2036
:1004B0003A203A203A203A203A203A203A20033093
:1004C000AC0048300521692A1F2C2130AC00663071
:1004D0000521861A862A861B9A2A061BAA2A37080D
:1004E000BD003808BE000530A2000230A70005306C
:1004F000A3000130A400C230A3203E08A3203D0881
:10050000A3208E30A3201030A120DB29B70A0319C5
:10051000B80A08303802031C992A031D932A713047
:100520003702031C992A831203130630B800D63011
:10053000B700DB29B703370A0319B80306303802BE
:10054000D630031937020318A92A0830B8007030D2
:10055000B700DB29831602309B0083123708EF2097
:100560003808EF201430AC00E63005213808B5001B
:100570003708B4003508B0003408AF00AC010A30C9
:10058000AB004221B4002E08B5000310B50CB40C2A
:100590003508AA003408A900AC016430AB0026215C
:1005A0002E08BA002D08B9003808B5003708B40085
:1005B0003508B0003408AF00AC010A30AB0042216E
:1005C000B4002E08B5000310B50CB40C3508AA0011
:1005D0003408A900AC016430AB002621BB002A0816
:1005E000BC008030A100042055303A206E303A2003
:1005F0006C303A206F303A2063303A206B303A202A
:1006000020303A208030A100C030042046303A200B
:1006100072303A2065303A2071303A203A303A2030
:1006200020303A208030A100C6300420A6013B08CB
:10063000AD003C08AE000B202C303A200230A60062
:100640003908AD003A08AE000B2020303A204D307A
:100650003A2068303A207A303A2020303A203A2046
:100660003A203A203A203A203A203A203A203A20BA
:100670003A203A203708BD003808BE000530A200F5
:100680000230A7000530A3000130A400C230A3202F
:100690003E08A3203D08A3208E30A3200030A120D7
:1006A0001430AC00E6300521061BDB290530A20022
:1006B0000230A7000530A3000130A400C230A320FF
:1006C0008A20C0008820BF003F1B672BB62A053058
:1006D000A2000230A7000530A3000130A400C23000
:1006E000A3203E08A3203D08A3208E30A320243061
:1006F000A1203808B5003708B4003508B000340828
:10070000AF00AC010A30AB004221B4002E08B500A6
:100710000310B50CB40C3508AA003408A900AC01CC
:100720006430AB0026212E08BA002D08B900380825
:10073000B5003708B4003508B0003408AF00AC018C
:100740000A30AB004221B4002E08B5000310B50CEE
:10075000B40C3508AA003408A900AC016430AB0021
:100760002621BB002A08BC008030A10004204630AE
:100770003A204D303A2020303A204C303A206F3029
:100780003A2063303A206B303A2020303A203A2029
:100790003A203A203A203A203A203A203A20803033
:1007A000A100C030042046303A2072303A20653033
:1007B0003A2071303A2020303A203A303A20203026
:1007C0003A208030A100C6300420A6013B08AD00CD
:1007D0003C08AE000B202C303A200230A60039082D
:1007E000AD003A08AE000B2020303A204D303A20C0
:1007F00068303A207A303A2020303A203A203A20A5
:100800003A203A203A203A203A203A203A203A2018
:100810003A2096300421861A192C861B142C061BAC
:10082000DB2996300421092C831605118312051546
:10083000092C8316051183120511092C1E2C8030FA
:10084000A100042046303A206F303A2072303A201E
:100850006F303A2073303A2020303A2044303A202A
:1008600065303A2020303A2045303A206C303A202A
:1008700065303A2063303A2074303A2072303A20A2
:100880006F303A208030A100C03004202B303A2055
:100890007B303A205D303A205B303A203B303A20C2
:1008A0006C303A202D303A203D303A202E303A201C
:1008B0002C303A205C303A205B303A2060303A20CD
:1008C00079303A2069303A202C303A200530AC009B
:1008D000DC3005218030A100042020303A203A206D
:1008E0003A203A203A203A203A203A203A203A2038
:1008F0003A203A203A203A203A203A200F30042178
:100900008030A1008130042020303A204A303A2043
:100910006F303A2067303A2079303A2077303A20E9
:1009200065303A2062303A202D303A2052303A2059
:1009300044303A2056303A203A2020303A203A20AB
:100940000530AC00DC3005218030A10004202030CF
:100950003A203A203A203A203A203A203A203A20C7
:100960003A203A203A203A203A203A203A203A20B7
:040970001F2CB92C53
:02400E00193F58
:00000001FF
Hola estimado, hice las pruebas de encender y apagar mas de 10 veces pero no habia cambio. seguia pantalla sin iluminación y caracteres extraños que no dicen nada.Una vez que grabe en su PIC16F628A, intente en funcionamiento real y luego encienda y apague la fuente de alimentación 5 veces.
Hello Jogyaweb,Hello dear, I did the tests of turning on and off more than 10 times but there was no change. The screen was still without lighting and strange characters that did not say anything.
[MEDIA = youtube] ShwuvAnAHdI [/ MEDIA]
Hola Jogyaweb,Hello Jogyaweb,
Sorry, can you try this hex file? Turn it on and off about 5-6 times.
Hope my test code works now,
I don't really have the board ready for the FM PLL transmitter.
.
. Thanks,
.RockIN
'****************************************************************
'* Author : [Hüseyin GÜNER - ViProje] *
'* Notice : Copyright (c) 2010 *
'* Date : 06.05.2010 *
'* Version : 2.0 *
'* Reformas de salto de 200KHz, canales en numeros impares *
'* cambio de la "," por el "." en separacion, arranque 99.9MHz *
'* ordenamiento y limpieza de frases a mostrar en el display... *
'* By:RicBevi en https://www.forosdeelectronica.com 09.04.2021 *
'*****************************************************************
Device = 16F628A 'PIC Usado
'----------Fusibles de configuracion usados-----------------------------
Config INTRC_OSC_CLKOUT, MCLRE_OFF, LVP_OFF, WDT_OFF, PWRTE_OFF, CP_OFF, BODEN_OFF, CPD_OFF
'-----------------------Declaraciones--------------------------------------
Declare Xtal 4 ' Se declara la velocidad del cristal/reloj interno
Declare Bus_SCL On '
All_Digital = true ' Todas las entradas son digitales
CMCON = 7 ' se apagan los compardores analogicos
'---------------------------LCD--------------------------------
Declare LCD_DTPin = PORTB.0 ' Pin de datos de 4 bit a partir de PortB.0 hasta PortB.3
Declare LCD_RSPin = PORTB.4 ' Pint de RS en PortB.4
Declare LCD_ENPin = PORTA.3 ' Pin de Enable en PortA.3
Declare LCD_Interface = 4 ' 4-bit Interface
Declare LCD_Lines = 2 ' Display de dos lineas
Declare LCD_Type = 0 ' Tipo alfanumerico
'-----------------------Dimensionamiento de las variables----------------------------
Dim Frec_Paso As Word 'Paso de la Frecuencia
Dim Frec_Decimal As Word 'Parte decimal de laFrecuencia
Dim Frec_Entero As Word 'Parte entera de la Frecuencia
Dim Frecuencia As Word 'Frecuencia
Dim F_Control As Word 'Palabra de Control
Dim LO As Frecuencia.LowByte 'Parte baja de la frecuencia
Dim HI As Frecuencia.HighByte 'Parte alta de la frecuencia
'--------------------------Symbolos------------------------------
Symbol SDA = PORTA.1 'I2C' PORTA.1 señal de SDA
Symbol SCL = PORTA.0 'I2C' PORTA.0 señal de SCL
Symbol LED = PORTA.2 'LED PORTA.2
PORTA = 0 : PORTB = 0 'PORTA, PORTB limpio
'------------------------Mensaje de comienzo--------------------------
High LED ' Enciendo la iluminacion del display
Print At 1,1, " FM TRANSMITTER " ' Mensajes de comienzo
Print At 2,1, " Rdvv ViProje " ' idem
DelayMS 2000 ' Espero 2seg para que se muestre
Print At 1,11, "." ' Imprimo el punto de la separacion entre digital y decimal de la frecuencia
Print At 1,14,"MHz " ' Muestro MHz en las tres ultimas posiciones del display
Print At 2,7, "8Watt PLL" ' Actualizo la informacion de la segunda linea, solo lo que cambia
Frec_Paso = ERead 02 'Se recupera valor de la Frecuencia almacenada en la EEPROM
If Frec_Paso > 2160 Or Frec_Paso < 1750 Then Frec_Paso = 1998 ' Si esta fuera de 107.9 a 87.5 se la asigna 99.9
GoTo Muestro ' Voy a mostrar la informacion
'----------------------Cambio de Frecuencia-------------------------
Cambiar_Frec:
Print At 1,1, "FRE SET " ' Se mustra mensaje que habilita el cambio de frecuencia
Actual: GoSub Calculo ' voy a la rutina de Calculo y muestreo de la informacion
Do ' lazo de espera a accion de subir, bajar o almacenar
DelayMS 200
If PORTB.5=1 Then Subir_Frecuencia
If PORTB.7=1 Then Bajar_Frecuencia
If PORTB.6=1 Then Guardar_Frecuencia
Loop
Subir_Frecuencia: '--------Rutina de subir frecuencia---------------
Frec_Paso = Frec_Paso + 4 'Subo 200KHz
If Frec_Paso > 2158 Then Frec_Paso = 1750 'Si esta fuera de 10800 le asigno 87.5
GoTo Actual
Bajar_Frecuencia:'-----Rutina de bajar frecuencia------------------
Frec_Paso = Frec_Paso - 4 'bajo 200KHz
If Frec_Paso < 1750 Then Frec_Paso = 2158 'Si esta mas abajo de 87.5 le asigno 107.9
GoTo Actual
'--------------------------Almacenamiento en la EEPROM---------------------------
Guardar_Frecuencia:
EWrite 02 ,[Frec_Paso] 'Almaceno la frecuencia en forma de pasos en la menoria EEPROM
DelayMS 50
'----------------------- Comunicacion con el TSA5511 --------------------------
Muestro:
Print At 1,1, "UnLock "
Frecuencia = Frec_Paso ' Frecuencia tiene el valor almacenado en Frec_Paso
GoSub Calculo ' Voy a calcular y mostrar informacion
I2COut SDA,SCL,$C2, [HI,LO,$8E,$00] ' Se lo cargo al PLL
DelayMS 150
'----------------------Control de Enclabamiento----------------------
If PORTB.6 = 1 Then Cambiar_Frec ' Si el boton de almacenar esta en alto voy a Cambiar_Frec
I2CIn SDA,SCL,$C2,[F_Control] ' Recibo el estado de PLL y lo almaceno en F_Control
If F_Control.6 = 1 Then Enclabado ' si el bit 6 de la F_Control esta a 1 es porque el PLL engancho
GoTo Muestro ' Voy a mostrar la intformacion
Enclabado: '------Rutina de aviso/accion de enclavado exitoso del PLL---------------
I2COut SDA,SCL,$C2, [HI,LO,$8E,$24]
Print At 1,1, " Lock " '
GoSub Calculo ' Voy a calcular los valores y mostrarlos en el display
Do '----- Habilito la accion de apagar o no el background del display si el PLL engancho------------------------
DelayMS 200
If PORTB.5 = 1 Then Low LED ' Se apaga
If PORTB.7 = 1 Then High LED ' Se enciende
If PORTB.6 = 1 Then Cambiar_Frec ' Sale para la rutina de Modificcion de la fecuencia
Loop
Calculo: '------------------Calculo y mustreo de cifras-------------------------
Frec_Entero = (Frec_Paso * 5)//100 ' parte decimal
Frec_Decimal = (Frec_Paso >> 1)/10 ' parte entera
If Frec_Decimal > 99 Then ' si la parte entera es mayor a 99
Print At 1,8,Dec Frec_Decimal ' imprimo desde la posicion 8 del dispaly
Else
Print At 1,8, " ",Dec Frec_Decimal ' si es menor a 100 imprimo un espacio vacio y luego la cifra de dos digitos
EndIf
Print At 1,12, Dec Frec_Entero ' imprimo la parte digital
Frecuencia = Frec_Paso
I2COut SDA,SCL,$C2, [HI,LO,$8E,$10]
Return
End ' Fin del programa
:100000000000000000005C29A101A117B200FE3031
:10001000EC203208EC28A01126080319A0150530A1
:10002000A5002730AC00103021200330AC00E830B0
:100030002120AC0164302120AC010A3021202D08A0
:100040002828AB002E08AA002D08A900262129087F
:10005000A900A5030319A0112608031932282502B7
:10006000031839282908031DA011A0193928303E8A
:10007000EC280800B00085110612831685110612BF
:10008000F030860583123008A01864283E30AA009C
:10009000803012213330AF0079201330AA0088302D
:1000A000122179206430112179206430112122300D
:1000B000AF007920283063200C30632006306320A5
:1000C000A014300864282014AF00201C72280612E7
:1000D000033C031C772877200730AA00D030122178
:1000E000031408002014FE3C031986280616AF0EE0
:1000F000201C20108515F03086052F080F39860446
:100100008511AF0E20187928323011213008582976
:100110002016201E2012A01A9128A016CA2003180B
:10012000B8280830AC00DE20AB0DAC0B9328201EA5
:10013000C320E820E420201AB820BD202B0803109B
:1001400058292016201E2012201BAB28FE39A8009B
:10015000201703105829A01BB328AF00A017CA20EE
:100160000318B8282F08D1200318B828201E5829B2
:10017000C320E8202013A013A0122208840027081F
:1001800084178004C9282208840027098005841761
:1001900080050800BD20E820C320E4202808A01A1C
:1001A0000138AB000830AC00AB0D0318BD20031CB8
:1001B000C320E820E420AC0BD428BD20E82022088E
:1001C000840027080005FF3E230884002409C62870
:1001D000230884002408C028A11B3A28080083169D
:1001E0009A001C1555309D00AA309D009C149C1847
:1001F000F7281C119B0A582983169B0083169C0123
:100200001C141A089B0A5829AC01AB00FF30AB073D
:10021000031CAC07031C58290330AA00DF3012214D
:100220000629AA01E83EA900AA09FC30031C1B29E3
:10023000A90703181829A9070000AA0F18292918C7
:100240002129A91C2529000025290800AE01AD019E
:100250001030AF002A0DAD0DAE0D2B08AD022C08ED
:10026000031C2C0FAE0203183C292B08AD072C08E9
:1002700003182C0FAE070310A90DAA0DAF0B2A29E6
:10028000290808001030B300AA01A901B00CAF0C76
:10029000031C50292B08A9072C0803182C0FAA07A8
:1002A000AA0CA90CAE0CAD0CB30B46292D08080006
:1002B00083138312031308008301A00107309F00FA
:1002C0009F00850186018316051183120515803074
:1002D000A100042020303A2046303A204D303A2008
:1002E00020303A2054303A2052303A2041303A20DF
:1002F0004E303A2053303A204D303A2049303A209F
:1003000054303A203A2045303A2052303A202030BA
:100310003A208030A100C030042020303A205230F2
:100320003A2064303A2076303A203A2020303A2081
:1003300056303A2069303A2050303A2072303A2014
:100340006F303A206A303A2065303A2020303A2027
:100350003A203A200730AC00D03005218030A1008F
:100360008A3004202E303A208030A1008D300420C5
:100370004D303A2048303A207A303A2020303A2026
:100380008030A100C630042038303A2057303A205F
:1003900061303A2074303A203A2020303A205030F0
:1003A0003A204C303A203A200230FC20B700FE20A0
:1003B000B80008303802031CE329031DE529713019
:1003C00037020318E5290301031D013083120313CB
:1003D000B60006303802031CF529031DF329D63078
:1003E0003702031CF5290301031D01308312031397
:1003F000B6040319FF290730B800CE30B700B81B88
:10040000052A37083804031D532A8312031380304A
:10041000A100042046303A2052303A2045303A209C
:1004200020303A2053303A2045303A2054303A2098
:1004300020303A20C422C8300421861A242A861B80
:10044000392A061B492A1B2A0430B7070318B80AA1
:1004500008303802031C382A031D322A6F30370255
:10046000031C382A063083120313B800D630B700B5
:100470001A2A0430B702031CB80306303802D630FB
:10048000031937020318482A0830B8006E30B70045
:100490001A2A023083169B0083123708EF2038088F
:1004A000EF20323004218030A100042055303A2062
:1004B0006E303A204C303A206F303A2063303A2088
:1004C0006B303A2020303A203708BD003808BE0093
:1004D000C4220530A2000230A7000530A30001307D
:1004E000A400C230A3203E08A3203D08A3208E30E4
:1004F000A3200030A12096300421061B052A0530D8
:10050000A2000230A7000530A3000130A400C230D1
:10051000A3208A20C0008820BF003F1B902A532AB6
:100520000530A2000230A7000530A3000130A4006E
:10053000C230A3203E08A3203D08A3208E30A32074
:100540002430A1208030A100042020303A203A201D
:100550004C303A206F303A2063303A206B303A20EA
:1005600020303A20C422C8300421861EBB2A8316BC
:10057000051183120511861FC12A831605118312E6
:100580000515061B052AB32A3808B0003708AF0046
:10059000AC010530AB004221B4002E08B50035088F
:1005A000AA003408A900AC016430AB0026212E0853
:1005B000BC002D08BB003808B0003708AF00AC0104
:1005C0000530AB004221B4002E08B5003508AA0062
:1005D0003408A900AC016430AB002621B9002A0818
:1005E000BA00BA08031DF82A64303902031C052B2F
:1005F000803083120313A10087300420A60139083C
:10060000AD003A08AE000B20112B8030A1008730DE
:10061000042020303A20A6013908AD003A08AE0087
:100620000B208030A1008B300420A6013B08AD00D8
:100630003C08AE000B203708BD003808BE0005306E
:10064000A2000230A7000530A3000130A400C23090
:10065000A3203E08A3203D08A3208E30A320103005
:08066000A1200800322B332B0E
:02400E00193F58
:00000001FF