'************************************************* ***************
'* Author : [Hüseyin GÜNER - ViProje] *
'* Notice : Copyright (c) 2010 *
'* Date : 06.05.2010 *
'* Version : 2.0 *
'* Version : 2.01 traduccion del turco by RicBevi 25/10/14*
'************************************************* ***************
Device = 16F628A 'PIC usado
Config INTRC_OSC_CLKOUT, MCLRE_OFF, LVP_OFF, WDT_OFF, PWRTE_OFF, CP_OFF, BODEN_OFF
Declare Bus_SCL On
'---------------------------LCD--------------------------------
'Symbol LCD_DTPin = PORTB.0
'Symbol LCD_RSPin = PORTB.4
'Symbol LCD_ENPin = PORTA.3
'Symbol LCD_Interface = 4 ' 4-bit Interface
'Symbol LCD_Lines = 2
'Symbol LCD_Type = 0
Declare LCD_DTPin = PORTB.0
Declare LCD_RSPin = PORTB.4
Declare LCD_ENPin = PORTA.3
Declare LCD_Interface = 4 ' 4-bit Interface
Declare LCD_Lines = 2
Declare LCD_Type = 0
Declare LCD_CommandUs = 2000
Declare LCD_DataUs = 50
CMCON = 7
'---------------------------Variables----------------------------
Dim Frecuencia_step As Word 'Variable paso de frecuencia
Dim Frecuencia_Entera As Word ' Variable Frecuencia parte entera
Dim Frecuencia_Decimal As Word ' Variable Frecuencia parte decimal
Dim Frecuencia As Word ' Variable Frecuencia
Dim F_CONTROL As Word 'Variable CONTROL definida
Dim LO As Frecuencia.LowByte 'parte baja Frecuencia
Dim HI As Frecuencia.HighByte 'parte alta Frecuencia
'--------------------------Puertos------------------------------
Symbol SDA = PORTA.1 'I2C pin SDA
Symbol SCL = PORTA.0 'I2C pin SCL
Symbol LED = PORTA.2 'LED en PORTA.2
PORTA=0 : PORTB=0 ' limpia PORTA PORTB
'------------------------Lectura EEProm--------------------------
High LED
Print At 1,1, " FM TRANSMITTER "
Print At 2,1, " Rdvv ViProje "
DelayMS 1000 ' 300
Frecuencia_step = ERead 02 'Frecuencia de inicio
If Frecuencia_step > 0 Then ComPLL
'---------------------- Frecuencia-------------------------
Frecuencia_set:
Frecuencia_Decimal = (Frecuencia_step*10/2)//100
Frecuencia_Entera = (Frecuencia_step*10/2)/100
Print At 1,1, " FRE SET ", Dec Frecuencia_Entera, ",", Dec Frecuencia_Decimal," "
Print At 2,1, " RDVV 8Watt PLL "
DelayMS 9028 '28
If PORTB.5 = 1 Then Subir_Frecuencia 'Subir
If PORTB.7 = 1 Then Bajar_Frecuencia 'Bajar Frecuencia
If PORTB.6 = 1 Then Guarda_Frecuencia 'Guardar frecuencia
'-----------------------manda hacia el Tsa5511--------------------------
Frecuencia = Frecuencia_step
I2COut SDA,SCL,$C2, [HI,LO,$8E,$10]
GoTo Frecuencia_set
Subir_Frecuencia:
Frecuencia_step = Frecuencia_step + 1 ' Incrementa
If Frecuencia_step > 2160 Then Frecuencia_step=1750 'Si llega a 10800 entonces cambia a 8750
GoTo Frecuencia_set
Bajar_Frecuencia:
Frecuencia_step = Frecuencia_step-1 ' Decrementa
If Frecuencia_step < 1750 Then Frecuencia_step=2160 'Si llega a 8750 entonces cambia a 10800
GoTo Frecuencia_set
Guarda_Frecuencia: '--------------------------Escribe Datos Eprom---------------------------
EWrite 02 ,[Frecuencia_step] 'Guarda el Paso en la EEprom
DelayMS 350 '50
ComPLL: '----------------------- Escribe en el Tsa5511 --------------------------
Frecuencia_Decimal = (Frecuencia_step*10/2)//100
Frecuencia_Entera = (Frecuencia_step*10/2)/100
Print At 1,1, " UnLock ", Dec Frecuencia_Entera, ",", Dec Frecuencia_Decimal, " "
Print At 2,1, " RDVV 8Watt PLL "
Frecuencia = Frecuencia_step
I2COut SDA,SCL,$C2, [HI,LO,$8E,$00]
DelayMS 8050 '150
'----------------------Verifica estatus Tsa5511i ----------------------
If PORTB.6 = 1 Then Frecuencia_set 'Si esta pulsado PORTB.6 va al principio
'I2CREAD SDA,SCL,$C2,[F_CONTROL]
I2CIn SDA,SCL,$C2,[F_CONTROL]
If F_CONTROL.6 = 1 Then Bloqueo ' Si el bit 6 de F_CONTROL esta a 1 entonces el PLL esta enganchado LOCK
GoTo ComPLL
Bloqueo:
I2COut SDA,SCL,$C2, [HI,LO,$8E,$24]
Frecuencia_Decimal = (Frecuencia_step*10/2)//100
Frecuencia_Entera = (Frecuencia_step*10/2)/100
Print At 1,1, " Lock ", Dec Frecuencia_Entera, ",", Dec Frecuencia_Decimal, " "
Print At 2,1, " RDVV 8Watt PLL "
K_buton:
DelayMS 20 '20
If PORTB.5= 1 Then LCD_Led_Off ' Si se pulsa Subir apaga el led
If PORTB.7=1 Then LCD_Led_On ' Si se pulsa Bajar prende el led
If PORTB.6=1 Then Frecuencia_set ' Si se pulsa Guardar va al comienzo
GoTo K_buton
LCD_Led_On:
High LED
GoTo K_buton
LCD_Led_Off:
Low LED
GoTo K_buton
End
