Haberler:

Forum kuralları güncellendi LÜTFEN  okuyunuz:  https://bit.ly/2IjR3ME

Ana Menü

HEX den String'e cevrim

Başlatan dombilik, 03 Nisan 2009, 11:51:14

dombilik

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...
Bildiklerini kime miras bıraktın?kimseyemi? O zaman bildiklerinin ne önemi kalır. ******** /////////// ******** PROTON-ASM PROTEUS 7.4 SP3 EAGLE 5.40

dombilik

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
Bildiklerini kime miras bıraktın?kimseyemi? O zaman bildiklerinin ne önemi kalır. ******** /////////// ******** PROTON-ASM PROTEUS 7.4 SP3 EAGLE 5.40

dombilik

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.
Bildiklerini kime miras bıraktın?kimseyemi? O zaman bildiklerinin ne önemi kalır. ******** /////////// ******** PROTON-ASM PROTEUS 7.4 SP3 EAGLE 5.40