I2C Error Code PIC16F628A - Need Help

[galee]

Dear every member,
I am new member here.
I want to start discussing about FM PLL Transmitter, as  I know i found this code few year ago from other forum, and i never build this project.

Now I want to build the FM PLL Transmitter.

Well, I already trying to compiled this code under Proton and  I have and error some into I2C, and after disabled and changing some delay, i got much better to control the UP/DOWN/SET, but I still need to fixed that I2C code, because that will control a prescaller (IC).

Here are the code :

Code:

  
'****************************************************************
'*  Author  : [Hüseyin GÜNER - ViProje]                         *
'*  Notice  : Copyright (c) 2010                                *
'*  Date    : 06.05.2010                                        *
'*  Version : 2.0                                               *
'****************************************************************
Device = 16F628A 'PIC'i tanýtýyoruz.  
Config INTRC_OSC_CLKOUT, MCLRE_OFF, LVP_OFF, WDT_OFF, PWRTE_OFF, CP_OFF, BODEN_OFF
'Declare I2C_SCLOUT On   
'---------------------------LCD-------------------------------- 	
	        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
		CMCON = 7
'---------------------------Adresler----------------------------
Dim FREKANS_step As Word     'Frekans Onda sayý
Dim FREKANS_Tam As Word      'Frekans Tam sayý
Dim FREKANS_Onda As Word     'Frekans stepi
Dim FREKANS As Word          'Frekans bilgisi deðiþkeni
Dim F_KONTROL As Word        'KONTROL deðikenini tanýmladýk

Dim LO As FREKANS.LowByte    'Frekans deðiþkeninin düþük byte'ý
Dim HI As FREKANS.HighByte   'Frekans deðiþkeninin yüksek byte'ý  

'--------------------------Portlar------------------------------
Symbol SDA = PORTA.1         'I2C'nin SDA'sý PORTA.1'ya baðlý     
Symbol SCL = PORTA.0         'I2C'nin Scl'si PORTA.0'ya baðlý
Symbol LED = PORTA.2         'LED PORTA.2'e baðlý

PORTA=0 : PORTB=0     'PORTA ve PORTB sýfýrlandý 
'DelayMS 3000
'------------------------Eepromdan OKu-------------------------- 

bas:
High LED
Print At 1,1, " FM TRANSMITTER "
Print At 2,1, "  Test RDVV  "
DelayMS 33000
FREKANS_step = ERead 02 'Frekans Deyerini EData dan okuyor
If  FREKANS_step > 0   Then  TsaYaz 'Frekans Bilgisi 0 Dan Büyük ise Tsa yaza gidiyor
'----------------------Frekans Deðiþtir-------------------------
Frekans_set:
FREKANS_Onda = (FREKANS_step*10/2)//100
FREKANS_Tam =  (FREKANS_step*10/2)/100
Print  At 1,1, " FRE SET ", Dec FREKANS_Tam, ",", Dec FREKANS_Onda,"  " 'LCD Yaz
Print  At 2,1, " RDVV 8Watt PLL " 'LCD Yaz
DelayMS 8550 '28
If  PORTB.5=1   Then    Artir_frekans
If  PORTB.7=1   Then    Azalt_frekans
If  PORTB.6=1   Then    Kaydet_frekans
'----------------------- Tsa5511 e yaz--------------------------
FREKANS = FREKANS_step

 'i2cwrite SDA , SCL, adres ,[HI,LO,$8e,$10]
'I2CWRITE SDA,SCL,$C2, [HI,LO,$8E,$10]

GoTo Frekans_set

Artir_frekans:
            FREKANS_step=FREKANS_step + 1                  'içeriði 5 artir
            If FREKANS_step > 2160 Then FREKANS_step=1750 'içerik 10800 dan büyük ise 8750 yap
            GoTo Frekans_set
Azalt_frekans:
            FREKANS_step=FREKANS_step-1                    'içeriði 5 azalt
            If FREKANS_step < 1750 Then FREKANS_step=2160 'içerik 8750 den küçük ise 10800 yap
            GoTo Frekans_set
            
'--------------------------Edataya yaz---------------------------
Kaydet_frekans:
EWrite 02 ,[FREKANS_step] 'Frekans Bilgisini Edataya yazýyor 
DelayMS 5350 '50
'----------------------- Tsa5511 e yaz--------------------------
TsaYaz:
FREKANS_Onda = (FREKANS_step*10/2)//100
FREKANS_Tam =  (FREKANS_step*10/2)/100
Print  At 1,1, " UnLock ", Dec FREKANS_Tam, ",", Dec FREKANS_Onda, "  " 'lcd yaz
Print  At 2,1, " RDVV 8Watt PLL " 'LCD Yaz
FREKANS = FREKANS_step

'i2cwrite SDA , SCL, adres ,[HI,LO,$8e,$00]
'I2CWRITE SDA,SCL,$C2, [HI,LO,$8E,$00]

DelayMS 5350 '150

'----------------------Tsa5511i Kontrol et----------------------
If  PORTB.6=1   Then    Frekans_set
'I2CREAD SDA,SCL,$C2,[F_KONTROL]
If F_KONTROL.6=1 Then Kitli
GoTo TsaYaz
Kitli:

'i2cwrite sda , scl, adres ,[hi,lo,$8e,$24]
'I2CWRITE SDA,SCL,$C2, [HI,LO,$8E,$24]

FREKANS_Onda = (FREKANS_step*10/2)//100
FREKANS_Tam =  (FREKANS_step*10/2)/100
Print  At 1,1, "   Lock ", Dec FREKANS_Tam, ",", Dec FREKANS_Onda, "  " 'lcd Yaz
Print  At 2,1, " RDVV 8Watt PLL " 'LCD Yaz
K_buton:
DelayMS 150'20
If  PORTB.5=1   Then    LCD_Led_Off
If  PORTB.7=1   Then    LCD_Led_On
If  PORTB.6=1   Then    Frekans_set
GoTo K_buton
LCD_Led_On:
High LED
GoTo K_buton
LCD_Led_Off:
Low LED
GoTo K_buton
End
  

And here are the main problem :

'Declare I2C_SCLOUT On
'i2cwrite SDA , SCL, adres ,[HI,LO,$8e,$10]
'I2CWRITE SDA,SCL,$C2, [HI,LO,$8E,$10]
'i2cwrite SDA , SCL, adres ,[HI,LO,$8e,$00]
'I2CWRITE SDA,SCL,$C2, [HI,LO,$8E,$00]
'i2cwrite sda , scl, adres ,[hi,lo,$8e,$24]
'I2CWRITE SDA,SCL,$C2, [HI,LO,$8E,$24]

If those code inactivated then I2C connection doesn't produce to send register to prescaller and doesn't control the frequency.

Cheer,
 
Galee.

[towlerg]

I'm guessing that your code is Proton. Suggest you join the board http://www.protonbasic.co.uk/forum.php

[galee]

Towlerg,
Yes you right it code written under Proton Basic, but my Kaspersky indicate warning when i open that official website and doesn't open that page,  look like spammer into their website.

Galee.

[TucoRamirez]

maybe check this one?

http://f6csx.free.fr/ATV/I2C/PILOTAGE_I2C.htm

[galee]

Tuco Ramirez,
Thanks for your link.
As I know that code in PIC Basic and that for a receiver not for transmitter, that based on tuner as an oscillator, I wish to build FM PLL Transmitter not a receiver.

Once again thank you so much to try help me.

Galee.

[Ahmad_k]

Dear every member,
I am new member here.
I want to start discussing about FM PLL Transmitter, as  I know i found this code few year ago from other forum, and i never build this project.

Now I want to build the FM PLL Transmitter.

Well, I already trying to compiled this code under Proton and  I have and error some into I2C, and after disabled and changing some delay, i got much better to control the UP/DOWN/SET, but I still need to fixed that I2C code, because that will control a prescaller (IC).

Here are the code :

Code:

  
'****************************************************************
'*  Author  : [Hüseyin GÜNER - ViProje]                         *
'*  Notice  : Copyright (c) 2010                                *
'*  Date    : 06.05.2010                                        *
'*  Version : 2.0                                               *
'****************************************************************
Device = 16F628A 'PIC'i tanýtýyoruz.  
Config INTRC_OSC_CLKOUT, MCLRE_OFF, LVP_OFF, WDT_OFF, PWRTE_OFF, CP_OFF, BODEN_OFF
'Declare I2C_SCLOUT On   
'---------------------------LCD-------------------------------- 	
	        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
		CMCON = 7
'---------------------------Adresler----------------------------
Dim FREKANS_step As Word     'Frekans Onda sayý
Dim FREKANS_Tam As Word      'Frekans Tam sayý
Dim FREKANS_Onda As Word     'Frekans stepi
Dim FREKANS As Word          'Frekans bilgisi deðiþkeni
Dim F_KONTROL As Word        'KONTROL deðikenini tanýmladýk

Dim LO As FREKANS.LowByte    'Frekans deðiþkeninin düþük byte'ý
Dim HI As FREKANS.HighByte   'Frekans deðiþkeninin yüksek byte'ý  

'--------------------------Portlar------------------------------
Symbol SDA = PORTA.1         'I2C'nin SDA'sý PORTA.1'ya baðlý     
Symbol SCL = PORTA.0         'I2C'nin Scl'si PORTA.0'ya baðlý
Symbol LED = PORTA.2         'LED PORTA.2'e baðlý

PORTA=0 : PORTB=0     'PORTA ve PORTB sýfýrlandý 
'DelayMS 3000
'------------------------Eepromdan OKu-------------------------- 

bas:
High LED
Print At 1,1, " FM TRANSMITTER "
Print At 2,1, "  Test RDVV  "
DelayMS 33000
FREKANS_step = ERead 02 'Frekans Deyerini EData dan okuyor
If  FREKANS_step > 0   Then  TsaYaz 'Frekans Bilgisi 0 Dan Büyük ise Tsa yaza gidiyor
'----------------------Frekans Deðiþtir-------------------------
Frekans_set:
FREKANS_Onda = (FREKANS_step*10/2)//100
FREKANS_Tam =  (FREKANS_step*10/2)/100
Print  At 1,1, " FRE SET ", Dec FREKANS_Tam, ",", Dec FREKANS_Onda,"  " 'LCD Yaz
Print  At 2,1, " RDVV 8Watt PLL " 'LCD Yaz
DelayMS 8550 '28
If  PORTB.5=1   Then    Artir_frekans
If  PORTB.7=1   Then    Azalt_frekans
If  PORTB.6=1   Then    Kaydet_frekans
'----------------------- Tsa5511 e yaz--------------------------
FREKANS = FREKANS_step

 'i2cwrite SDA , SCL, adres ,[HI,LO,$8e,$10]
'I2CWRITE SDA,SCL,$C2, [HI,LO,$8E,$10]

GoTo Frekans_set

Artir_frekans:
            FREKANS_step=FREKANS_step + 1                  'içeriði 5 artir
            If FREKANS_step > 2160 Then FREKANS_step=1750 'içerik 10800 dan büyük ise 8750 yap
            GoTo Frekans_set
Azalt_frekans:
            FREKANS_step=FREKANS_step-1                    'içeriði 5 azalt
            If FREKANS_step < 1750 Then FREKANS_step=2160 'içerik 8750 den küçük ise 10800 yap
            GoTo Frekans_set
            
'--------------------------Edataya yaz---------------------------
Kaydet_frekans:
EWrite 02 ,[FREKANS_step] 'Frekans Bilgisini Edataya yazýyor 
DelayMS 5350 '50
'----------------------- Tsa5511 e yaz--------------------------
TsaYaz:
FREKANS_Onda = (FREKANS_step*10/2)//100
FREKANS_Tam =  (FREKANS_step*10/2)/100
Print  At 1,1, " UnLock ", Dec FREKANS_Tam, ",", Dec FREKANS_Onda, "  " 'lcd yaz
Print  At 2,1, " RDVV 8Watt PLL " 'LCD Yaz
FREKANS = FREKANS_step

'i2cwrite SDA , SCL, adres ,[HI,LO,$8e,$00]
'I2CWRITE SDA,SCL,$C2, [HI,LO,$8E,$00]

DelayMS 5350 '150

'----------------------Tsa5511i Kontrol et----------------------
If  PORTB.6=1   Then    Frekans_set
'I2CREAD SDA,SCL,$C2,[F_KONTROL]
If F_KONTROL.6=1 Then Kitli
GoTo TsaYaz
Kitli:

'i2cwrite sda , scl, adres ,[hi,lo,$8e,$24]
'I2CWRITE SDA,SCL,$C2, [HI,LO,$8E,$24]

FREKANS_Onda = (FREKANS_step*10/2)//100
FREKANS_Tam =  (FREKANS_step*10/2)/100
Print  At 1,1, "   Lock ", Dec FREKANS_Tam, ",", Dec FREKANS_Onda, "  " 'lcd Yaz
Print  At 2,1, " RDVV 8Watt PLL " 'LCD Yaz
K_buton:
DelayMS 150'20
If  PORTB.5=1   Then    LCD_Led_Off
If  PORTB.7=1   Then    LCD_Led_On
If  PORTB.6=1   Then    Frekans_set
GoTo K_buton
LCD_Led_On:
High LED
GoTo K_buton
LCD_Led_Off:
Low LED
GoTo K_buton
End
  

And here are the main problem :

'Declare I2C_SCLOUT On
'i2cwrite SDA , SCL, adres ,[HI,LO,$8e,$10]
'I2CWRITE SDA,SCL,$C2, [HI,LO,$8E,$10]
'i2cwrite SDA , SCL, adres ,[HI,LO,$8e,$00]
'I2CWRITE SDA,SCL,$C2, [HI,LO,$8E,$00]
'i2cwrite sda , scl, adres ,[hi,lo,$8e,$24]
'I2CWRITE SDA,SCL,$C2, [HI,LO,$8E,$24]

If those code inactivated then I2C connection doesn't produce to send register to prescaller and doesn't control the frequency.

Cheer,
 
Galee.

We need more informations. what is the error produced ? what is the chip used in transmitter ? what version of proton you have ?

[galee]

AhmadK,
That the error produced are :

Code:

  'Declare I2C_SCLOUT On
'i2cwrite SDA , SCL, adres ,[HI,LO,$8e,$10]
'I2CWRITE SDA,SCL,$C2, [HI,LO,$8E,$10]
'i2cwrite SDA , SCL, adres ,[HI,LO,$8e,$00]
'I2CWRITE SDA,SCL,$C2, [HI,LO,$8E,$00]
'i2cwrite sda , scl, adres ,[hi,lo,$8e,$24]
'I2CWRITE SDA,SCL,$C2, [HI,LO,$8E,$24] 

My processor is PIC16F628A.
My Proton Basic Compiler are :
  Proton IDE, Version 2.0.3.3
  Loader Version 3.5.2.7
  Compiler Version 3.7.3.7

That above version I used to compiled to previous code.

Galee.

[Ahmad_k]

AhmadK,
That the error produced are :

Code:

  'Declare I2C_SCLOUT On
'i2cwrite SDA , SCL, adres ,[HI,LO,$8e,$10]
'I2CWRITE SDA,SCL,$C2, [HI,LO,$8E,$10]
'i2cwrite SDA , SCL, adres ,[HI,LO,$8e,$00]
'I2CWRITE SDA,SCL,$C2, [HI,LO,$8E,$00]
'i2cwrite sda , scl, adres ,[hi,lo,$8e,$24]
'I2CWRITE SDA,SCL,$C2, [HI,LO,$8E,$24] 

My processor is PIC16F628A.
My Proton Basic Compiler are :
  Proton IDE, Version 2.0.3.3
  Loader Version 3.5.2.7
  Compiler Version 3.7.3.7

That above version I used to compiled to previous code.

Galee.

Show me the output error produced by proton ide and not the code

Posted on: April 18, 2020, 06:00:20 18:00 - Automerged
As i remember, there is no I2CWRITE in proton, it is an internal command and you cannot use it.

You should use I2CIN and I2COUT, or if you are more familiar with I2C you can use BUSOUT and BUSIN

[galee]

AhmadK,
I am not really familiar with those, hope you can give me a sample for those, without that I2C not include then i can't put register or control TSA5511 as a prescaller for charge pump and lock, something like these :
&H8E = binary 10001110

Charge-pump
and test bits
1 CP T1 T0 1 1 1 OS
1 0 0 0 1 1 1 0 (&H8E)

CP charge-pump current
CP = 0 50 µA
CP = 1 220 µA
P3 to P0 = 1 limited-current output is active
P7 to P4 = 1 open-collector output is active
P7 to P0 = 0 outputs are in high impedance state
T1, T0, OS = 0 0 0 normal operation
T1 = 1 P6 = fref, P7 = fDIV
T0 = 1 3-state charge-pump
OS =1 operational ampli?er output is switched off (varicap drive disable)

Hope you can help me to how to adding that on write.

As well as your asking me for an error, please seen my attachment pictures below.


Galee

[Ahmad_k]

As i said you cannot use I2CWRITE use I2COUT instead, read the manual. Almost same syntax as I2CWRITE

[galee]

AhmadK,
I know that you mean on previous explanation, but as my previous i can't visit they website to see the manual.
I trying to shutdown my Kaspersky Internet Security then I download the manual, i see that my version compiler is higher then the code, so i think I need to use something like these, please correction me if I did wrong, AhmadK.

Code:

    
Declare I2C_SCLOUT On => How about this declaration to changes, something like this I2COut On
'i2cwrite SDA , SCL, adres ,[HI,LO,$8e,$10] -> changes to I2Cin SDA , SCL, adres ,[HI,LO,$8e,$10]

What is correct this code

Code:

 
I2Cin SDA,SCL,$C2, [HI,LO,$8E,$10]

Or

Code:

I2Cin SDA , SCL, adres ,[HI,LO,$8e,$10]

What is difference both $C2 and adres, please let me know.

Galee

[galee]

AhmadK,
I trying to compiled, these :

Not work,

Code:

I2CIn SDA , SCL, adres ,[HI,LO,$8e,$00]

Work,

Code:

I2CIn SDA,SCL,$C2, [HI,LO,$8E,$00]

Can you please explain me refer to reading TSA5511.


What is substitute for this,

Code:

I2CREAD

I used this, i get an error.


Galee

[Ahmad_k]

What is correct this code

Code:

 
I2Cin SDA,SCL,$C2, [HI,LO,$8E,$10]

Or

Code:

I2Cin SDA , SCL, adres ,[HI,LO,$8e,$10]

What is difference both $C2 and adres, please let me know.

Galee

Seriously !!! if you don't know what is a VIARIABLE and what $ means then you should not touch any programing language. Open the manual and start learning from the begining, i cannot help you anymore.

[pickit2]

Ahmad_k nailed it early on

Error was displayed, as shown below.

PDS has a good help key too.

[galee]

AhmadK,
I know that.
But for TSA5511 i not very able to read that function, so why i submit that problem here for discuss topic.
Many people just tell like this then this, but no guidance right way, no showing how to do, if I know it, i am not here.
Why forum they create, it mean to help someone.

Time go sleep, i close this session.

Galee

[titi]

Galee,

this code is compilling well with Proton Basic, it is a bit different of yours but seams very close, I hope this is what you are seaching for ?

Best regard.

[galee]

Titi,
I compiled your test code, i got an error, then I try to a bit change refer to the other codes, after change then the code can compiled full without any error, could you please correction.

Code:

'************************************************* ***************
'* 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 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 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 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 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
        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

Here are the error :

Code:

 '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

And this :
----- Verifica estatus Tsa5511i-----

Code:

 'I2CREAD SDA,SCL,$C2,[F_CONTROL]

Once those is changes then working on compiled.

Galee

[pickit2]

Titi,
I compiled your test code, i got an error, then I try to a bit change refer to the other codes, after change then the code can compiled full without any error, could you please correction.

Code:

'************************************************* ***************
'* 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 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 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 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 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
        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

Here are the error :

Code:

 '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

And this :
----- Verifica estatus Tsa5511i-----

Code:

 'I2CREAD SDA,SCL,$C2,[F_CONTROL]

Once those is changes then working on compiled.

Galee

If titi said the code complied = then the problem is at your end.
and yes we do try to help, but the person who is asking should also read the reply.

[Ahmad_k]

Titi,
I compiled your test code, i got an error, then I try to a bit change refer to the other codes, after change then the code can compiled full without any error, could you please correction.

Code compiled without any problem. As Pickit2 said, the problem is at your end.

[pickit2]

Just booted up my laptop with Proton installed.
Did you even try the Built in Help?

There are 547 pages.

but you want baby feeding.

[titi]

Galee,

I just compiled your code and I have no errors at all.

I used this version "Proton Basic v3.5.9.3 of Proton and version 1.0.3.8 of Proton24" to compile the code.

So, may be your Proton Basic is not working well.

Try the version I use or reinstall yours.

Best regards.