اخوانى هذة الدالة
HEXTOSTRING
توجد فى لغة السى ++
وهى تحول من صيغة هاكس او سادس عشر الى نص او سترنج
انا اريد ان اعرف اذ ما كان هناك وظيفة فى ال فى بى تقوم بنفس الدور ؟؟؟ وارجو شرحها بالتفصيل ان امكن وكيف اجعلها تحول لى اكثر من حرف او كراكتر
Do you have dreams?
Do you think you can do anything and nothing impossibale?
Well think again , Dream less , and Never wish (Advice)!!
أهلاً أخوي Alexander
الدالة للتحويل بالفيجوال بيسك هي:
Public Function HexToStr(ByVal Data As String) As String
Dim Buffer As String
If Len(Data) Mod 2 <> 0 Then
HexToStr = vbNullString
Else
For i = 1 To Len(Data) Step 2
Buffer = Buffer & Chr("&H" & Mid(Data, i, 2))
Next i
HexToStr = Buffer
End If
End Functionوهذه تحول لك أي قيمة ..
يعني تدخل جملة كامله أو حتى حرف واحد
وإستعمالها يكون بالشكل التالي :
MsgBox HexToStr("53796E746178")والنتيجة بتطلع لك رسالة مكتوب فيها Syntax
موفق إن شاء الله ...
Nothing is impossible, the word impossible itself says that: I M - Possible
شكرا لك اخى syntax او مصطفى والله انت الافضل
انا بدى اكلمك msn وهشتنا
وشكرا لك اخ اسامة
تم تعديل هذه المشاركة بواسطة Zius في 12 يناير 2008 في 13:12
Do you have dreams?
Do you think you can do anything and nothing impossibale?
Well think again , Dream less , and Never wish (Advice)!!
هذا الموضوع مغلق.