ds1302 string hex karmaşası

[canbulut]

çok yaşa ibrsel hocam..işte bunu diyorum...ben değişkeni şu şekilde alıyorum...arrayim var 10 haneli bana saat pcden 1926 olarak 4 ayrı deger geliyor...yani şöyle elma[0]="1" elma[1]="9" elma[2]="2" elma[3]="6" bu çevrimi soruyorum kolay bir yolu varmı diye...

[ibrsel]

Evet dediğini anlıyorum..Bu işi bir önceki mesajda anlattığım gibi yapabilirsin. Eğer Proton Basic kullanmıyor isen alt programın ile kendin DEC e dönüştürmelisin.Çünkü PBP de bu işi yapan kolay bir komut yok..( Protonda "VAL" komutunu incelersen anlarsın)

Alt prorgamının mantığını aşağıdaki gibi ayarlayabilirsin;

Dim i As Byte               '' döngü değişkeni
Dim bilgi[4] As Byte        '' bilgisayardan gelen saat bilgin 1926 şeklinde olan

main:
    For i=0 To 3
        DEC_Sayi=bilgi (i)
        GoSub bilgiyi_DECe_Cevir   
    Next i 
GoTo main
   

bigiyi_DECe_cevir:
    Select DEC_Sayi
        Case "0"
            DEC_Sayi=0
        Case "1"
            DEC_Sayi=1
        Case "2"
            DEC_Sayi=2
        Case "3"
            DEC_Sayi=3
        Case "4"
            DEC_Sayi=4
        Case "5"
            DEC_Sayi=5
        Case "6"
            DEC_Sayi=6
        Case "7"
            DEC_Sayi=7
        Case "8"
            DEC_Sayi=8
        Case "9"
            DEC_Sayi=9
    End Select
        bilgi(i)=DEC_Sayi       
Return

[canbulut]

peki mesela 5 ve 9 olarak gelen sayıları dec olarak birisini 5 diğerini yine dec 9 olarak ayarladık diyelim dec 59 olarak nasıl gösterebilirim.

[ibrsel]

Bilgi[0]=5 , Bilgi[1]=9 olarak DEC e çevirdin diyelim ki.

A=(Bilgi[0]*10)+Bilgi[1] 
Print At 1,1,DEC A 

komutlarını kullanır isen LCD nin 1. satır,1. sutununa A nın DEC değeri olan 59 u görüntülersin..

[canbulut]

ok teşekkür ederim.şimdi dışarı çıkmam gerekiyor.döndüğümde deneyeceğim.ilginiz için çok teşekkürler.