|
eternal sunshine -> Cevap: Pic'le ilgili karşılaştığım en ilginç sorun:16F877 ile EEPROM'a yazarken 5. bitte problem oluşuyor (9 Temmuz 2008; 11:48:09)
|
Bu arada programın ilgili bölümlerini de eklesem iyi olur:
....
Duty=500
....
KayitAdresi = 0
.....
gosub CleanEEPROM
PreMain:
Hserout ["Program Calisiyor "]
LCDOUT cmd, row1, "Calisiyor..."
Main:
toggle led
pause 50
IF portd.0 = 1 THEN GOSUB Button1
IF portd.1 = 1 THEN GOSUB Button2
IF portd.2 = 1 THEN GOSUB kaydet
If portd.3 = 1 THEN GOSUB Git
goto main
......
Kaydet:
disable
bekle:if portd.2 = 1 then goto bekle
WRITE KayitAdresi, duty.byte0
pause 1000
read KayitAdresi, validation.byte0
lcdout cmd, cls, "d:",#duty.byte0," v:",#validation.byte0
lcdout cmd, row2, "Adres: ",#kayitadresi
pause 1500
KayitAdresi = KayitAdresi + 1
WRITE KayitAdresi, 128 'duty.byte1
pause 1000
read KayitAdresi, validation.byte1
lcdout cmd, cls, "d:",#duty.byte1," v:",#validation.byte1
lcdout cmd, row2, "Adres: ",#kayitadresi
pause 1500
KayitAdresi = KayitAdresi + 1
enable
RETURN
.........
CleanEEPROM:
for adres = 1 to adres= 30
lcdout cmd,right, "."
write adres, 0
pause 50
next adres
return
etkin duty değeri(d) ve eeprom'dan okunan değer(v) yan yana lcd'de görüntüleniyor.
Eepromu bilgisayara okutup gördüğüm değer de READ ile okuduğum değer ile aynı.
|
|
|
|
