Hola
bamos al grano tengo un chip TSA6057 de philips que es un sintetizador de frecuencia y la orden de enganche de frecuencia la enbiamos por el puerto o por el protocolo I2C, de donde por los pines 10 y 11 de dicho TSA6057 le entra los comandos del protocolo I2C,el pin 5 del TSA6057 sale la frecuencia para el oscilador local y los mezcladores etc...
el receptor es de auto contruccion propia.
el problema es el siguente.... no engancha la frecuencia... osea no se si le estoy enbiando mal los datos por el protocolo I2C.
mi hilusion seria que scaneara los canales fijos de los repetidores de la banda de radioaficcionado (que lo soy) y que la frecuencia estubiera en el rango de 144 ha 146 Mhz y memorizara 4 o 5 frecuencias nada mas, yo intento de momento que enganche la frecuencia con un pulsador y con otros dos que suba y baje la frecuencia de 144 ha 146 pero no funciona.. y todo ello verlo en un LCD
expongo mi primer programa echo con el proton con unas limitaciones al ser una demo... las frecuencias de los repetidores estan pasadas ha hex ....
LCD en modo de 4bit por el momento..
ha la salida de I2C resistencia pullup de 10K
scan start y stop en el mismo pulsador si es posible
otros dos pulsadores + y - para subir y bajar la frecuencia 144-146
se ha eleguido el PIC16F876 por tenerlo en el cajon y por que tiene 8K de memoria y el PIC16F84 1K, tiene mas pines con mas salidas y entradas para un futuro medidor de señal y control de volumen y puerto serie...
direccion I2c del TSA6057 es la 192 pasada ha hex $C0
!-------! I2C!
!
! ---------> 3 o 4 botones
! !
! !
--------------
! PIC !
-------------
!
!
---------> LCD
Device 16F876
XTAL = 4
LCD_DTPIN = PORTB.0
LCD_RSPIN = PORTB.0
LCD_ENPIN = PORTB.1
LCD_LINES = 2
LCD_INTERFACE = 8
SCL_PIN = PORTA.0
SDA_PIN = PORTA.1 " pin Datos
dim Canl0Frec 238C0"145600
dim Canl1Frec 238D9"145625
dim Canl2Frec 23924"145700
dim Canl3Frec 2393D"145725
dim Canl4Frec 23956"145750
dim Canl5Frec 23988"145800
Dim W0 as Word " direccion del TSA6057
Dim B1 as Byte " Dato frec 1
Dim B2 as Byte " Dato I2C
CLS
PRINT "SCANREP V1.0"
PAUSE 3000
Principal:
W0 = $C0
B1 = Canl0Frec
Busout $A0,W0,[B1]
Print at 1,1,#W0,". ",#B2," MHz" "imprime frecuencia y MHZ
Delayms 400
Goto principal
