Pic-Proton Basic-Harici Eeprom

[umutduran]

Arkadaşlar proton basic kullanarak 24c256 eeproma byte türünde bir bilgiyi kayıt etmeyi ve okumayı başardım. Ancak Word tipi bir bilgi kayıt ederken sıkıntı yaşıyorum !!

LSB ve MSB ayrı ayrı adreslere kaydetmeme rağmen başarılı olamadım bu konuda tecrübesi olan arkadaşlar varsa yardım edebilirlermi teşekkürler !!

 

[tyildizak]

Kullandığınız kodun eeproma yazma-okuma kısımlarını burada paylaşabilirseniz kontrol etme şansımız olur.

 

[umutduran]

Dim DATA_IN[20] As Byte
Dim Adres As Word
dim veri as byte
dim Toplamadres as word
adres= 2
basla:
serin portb.1,85,[veri]

BStart
BusOut %10100010,adres,[veri]
BStop
DelayMS 5
adres = adres + 1

BStart
BusOut %10100010,0,[adres]
BStop
DelayMS 5
print at 1,1, "Girilen Veri:",veri
print at 2,1, " Adres:" ,@adres
if veri = 13 then GOTO oku
goto basla

oku:

cls
adres = 0
BStart
BusOut %10100010,[adres]
Brestart
BusIn %10100011, [toplamadres]
BStop


for adres = 1 to toplamadres
print at 1,1,"Veri Okunuyor"
BStart
BusOut %10100010,[adres]
Brestart
BusIn %10100011, [data_in[adres]]
BStop

SerOut PORTB.2,90,[" Girilen Veri:",DATA_IN[adres],10,13]
delayms 50

komutlar bunlar adres değişkenini byte tipinde tanımladığımda sorun yok ama word tipinde sıkıntı yaşıyorum !!
next

 

[EGEHAYDAR]

BusIn $A0,W0,[ADRES.HighByte] DelayMS 10
W0=W0 +1
BusIn $A0,W0,[ADRES.LowByte]

 

[mustafa8235]

arkadaşlar soldurma testi için ampül arıyorum yardımcı olurmusunuz

 

[muratmert4]

S.A.
Sn. Arkadaşım epromların adresleri byte olarak kapasitelidir. Harici eprom kullanmadım ama word veriyi byte lere ayırman gerekir.
Örneğin:
Dim SAYI As Word

SAYI = 25123

SAYI.Byte0
SAYI.Byte1

eeproma yazmak için
EWrite 1,[SAYI.Byte0]' eeproma 1 nolu adrese yazdı
EWrite 2,[SAYI.Byte1]' eeproma 2 nolu adrese yazdı

eepromdan okumak için
SAYI.Byte0 = ERead 1 '1 nolu eeprom adresinden okundu
SAYI.Byte1 = ERead 2 '2 nolu eeprom adresinden okundu

SAYI = 25123 ' olacaktır



Word olan sayı değişkeni 2 bayte ye ayrıp bu şekilde ayrı ayrı adreslere kayıt edip yazıp okuyabilirsin.

Harici epromdada yazma ve okuma komutları farklı ama yol aynı olmalı bence

 

[muratmert4]

BusIn $A0,W0,[ADRES.HighByte] DelayMS 10
W0=W0 +1
BusIn $A0,W0,[ADRES.LowByte]

Arkadaş yazmış farkına varmadım kusura bakmayın.