Arkadaşlar;
LookUp yazi_reg,[10,"ABCDEFHIJK"],harf_reg
buradaki string'in olduğu kısıma;
aşağıdaki değişkenleri nasıl atayabilirim..?
LCDOUT hex2 rtcmonth, "/", hex2 rtcdate, "/","20",hex2 rtcyear
Yani DS 1302 de tarih bilgisini yada saat bilgisini kayan yazı uygulamasına dahil etmek için...
Bu arada;
LookUp yazi_reg,[10,"ABCDEFHIJK"],harf_reg
satırındaki A,B,C... harflerinin yerine;
LookUp yazi_reg,[10,65,66,67,68,69,70,72,73,74,75],harf_reg
yaparsam yani harflerin yerine decimal olarak ASCII kodlarını girersem
yine harf karşılıklarını alıyorum..
sanırım HEX olarak okunan DS1302 datalarını bir şekilde karakter karakter ayırıp ASCII li hale getirmem gerekiyor..
sanırım,herhalde,,belki.. 8O
Dim saniye [2] As Byte
Dim dakika [2] As Byte
Dim saat [2] As Byte
Dim time_karakter [10] As Byte
.
..
...
SHIn IO,SCLK,lsbpre[rtcsec,rtcmin,rtchr,rtcdate,rtcmonth,rtcday,rtcyear,rtccontrol]
RST = 0 ' Reset RTC
StrN saniye=Str$(HEX2 rtcsec )
StrN dakika=Str$(HEX2 rtcmin )
StrN saat=Str$(HEX2 rtchr )
time_karakter[9]=" "
time_karakter[8]=saniye[1]
time_karakter[7]=saniye[0]
time_karakter[6]=" "
time_karakter[5]=dakika[1]
time_karakter[4]=dakika[0]
time_karakter[3]=" "
time_karakter[2]=saat[1]
time_karakter[1]=saat[0]
Öncelikle Programı Proton e göre tekrar uyarladım..Daha sonrada HEX karakterleri string'e çevirdim ve daha sonrada basamaklarına ayırıp ASCII olarak okuttum..Neticede DS1302 değerlerini kayan yazı matris displaylerde görüntüledim.
Kayan yazı uygulamasında @ILKER 32 kardeşimin PBP de yazmış olduğu
bir örnek uygulamadan yola çıkmıştım.Kendisine çok teşekkür ederim..
Hepimize Kolay gelsin.