ASM51

ola! saudaçoes a todos!

ro enfrentando um problema e, gostaria do auxilio dos amigos. tenho esse arquivos extensao .bas quando tento
compilar no proton ide ele dar erro de
error[(line 47) :I2C WRITE´is a protected keyword used by the compiler,preprocessor,or assembler,and cannot be used at this.

vbnet code

Device = 16F628a 'PIC'i tanýtýyoruz.
XTAL = 4  'Kristal Hýzýný Belirtiyoruz 4Mhz       
Config XT_OSC , WDT_OFF , PWRTE_OFF ,MCLRE_ON , BOdEN_ON , LVP_OFF , CP_OFF 'PIC'in konfigürasyonlarý.
Declare I2C_SCLOUT On   
'---------------------------LCD-------------------------------- 	
DECLARE		LCD_LINES 2        ' LCD Satýr
DECLARE		LCD_DTPIN PORTB.0  ' LCD Data Pin
DECLARE		LCD_INTERFACE 4    ' LCD Data Pin Sayýsý 4	
DECLARE     LCD_RSPIN PORTB.4  ' LCD RS Pin
DECLARE		LCD_ENPIN PORTA.3  ' LCD EN Pin
'R/W pin GND
'---------------------------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 ADRES As Byte            'TSA5511 için adres deðiþkeni

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ý 
'------------------------Eepromdan OKu--------------------------
bas:
High LED
Print at 1,1, " FM TRANSMITTER "
Print at 2,1, "  Rdvv ViProje  "
DELAYMS 1000            '1 sn bekle
ADRES = $C2           'TSA5511 in adresi tanýmlandý
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:
DELAYMS 100
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
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]
GoTo Frekans_set

Artir_frekans:
DELAYMS 50
            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:
DELAYMS 50
            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 200
'----------------------- Tsa5511 e yaz--------------------------
TsaYaz:
FREKANS = FREKANS_step
I2CWRITE SDA,SCL,ADRES, [HI,LO,$8E,$00]
DELAYMS 200
'----------------------Tsa5511i Kontrol et----------------------
I2CREAD SDA,SCL,ADRES,[F_KONTROL]
If F_KONTROL.6=1 Then Kitli
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
If  PORTB.6=1   Then    Frekans_set
GoTo TsaYaz
Kitli:
I2CWRITE SDA,SCL,ADRES, [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
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

Pegue a versao PDS. Deve desaparecer este problema!

se o error persistir...converte para PICBASIC PRO MELABS

tcpipchip escreveu:se o error persistir...converte para PICBASIC PRO MELABS

na verdade eu so sei usar coisas basicas como compilar e ate mesmo gravar no pic porem
eu nao tenhoo tantas abilidades para poder fazer conversoes,
mesmo assim instalei o programa que vc surgeriu e ele fica procurando pelo compilador como
se nao estivesse instalado

Te mandei e-mail privado!

Desculpa me intrometer, mas aonde pegou esse codigo?
Esta em Russo?
Que estranho.

Outra coisa, se nao domina essa tecnologia, comece pelo o ASM do PIC e depois migre para uma linguagem de algo nivel, ou ao menos compre um livro e domine o trem.

mastk escreveu:Desculpa me intrometer, mas aonde pegou esse codigo?
Esta em Russo?
Que estranho.

Outra coisa, se nao domina essa tecnologia, comece pelo o ASM do PIC e depois migre para uma linguagem de algo nivel, ou ao menos compre um livro e domine o trem.

ola! eu achei nesse site.
http://www.viproje.com/RDVV_NoTune_2006 ... ler-1.html

no cabeçalho diz ser feito e compilado no protom

O que esse programa faz exatamente ?
Acredito que as funcionalidades acima possivelmente possa encontrar outras implementações na Web.



+++

andre_teprom escreveu:O que esse programa faz exatamente ?
Acredito que as funcionalidades acima possivelmente possa encontrar outras implementações na Web.



+++

ola, esse programa faz funcionar um vco de fm estavel,PLL .