Ascii To DEC

[k0081]

Merhaba arkadaşlar;

textbox a yazılan cümleyi Decimal sayıya nasıl çevirebilirim ?

 

[dEdE]

Merhaba arkadaşlar;
textbox a yazılan cümleyi Decimal sayıya nasıl çevirebilirim ?

Merhaba,
Soru anlaşılmadı.
"...textbox a yazılan cümleye..." ve çevrilince oluşacak "...Decimal sayıya ..." birer örnek verebilir misiniz?
Acaba texboxa A yazınca ascii kodu olan 65 i mi görmek istiyorsunuz?

 

[k0081]

Merhaba,

Merhaba hocam,, öncelikle mjs geç cevap verdiğim için kusura bakmayınız,, biraz yoğunluk vardı..,,


Şimdi örnek şöyle hocam :

textbox ' a deneme yazdık. decimal karşılığı : 110386806615397 olması gerekiyor.. bu şekilde hocam..

Teşekkürler..

 

[dEdE]

Merhaba,
"deneme" sözcüğünün
ASCII karşılığı = 100 101 110 101 109 101
Binary karşılığı= 1100100 1100101 1101110 1100101 1101101 1100101
Hex karşılığı = 64 65 6E 65 6D 65

ASCII karşılıklar decimal sayı sistemine göre verilmiştir. Örneğin "d" harfinin ASCII karşılığı 100(yüz)dür.

Bu durumda "...textbox ' a deneme yazdık. decimal karşılığı : 110386806615397 olması gerekiyor.." ifadesindeki 110386806615397 değerinin ne olduğunu/nasıl hesaplandığını anlamadım.

Üstadlar ilgilenirse ben de öğrenmiş olurum.

Hoşçakalın.

 

[k0081]

Merhaba,
"deneme" sözcüğünün
ASCII karşılığı = 100 101 110 101 109 101
Binary karşılığı= 1100100 1100101 1101110 1100101 1101101 1100101
Hex karşılığı = 64 65 6E 65 6D 65

ASCII karşılıklar decimal sayı sistemine göre verilmiştir. Örneğin "d" harfinin ASCII karşılığı 100(yüz)dür.

Bu durumda "...textbox ' a deneme yazdık. decimal karşılığı : 110386806615397 olması gerekiyor.." ifadesindeki 110386806615397 değerinin ne olduğunu/nasıl hesaplandığını anlamadım.

Üstadlar ilgilenirse ben de öğrenmiş olurum.

Hoşçakalın.

evet haklısınız hocam.. ben yanlış hesapladım sanırım.. http://www.stringfunction.com/ascii-decimal.html

buradan yaptığım çeviride sizin vermiş olduğunuz değerler çıkıyor.. 100 101 110 101 109 101
doğrusu bu hocam.. buna göre olacak örnek kodlama.. bende diğerine tekrar bakacağım.. bir yerde bi hata var sanırım..

 

[dEdE]

Merhaba,
2.mesajda :"Acaba texboxa A yazınca ascii kodu olan 65 i mi görmek istiyorsunuz?" diye sormuştum. İstediğinizin bu olduğu anlaşıldı nihayet.
A1 hücresine metni yazıp makroyu çalıştırırsanız B1 e ascii karşılığını yazar. TextBox a uyarlamasını yaparsınız diye düşünüyorum.
Hoşçakalın.

Sub AsciiKoduYaz()
Metin = Cells(1, 1).Value
For i = 1 To Len(Metin)
         D = D & " " & Asc(Mid(Metin, i, 1))
      Next i
Cells(1, 2) = D
End Sub

 

[k0081]

Merhaba,
2.mesajda :"Acaba texboxa A yazınca ascii kodu olan 65 i mi görmek istiyorsunuz?" diye sormuştum. İstediğinizin bu olduğu anlaşıldı nihayet.
A1 hücresine metni yazıp makroyu çalıştırırsanız B1 e ascii karşılığını yazar. TextBox a uyarlamasını yaparsınız diye düşünüyorum.
Hoşçakalın.

Sub AsciiKoduYaz()
Metin = Cells(1, 1).Value
For i = 1 To Len(Metin)
         D = D & " " & Asc(Mid(Metin, i, 1))
      Next i
Cells(1, 2) = D
End Sub

*****************
çok teşekkür ediyorum., hocam tamamdır..