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
