hex

[Ayhan Ercan]

arkadaşlar, windowsun hesap makınasında görünüm menusunden standart ve bilimsel ayrı iki görünüm var. bilimsel görünüme geçtiğinizde hex ondalık gibi fonksiyonlar görünmektedir. orada hex degerinde yazılan bir verinin ondalık degerine dönüşmekte. ancak hesap makınası 16 haneden fazla hesap yapmıyor. bana 32 hatta 64 haneye kadar hex değerinini ondalık değerine dönüştürecek bir metot lazım. acaba bu fonksiyonla mümkünmü? veya makro ile???

 

[Asri]

Bu kodları deneyebilirsin.

Function Dec2Hex(ByVal DecimalIn As Variant) As String
Dim X As Integer
Dim BinaryString As String
Const BinValues = "*0000*0001*0010*0011" & _
"*0100*0101*0110*0111" & _
"*1000*1001*1010*1011" & _
"*1100*1101*1110*1111*"
Const HexValues = "0123456789ABCDEF"
Const MaxNumOfBits As Long = 96
BinaryString = ""
DecimalIn = Int(CDec(DecimalIn))
Do While DecimalIn <> 0
BinaryString = Trim$(Str$(DecimalIn - 2 * _
Int(DecimalIn / 2))) & BinaryString
DecimalIn = Int(DecimalIn / 2)
Loop
BinaryString = String$((4 - Len(BinaryString) _
Mod 4) Mod 4, "0") & BinaryString
For X = 1 To Len(BinaryString) - 3 Step 4
Dec2Hex = Dec2Hex & Mid$(HexValues, _
(4 + InStr(BinValues, "*" & _
Mid$(BinaryString, X, 4) & "*")) \ 5, 1)
Next
End Function

Function Hex2Dec(ByVal HexString As String) As Variant
Dim X As Integer
Dim BinStr As String
Const TwoToThe49thPower As String = "562949953421312"
If Left$(HexString, 2) Like "&[hH]" Then
HexString = Mid$(HexString, 3)
End If
If Len(HexString) <= 23 Then
Const BinValues = "0000000100100011" & _
"0100010101100111" & _
"1000100110101011" & _
"1100110111101111"
For X = 1 To Len(HexString)
BinStr = BinStr & Mid$(BinValues, _
4 * Val("&h" & Mid$(HexString, X, 1)) + 1, 4)
Next
Hex2Dec = CDec(0)
For X = 0 To Len(BinStr) - 1
If X < 50 Then
Hex2Dec = Hex2Dec + Val(Mid(BinStr, _
Len(BinStr) - X, 1)) * 2 ^ X
Else
Hex2Dec = Hex2Dec + CDec(TwoToThe49thPower) * _
Val(Mid(BinStr, Len(BinStr) - X, 1)) * 2 ^ (X - 49)
End If
Next
Else
' Number is too big, handle error here
End If
End Function

 

[Ayhan Ercan]

çok teşekkür ederim sağolun...

 

[Ayhan Ercan]

sayın asri, vermiş olduğunuz kodları kullanmaya başladım. herşey cok iyi gidiyor ancak tek bir sorun var.
maximum 32 hane hesaplatamadım. en fazla hesaplatabileceğim hane sayı 29.
kodlarını incelemeye calıştım ama maalesef okadar professionel olmadığım için bunu çözemedim. önemli bi iş için lazımdı, yardımcı olabilecek arakadaşlara şimdiden cok teşekkür ederim...

 

[Recep İpek]

Sayın SchakaL,

Aşağıdaki linkte size verdiğim cevap işinize yarar mı?

http://www.excel.web.tr/showthread.php?t=19049

 

[Ayhan Ercan]

Sayın SchakaL,

Aşağıdaki linkte size verdiğim cevap işinize yarar mı?

http://www.excel.web.tr/showthread.php?t=19049

sayın ripek, galiba yanlış anlattım sizin verdiğiniz cavptaki kodları kullandım ama benim istediğimden başka bişey hesaplıyor. mesela:

hex değeri FF olan ondalıkta 255 olması gerekiyor
yani 255 = FF
ama sizin verdiğinizde 255 = 323535 değeri veriyor..

 

[Ali]

Sn Schakal biraz araştırdım aşağıdaki fonksiyonu buldum belki işinize yarar.


Function DHex(Nb As Double) As String

Dim Nb2 As Double
Dim IsNeg As Boolean
Nb = WorksheetFunction.Round(Nb, 0)
IsNeg = Nb < 0
If IsNeg Then _
Nb = 16 ^ (Int(WorksheetFunction.Log(-Nb, 16)) + 2) + Nb
Do While Nb
Nb2 = Int(Nb / 16)
DHex = Mid("0123456789ABCDEF", Nb - Nb2 * 16 + 1, 1) & DHex
Nb = Nb2
Loop
If Not IsNeg Then DHex = "0" & DHex

End Function

 

[Ayhan Ercan]

maalesef oda &#231;al&#305;&#351;mad&#305;. daha do&#287;rusu yaln&#305;&#351; &#231;al&#305;&#351;&#305;yor. galiba benim derdime bi care bulunamayacak. ne bulunmaz bi derdim varm&#305;&#351; bee

 

[Recep İpek]

Yanl&#305;&#351; &#231;&#246;z&#252;m oldu&#287;u i&#231;in taraf&#305;mdan silindi.

 

[Ayhan Ercan]

Sayın SchakaL,


Sorduğunuz soru gerçekten güzel bir soru.Çünkü herhangi bir kelimenin HEX kodunu bulmak kolay.Fakat herhangi bir HEX kodunun karşılığını bulmak biraz zor gibi.(Yada bana öyle geldi.)

Bende uzun uğraşlardan sonra sonucu bulabildim.

!!!Sanırım istediğiniz bu.!!!

Function HexOndalik(ByVal HexKodu As Variant)
    Dim son, cevir As String
    son = ""
    For i = 1 To Len(HexKodu) Step 2
    veri = Mid(HexKodu, i, 2)
    cevir = Abs(Val("&H" & veri & "&"))
    son = son & cevir
    Next i
    HexOndalik = son
End Function

sayın ripek;
ya ben anlatamıyorum ya siz anlayamadınız. verdiğiniz kodu kendiniz denedinizmi?

örneğin
FF=255
bu tamam
sonrasında
FFF=4095 olması gerekirken
verdiğ sonuç 25515
buda yalnış bir sonuç.


birde bir sıkıntım daha var
bir sıkıntım var bir türlü aşamadığım.

hücre özelliklerinden hücre içine yazılacak verinin "genel" olması istendiğinde 11 haneden sonra yani 12. haneyi yazdığınızda örneğin:
123456789012 =
1,23457E+11
görünüyor,

hücre özelliklerini "genel"den "sayı" ya çevirdiğimde ise bu sefer 15 haneye kadar sorunsuz 15.haneden sonra herhane için en arkaya sıfır rakamını veriyor. örneğin:
1234567890123456 =
1234567890123450
oluyor
ve 15.haneden sonra yazılan her bir rakamıda arkaya sıfır olarak atıyor. bunu nasıl çözebilirim yani:
örneğin:
1234567890123456789012345 rakamını aynen yazdığım gibi göstermesini nasıl sağlayabilirm?

 

[Recep İpek]

H&#252;cre &#246;zelli&#287;ini "TEXT" yaparsan&#305;z olur.

Hesaplamada hakl&#305;s&#305;n&#305;z.Tekrar bakaca&#287;&#305;m..

 

[Ayhan Ercan]

H&#252;cre &#246;zelli&#287;ini "TEXT" yaparsan&#305;z olur.

Hesaplamada hakl&#305;s&#305;n&#305;z.Tekrar bakaca&#287;&#305;m..

h&#252;cre &#246;zelli&#287;ini "text" yani "metin" demek mistiyorsunuz herhalde. onuda denedim. oda "genel" deki gibi sonu&#231; veriyor.
ama
ben "text" yapt&#305;&#287;&#305;m zaman kendim yazd&#305;&#287;&#305;m h&#252;crede g&#246;r&#252;nmesinden ziyade;
o h&#252;creye bir formul yaz&#305;pta form&#252;l&#252;n sonucunu isteid&#287;im zaman dediklerim oluyor..