تبدیل متن به Hex Binary

[__siavash__]

سلام
یه سورسی قبلا داشتم که یه متنو از تکست باکس میگرفت و اونو به صورت باینری در می آورد اما هر چی میگردم پیداش نمیکنم !!! :ناراحت:

حالا کسی اون سورسو داره ؟
یا کسی میدونه چه جوری این تبدیل رو انجام بدم ؟

[RezaKia]

سلام،
کار زیاد سختی نیست.
فقط کافیه کد اسکی هر کاراکتر رو بگیری، بعد معادل باینری اونو بسازی.

البته اگر منظورت این باشه که با گرفتن A مقدار باینری 1000001 رو برگردونی.

[__siavash__]

سلام،
کار زیاد سختی نیست.
فقط کافیه کد اسکی هر کاراکتر رو بگیری، بعد معادل باینری اونو بسازی.

البته اگر منظورت این باشه که با گرفتن A مقدار باینری 1000001 رو برگردونی.
آره رابطه ساختن معادل باینریشو میخوام !

[RezaKia]

سلام،
اینم کدش. فقط کافیه متن رو تو ورودی بهش بدی کد باینری رو برمیگردونه :لبخند:


Public Function ToBin(ByVal strString As String) As String
Dim intIndex As Integer
Dim intAscCode As Integer
Dim strBinaryRepresent As String
For intIndex = 1 To Len(strString)
intAscCode = Asc(Mid(strString, intIndex, 1))
Do While intAscCode <> 0
strBinaryRepresent = (intAscCode Mod 2) & strBinaryRepresent
intAscCode = intAscCode \ 2
Loop
Next intIndex
Return Strings.Right("0000000" & strBinaryRepresent, 8 * Len(strString))
End Function

[aminramezan]

آقا کسي ميتونه پيکسل ها(نقطه ها) را روي picture box به صورت ستون هاي شانزده تايي به صورت دايره تقسيم بندي کند.و بعد از هر کليک در يک آرايه مقدار 0 اگر خاموش بود و 1 اگر روشن بود را بدهد
خيلي به اين برنامه نيازدارم اگه کسي مي تونه حتما بزاره خيلي ممنون

[roomezonline]

سلام،
اینم کدش. فقط کافیه متن رو تو ورودی بهش بدی کد باینری رو برمیگردونه :لبخند:


Public Function ToBin(ByVal strString As String) As String
Dim intIndex As Integer
Dim intAscCode As Integer
Dim strBinaryRepresent As String
For intIndex = 1 To Len(strString)
intAscCode = Asc(Mid(strString, intIndex, 1))
Do While intAscCode <> 0
strBinaryRepresent = (intAscCode Mod 2) & strBinaryRepresent
intAscCode = intAscCode \ 2
Loop
Next intIndex
Return Strings.Right("0000000" & strBinaryRepresent, 8 * Len(strString))
End Function


اگر امکانش هست یه سورس کامل در این زمینه بذارید