 | Elektrotekno.com
Elektronik ve Teknoloji Merkezi
|
| | Yazar | Mesaj | srg
| | Tarih: 11.01.2007, 12:33 Mesaj konusu: pic basic pro yardımı!!!! | |
| f877 chip kullanıyorum programın baslangıcında
data @1,$0
data @5,$3000
seklinde verileri yazıyorum daha sonra program icerisinde bu verileri read ve write komutu ile degistiriyorum
fakat program ilk acıldıgında data@5 alanına atadıgım deger lcd de 3000 olarak gozukmuyor bunu ilk acılısta 3000 olarak nasıl yazıp ekranda 3000 olarak gosterebilirim
tesekkurler
-----------------------------------------------------
|
|
ete
| | Tarih: 12.01.2007, 15:58 Mesaj konusu: | |
| Pic'in eepromu 8 bit çalışır. Sizin yazmaya çalışığınız değer ise 16 bitlik bir değeri
Bunu yazarken,
Data @5,$30,$00 şeklinde yazıp
okurken de;
Read 5,bilgi.byte1,bilgi.byte0 (bilgi değişkeni word cinsinden olmalı)
okuduğunuz zaman Bilgi içerisine $3000 yerleşmiş olacaktır.
ete,
|
|
srg
| | Tarih: 12.01.2007, 18:03 Mesaj konusu: | |
| yardım icin tesekkur ederim ete basarılar
|
|
srg
| | Tarih: 13.01.2007, 09:45 Mesaj konusu: | |
| bu arada eeproma 16 bit data yazıp okumakla ilgili ve bu degeri lcd panelde goruntuleme ile ilgili ornek bir code yazabilirmisiniz tesekkurler
|
|
ete
| | Tarih: 13.01.2007, 10:06 Mesaj konusu: | |
| örnek kod şöyle olabilir;
Kod:
@ devıce pic16f84a 'işlemci 16f84a
@ devıce pic16f84a, wdt_on 'watch dog timer açık
@ devıce pic16f84a, pwrt_off 'power on timer kapalı
@ devıce pic16f84a, protect_off 'kod koruma kapalı
@ devıce pic16f84a, xt_osc 'xt osc
defıne lcd_dreg portb 'lcd data bacakları hangi porta bağlı?
defıne lcd_dbıt 4 'lcd data bacakları hangi bitten başlıyor?
defıne lcd_rsreg portb 'lcd rs bacağı hangi porta bağlı ?
defıne lcd_rsbıt 1 'lcd rs bacağı hangi bite bağlı ?
defıne lcd_ereg portb 'lcd enable bacağı hangi porta bağlı?
defıne lcd_ebıt 3 'lcd enable bacağı hangi bite bağlı ?
defıne lcd_bıts 4 'lcd 4 bit mi yoksa 8 bit olarak bağlı?
defıne lcd_lınes 2
lcdout $fe,1:pause 200
trısb= 0
portb= 0
trısa= 0
sayac var byte
toplam var word
basla :
sayac=245
toplam=1360
wrıte 0,sayac
wrıte 1,toplam.byte0
wrıte 2,toplam.byte1
sayac=0
toplam=0
read 0,sayac
read 1,toplam.byte0
read 2,toplam.byte1
lcdout $fe,2,"sayac=",dec sayac
lcdout $fe,$c0,"toplam=",dec toplam
pause 1000
goto basla
end
lcd nin 5 nolu bacağı (r/w bacağı) gnd ye bağlanacaktır.
kolay gelsin
ete
|
|
|
|